設(shè)計(jì)一個(gè)人事管理系統(tǒng)2

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

2、E對(duì)象否利川Microsoft Access 2003創(chuàng)建數(shù)據(jù)庫及其數(shù)據(jù)表的步驟如下:第2貞共20頁編號(hào)：時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟 頁碼：第9頁共20頁（1）啟動(dòng) Microsft Access 2003 的 Microsoft Access 應(yīng)用程序，出現(xiàn)圖 1 所示界面。通過該界面就可以創(chuàng)建一個(gè)新的數(shù)據(jù)庫或打開一個(gè)已經(jīng)存在的數(shù)據(jù)庫。圖1選擇創(chuàng)建數(shù)據(jù)庫的方式（2）選擇創(chuàng)建新數(shù)據(jù)庫，即選擇“空Access數(shù)據(jù)庫”選項(xiàng)。（3）單擊“確定”按鈕之后出現(xiàn)保存對(duì)話框，確定保存數(shù)據(jù)庫文件的位置和 文件名稱之后即創(chuàng)建了一個(gè)空的數(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ù)表+并可以對(duì)已經(jīng)存在的數(shù)據(jù)表進(jìn)行刪除。創(chuàng)建 一個(gè)數(shù)據(jù)表本質(zhì)上就是創(chuàng)建一個(gè)數(shù)據(jù)表的結(jié)構(gòu)，即定義數(shù)據(jù)表的字段名、宇段大 小和數(shù)據(jù)類型等等。這一切工作均是通過“設(shè)計(jì)”菜單進(jìn)行的。（4）單擊“設(shè)計(jì)”菜單，可以打開一個(gè)新的數(shù)據(jù)表結(jié)構(gòu)的設(shè)計(jì)器，如圖3所 示。第3貞共20貞編號(hào)：時(shí)間：2021年X月X日書山有路勤為徑，學(xué)海無涯苦作舟 頁碼：第12頁共20頁圖3數(shù)據(jù)表設(shè)計(jì)器在Microsoft Access 2003數(shù)據(jù)表設(shè)計(jì)器中，用戶可以定義數(shù)據(jù)表的字段名稱、 字段類型、字段大小等內(nèi)容。數(shù)據(jù)表結(jié)構(gòu)一經(jīng)確定，

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

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

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

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

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

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

10、索能力，從互聯(lián)網(wǎng)以及資料書找到我 們所需要的相關(guān)資料，從中選擇出我們真正需要和使用的東西。有了這次難忘的經(jīng)歷，我覺得自己充實(shí)了許多，學(xué)到了很多東西，更重要的 是我們學(xué)會(huì)了如何協(xié)同合作，學(xué)到了遇到問題應(yīng)該如何解決。這將在我們以后的 學(xué)習(xí)和工作中起著重要的作用。第13頁共20頁編號(hào)：時(shí)間：2021年X月X日 書山有路勤為徑，學(xué)海無涯苦作舟頁碼：第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(”工號(hào)不能為空”,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頁編號(hào)：時(shí)間：2021年X月X日 書山有路勤為徑，學(xué)海無涯苦作舟頁碼：第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("請(qǐng)輸入工號(hào)"，"查找窗口")Adodcl.Recordset.Find ”工號(hào)士“ & mo & " , 1If A

18、dodc 1 ,Recordset.EOF Then MsgBox ”無此工號(hào)“，"提示“Adodc 1.Recordset.MoveFirstEnd SubPrivate Sub del_Click()第19貞共20頁編號(hào)：時(shí)間：2021年x月X日書山有路勤為徑，學(xué)海無涯苦作舟頁碼：第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