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

　　

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