【文章內容簡介】 否5原職務文本是否6新職務文本是否7調出時間日期/時間否8調入時間日期/時間否9備注備注是否（5）表5. 考勤信息表序號字段名類型是否允許為空是否主鍵1員工編號文本否否2員工姓名文本否否3性別文本否否4職務文本否否5所在部門文本否否6全勤天數(shù)數(shù)字否7應出勤天數(shù)數(shù)字否8年度文本否否9月份文本否否10起始日期日期/時間否11截止日期日期/時間否12起始時間日期/時間否13截止時間日期/時間否14請假類型文本否否15審批人文本否否16請假事由備注是否17其它價天數(shù)數(shù)字否18其它假說明備注是否19遲到早退次數(shù)數(shù)字否20延時加班小時數(shù)字否21休息日加班數(shù)字否22休假日加班數(shù)字否23礦工次數(shù)數(shù)字否24備注備注是否（6）表6. 員工工資表序號字段名類型是否允許為空是否主鍵1員工編號文本否否2員工姓名文本否否3所在部門文本否否4底薪數(shù)字否5加班費數(shù)字否6補貼數(shù)字否7房帖數(shù)字否8獎金數(shù)字否9其它數(shù)字否10養(yǎng)老金數(shù)字否11醫(yī)療保險數(shù)字否12實發(fā)工資數(shù)字否13計發(fā)時間日期/時間否（7）表7. 員工評價表序號字段名類型是否允許為空是否主鍵1員工編號文本否否2員工姓名文本否否3所在部門文本否否4評價日期日期/時間否5工作業(yè)績備注是否6業(yè)績說明備注是否7工作態(tài)度備注是否8工作水平備注是否9水平說明備注是否10備注備注是否（8）表8. 員工職務表序號字段名類型是否允許為空是否主鍵1員工職務文本否是（9）表9. 用戶留言表序號字段名類型是否允許為空是否主鍵1ID自動編號是2iMessage文本否否3iUser文本否否4iGroup文本否否5iTimer日期/時間否5 系統(tǒng)功能模塊的實現(xiàn)在本軟件的開發(fā)過程中，我主要負責的是實現(xiàn)三個模塊：員工工資管理，員工留言，系統(tǒng)幫助。用戶可以通過員工工資管理模塊為單位建立一個比較完整的工資檔案系統(tǒng)，同時可以比較方便地對檔案進行查看新增、刪除、修改、瀏覽和查詢的操作。（1）錄入是將員工的工資信息添加到數(shù)據(jù)庫中：如員工編號、員工姓名、所在部門、底薪、加班費、補貼、房帖、獎金、其它、養(yǎng)老金、醫(yī)療保險、實發(fā)工資、計發(fā)時間。（2）整里頁面中則實現(xiàn)了修改和查詢兩項功能，能夠對員工工資信息進行編輯、刪除等相關操作。（3）查詢功能通過“員工編號”，“員工姓名”，“計發(fā)時間”來查詢員工工資情況，而這三個條件可單選，也可多選。 工資管理查詢員工工資刪除員工工資修改員工工資添加員工工資圖511工資功能模塊圖 程序流程圖圖512員工工資管理流程圖圖513 工資管理界面（1）計發(fā)員工工資 如圖514所示圖514 FrmPayManage窗體由人事部門添加發(fā)給員工工資的相關信息，通過點擊計發(fā)員工工資子菜單，來調用FrmPayManage窗體。當點擊確認按鈕的時候，實現(xiàn)將輸入的信息添加到員工工資數(shù)據(jù)庫中，并彈出提示框顯示“數(shù)據(jù)以保存”。建立名為 RsAddPay的數(shù)據(jù)集，用于記錄輸出的相關信息。用MsgBox 提示數(shù)據(jù)是否保存用Unload Me 實現(xiàn)返回功能（2）整理員工工資 如圖515 圖516所示圖515 修改工資管理模塊圖圖516 進入修改工資模塊圖打開整理員工工資調用FrmModPay窗體，進入如下界面，本子模塊可以實現(xiàn)員工工資的修改和刪除功能。移動則是修改完之后進入下一個員工工資修改。 （3）員工工資查詢 如圖517所示圖517 工資查詢模塊圖點擊員工工資查詢后顯示FrmQueryPay窗體，具有任何權限都可以根據(jù)員工編號、員工姓名和計發(fā)時間來查詢。編輯按鈕的代碼實現(xiàn)：Private Sub CmdEdit_Click()Call CmdState1 39。//調用命令按鈕Visible屬性為隱藏的過程Call TxtState 39。//調用啟用文本框的Enabled屬性過程End Sub點擊編輯按鈕后，進入如下界面，隱藏下方的mandbutton按鈕，啟用文本框屬性，點擊保存后調用Private Sub CmdSave_Click()，其代碼實現(xiàn)和添加一樣。Dim StrSQL As StringStrSQL = select * from 員工工資 where 39。//給定義好的字符變量賦予SQL語句 判斷三個復選框同時選中時,則 If = 1 And = 1 And = 1 Then StrSQL = StrSQL amp。 員工編號= 39。 amp。 Trim() amp。 39。 amp。 and amp。 員工姓名 = 39。 amp。 Trim() amp。 39。 amp。 and amp。 計發(fā)時間 between amp。 amp。 and amp。 amp。 amp。 Set = = 39。//將記錄條數(shù)顯示在標簽上 39。//刷新網(wǎng)格 39。//關閉記錄集 = Empty 39。//請空文本框 = Empty此模塊相對簡單，實現(xiàn)了關于軟件的介紹和在線升級、幫助信息，還可以顯示系統(tǒng)。從注冊表中獲得系統(tǒng)信息程序的路徑及名稱。幫助系統(tǒng)在線升級關于作者系統(tǒng)幫助圖521 幫助系統(tǒng)功能模塊圖圖522系統(tǒng)幫助界面（1）關于作者 如圖523所示圖524顯示系統(tǒng)功能介紹界面（2）在線升級 如圖525所示圖525 系統(tǒng)升級界面系統(tǒng)信息按鈕代碼實現(xiàn)：Private Sub cmdSysInfo_Click() Call StartSysInfo //調用下面創(chuàng)建的類End SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 試圖從注冊表中獲得系統(tǒng)信息程序的路徑及名稱... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 已知32位文件版本的有效位置具有任何權限的員工都可以在此查看或留言，點擊留言按鈕后會將留言內容，留言姓名，留言時間顯示在頁面中，然后將其添加到數(shù)據(jù)的員工留言表中，并提示“留言成功“，如果，留言框中沒有任何內容，則提示“請輸入留言內容”。有管理員權限的還可對留言進行刪除。留言管理查詢留言刪除留言修改留言添加留言圖531 留言管理模塊圖 圖532 員工留言流程圖圖533 用戶留言界面在主界面添加一個VsNetBut控件，Caption屬性設為留言，點擊此控件進入FrmMessage窗體。具有任何權限的員工都可以在此留言，點擊留言按鈕后會將留言內容，留言姓名，留言時間顯示在ListBox控件中，然后將其添加到數(shù)據(jù)的員工留言表中，并提示“留言成功“，如果，留言框中沒有任何內容，則提示“請輸入留言內容”。編輯按鈕的代碼實現(xiàn)：PrivateSubForm_Load()39。=/3=/6If=adStateClosedThen用戶留言,DBCON,adOpenKeyset,adLockPessimistic,adCmdTable39。打開記錄集EndIfMsgListEndSubPrivateSubMsgList()39。If=adStateClosedThen39。用戶留言,DBCON,adOpenKeyset,adLockPessimistic,adCmdTable39。打開記錄集39。EndIf