【文章內(nèi)容簡介】 理模塊和幫助模塊組成。 工資管理系統(tǒng)模塊圖 系統(tǒng)管理模塊 這一模塊主要完成一些用戶的管理和員工信息的管理以及系 統(tǒng)的退出和重新登錄。 系統(tǒng)管理模塊 結構圖 工資管理模塊 這一模塊主要實現(xiàn)個人工資管理、工資批量設置和工資計算公式的功能。 工資管理模塊 結構圖 報表管理模塊 這一模塊主要完成 對工資管理系統(tǒng)中公司中的員工信息和工資信息的制表， 為企業(yè)領導提系統(tǒng)管理模塊 用戶管理 員工信息管理 重新登錄 退出 用戶管理 注冊用戶 注銷用戶 密碼修改 工資管理 個人工資管理 工資批量設置 工資計算公式 工資管理系統(tǒng) 系統(tǒng)管理模塊 工資管理模塊 報表管理模塊 幫助模塊 南華大學計算機科學與技術學院 課程設計報告 第 12 頁 共 33 頁 供所需的數(shù)據(jù)。主要包括： 員工工資表 、員工信息表和員工工資條 報表管理模塊 結構圖 界面設計 由于 工資 管理系統(tǒng)的最終用戶是對計算機技術并不精通的管理人員，從他們的應用需求出發(fā)，應該本著用戶操作界面友好、清晰 、易學易用、易于維護的原則來進行設計。 登錄窗口 進入系統(tǒng)時要進行安全性檢驗。需輸入你的用戶名，密碼。本系統(tǒng)由管理員負責 注冊和注銷 用戶 ， 您可以使用管理員登錄系統(tǒng)，初始密碼為 jsjmz。通過數(shù)據(jù)庫的安全認證，您還可以限制他人以管理員登錄，只能以來賓的用戶登錄系統(tǒng)，初始密碼為 123456。 系統(tǒng)用戶登錄 窗體 設計如下： 主界面 窗體 本系統(tǒng)主要有三個功能：系統(tǒng)管理、工資管理、報表管理。其中系統(tǒng)管理中包含用戶管理、員工信息管理、重新登錄系統(tǒng)功能，工資管理包含員工工資管理、工資批量設置、工資計算公式，報表中由員工信 息表、員工工資表、員工工資條，本系統(tǒng)可以讓您輕松地了解本公司員工的基本信息和工資管理。 主界面 窗體 設計如下： 報表管理 員工工資表 員工信息表 員工工資條 南華大學計算機科學與技術學院 課程設計報告 第 13 頁 共 33 頁 注冊用戶 您可以通過管理員用戶注冊其他用戶（注冊成功的用戶為非管理員權限），而非管理員用戶沒有此項功能。注冊用戶窗體如下： 員工信息管理 您可以通過此功能查看或修改員工的基本信息。其中管理員擁有添加、修改、刪除及查詢員工信息的權利，而非管理員只能查詢員工信息，而不能擁有添加、修改和刪除的權利。 南華大學計算機科學與技術學院 課程設計報告 第 14 頁 共 33 頁 個人工資管理 您可以通過此功能查看或修改員工的工資信息。其中管理員擁有修改 和查詢員工工資信息的權利，而非管理員只能查詢員工工資信息，而不能擁有修改員工工資的權利。 員工工資條 您可以打印員工的工資信息發(fā)放給各員工。 南華大學計算機科學與技術學院 課程設計報告 第 15 頁 共 33 頁 關于 注：此系統(tǒng)中還有許多 窗體 因篇幅有限，不能一一顯示，只顯示了一些主要窗 體 ，若要進一步了解這些窗口及其它窗口，請查看系統(tǒng)應用設計和運行界面。 應用系統(tǒng)實施 開發(fā)工具的選擇 本系統(tǒng)采用 Visual Basic 和 SQL Server 2020 編寫，為了您能夠輕松使用本系統(tǒng)請您在使用前請看怎樣配置您的系統(tǒng)（包括 配置 SQL Server 2020 服 務器（導入數(shù)據(jù)庫文件） 和 配置數(shù)據(jù)源（使用數(shù)據(jù)源 ODBC 方法） ） 代碼部分 南華大學計算機科學與技術學院 課程設計報告 第 16 頁 共 33 頁 系統(tǒng)登錄窗體代碼： Dim TIM As Integer Dim myval As String Private Sub Command1_Click() = adCmdUnknown = select *from 用戶 where [user]=39。 + + 39。 If = 0 Then MsgBox (暫無此用戶，請重新選擇用戶！ ) Exit Sub End If If And And = Trim((password)) Then loginflag = 0 usename = If (right) = 管理員 Then loginuserflag = 1 Else loginuserflag = 0 End If Unload Me Else If TIM = 3 Then myval = MsgBox(密碼輸入錯誤，請向系統(tǒng)管理員查詢！ ) If myval = vbOK Then End End If If = Then MsgBox (請選擇用 戶 ) Else If = Then MsgBox (用戶密碼不能為空 ,請輸入用戶密碼！ ) Else If (password) Then MsgBox (密碼錯誤，請查證后重新輸入密碼！ ) = 0 = Len() TIM = TIM + 1 End If End If 南華大學計算機科學與技術學院 課程設計報告 第 17 頁 共 33 頁 End If End If End Sub Private Sub Command2_Click() If loginflag = 1 Then End Else End If = = 請選擇用戶 End Sub Private Sub DataCombo1_Change() TIM = 1 = End Sub Private Sub DataCombo1_Click(Area As Integer) = adCmdUnknown = select * from 用戶 End Sub Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Activate() TIM = 1 If loginflag 1 Then = 工資管理系統(tǒng) —— 重新登錄窗體 End If End Sub Private Sub Form_Unload(Cancel As Integer) If loginflag = 1 Then End Else End If End Sub Private Sub Picture1_Click() Call ShellAbout(hWnd, 工 資 管 理 系 統(tǒng) —— 木 子 制 作 , 歡 迎 提 出 建 議 ：(:506817493), ) End Sub 南華大學計算機科學與技術學院 課程設計報告 第 18 頁 共 33 頁 Private Sub Picture2_Click() SendKeys {F1} End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1_Click If KeyCode = vbKeyUp Then End Sub 主 窗體代碼： Private Declare Function ShellExecute Lib Alias ShellExecuteA (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Activate() (2).Text = 當前登錄的是 amp。 usename If loginuserflag = 1 Then = True = True = True = True Else = False = False = False = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) i = MsgBox(您 真的退出工資管理系統(tǒng)？ , vbYesNo + vbExclamation) If i = vbYes Then End End If End Sub Private Sub mnuAbout_Click() Call ShellAbout(hWnd, 工 資 管 理 系 統(tǒng) —— 木 子 制 作 , 歡 迎 提 出 建 議 ：(:506817493), ) End Sub Private Sub mnuAdduser_Click() End Sub Private Sub mnuAssist_Click(Index As Integer) ShellExecute , vbNullString, amp。 \ 幫助 .chm, vbNullString, , SW_SHOWNORMAL 南華大學計算機科學與技術學院 課程設計報告 第 19 頁 共 33 頁 End Sub Private Sub mnuBatchset_Click() End Sub Private Sub mnuChange_Click() End Sub Private Sub mnuDeleteuser_Click() End Sub Private Sub mnuEMP_Click(Index As Integer) End Sub Private Sub mnuExit_Click() i = MsgBox(您真的退出工資管理系統(tǒng)？ , vbYesNo + vbExclamation) If i = vbYes Then End End If End Sub Private Sub mnuFormulae_Click() End Sub Private Sub mnuInfotable_Click() End Sub Private Sub mnuPersalaryset_Click() End Sub Private Sub mnuRlogin_Click() End Sub Private Sub mnuWagebar_Click() End Sub Private Sub mnuWagetable_Click() 南華大學計算機科學與技術學院 課程設計報告 第 20 頁 共 33 頁 End Sub Private Sub Pic