1、編號：時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟 頁碼：第#頁共20頁設計一個人事管理系統(tǒng)一、設計要求具有軟件封面、人事多媒體檔案（照片、聲音）、菜單與工具按鈕選擇功能等;人事信息添加功能；人事信息修改功能；人事信息刪除功能；人事信息查找功能； 人事信息分析與打印功能。二、系統(tǒng)結構圖：退出三、設計步驟：1、利用見icrosoft Access 2003創(chuàng)建數(shù)據(jù)庫及其數(shù)據(jù)表先定義一個“人事管理數(shù)據(jù)表”的結構，如表1所示。表1人事管理數(shù)據(jù)表結構創(chuàng)建字段名稱字段類型字段大小索引必須填寫姓名文本50惟一、主索引是性別文本50是匚號文本50是職位文本30是籍貫文本50是學歷文本50是照片OL

2、E對象否利川Microsoft Access 2003創(chuàng)建數(shù)據(jù)庫及其數(shù)據(jù)表的步驟如下:第2貞共20頁編號：時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟 頁碼：第9頁共20頁（1）啟動 Microsft Access 2003 的 Microsoft Access 應用程序，出現(xiàn)圖 1 所示界面。通過該界面就可以創(chuàng)建一個新的數(shù)據(jù)庫或打開一個已經(jīng)存在的數(shù)據(jù)庫。圖1選擇創(chuàng)建數(shù)據(jù)庫的方式（2）選擇創(chuàng)建新數(shù)據(jù)庫，即選擇“空Access數(shù)據(jù)庫”選項。（3）單擊“確定”按鈕之后出現(xiàn)保存對話框，確定保存數(shù)據(jù)庫文件的位置和 文件名稱之后即創(chuàng)建了一個空的數(shù)據(jù)庫然后出現(xiàn)圖2所示窗口。圖2數(shù)據(jù)庫中的數(shù)據(jù)表操

3、作窗口數(shù)據(jù)庫只是數(shù)據(jù)表的容器，在數(shù)據(jù)庫操作窗口中，用戶可以打開已經(jīng)存在的 數(shù)據(jù)表，也可以創(chuàng)建新的：數(shù)據(jù)表+并可以對已經(jīng)存在的數(shù)據(jù)表進行刪除。創(chuàng)建 一個數(shù)據(jù)表本質上就是創(chuàng)建一個數(shù)據(jù)表的結構，即定義數(shù)據(jù)表的字段名、宇段大 小和數(shù)據(jù)類型等等。這一切工作均是通過“設計”菜單進行的。（4）單擊“設計”菜單，可以打開一個新的數(shù)據(jù)表結構的設計器，如圖3所 示。第3貞共20貞編號：時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟 頁碼：第12頁共20頁圖3數(shù)據(jù)表設計器在Microsoft Access 2003數(shù)據(jù)表設計器中，用戶可以定義數(shù)據(jù)表的字段名稱、 字段類型、字段大小等內(nèi)容。數(shù)據(jù)表結構一經(jīng)確定，

4、可以打開該數(shù)據(jù)表，在數(shù)據(jù) 表中輸入一些基本數(shù)據(jù)，以在后面的系統(tǒng)設計中體現(xiàn)設計的效果。表2 數(shù)據(jù)表記錄內(nèi)容姓名性別1:號職位籍貫學歷照片.蕭炎男019經(jīng)理廣西本科程小 雨女054秘書南寧本科芳女043普職I湖南本科音效凱子男024普職I湖北本科西門女001普職I南宇本科小東男005普職I桂林本科小飛男007普職I桂林本科小郭男009普職I惠州本科最后，系統(tǒng)自動將創(chuàng)建的數(shù)據(jù)表保存在人事管理數(shù)據(jù)庫中。(5) vb窗體設計建立工程1,在窗體1的基礎上再建立一個窗體，窗體2作為打印功能界面。（6）窗體1的設計caption-，人事管理系統(tǒng)”在“工具一一菜單編輯器”中創(chuàng)建forml的下拉菜單菜單工具退出打

5、印一添加一修改一刪除一查找在窗體中添加六個label,六個text, 一個Adodc屬性設置如下：Label 1 .caption="姓名"text 1 .datasource=adodc 1text l.datafield="姓名"Label2.caption="性別”text 2.datasource=adodc 1text 2.datafield=''性另ij ”Label3.caption=v 工號”text 13.datasource=adodcl text 13.datafield=" 工號”Label4.

6、caption="職位”text 4.datasource=adodc 1text 4.datafield="職位"Label5.caption= " 籍貫”text 5.datasource=adodc 1text5.datafield="籍貫”Label6.caption= "學歷”text 6.datasource=adodc 1text 6.datafield="學歷”在窗體添加七個commandCommand 1 (0) .caption= "首記錄”Command 1 。caption= 一條”Comm

7、and 1 (2) .caption= "下一條”Command 1 (3) .caption= "尾記錄”Command3 .caption="確認”Command4.caption="取消”Command5.caption="確認”在窗體中添加控件Adodcl,點擊右鍵屬性，在屬性頁鏈接己建立的數(shù)據(jù)庫表 renshiguanli.mdb,測試鏈接, 并在記錄源項命令類型選擇2-adcmdtable,表或存儲過程 名稱選表1效果圖* 工程 1 - FoibI (Fnr>);回岡（1） （7）窗體2的設計添力口控件 datagrid,ad

8、odc,commondialog 各一個,command 兩個Command 1 .caption="確認”Command2.caption="退出”在窗體中添加控件Adodcl,點擊右鍵屬性，在屬性頁鏈接己建立的數(shù)據(jù)庫表renshiguanli.mdb,測試鏈接,并在記錄源項命令類型選擇2-adcmdtable,表或存儲過程名稱選表1效果圖如下：第9頁共20頁編號：時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟頁碼：第1。頁共2。頁四、運行結果：本設計具有三個窗口，即人事管理系統(tǒng)主窗口、查找窗口以及打印窗口，可以實現(xiàn)人事信息添加、查找、刪除、修改以及打印功能，含有

9、菜單以及工具按 鈕選擇功能等。圖4人事管理系統(tǒng)主窗口圖5人事管理系統(tǒng)添加窗口第11貞共20頁編號：時間：2021年X月X日書山有路勤為徑，學海無涯苦作舟 頁碼：第12頁共20頁圖6人事管理系統(tǒng)刪除窗口圖7人事管理系統(tǒng)修改窗口圖8人事管理系統(tǒng)查找窗口圖9人事管理系統(tǒng)打印窗口本設計沒能實現(xiàn)人事信息的分析以及多媒體檔案功能。五、心得體會：從十二周開始到接近十七周，準備了相當長得時間，從開始的選題到搜集 資料，然后再進行編程設計，從中體現(xiàn)了我們的團結與配合精神，從中我們學到 了不少東西，以及以前我們學過的東西乂一次溫習了一遍，對以后的學習以及工 作都將產(chǎn)生重大的影響。這次程序設計也考驗了我們的信息的搜

10、索能力，從互聯(lián)網(wǎng)以及資料書找到我 們所需要的相關資料，從中選擇出我們真正需要和使用的東西。有了這次難忘的經(jīng)歷，我覺得自己充實了許多，學到了很多東西，更重要的 是我們學會了如何協(xié)同合作，學到了遇到問題應該如何解決。這將在我們以后的 學習和工作中起著重要的作用。第13頁共20頁編號：時間：2021年X月X日 書山有路勤為徑，學海無涯苦作舟頁碼：第13頁共20頁六、附錄：窗體1程序Private Sub Form_Load()Text 1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locke

11、d = TrueText6.Locked = TrueEnd SubPrivate Sub Command l_Click(Index As Integer)Select Case IndexCase 0Adodc 1.Recordset.MoveFirstCase 1Adodc 1.Recordset.MovePreviousIf Adodc 1.Recordset.BOF Then Adodc 1 .Recordset.MoveFirstCase 2Adodc 1.Recordset.MoveNextIf Adodc 1.Recordset.EOF Then Adodc 1.Records

12、et.MoveLastCase 3Adodc 1.Recordset.MoveLastEnd SelectEnd SubPrivate Sub Command3_Click()Dim i As IntegerIf Text 1.Text = Theni = MsgBox(”名字不能為空，1, “提示”)Textl.SetFocusElself Text3.Text = Theni = MsgBox(”工號不能為空”,1, “提示”)Text3.SetFocusElseAdodc 1 .Recordset.UpdateCommand 1 (0). Visible = TrueCommand 1(

13、1). Visible = TrueCommand 1 (2). Visible = TrueCommand 1 (3). Visible = TrueCommands. Visible = flaseCommand4. Visible = flaseAdodcl.RefreshForm2. RefreshEnd IfEnd SubPrivate Sub Command4_Click()Adodc 1.Recordset.CancelUpdateCommand 1 (0). Visible = TnieCommand 1 (1). Visible = TrueCommand 1 (2). Vi

14、sible = TrueCommand 1 (3). Visible = TrueCommands. Visible = flaseConimand4. Visible = flaseCommand5. Visible = flaseForm2. RefreshEnd SubPrivate Sub Command5_Click()第15貞共20頁編號：時間：2021年X月X日 書山有路勤為徑，學海無涯苦作舟頁碼：第13頁共20頁Adodcl .Recordset.UpdateCommand 1 (0). Visible = TmeCommand 1(1). Visible = TrueComm

15、and 1 (2). Visible = TrueCommand 1 (3). Visible = TrueCommand4. Visible = FalseCommand5. Visible = FalseAdodcl. RefreshForm2. RefreshEnd SubPrivate Sub add_Click()Adodc 1 .Recordset. AddNewCommand 1 (0). Visible = FalseCommand 1 (1). Visible = FalseCommand 1 (2). Visible = FalseCommand 1 (3). Visibl

16、e = FalseCommands. Visible = TrueCommand4. Visible = TrueText 1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseEnd SubPrivate Sub move_Click()Adodc 1 .Recordset.UpdateCommand4. Visible = TrueCommand5. Visible = TrueText 1.Locked = Fa

17、lseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseEnd SubPrivate Sub print_Click()Form2.ShowEnd SubPrivate Sub search_Click()Dim mo As Stringmo = InputBox("請輸入工號"，"查找窗口")Adodcl.Recordset.Find ”工號士“ & mo & " , 1If A

18、dodc 1 ,Recordset.EOF Then MsgBox ”無此工號“，"提示“Adodc 1.Recordset.MoveFirstEnd SubPrivate Sub del_Click()第19貞共20頁編號：時間：2021年x月X日書山有路勤為徑，學海無涯苦作舟頁碼：第21頁共20頁Dim ask As Integerask = MsgBox("刪除否，vbYesNo)If ask = 6 ThenAdodc 1.Recordset.DeleteAdodcl .Recordset.MoveNextIf Adodc 1.Recordset.EOF Then Adodc 1.Recordset.MoveLastEnd IfAdodcl. RefreshForm2. RefreshEnd Sub窗體2程序Private Sub Command 1 _Click()Dim BeginPage, EndPage, NumCopies, Orientation, iCommonDialogl .CancelError = TrueOn Error GoTo ErrHandlerCommonDialog 1 .ShowPrinterBegin