【導(dǎo)讀】隨著企業(yè)人員數(shù)量增加，企業(yè)。的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同。時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連。貼、醫(yī)療保險、保險費、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人

　　

【正文】 示： 工資管理系統(tǒng) 26 如果輸入正確將進入系統(tǒng)主界面。主界面如下圖所示： 界面上有基礎(chǔ)信息（里面包括：系統(tǒng)管理、數(shù)據(jù)添加、信息查詢、信息維護）、用戶管理（里面包括：用戶管理、密碼修改、退出登陸）數(shù)據(jù)添加（里面包括：員工信息、員工照片、獎懲情況）、信息維護（里面包括：員工信息、獎懲情況）、還有員工信息、工資調(diào)整、基本工資、獎懲調(diào)整、幾個小選項，你可根據(jù)你所要進行的事物來選擇你所需要的功能。 (1).當進入者不是管理員 身份時 ,我做了如下的設(shè)置 : 工資管理系統(tǒng) 27 例如這是員工的帳號密碼 ,進入后只能進行相關(guān)密碼修改和系統(tǒng)退出 ,卻不能進行查詢等模塊的功能的瀏覽 。 Dim rs As New 39。判斷新添加的用戶是否已經(jīng)存在，如果存在，給出提示 sql = select * from admins where username=39。 amp。 amp。 39。 sql, conn, 1, 1 If 0 Then 39。記錄存在，提示，關(guān)閉對象，退出模塊 工資管理系統(tǒng) 28 MsgBox 此用戶名已經(jīng)存在 Exit Sub Else 39。執(zhí)行 SQL語句插入指令 insert into sql = insert into admins(username,password1) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。) sql MsgBox 添加成功 Dim rs As New sql = select * from users sql, conn, 1, 3 If 0 Then MsgBox 工資管理系統(tǒng) 29 Exit Sub End If 39。將數(shù)據(jù)插入到數(shù)據(jù)表中 rs(number) = rs(realname) = rs(room) = rs(age) = rs(gongzi) = rs(buzhu) = If sex(0).Value = True Then rs(sex) = sex(0).Caption Else rs(sex) = sex(1).Caption End If 39。顯示對話框控件 工資管理系統(tǒng) 30 appa = For i = Len(appa) To 1 Step 1 If Mid(appa, i, 1) \ Then 39。從通用對話框返回的圖片文件路徑最右側(cè)開始向左挨個字符進行判斷，如果是 “\”，則獲得 “\”后面的字符串，即為圖片文件名 j = j + 1 Else strimage = Mid(appa, Len(appa) j + 1, j) 39。獲得圖片文件名，放到 strimage變量中 Exit For End If Next i If appa Then appb = 39。文件名稱 num = InStrRev(strimage, .) str1 = Right(strimage, Len(strimage) num) str2 = Replace(Now, , ) str2 = Replace(str2, ., ) str2 = Replace(str2, , ) str2 = Replace(str2, :, ) 39。獲取圖片后綴名 FileName = str2 amp。 . amp。 str1 file1 = \uploadImage\ amp。 FileName = True FileCopy appa, amp。 \uploadImage\ amp。 FileName 39。將圖片復(fù)制到指定路徑 = LoadPicture( amp。 \uploadImage\ amp。 FileName) End If ChDrive Left(, 1) ChDir 工資管理系統(tǒng) 31 Call con Dim rs As New sql = select * from user_jc sql, conn, 1, 3 39。添加記錄，將數(shù)據(jù)插入數(shù)據(jù)庫 rs(userid) = rs(type) = rs(title) = rs(money) = rs(body) = If 0 Then 39。判斷金額是否為數(shù)字，如果不為數(shù)字，則程序出錯，捕捉錯誤 MsgBox 發(fā)生錯誤，請正確錄入金額 工資管理系統(tǒng) 32 Exit Sub End If MsgBox 添加成功 Dim rs As New sql = select * from users where number like 39。% amp。 amp。 %39。 and realname like 39。% amp。 amp。 %39。 and room like 39。% amp。 amp。 %39。 39。此句 SQL查詢語句 = sql Set = Adodc1 工資管理系統(tǒng) 33 On Error Resume Next If = Then MsgBox 請選擇要修改的記錄 Exit Sub End If Call con Dim rs As New sql = select * from user_jc where id= amp。 39。SQL查詢語句，與 ID 字段匹配的記錄 39。修改指定記錄 sql, conn, 1, 3 rs(title) = 39。rs(userid) = rs(type) = 工資管理系統(tǒng) 34 rs(money) = rs(body) = If 0 Then MsgBox 請?zhí)顚懻_的金額 Exit Sub End If = True = select * from users where id= amp。 = (id) = (number) 工資管理系統(tǒng) 35 = (realname) = (sex) = (age) If IsNull((room)) Then = Else = (room) End If = (gongzi) = (buzhu) If IsNull((pic)) Then = LoadPicture( amp。 /uploadImage/) 39。MsgBox amp。 uploadImage/ Else = LoadPicture( amp。 (pic)) 39。MsgBox pic1 amp。 1 End If 工資管理系統(tǒng) 36 參考文獻 [1]肖建 ，薛鳳武 ，吳靜， 2021年，《 VISUAL BASIC 》，中國電力出版社。 [2]陳豫龍， 何旭洪， 2021 年，《 VISUAL 數(shù)據(jù)庫開 發(fā)實例導(dǎo)航》，人民郵電出版社。 [3]網(wǎng)絡(luò)書籍， 2021年，《 VISUAL BASIC 時尚編程百例》，機械工業(yè)出版社。 [4]莎師煊 王珊著， 2021，《數(shù)據(jù)庫概論》，高等教育出版社。 [5]劉韜、駱娟、何旭洪， 2021，《 VISUAL 》，人民郵電出版社。 [6]陳明， 2021，《 VISUAL BASIC程序設(shè)計》，中央廣播電視大學(xué)出版社。 [7]《 VISUAL BASIC 中文版控件大全》， MICROSOFT電子工業(yè)出版社。 [8]王利，《數(shù)據(jù)庫管 理系統(tǒng)》，中央廣播電視大學(xué)出版社。 工資管理系統(tǒng) 37 致謝 以上就是工資管理系統(tǒng)的詳細設(shè)計情況， 經(jīng)過兩 個多月的設(shè)計和開發(fā)，工資管理系統(tǒng)已基本開發(fā)完畢。其功能基本滿足用戶的需要，能夠?qū)崿F(xiàn)系統(tǒng)各個模塊的功能的實現(xiàn)。 但是由于畢業(yè)設(shè)計時間較短及工資管理其復(fù)雜性，所以本設(shè)計與開發(fā)僅是一個嘗試性的工作。當然，該系統(tǒng)還有許多不盡如人意的地方，比如用戶界面不夠美觀，模塊設(shè)計不夠人性化，設(shè)計較簡單等多方面問題 ,這些都有待進一步改善。經(jīng)過二個月的制作，設(shè)計總算作完了，系統(tǒng)實現(xiàn)對員工工資信息的管理和 維護，主要實現(xiàn)了數(shù)據(jù)的輸入、查詢、修改、刪除等一系列功能。系統(tǒng)完全采用圖形戶用戶操作界面，能讓用戶很容易了解和掌握系統(tǒng)的使用方法。這使得系統(tǒng)具備了很好的視覺性和可操作性。 在功能的界面實現(xiàn)方面，系統(tǒng)采用菜單式操作和命令按鈕操作相結(jié)合的方式，使操作非常的簡單、方便。 系統(tǒng)在安全性方面的控制管理員登陸窗口，使非管理人員不能進入系統(tǒng)。從而保證了系統(tǒng)的安全性。 我在這次設(shè)計后深深的感受到 “一分耕耘，一分收獲 ”。設(shè)計的過程是十分辛苦的，但當設(shè)計完成時會有一種滿足感，而且自己也收獲不少。通過這次設(shè)計，我發(fā)覺我學(xué)到了很多 東西，把學(xué)到的東西都派上了用場。在我的設(shè)計中體現(xiàn)了幾年來大學(xué)的學(xué)習和生活的價值。作為一名計算機專業(yè)的學(xué)生，我希望將來能當一名優(yōu)秀的程序員。而這一次設(shè)計就是我向自己的目標邁出的第一步。 在軟件開安發(fā)的過程中，我感覺到良好的文檔是正規(guī)研發(fā)流程中非常重要的環(huán)節(jié)，作為代碼程序員， 30％的工作時間寫技術(shù)文檔是很正常的，缺乏文檔，一個軟件系統(tǒng)就缺乏生命力，在未來的查錯，升級以及模塊的復(fù)用時就都會遇到極大的麻煩。這次的這個小小的項目，就因為文檔上的一點點理解錯誤讓我們花了很大的工夫去改代碼，改頁面。很慶幸的是，這是一個小 項目，要是大項目，這種問題可能就會導(dǎo)致大量的代碼修改，可見文檔在一個項目中起者巨大的做用。 此外，良好的代碼編寫習慣，不但有助于代碼的移植和糾錯，也有助于不同技術(shù)人員之間的協(xié)作。作為一個程序員，對需求的理解能力也是很重要的，只有真正理解了一個模塊的作用，才會寫出高效率的代碼，才能使整個軟件項目作出工資管理系統(tǒng) 38 來更加優(yōu)秀，具備更好的安全性和穩(wěn)定性，我在寫代碼的過程中就遇到了需求理解上的問題，使得寫出來的代碼功能不全，幸好不是給客戶發(fā)現(xiàn)，要不，這個軟件的商業(yè)價值可能就會打折扣了。單元測試對于一個程序員來說是不可不做的一項工 作，不做好測試就會給后期的集成工作帶來麻煩，往往為了一個小問題會讓我們查找好多模塊，給后期工作帶來很大麻煩。 這一段時間的工作也讓我明白了一點：一個優(yōu)秀的程序員必須不斷的學(xué)習，隨時總結(jié)，找到自己的不足，這樣逐步提高，才能讓自己很快的成長起來。 最后 ,感謝指導(dǎo)老師這么多天的精心教導(dǎo) ,在今后的路途里我會更加努力的學(xué)習和刻苦的專研 。