工資管理系統(tǒng)畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)
2025-08-18 13:32本頁(yè)面
【導(dǎo)讀】隨著企業(yè)人員數(shù)量增加，企業(yè)。的工資管理工作也變得越來(lái)越復(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ù)人。發(fā)放錯(cuò)誤的現(xiàn)象。管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。VISUALBASIC是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。ACCESS數(shù)據(jù)庫(kù)具有與VISUALBASIC無(wú)縫連接、操作簡(jiǎn)單、易于使用的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，它成為了現(xiàn)代化企業(yè)管理的標(biāo)志。集成進(jìn)來(lái)的可視化數(shù)據(jù)庫(kù)工具和一個(gè)RAD環(huán)境
【正文】 sql = select * from admins where username=39。 amp。 amp。 39。 sql, conn, 1, 1 If 0 Then 39。記錄存在，提示，關(guān)閉對(duì)象，退出模塊 工資管理系統(tǒng) 21 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) 22 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) 23 appa = For i = Len(appa) To 1 Step 1 If Mid(appa, i, 1) \ Then 39。從通用對(duì)話框返回的圖片文件路徑最右側(cè)開(kāi)始向左挨個(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) 24 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) 25 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) 26 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) 27 rs(money) = rs(body) = If 0 Then MsgBox 請(qǐng)?zhí)顚?xiě)正確的金額 Exit Sub End If = True = select * from users where id= amp。 = (id) = (number) 工資管理系統(tǒng) 28 = (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) 29 參考文獻(xiàn) [1]肖建 ，薛鳳武 ，吳靜， 2020年，《 VISUAL BASIC 》，中國(guó)電力出版社。 [2]陳豫龍， 何旭洪， 2020 年，《 VISUAL 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航》，人民郵電出版社。 [3]網(wǎng)絡(luò)書(shū)籍， 2020年，《 VISUAL BASIC 時(shí)尚編程百例》，機(jī)械工業(yè)出版社。 [4]莎師煊 王珊著， 2020，《數(shù)據(jù)庫(kù)概論》，高等教育出版社。 [5]劉韜、駱娟、何旭洪， 2020，《 VISUAL 》，人民郵電出版社。 [6]陳明， 2020，《 VISUAL BASIC程序設(shè)計(jì)》，中央廣播電視大學(xué)出版社。 [7]《 VISUAL BASIC 中文版控件大全》， MICROSOFT電子工業(yè)出版社。 [8]王利，《數(shù)據(jù)庫(kù)管理系統(tǒng)》，中央廣播電視大 學(xué)出版社。 工資管理系統(tǒng) 30
高考資料相關(guān)推薦
鄂ICP備17016276號(hào)-1