【正文】 f Not IsDate(txtItem(7)) Then MsgBox 參加工作應輸入日期（yyyymmdd)！, vbOKOnly + vbExclamation, 警告 txtItem(7).SetFocus Exit Sub Else txtItem(7) = Format(txtItem(7), yyyymmdd) End IfEnd If If Trim(txtItem(9) amp。UID=sa。 ? 員工工資信息：包括的數(shù)據項有所在部門、姓名、底薪、獎金、加班、實發(fā)工資等。企業(yè)人事信息管理系統(tǒng)數(shù)據流程圖： 員工登記基本信息錄入員工基本信息管理考勤管理考勤信息管理員工工資設置員工工資管理計發(fā)員工工資員工當月工資 圖 1：企業(yè)人事信息管理系統(tǒng)數(shù)據流程圖 第四章 系統(tǒng)總體設計 功能描述 該信息管理系統(tǒng)可以在 Windows 2022 Server 平臺上運行，開發(fā)工具采用 Visual Basic 語言開發(fā)。（2）性能需求。以增加人機親和力。人機界面應該能夠告訴用戶軟件運行的進度。計算機技術是 MIS 得以實施的主要技術。 [1] Visual 在目前市場上有眾多的程序開發(fā)工具，有些強調編程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。 圖形化用戶界面，使系統(tǒng)管理和數(shù)據庫管理更加直觀、簡單。只需要一個操作方便，功能實用，能滿足本中心對數(shù)據的管理及需求的系統(tǒng)。整個系統(tǒng)從符合操作簡便、界面友好、實用安全的角度出發(fā)，完成了企業(yè)中對人事信息管理的全過程，包括新進員工的加入、老員工的轉出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)計等人事管理工作以及新進員工的新增、老員工修改等管理工作。對于大中型企業(yè)來說，利用計算機支持企業(yè)高效率完成勞動人事管理的日常事務，是適應現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件；計算機管理所無法比擬的優(yōu)點檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。 第二章 系統(tǒng)的開發(fā)環(huán)境本系統(tǒng)使用的操作平臺是 Windows 2022，前臺使用 Visual ，后臺數(shù)據庫為 SQL Server 2022，下面對程序設計所需軟件做一下介紹。 具有很好的伸縮性，可跨越從運行 Windows 95/98 的膝上型電○ 5腦到運行 Windows 2022 的大型多處理器等多種平臺使用。在 Visual Basic 環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用 Windows 內部的應用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據訪問(ODBC)等技術，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。人機界面設計的關鍵是使人與計算機之間能夠準確地交流信息。一個優(yōu)秀的管理信息系統(tǒng)應該提供在線求助功能，這將給用戶帶來極大的方便。 [3]總之，在管理信息系統(tǒng)的開發(fā)過程中，我們應該充分考慮這些基本原則，這樣，我們做的系統(tǒng)才能夠具有一定的生命周期。這是對系統(tǒng)運行以及所處環(huán)境的要求。? 考勤信息的輸入、查詢和修改。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim()Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If miCount = miCount + 1 If miCount = 3 Then End If Exit SubEnd Sub 添加用戶窗體的創(chuàng)建 Private Sub cmdCanel_Click() Unload MeEnd SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 請輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtxSQL = select*from user_Info Set mrc = ExecuteSQL(txtSQL, MsgTxet) While ( = False) If Trim((0)) = Trim(Text1(0)) Then MsgBox 用戶已經存在，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入密碼不一樣，請確認！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else If Text1(1).Text = Then MsgBox 密碼不能為空！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) MsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 警告 End If End IfEnd Sub 修改用戶密碼窗體的創(chuàng)建 Private Sub cmdOK_Click() Dim txtSQL As String Dim MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select*from user_Info where user_ID= amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經存在此員工檔案編號的記錄！ , vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus txtItem(0).SelStart = 0 txtItem(0).SelLength = Len(txtItem(0)) Exit Sub End If End If txtSQL = delete from manrecord where ygid= amp。 ElseCall menuAddrecord_ClickEnd IfElseMsgBox 請選擇要修改的記錄？, vbOKOnly + vbExclamation, 警告 = select*from manrecord 0End IfEnd Sub 刪除員工信息 Private Sub menuDelete_Click() Dim txtSQL As String Dim MsgText As String Dim intCount As String Dim mrc As If flagEdit Then If 1 Then If MsgBox(真的要刪除這條文件記錄嗎？ , vbOKOnly + vbExclamation, 警告) = vbOK Then intCount = txtSQL = delect from manrecord where ygid= amp。 ) amp。 1), yyyymmdd) dEndDateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboYear(1)), CInt(cboMonth(1)), 1))) dEndDate = Format(dEndDateTemp, yyyymmdd) If Trim(sQSqlamp。 dEndDateamp。 and kqdate= amp。 amp。 添加 txtSQL = select DISTINCT ygdept from manrecord Set mrc = ExecuteSQL(txtSQL, MsgText) If Not Then Do While Not cboItem(0).AddItem Trim(mrc!ygdept) Loop cboItem(0).ListIndex = 0 Else MsgBox 請先進行員工檔案登記！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If dateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboYear), CInt(cboMonth), 1))) txtItem(0) = Day(dateTemp) ElseIf gintMode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With mrc cboItem(1). (1) cboItem(1).ListIndex = 0 For intCount = 2 To 19 If Not IsNull(.Fields(intCount)) Then txtItem(intCount 2) = .Fields(intCount) End If Next intCount txtId = .Fields(0) End With End If txtSQL = select ygdept from manrecord where ygname= amp。 模塊測試測試是進行代碼審查，從數(shù)據類型，變量聲明，數(shù)據結構進行審查，然后進行功能測試，從輸入一些簡單的數(shù)據開始執(zhí)行一遍，觀測運行期間變量的變化，運行中值的變化范