【正文】 在工資的統(tǒng)計和發(fā)放中難免會出現(xiàn)一些差錯，既浪費人力又不能很好的提高計算的準確性。開發(fā)工資管理系統(tǒng)，用計算機來統(tǒng)計和計算工資，可以避免了許多人工發(fā)放時工資的差錯，不僅可以保證計算的準確性，還可以對各種信息進行統(tǒng)計。針對系統(tǒng)服務(wù)對象的具體要求，設(shè)計了本工資 管理系統(tǒng)。結(jié)構(gòu)與功能模塊如下 : 一 . 工資管理系統(tǒng)結(jié)構(gòu)圖 工資管理系統(tǒng) 12 本工資管理系統(tǒng)主要有以下幾大功能： (1) 可對人員的工資進行修改、錄入、刪除。要求即可以按照一定的查詢方式進行，比如按照車間，科室，姓名，工號等基本信息來進行查詢。 (4) 維護性大大提高了 ,有利于工作人員隨時快捷的對本系統(tǒng)進行維護和刪改措施。 (2) 由管理信息系統(tǒng)的父模塊的向后延伸成幾個具有各自間獨立功能的子模塊甚至子模塊下的二級模塊 ,具有易辨認性 、準確性、高效性可觀性等。 (4) 當進入輸入模塊時候 ,用戶可以清晰的知道自己想要如何根據(jù)自己的需要來查詢到自己想要查詢的員工信息以及該員工的獎懲情況。 (6) 最后進入到管理員的維護模塊了 .此模塊的設(shè)計都依據(jù)著以員工為本的思想 ,對員工的基本信息包括其工資 、獎懲、照片及信息等基本情況 ,有效的時時保護著整個系統(tǒng)的穩(wěn)定運行 ,如發(fā)生需要變動或者刪除、 添加及更改的 ,管理員能夠?qū)ζ湎到y(tǒng)進行相應(yīng)的維護措施 ,有效的避免了信息的錯誤及做好安全性的防范。 (2) 運行控制 軟件運行時有較友好的界面，基本能夠?qū)崿F(xiàn)用戶的數(shù)據(jù)信息處理要求。通常把使用數(shù)據(jù)庫的系統(tǒng)統(tǒng)稱為數(shù)據(jù)庫應(yīng)用系統(tǒng)，把數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計簡稱為數(shù)據(jù)庫 設(shè)計。在數(shù)據(jù)庫設(shè)計中也參照這種工資管理系統(tǒng) 15 劃分，把數(shù)據(jù)庫應(yīng)用系統(tǒng)的生命周期分為數(shù)據(jù)庫規(guī)劃、需求收集與分析、數(shù)據(jù)庫設(shè)計與應(yīng)用程序設(shè)計、實現(xiàn)、測試以及運行維護 6個階段。現(xiàn)實世界的事物反映到人的頭腦中，人的大腦對它有個認識過程，經(jīng)過分析（選擇、命名、分類等）進入信息世界。這兩個問題貫穿了整個軟件系統(tǒng)的開發(fā)過程，這也就是數(shù)據(jù)庫的設(shè)計問題，軟件設(shè)計的一個核心。下面列出一些制作的表格分析。雖然從功能上看來比較簡單但它們必須受到嚴格的制約。 修改：同樣的，不能修改成已經(jīng)存在或者關(guān)鍵字相同的數(shù)據(jù)。比如說年齡和公司對福利的承擔比例。獎金的發(fā)放不能單純的在部門內(nèi)人數(shù)平分，這很可能要和他日常表現(xiàn)要有關(guān) 聯(lián)，所以每個人在最后工資發(fā)放階段必須要可以單獨修改的可能。窗體界面、源代碼如下： 源代碼： If = Or = Then MsgBox 沒有輸入用戶 名 ,請輸入 !, vbOKOnly + vbExclamation, 警告 工資管理系統(tǒng) 18 Else On Error Resume Next Dim sql Dim rs As New 39。 amp。 39。 amp。 39。錯誤捕捉，判斷 SQL語句是否出錯 MsgBox End If If Then MsgBox 沒有這個用戶 ,請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 = Else username1 = rs(username) 39。如下圖所示： 工資管理系統(tǒng) 19 如果輸入正確將進入系統(tǒng)主界面。 (1).當進入者不是管理員身份時 ,我做了如下的設(shè)置 : 工資管理系統(tǒng) 20 例如這是員工的帳號密碼 ,進入后只能進行相關(guān)密碼修改和系統(tǒng)退出 ,卻不能進行查詢等模塊的功能的瀏覽 。判斷新添加的用戶是否已經(jīng)存在，如果存在，給出提示 sql = select * from admins where username=39。 amp。 sql, conn, 1, 1 If 0 Then 39。執(zhí)行 SQL語句插入指令 insert into sql = insert into admins(username,password1) values(39。 amp。,39。 amp。) sql MsgBox 添加成功 Dim rs As New sql = select * from users sql, conn, 1, 3 If 0 Then MsgBox 工資管理系統(tǒng) 22 Exit Sub End If 39。顯示對話框控件 工資管理系統(tǒng) 23 appa = For i = Len(appa) To 1 Step 1 If Mid(appa, i, 1) \ Then 39。獲得圖片文件名，放到 strimage變量中 Exit For End If Next i If appa Then appb = 39。獲取圖片后綴名 FileName = str2 amp。 str1 file1 = \uploadImage\ amp。 \uploadImage\ amp。將圖片復制到指定路徑 = LoadPicture( amp。 FileName) End If ChDrive Left(, 1) ChDir 工資管理系統(tǒng) 24 Call con Dim rs As New sql = select * from user_jc sql, conn, 1, 3 39。判斷金額是否為數(shù)字，如果不為數(shù)字，則程序出錯，捕捉錯誤 MsgBox 發(fā)生錯誤，請正確錄入金額 工資管理系統(tǒng) 25 Exit Sub End If MsgBox 添加成功 Dim rs As New sql = select * from users where number like 39。 amp。 and realname like 39。 amp。 and room like 39。 amp。 39。 39。修改指定記錄 sql, conn, 1, 3 rs(title) = 39。 = (id) = (number) 工資管理系統(tǒng) 28 = (realname) = (sex) = (age) If IsNull((room)) Then = Else = (room) End If = (gongzi) = (buzhu) If IsNull((pic)) Then = LoadPicture( amp。MsgBox amp。 (pic)) 39。 1 End If 工資管理系統(tǒng) 29 參考文獻 [1]肖建 ，薛鳳武 ，吳靜， 2020年，《 VISUAL BASIC 》，中國電力出版社。 [3]網(wǎng)絡(luò)書籍， 2020年，《 VISUAL BASIC 時尚編程百例》，機械工業(yè)出版社。 [5]劉韜、駱娟、何旭洪， 2020，《 VISUAL 》，人民郵電出版社。 [7]《 VISUAL BASIC 中文版控件大全》， MICROSOFT電子工業(yè)出版社。 工資管理系統(tǒng) 30