【正文】 、按各種條件進行查詢、新用戶的設(shè)置及密碼修改等方面的工作，基本滿足人事日常業(yè)務(wù)的需要。Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。（3）環(huán)境需求。其具體的用戶界面窗體如下所示：主要代碼如下： Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then MsgString = sTokens(0) amp。 Trim(txtItem(0)) amp。 Trim(txtItem(1) amp。 and ygdate1= amp。 Format( amp。 ) Then dblTotal = CDbl(txtItem(8)) dblTotal = dblTotal 1200 If dblTotal = 0 Then dblTotal = 0 ElseIf dblTotal 0 And dblTotal = 500 Then dblTotal = dblTotal * ElseIf dblTotal 500 And dblTotal = 2022 Then dblTotal = dblTotal * 25 ElseIf dblTotal 2022 And dblTotal = 5000 Then dblTotal = dblTotal * 125 ElseIf dblTotal 5000 And dblTotal = 20220 Then dblTotal = dblTotal * 375 Else MsgBox 請手工計算稅額！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtItem(9) = Format(dblTotal, ) End If Exit SubEnd Sub第六章 系統(tǒng)調(diào)試完成對流程的編碼后最重要的事情就是對系統(tǒng)的測試工作，測試在系統(tǒng)設(shè)計階段有兩個時期，通常在編寫每個模塊后做單元測試，另一個時期是對系統(tǒng)的綜合測試。改變測試方案來變換另一個角度進行測試，發(fā)現(xiàn)錯誤并記錄，修改代碼，測試條件使程序通過多層分支，判別運行結(jié)果從而完成模塊測試。, yyyymmdd) amp。 End If Else End If If Trim(sQSql) = Then = select*from manrecord flagEdit = True Else = select*from manrecord where amp。 Else sQSql = sQSql amp。 Trim(txtItem(0)) amp。 39。（4）未來需求。、使用方便。 管理信息系統(tǒng)（MIS）管理信息系統(tǒng)是一個利用計算機軟硬件資源以及數(shù)據(jù)庫的人機系統(tǒng)。 SQL Server 2022 SQL Server 2022 是 Microsoft 公司推出的關(guān)于數(shù)據(jù)庫管理系統(tǒng) SQL Server 的最新版本，也是目前世界上大型數(shù)據(jù)庫系統(tǒng)之一。本系統(tǒng)結(jié)合公司實際的人事信息管理制度，采用功能強大的 Visual 作為前臺應(yīng)用程序的開發(fā)工具，SQL Server2022 作為后臺數(shù)據(jù)庫的開發(fā)工具而開發(fā)出的管理信息系統(tǒng)（MIS）。而且，SQL Server2022 的特點有： 真正的客戶機/服務(wù)○ 1器體系結(jié)構(gòu)。人是指企業(yè)領(lǐng)導(dǎo)者、管理人員、技術(shù)人員，以及 MIS 建設(shè)的領(lǐng)導(dǎo)機構(gòu)和實施機構(gòu)，他們在系統(tǒng)中起主導(dǎo)作用。數(shù)據(jù)流程圖是系統(tǒng)結(jié)構(gòu)化分析行之有效的工具，它抽象地描述了系統(tǒng)數(shù)據(jù)處理的情況，但卻無法表達各個處理的詳細內(nèi)容，因此還要對數(shù)據(jù)流程圖中出現(xiàn)的數(shù)據(jù)流和處理等做進一步的補充說明，這就是數(shù)據(jù)字典和變換邏輯說明。 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit FunctionExecuteSQL_Error: MsgString = 查詢錯誤： Resume ExecuteSQL_ExitEnd FunctionPublic Function ConnectString() As String ConnectString = FileDSN=。 修改 End If mblChange = FalseEnd Sub 修改員工基本信息窗體的創(chuàng)建 Private Sub Form_Load() ShowTitle ShowDate flagEdit = TrueEnd SubPublic Sub ShowTitle()Dim i As IntegerWith msgList .Cols = 21 .TextMatrix(0, 1) = 編號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 部門 .TextMatrix(0, 4) = 性別 .TextMatrix(0, 5) = 出生日期 .TextMatrix(0, 6) = 籍貫 .TextMatrix(0, 7) = 學(xué)歷 .TextMatrix(0, 8) = 專業(yè) .TextMatrix(0, 9) = 參加工作時間 .TextMatrix(0, 10) = 職稱 .TextMatrix(0, 11) = 進入公司時間 .TextMatrix(0, 12) = 備注 .FixedRows = 1 For i = 0 To 11 .ColAlognment(i) = 0 Next i .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .ColWidth(0) = 300 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 600 .ColWidth(5) = 1000 .ColWidth(6) = 2022 .ColWidth(7) = 1000 .ColWidth(8) = 2022 .ColWidth(9) = 1200 .ColWidth(10) = 1000 .ColWidth(11) = 1200 .Row = 1 End WithEnd SubPublic Sub ShowDate() Dim j As Integer Dim i As Integer Set mrc = ExecuteSQL(txtSQL, MsgTxet) If = False Then With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 ) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If index = 0 Then cboItem(1).Clear If Not Then With cboItem(1) Do While Not .AddItem Trim(mrc!ygname) Loop .ListIndex = 0 End With = True Else MsgBox 請先建立員工檔案！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If ElseIf index = 1 Then cboItem(1).ListIndex txtId = Trim(mrc!ygid) End If End IfEnd SubPrivate Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim recTemp As Recordset Dim sSql As String Dim MsgText As String For intCoount = 0 To 3 If Trim(txtItem(intCount) amp。, yyyymmdd) amp。s information, such managements as personnel managements , such as staff39。 Trim((, 1)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 已經(jīng)存在該員工在該月的考勤記錄！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If End If txtSQL = delete from checkin where kqid= amp。 Else sQSql = sQSql amp。 ) amp。 ) Then If Not IsDate(txtItem(3)) Then MsgBox 生日應(yīng)輸入日期（yyyymmdd)！, vbOKOnly + vbExclamation, 警告 txtItem(3).SetFocus Exit Sub Else txtItem(3) = Format(txtItem(3), yyyymmdd) End IfEnd If If Trim(txtItem(7) amp。? 員工考勤信息：包括的數(shù)據(jù)項有員工所在部門、員工姓名、出勤時間、曠工時間、請假時間、早退時間、遲到時間、加班時間等。確定新系統(tǒng)應(yīng)做什么，這是最主要的需求。 。 [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ù)。但是，對于企、事業(yè)單位的人事管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫系統(tǒng)。這些優(yōu)點能夠極大地提高人事管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 對 Web 技術(shù)的支持，使用戶○ 6能夠很容易地將數(shù)據(jù)庫中的數(shù)據(jù)發(fā)布到 Web 頁面上。一方面，人向計算機輸入信息時應(yīng)當(dāng)盡量采取自然的方式；另一方面，計算機向人傳遞的信息必須準確。第三章 系統(tǒng)分析3．1 系統(tǒng)需求分析系統(tǒng)分析是開發(fā)管理信息系統(tǒng)的關(guān)鍵性階段，是一個從不斷認識和逐步細化的過程。? 員工工資信息的輸入、查詢和修改。 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(保存當(dāng)前記錄的變化嗎？ , vbOKOnly + vbExclamation, 警告) =