【正文】 , adSearchForward If Not Then m(1) = m(1) + 1 If = Then GoTo line2 Else End If 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) (10)員工考勤窗體源代碼： Private Sub baocun_Click() = False = False = False MsgBox 保存成功！ End Sub Private Sub chaxun_Click() Dim s As String If = True Then = select * from 員工考勤表 where 姓名 =39。 userID amp。 n amp。 [1] 姚卿達(dá) VB 設(shè)計(jì) [M]. 北京：高等教育出版社 ， 1987,9： 120— 132 [2] 嚴(yán)蔚敏 ,吳偉民 VB 信息管理開發(fā) [M].北京：清華大學(xué)出版社， 1995,12： 91— 150 [3] 正阿奇 VB 實(shí)用教程 [M].北京：電子工業(yè)出版社， 2020,4： 88125 [4] 郭安源 教育信息化系統(tǒng)開發(fā) [M].北京：人民郵 電出版社， 2020,5： 220280 [5] 劉天惠 . Visual Basic 程序設(shè)計(jì)教程 [M].清華大學(xué)出版社 , ： 165224 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) (1)登陸窗體源代碼： 用戶名 =39。 圖 27 員工工資統(tǒng)計(jì)圖 然后選擇員工學(xué)歷組成比例統(tǒng)計(jì)，如圖 28 所示系統(tǒng)以餅狀圖呈現(xiàn)給用戶。完成后點(diǎn)擊“確定”。在部門調(diào)轉(zhuǎn)窗體中，可以輸入員工編號(hào)進(jìn)行查找，當(dāng)查找到相應(yīng)的員工時(shí)，該員工的部分信息將會(huì)在下面的文本框 中顯示，以確認(rèn)查找的結(jié)果，防止錯(cuò)誤操作。 圖 8 主窗體 主窗體的菜單由菜單編輯器編輯完成，分為 4 個(gè)頂級(jí)菜單和若干個(gè)子菜單，具體菜單課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 如表 7 所示。 部門表中設(shè)置了三個(gè)字段，分別為部門序號(hào)、部門名稱和業(yè)務(wù)描述。然而 ,如何開發(fā)和管理人力資源 ,使其轉(zhuǎn)化為一種現(xiàn)實(shí)的勞動(dòng)生產(chǎn)力 ,則是眾多管理者的盲點(diǎn)。 表 5員工信息表結(jié)構(gòu)表 字 段 類 型 長(zhǎng) 度 說 明 工作證號(hào) 數(shù)字 長(zhǎng)整型 主鍵 員工姓名 文本 20 允許為空 所屬部門 文本 20 允許為空 到崗日期 日期 /時(shí)間 允許為空 職務(wù) 文本 50 允許為空 辦公電話 文本 50 允許為空 政治面貌 文本 50 允許為空 合同有效期 文本 50 允許為空 工資 數(shù)字 長(zhǎng)整型 允許為空 獎(jiǎng)金 數(shù)字 長(zhǎng)整型 允許為空 (2)建立數(shù)據(jù)庫(kù) 運(yùn)行 Access 2020，建立一個(gè)空數(shù)據(jù)庫(kù)，命名為人力資源管理數(shù)據(jù)庫(kù)，操作界面如圖 1所示。 圖 7 登陸界面圖 人力資源管理系統(tǒng) 基本信息 考勤考評(píng) 員工信息統(tǒng)計(jì) 系統(tǒng)用戶管理 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 登陸界面窗體的控件如表 6 所示。對(duì)相片可以進(jìn)行修改或者是添加，當(dāng)點(diǎn)擊“添加”按鈕時(shí)，彈出一個(gè)文件操作的對(duì)話框，選定 添加后，單擊保存進(jìn)行保存到數(shù)據(jù)庫(kù)的操作，如圖 11 所示。 圖 14 用戶管理窗體 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 用戶管理窗體的控件如表 13 所示。 圖 23 調(diào)轉(zhuǎn)部門界面 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 返回到主界面后，選擇考勤管理菜單，如圖 24 所示。 在做系統(tǒng)的過程中，我遇到了最大困難就是調(diào)程序方面的問題。 39。 39。 s(1) amp。 39。 For i = 1 To UBound(a) Print a(i)。 amp。 39。此次做系統(tǒng)給我最大的感觸有兩個(gè)。 表 14修改密碼窗體控件如表 控 件 類 別 控件 Name 控件 Text CommandButton Command1 確定 Command2 返回 Label Label1 輸入新密碼 Label2 再次輸入密碼 TextBox Text1 （空） Text2 （空） Frame Frame1 （空） Adodc Adodc1 （空） 系統(tǒng)運(yùn)行及結(jié)果 在系統(tǒng)登錄界面中輸入用戶名和密碼，點(diǎn)擊確實(shí)進(jìn)入人力資源管理系統(tǒng)如圖 16 所示。 表 11 部門調(diào)轉(zhuǎn)窗體控件表 控 件 類 別 控件 Name 控件 Text CommandButton Command1 查找 Command2 返回 Command3 確定 Label Label1 輸入員工姓名 Label2 員工姓名 Label3 現(xiàn)在部門 Label4 調(diào)轉(zhuǎn) 到 DataCombo DataCombo1 （空） Adodc Adodc1 （空） Adodc2 （空） (2) 考勤管理窗體 在考勤管理窗體中。 在部門管理中，主要對(duì)部門的信息進(jìn)行管理，可以對(duì)部門信息進(jìn)行添加，修改查找和刪除的操作。 員工考勤表中設(shè)置了 7 個(gè)字段，分別為編號(hào)部門名稱、姓名、工作證號(hào)、全勤、事假、病假。隨著人力資源部門工作范圍的日益擴(kuò)展 ,人力資源經(jīng)理專業(yè)要求的日益提升 ,使得計(jì)算機(jī)等先進(jìn)技術(shù)手段的作用日益顯現(xiàn)。 表 2戶密碼表結(jié)構(gòu)表 字 段 類 型 長(zhǎng) 度 說 明 用戶名 文本 50 主鍵 密碼 文本 50 不允許為空 員工個(gè)人信息表結(jié)構(gòu)如表 3 所示。 圖 2添加“ Microsoft ADO Data Control ”圖 圖 3 ADODC屬性界面 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 圖 4 添加“ Microsoft Jet OLE DB Provider”圖 圖 5 測(cè)試連接成功圖 課程設(shè)計(jì)說明書 沈 陽(yáng) 大 學(xué) 系統(tǒng)功能模塊 圖 圖 6 系統(tǒng)功能模塊圖 登錄模塊設(shè)