工資管理系統(tǒng)畢業(yè)設(shè)計論文-資料下載頁
2024-08-27 13:32本頁面
【導(dǎo)讀】隨著企業(yè)人員數(shù)量增加，企業(yè)。的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同。時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連。貼、醫(yī)療保險、保險費(fèi)、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財務(wù)人。發(fā)放錯誤的現(xiàn)象。管理的系統(tǒng)化、規(guī)范化、自動化。VISUALBASIC是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點。ACCESS數(shù)據(jù)庫具有與VISUALBASIC無縫連接、操作簡單、易于使用的優(yōu)點。運(yùn)行結(jié)果證明，它成為了現(xiàn)代化企業(yè)管理的標(biāo)志。集成進(jìn)來的可視化數(shù)據(jù)庫工具和一個RAD環(huán)境
【正文】 sql = select * from admins where username=39。 amp。 amp。 39。 sql, conn, 1, 1 If 0 Then 39。記錄存在，提示，關(guān)閉對象，退出模塊 工資管理系統(tǒng) 21 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) 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。顯示對話框控件 工資管理系統(tǒng) 23 appa = For i = Len(appa) To 1 Step 1 If Mid(appa, i, 1) \ Then 39。從通用對話框返回的圖片文件路徑最右側(cè)開始向左挨個字符進(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ù)庫 rs(userid) = rs(type) = rs(title) = rs(money) = rs(body) = If 0 Then 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。 amp。 %39。 and realname like 39。% amp。 amp。 %39。 and room like 39。% amp。 amp。 %39。 39。此句 SQL查詢語句 = sql Set = Adodc1 工資管理系統(tǒng) 26 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) 27 rs(money) = rs(body) = If 0 Then MsgBox 請?zhí)顚懻_的金額 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 》，中國電力出版社。 [2]陳豫龍， 何旭洪， 2020 年，《 VISUAL 數(shù)據(jù)庫開發(fā)實例導(dǎo)航》，人民郵電出版社。 [3]網(wǎng)絡(luò)書籍， 2020年，《 VISUAL BASIC 時尚編程百例》，機(jī)械工業(yè)出版社。 [4]莎師煊 王珊著， 2020，《數(shù)據(jù)庫概論》，高等教育出版社。 [5]劉韜、駱娟、何旭洪， 2020，《 VISUAL 》，人民郵電出版社。 [6]陳明， 2020，《 VISUAL BASIC程序設(shè)計》，中央廣播電視大學(xué)出版社。 [7]《 VISUAL BASIC 中文版控件大全》， MICROSOFT電子工業(yè)出版社。 [8]王利，《數(shù)據(jù)庫管理系統(tǒng)》，中央廣播電視大 學(xué)出版社。 工資管理系統(tǒng) 30
高考資料相關(guān)推薦
鄂ICP備17016276號-1