【正文】 控件來顯示部門數(shù)據(jù)。 在此只寫出部分代碼： Private Sub Form_Load() Dim TmpNode As Node 39。添加并設置根結點 Set TmpNode = (, , a0, 部門信息 , 1, 3) = True = 2 39。設置員工狀態(tài)為在職 = 0 TreeView1_Click End Sub 編輯員工基本信息的窗體可以用來添加和修改員工的基本信息。窗體名稱設置為 FrmEmpEdit。 DTPicke 控件需要手動將其添加到工程中。 15 窗體 FrmEmpEdit 的部分代碼如下：全局變量 Modify 用來標記當前的數(shù)據(jù)庫訪問狀態(tài)。 ComboUpper_GotFocus()過程： Private Sub ComboUpper_GotFocus() Dim TmpId As Integer 39。保存 CurDep TmpId = 39。將選擇的員工姓名顯示到 ComboUpper 控件中 = 39。在此窗體中，使用 TreeView 和ImageList 控件來顯示部門數(shù)據(jù) [7] [11]。此窗體的功能實現(xiàn)了員工基本信息的管理。當用戶單擊“取消”按鈕時， TmpOk=False。選擇的部門信息保存在 CurDep 中。因為在 FrmEmpMan 窗體中也使用到 CurDep 變量，所以在調用FrmTrans 窗體之前，要把 CurDep 中的內容保存在 TmpDepid 變量中。 如 果=True,則表明員工部門調轉成 功，此時應該刷新員工信息管理窗口的界面 [8]。 17 設計考勤信息編輯窗體 考 勤信息編輯窗體的名稱為 FrmCheckEdit，它的布局如 圖 所示 ： 圖 在窗體中，用戶可以通過組合框 輸入員工的考勤情況，每個組合框中有 3 個選擇，即 0， 和 1，分別表示沒有此項目，半天和一天。 設計考勤信息管理窗體 考勤信息管理窗體的名稱為 FrmCheckMan，窗體布局如 圖 所示： 圖 員工考勤管理 18 用戶可以按照日期和部門查看員工考勤記錄。 各個過程的代碼在此省略。此窗體的名稱為 FrmSumCheck。在 Access 中創(chuàng)建一個查詢“考勤統(tǒng)計”，下面介紹創(chuàng)建查詢過程。 ②在“顯示表”對話框中分別將表 Departments,表 Employees 和表 Checkn 添加到查詢設計視圖中。 ④ 依次選擇需要的字段，讀者可以在查詢設計視圖中看到被選中的字段。 ⑥在表格中單擊鼠標右鍵，在快捷菜單中選擇“合計”，添加“合計”列。 ⑦依次為所有統(tǒng)計字段設置顯示標題。設置 ADO 控件的連接字符串 = Provider=。Persist Security Info=False 39。 + Left(Format(, yyyymmdd), 7) + 39。設置列寬 With DataGrid1 .Columns(0).Width = 1200 .Columns(1).Width = 900 .Columns(2).Width = 800 .Columns(3).Width = 800 .Columns(4).Width = 800 .Columns(5).Width = 800 .Columns(6).Width = 1000 .Columns(7).Width = 1000 .Columns(8).Width = 1000 .Columns(9).Width = 1000 20 .Columns(10).Width = 1000 .Columns(11).Width = 1500 .Columns(12).Width = 1000 .Columns(13).Width = 1000 End With End Sub 程序設置 SELECT 語句查詢“考勤統(tǒng)計”中讀取數(shù)據(jù)，并將其作為 ADOData 控件的數(shù)據(jù)源。當用戶單擊“確定”按鈕時， 觸發(fā)Cmd_OK_Click 事件，對應代碼如下： Private Sub Cmd_OK_Click() If = 0 Then MsgBox 請選擇員工 Exit Sub End If If Trim(txtZt) = Then MsgBox 請輸入總體評價 Exit Sub End If With MyEva .EvaMonth = lblMonth 39。考評員工編號 21 .ztEva = MakeStr(txtZt) 39。獎勵原因 .jlAmount = Val (txtJlamount) 39。處罰原因 .cfAmount = Val (txtCfamount) 39。備注 39。 設計考評管理窗體 考評管理窗體的名稱為 FrmEvaMan，窗體的布局如 圖 ： 圖 員工考評信息管理 在窗體中添加對應的代碼，將對日期和部門控件進行初始化，并調用 Refresh_Eva過程書刷新考評數(shù)據(jù)。 根據(jù)用戶類型的不同，用戶管理模塊的功能也不相同。也可以修改自身的用戶名和密碼 ； ● 普通用戶只能修改自身的用戶名和密碼。判斷是否存在同名用戶 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(Trim(txtUserName)) = True Then MsgBox 用戶名已經(jīng)存在，請重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If 39。保存用戶數(shù)據(jù) If Modify = False Then .Insert 24 Else .Update (OriUser) 39。如果輸入的數(shù)據(jù)完全滿足條件，則保存到 數(shù)據(jù)庫中。其他代碼的處理與前面介紹的內容相似 。 當用戶單擊“添加”用戶按鈕時，觸發(fā) Cmd_Add_Click 事件。普通用戶不進入用戶管理窗體，所以不用考慮普通用戶的情況。 當用戶單擊用戶列表框 DataList1 時，觸發(fā) DataList1_Click 事件。 各個過程的代碼在此省略。 在主界面中增加修改密碼代碼 當選擇“修改密碼”菜單項時，觸發(fā) mn_pwd_Click 事件 [9] [13]，代碼如下： Private Sub mn_pwd_Click() With FrmUserEdit .OriUser= .txtUserName= If =1 Then .“系統(tǒng)管理員 ” Else .“普通用戶 ” End If .=0 .=False .Modify=True .Show 1 End With End Sub 程序將當前用 戶（ CurUser） 的數(shù)據(jù)賦值到 FrmUserEdit 窗體中，然后打開FrmUserEdit 窗體，要求用戶編輯自己的用戶數(shù)據(jù)。從論文題目到系統(tǒng)的 實現(xiàn)，再到論文文章的完成，每走一步對我來說都是新的嘗試與挑戰(zhàn)。象對數(shù)據(jù)庫的建立， VB 各個控件的使用都一步一步的熟悉并掌握，都是值得令人欣喜的！ 當今世界上，以信息技術為主要標志的科技進步日新月異，高科技成果向現(xiàn)實生產(chǎn)力的轉化越來越快。信息資源已經(jīng)成為國民經(jīng)濟和社會發(fā)展的戰(zhàn)略資源，信息資源管理水平也已成為現(xiàn)代化水平和綜合國力的重要標志。 能獨立完成綜合人事管理系統(tǒng)讓自己覺的很有成就感。由于自己的知識的局限性，作品中存在很多不足之處，懇請老師批評改正。 27 參考文獻 [1] 薛亮 .Visual Basic 實用教程 [M].西安： 西安電子科技大學出版社 ， 2021. [2] 黃明，梁旭，石興民 .Visual Basic 課程設計 [M].電 子工業(yè)出版社 ， 2021. [3] 啟明工作室 . Visual Basic+Access 數(shù)據(jù)庫應用系統(tǒng)開發(fā)與實例 [M].北京 :人民郵電出版社， 2021. [4] 張飛 .VB 的變量作用域、參數(shù)傳遞及鍵盤事件 [J].天中學刊 ， 2021(05):36－ 38. [5] 王志東 . 用 VB 訪問數(shù)據(jù)庫 .集寧師專學報 [J]， 2021(4)： 3132. [6] 樊敏 編著 .VB 開發(fā)數(shù)據(jù)庫系統(tǒng)實例分析 .湖南工業(yè)職業(yè)技術學院學報 [J]. 2021(2): 1011. [7] 史坡 ,廉德宇 ,沈昱明 .VB 中動態(tài)數(shù)據(jù)庫的保存自動備份和刪除 [J].上海市化學化工學會 2021 年度學術年會論文摘要集 ， 2021,222214. [8] 鄧格琳 .Visual Basic 中用戶界面 的設計原則和編程技巧 [J]. 南昌教育學院學報 ， 2021(4)： 5355. [9] 張紅 ,石慶喜 .談談 Visual Basic 對數(shù)據(jù)庫的訪問 [J]. 重慶商學院學報 ， 2021(2): 7779. [10] 王亞慧 ,武威 ,郝學 軍 . 使用 VB 實現(xiàn)對數(shù)據(jù)庫的查詢 [J]. 北京建筑工程學院學報 ,2021 年 (2): 6871. [11] 鄧昀 , 謝昊 .VB 中改變窗體時控件的改變 [J].科教文匯 ,2021(3):3437. [12] 向平 .基于 VB 的客戶信息管理系統(tǒng) [J].兵工自動化 ,2021(1):5658. [13] 吳征 .VB程序設計 Function 過程的應用 .內江科技 ,2021(11):8991. [14] Michael Halvorson； Microsoft Visual Basic 2021 Step by Step[M] .Microsoft Publishing 2021. [15] Andrew Parsons； Visual Basic