【正文】 If gintMode = 1 Then MsgBox 記錄添加成功！, vbOKOnly + vbExclamation, 警告 For intCount = 0 To 17 txtItem(intCount) = Next intCount mblChange = False ElseIf gintMode = 2 Then MsgBox 記錄修改成功！, vbOKOnly + vbExclamation, 警告 Unload Me End If gintMode = 0End SubPrivate Sub Combo1_Click() Dim sSql As String Dim MsgText As String If gintMode = 1 Then txtSQL = select ygid, ygname from manrecord where ygdept= amp。, yyyymmdd) amp。 Trim(txtId) amp。 Format( amp。 ) = Then Select Case intCount Case 0 sMeg = 本月天數(shù) Case 2 sMeg = 應出勤天數(shù) Case 3 sMeg = 出勤End Select If intCount 1 Then sMeg = sMeg amp。 End If Else End If If Trim(sQSql) = Then = select*from manrecord flagEdit = True Else = select*from manrecord where amp。 ygdate1= amp。) = Then sQSql = ygdate1= amp。 End If If chkItem(2).Value = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 Else sQSql = sQSql amp。 End If If chkItem(1).Value = vbChecked Then If Trim(sQSqlamp。 Trim((, 1)) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 Trim(txtItem(0)) amp。 ) Then If 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。 UserName Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 警告 End IfEnd Sub 員工基本信息模塊的創(chuàng)建 添加員工信息窗體的創(chuàng)建 Private Sub txtItem_KeyDown(index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub cmdExit_Click() If mblChange And Then If MsgBox(保存當前記錄的變化嗎？ , vbOKOnly + vbExclamation, 警告) = vbOK Then Call cmdSave_Click End If End If Unload MeEnd SubPrivate Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim MsgText As String Dim sMeg As String Dim i As String For intCount = 0 To 2 If Trim(txtItem(intCount) amp。UID=sa。 39。 ? 員工工資信息：包括的數(shù)據(jù)項有所在部門、姓名、底薪、獎金、加班、實發(fā)工資等。? 員工工資信息的輸入、查詢和修改。企業(yè)人事信息管理系統(tǒng)數(shù)據(jù)流程圖： 員工登記基本信息錄入員工基本信息管理考勤管理考勤信息管理員工工資設置員工工資管理計發(fā)員工工資員工當月工資 圖 1：企業(yè)人事信息管理系統(tǒng)數(shù)據(jù)流程圖 第四章 系統(tǒng)總體設計 功能描述 該信息管理系統(tǒng)可以在 Windows 2022 Server 平臺上運行，開發(fā)工具采用 Visual Basic 語言開發(fā)。（4）未來需求。（2）性能需求。第三章 系統(tǒng)分析3．1 系統(tǒng)需求分析系統(tǒng)分析是開發(fā)管理信息系統(tǒng)的關鍵性階段，是一個從不斷認識和逐步細化的過程。以增加人機親和力。、使用方便。人機界面應該能夠告訴用戶軟件運行的進度。一方面，人向計算機輸入信息時應當盡量采取自然的方式；另一方面，計算機向人傳遞的信息必須準確。計算機技術是 MIS 得以實施的主要技術。 管理信息系統(tǒng)（MIS）管理信息系統(tǒng)是一個利用計算機軟硬件資源以及數(shù)據(jù)庫的人機系統(tǒng)。 [1] Visual 在目前市場上有眾多的程序開發(fā)工具，有些強調編程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點和特色，也滿足了不同用戶的需求。 對 Web 技術的支持，使用戶○ 6能夠很容易地將數(shù)據(jù)庫中的數(shù)據(jù)發(fā)布到 Web 頁面上。 圖形化用戶界面，使系統(tǒng)管理和數(shù)據(jù)庫管理更加直觀、簡單。 SQL Server 2022 SQL Server 2022 是 Microsoft 公司推出的關于數(shù)據(jù)庫管理系統(tǒng) SQL Server 的最新版本，也是目前世界上大型數(shù)據(jù)庫系統(tǒng)之一。只需要一個操作方便，功能實用，能滿足本中心對數(shù)據(jù)的管理及需求的系統(tǒng)。這些優(yōu)點能夠極大地提高人事管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。整個系統(tǒng)從符合操作簡便、界面友好、實用安全的角度出發(fā)，完成了企業(yè)中對人事信息管理的全過程，包括新進員工的加入、老員工的轉出、職位等的變動引起職工信息的修改、員工信息查詢、統(tǒng)計等人事管理工作以及新進員工的新增、老員工修改等管理工作。本系統(tǒng)結合公司實際的人事信息管理制度，采用功能強大的 Visual 作為前臺應用程序的開發(fā)工具，SQL Server2022 作為后臺數(shù)據(jù)庫的開發(fā)工具而開發(fā)出的管理信息系統(tǒng)（MIS）。對于大中型企業(yè)來說，利用計算機支持企業(yè)高效率完成勞動人事管理的日常事務，是適應現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學化、規(guī)范化的必要條件；計算機管理所無法比擬的優(yōu)點檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。但是，對于企、事業(yè)單位的人事管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫系統(tǒng)。 第二章 系統(tǒng)的開發(fā)環(huán)境本系統(tǒng)使用的操作平臺是 Windows 2022，前臺使用 Visual ，后臺數(shù)據(jù)庫為 SQL Server 2022，下面對程序設計所需軟件做一下介紹。而且，SQL Server2022 的特點有： 真正的客戶機/服務○ 1器體系結構。 具有很好的伸縮性，可跨越從運行 Windows 95/98 的膝上型電○ 5腦到運行 Windows 2022 的大型多處理器等多種平臺使用。 [2]○ 3 ○ 4SQL Server2022 具有完備的 Web 功能，利用 SQL Server2022 可以將數(shù)據(jù)發(fā)布到 Web頁面上或數(shù)據(jù)存儲在 XML 文檔內(nèi)，反之，也可將 XML 文檔中的數(shù)據(jù)存儲在數(shù)據(jù)庫中，另外，用戶還能在瀏覽器中使用命令訪問數(shù)據(jù)庫中的數(shù)據(jù)。在 Visual Basic 環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用 Windows 內(nèi)部的應用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。人是指企業(yè)領導者、管理人員、技術人員，以及 MIS 建設的領導機構和實施機構，他們在系統(tǒng)中起主導作用。人機界面設計的關鍵是使人與計算機之間能夠準確地交流信息。 。一個優(yōu)秀的管理信息系統(tǒng)應該提供在線求助功能，這將給用戶帶來極大的方便。 [3]總之，在管理信息系統(tǒng)的開發(fā)過程中，我們應該充分考慮這些基本原則，這樣，我們做的系統(tǒng)才能夠具有一定的生命周期。確定新系統(tǒng)應做什么，這是最主要的需求。這是對系統(tǒng)運行以及所處環(huán)境的要求。數(shù)據(jù)流程圖是系統(tǒng)結構化分析行之有效的工具，它抽象地描述了系統(tǒng)數(shù)據(jù)處理的情況，但卻無法表達各個處理的詳細內(nèi)容，因此還要對數(shù)據(jù)流程圖中出現(xiàn)的數(shù)據(jù)流和處理等做進一步的補充說明，這就是數(shù)據(jù)字典和變換邏輯說明。? 考勤信息的輸入、查詢和修改。? 員工考勤信息：包括的數(shù)據(jù)項有員工所在部門、員工姓名、出勤時間、曠工時間、請假時間、早退時間、遲到時間、加班時間等。 query successful Else Set rst = New Trim$(SQL), n, adOpenKeyset, adLockOptimistic 39。 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查詢錯誤： Resume ExecuteSQL_ExitEnd FunctionPublic Function ConnectString() As String ConnectString = FileDSN=。 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