【導(dǎo)讀】個(gè)人簡(jiǎn)歷等信息表。在當(dāng)今企業(yè)管理中，人事管理是一項(xiàng)十分重要的工作?，F(xiàn)代企業(yè)，尤其是大中型企業(yè)。結(jié)構(gòu)、婚姻狀況以及經(jīng)驗(yàn)閱歷等。因而建立一個(gè)運(yùn)作良好的企業(yè)人事管理系統(tǒng)，對(duì)人事管理。中重要的數(shù)據(jù)進(jìn)行保存和必要的操作，是非常有現(xiàn)實(shí)意義的。同時(shí)人數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的方面?？紤]，企業(yè)人事管理系統(tǒng)相對(duì)于其他系統(tǒng)更為直觀具體。的目的，對(duì)各種檔案資料進(jìn)行查詢。因此，人事檔案管理系統(tǒng)的功能模塊有3個(gè)模塊。以以部門為單位對(duì)職工進(jìn)行管理。職工都是唯一的，是程序中對(duì)職工進(jìn)行增加、刪除、修改等操作的依據(jù)。惟一，可以在對(duì)職工信息表進(jìn)行操作時(shí)對(duì)其進(jìn)行操作。將為每個(gè)功能設(shè)計(jì)菜單，從而調(diào)用其他窗體來完成對(duì)應(yīng)的功能。體也為主窗體的子窗體。

　　

【正文】 Adodc1 宋體小四 Text10 文化程度 Adodc1 宋體小四 Text11 家庭住址 Adodc1 宋體小四 Text12 職稱 Adodc1 宋體小四 Text13 工資 Adodc1 宋體小四 Text14 補(bǔ)貼 Adodc1 宋體小四 Text15 備注 Adodc1 宋體小四 ３、部門人事瀏覽窗體的設(shè)計(jì) 在部門人事瀏覽窗體上添加一個(gè)數(shù)據(jù)控件和一個(gè)ＡＤＯ數(shù)據(jù)控件如下圖所示： ＡＤＯ數(shù)據(jù)控件屬性 控件名稱 Caption Connectionstring Recordsource Datprimaryrs 數(shù)據(jù)控件屬性 控件名稱 Caption Connect Databasename Recordsource Data1 部門選擇 Access 部門 部門管理窗體的設(shè)計(jì) 在此窗體上添加了３個(gè)框架控件 、兩個(gè)標(biāo)簽控件、兩個(gè)文本框控件、４個(gè)按鈕控件、一個(gè)數(shù)據(jù)表格控件以及一個(gè)ＡＤＯ數(shù)據(jù)控件。其各屬性如下表所示： 框加控件的屬性設(shè)計(jì) 名稱 Caption Font Frame1 當(dāng)前部門 宋體小四 Frame2 部門列表 宋體小四 Frame3 操作 宋體小四 文本框控件結(jié)構(gòu) 控件名稱 Font Text1 宋體小四 Text2 宋體小四 ＡＤＯ數(shù)據(jù)控件屬性 控件名稱 Caption datprimaryrs datprimaryrs 按鈕控件的屬性 控件名稱 Caption Font 所屬框架 Command1 增加部門 宋體五號(hào) 操作 Command2 刪除部門 宋體五號(hào) 操作 Command3 保存 宋體五號(hào) 操作 Command4 取消 宋體五號(hào) 操作 數(shù)據(jù)表控件的屬性 控件名稱 Datasource Graddatagrid Datprimaryrs 框架控件的性屬 名稱 Caption Font Frame1 查詢 宋體小四 按鈕控件的屬性 控件名稱 Caption Font Command1 查詢 宋體五號(hào) Command2 取消 宋體五號(hào) 文 本框控件的屬性 控件名稱 Font Text1 宋體小四 組合框控件屬性 控件名稱 Font List Combo1 宋體五號(hào) 代號(hào)ＩＤ 姓名 性別 職務(wù) 籍貫 民族 出生日期 Combo2 宋體五號(hào) = = = 三、程序源代碼 主模塊代碼 Public conStr As String ‘變量初始化 Public datStr As String Public ActionType As String Public Sub Main() conStr = PROVIDER=。Data Source= amp。 amp。 \database\人事管理系統(tǒng) 。 ‘設(shè)置數(shù)據(jù)源 datStr = amp。 \database\人事管理系統(tǒng) ‘顯示窗體 End Sub 主窗體代碼 Private Sub mnuAdd_Click() ActionType = Add ‘設(shè)置共有變量的值，向人事資料卡片窗體傳遞信息 ‘顯示人事資料卡片窗體 End Sub Private Sub mnuDel_Click() ‘刪除記錄 ActionType = Del End Sub Private Sub mnuDept_Click() ‘部門管理 ‘顯示部門管理窗體 End Sub Private Sub mnuDeptlist_Click() ‘人事管理 ‘顯示人事管理窗體 End Sub Private Sub mnuEdit_Click() ‘編輯記錄 ActionType = Edit End Sub Private Sub mnuSearch1_Click() ‘查找 記錄 ‘顯示查找記錄窗體 End Sub 主窗體的代碼主要是為菜單填寫代碼。 人事資料卡片窗體代碼的編寫 Private Sub Command2_Click() If MsgBox(確定保存當(dāng)前資料嗎？ , vbInformation + vbYesNo, 保存資料？ ) = vbYes Then (0) = (1) = = True = True = False = False End If End Sub ‘保存按鈕代碼，保存時(shí)會(huì)彈出一個(gè)對(duì)話框，詢問用戶是否要保存，如果選擇是，將文本框中的數(shù)據(jù)定如數(shù)據(jù)表中 Private Sub Command3_Click() If MsgBox(確定刪 除當(dāng)前資料嗎？ , vbInformation + vbYesNo, 刪除資料？ ) = vbYes Then ‘確認(rèn)刪除并掉用 delete 方法刪除記錄 End If End Sub ‘刪除按鈕用于刪除當(dāng)前記錄 Private Sub Command4_Click() = True = True = False = False End Sub Private Sub Command5_Click() Load frm 家庭成員 frm 家庭成員 . = conStr frm 家庭成員 . = select 代號(hào) ID,編號(hào) ,成員姓名 ,與本人關(guān)系 ,出生年月 ,婚姻狀況 ,政治面貌 ,文化程度 ,經(jīng)濟(jì)來源 ,工 作單位 ,工資 ,職務(wù) from 家庭成員 where 代號(hào) ID like amp。 amp。 Order by 編號(hào) frm 家庭成員 . frm 家庭成員 .Show End Sub ‘家庭成員按鈕用于載入家庭成員表單， 并以表格的形式列出家庭成員的相關(guān)信息。 Private Sub Command6_Click() Load frm 社會(huì)關(guān)系 frm 社會(huì)關(guān)系 . = conStr frm 社會(huì)關(guān)系 . = select 代號(hào) ID,編號(hào) ,關(guān)系人姓名 ,與本人關(guān)系 ,政治面貌 ,工作單位 ,職務(wù) ,備注 from 社會(huì)關(guān)系 where 代號(hào) ID like amp。 amp。 Order by 編號(hào) frm 社會(huì)關(guān)系 . frm 社會(huì)關(guān)系 .Show End Sub ‘社會(huì)關(guān)系按鈕用于載入社會(huì)關(guān)系表單， 并以表格的形式列出社會(huì)關(guān)系的相關(guān)信息。 Private Sub Command7_Click() Load frm 個(gè)人簡(jiǎn)歷 frm 個(gè)人簡(jiǎn)歷 . = conStr frm 個(gè)人簡(jiǎn)歷 . = select 代號(hào) ID,編號(hào) ,工作單位 ,職務(wù) ,起始日期 ,證明人 from 個(gè)人簡(jiǎn)歷 where 代號(hào) ID like amp。 amp。 Order by 編號(hào) frm 個(gè)人簡(jiǎn)歷 . frm 個(gè)人簡(jiǎn)歷 .Show End Sub ‘個(gè)人簡(jiǎn)歷按鈕用于載入個(gè)人簡(jiǎn)歷表單， 并以表格的形式列出個(gè)人簡(jiǎn)歷的相關(guān)信息。 Private Sub Data1_Reposition() = select 部門代號(hào) ,部門 ,代號(hào) ID,姓名 ,職務(wù) ,性別 ,籍貫 ,民族 ,出生日期 ,健康狀況 ,婚姻狀況 ,文化程度 ,政治面貌 ,家庭住址 ,進(jìn)入單位時(shí)間 ,職稱 ,工資 ,補(bǔ)貼 ,備注 from 職工信息 where 部門代號(hào) Like amp。 amp。 Order by 代號(hào) ID End Sub Private Sub Form_Load() ‘設(shè)置數(shù)據(jù)源 = conStr = select 部門代號(hào) ,部門 ,代號(hào) ID,姓名 ,職務(wù) ,性別 ,籍貫 ,民族 ,出生日期 ,健康狀況 ,婚姻狀況 ,文化程度 ,政治面貌 ,家庭住址 ,進(jìn)入單位時(shí)間 ,職稱 ,工資 ,補(bǔ)貼 ,備注 from 職工信息 Order by 代號(hào) ID = datStr = 部門 ‘設(shè)置按鈕狀態(tài) = True = True = False = False End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub 部門管理窗體代碼 ‘部門管理窗體載入事件 ，該窗體主要功能是完成部門的添加、修改、刪除。 Private Sub Form_Load() = conStr = select 部門代號(hào) ,部門 from 部門 Order by 部門代號(hào) ‘設(shè)置數(shù)據(jù)源 = True ‘設(shè)置按鈕 = True = False = False End sub ‘添加按鈕代碼 Private Sub Command1_Click() = = = True = True = False = False End Sub ‘保存按鈕代碼 Private Sub Command3_Click() If = Then MsgBox 請(qǐng)輸入部門編號(hào)！ End If If = Then MsgBox 請(qǐng)輸入部門名稱！ End If If MsgBox(確定保存當(dāng)前資料嗎？ , vbInformation + vbYesNo, 保存資料？ ) = vbYes Then (0) = (1) = = False = False = True = True End If End Sub ‘取消按鈕代碼 Private Sub Command4_Click() = False = False = True = True ‘刪除部門按鈕代碼 Private Sub Command2_Click() If MsgBox(確定刪除當(dāng)前資料嗎？ , vbInformation + vbYesNo, 刪除資料？ ) = vbYes Then End If End Sub 查找窗體代碼 ‘該表單主要完成對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)查找操作 ‘查找按鈕的代碼如下： Private Sub Command1_Click() Dim str As String 39。查找內(nèi)容 If = Or = Or = Then MsgBox 查詢輸入不完整 ! Exit Sub End If str = amp。 amp。 amp。 39。 amp。 amp。 39。 39。查詢條件 Load frmSearchR 39。調(diào)用查詢窗體 39。查找 = conStr = select 部門代號(hào) ,部門 ,代號(hào) ID,姓名 ,職務(wù) ,性別 ,籍貫 ,民族 ,出生日期 ,健康狀況 ,婚姻狀況 ,文化程度 ,政治面貌 ,家庭住址 ,進(jìn)入單位時(shí)間 ,職稱 ,工資 ,補(bǔ)貼 ,備注 from 職工信息 where amp。 str amp。 Order by 代號(hào) ID Unload Me End Sub 查詢結(jié)果顯示窗體 ‘用于顯示查詢的結(jié)果 Private Sub Form_Resize() On Error Resume Next 39。當(dāng)窗體調(diào)整時(shí)會(huì)調(diào)整網(wǎng)格 = 30 End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。錯(cuò)誤處理程序代碼置于此處 39。想要忽略錯(cuò)誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal