基于vb的工資管理信息系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(參考版)
2024-12-11 09:44本頁(yè)面
【正文】 畢業(yè)設(shè)計(jì)（論文） 第 27 頁(yè)，共 27 頁(yè) 參考資料 [1]雷竟生《數(shù)據(jù)庫(kù)系統(tǒng)及其應(yīng)用》電子工業(yè)出版社 2021 年 [2]潘地林《 VB 程序設(shè)計(jì)》中國(guó)科學(xué)技術(shù)大學(xué)出版社 2021 年 [3]潘瑞芳《數(shù)據(jù)庫(kù)原理及應(yīng)用開(kāi)發(fā)》中國(guó)水利水電出版社 2021 年 [4]李玉玲，邵謙謙 《 ACCESS 財(cái)務(wù)應(yīng)用技能教程》 清華大學(xué)出版社 2021 年 [5]陳可欣 《 Access VBA 數(shù)據(jù)庫(kù)開(kāi)發(fā)范例應(yīng)用》 中國(guó)青年出版社 2021 年 [6]邊萌 《 VB 編程起步》機(jī)械工業(yè)出版社 2021 年 [7]孟 德欣 《 Visual 項(xiàng)目化教程》 清華大學(xué)出版社 2021 年 [8]汪海威 《 Visual Basic 程序設(shè)計(jì)》 清華大學(xué)出版社 2021 年 [9]張立科 《 Visual 信息管理系統(tǒng)開(kāi)發(fā)》 人民郵電出版社 2021 年 [10]申莉莉 《數(shù)據(jù)庫(kù)系統(tǒng)與 Access 教程》 清華大學(xué)出版社 2021 年 。最后，我要衷心感謝邱斌老師在我的設(shè)計(jì)過(guò)程中給予我的極大幫助，使我能夠及時(shí)、順利地完成此次的畢業(yè)設(shè) 計(jì)。因此，在分析問(wèn)題、解決問(wèn)題時(shí)顯得不夠嚴(yán)密、完善，還需要在以后的工作中不斷地改進(jìn)和完善。其使用功能基本符合企業(yè)實(shí)際工作的需要，具有一定的實(shí)用性。從而使工資管理系統(tǒng)軟件完全能滿足經(jīng)濟(jì)性、靈活性、系統(tǒng)性及可靠性的要求。應(yīng)用工資管理系統(tǒng)軟件可以在計(jì)算機(jī)上靈活、方便地管理工資，從而大大的提高了處理效率，使管理更加現(xiàn)代化。主窗口又由增添記錄、編輯記錄、查詢信息、管理功能組成。 （ 5）測(cè)試查詢功能是否成功： 查詢功能：在“工資數(shù)據(jù)組合查詢”窗口中輸入要查詢的內(nèi)容后單擊“檢索”按鈕，在下邊的表中出現(xiàn)了相應(yīng)的數(shù)據(jù)，表明查詢功能已經(jīng)成功 經(jīng)過(guò)以上各項(xiàng)的測(cè)試，證明本系統(tǒng)完全可以正常運(yùn)行，至此測(cè)試成功！ 畢業(yè)設(shè)計(jì)（論文） 第 25 頁(yè)，共 27 頁(yè) 總 結(jié) 經(jīng)過(guò)這段時(shí)間的開(kāi)發(fā)，基于 VB 和 Access 的工資管理系統(tǒng)終于完成了。 （ 3）測(cè)試添加功能是否成功： 在“基本數(shù)據(jù)輸入”窗口中單擊“添加”按鈕，此按鈕變?yōu)椤按_定”，各文本框可寫(xiě)入信息，輸入信息后單擊“確定”按鈕可以添加新職工的數(shù)據(jù)。將出現(xiàn)密碼出錯(cuò)提示頁(yè)面。填寫(xiě)完成點(diǎn)擊“確定”按鈕，將會(huì)出現(xiàn)操作程序頁(yè)面，即該用戶已經(jīng)登陸成功了。實(shí)發(fā)工資 If (9).Value Then .Text = (9).Value End If End With iRowNum = iRowNum + 1 Loop End Sub 畢業(yè)設(shè)計(jì)（論文） 第 24 頁(yè)，共 27 頁(yè) 第六章 系統(tǒng)測(cè)試 為了確保本系統(tǒng)能夠正常運(yùn)行，需要在發(fā)布之后做一次較全面的測(cè)試。應(yīng)發(fā)工資 If (7).Value Then .Text = (7).Value End If .Col = 10 39。基本工資 If (5).Value Then .Text = (5).Value End If .Col = 8 39。職稱職務(wù) If (3).Value Then .Text = (3).Value End If .Col = 6 39。性別 .Text = (2).Value .Col = 4 39。職工工號(hào) .Text = (0).Value .Col = 2 39。 vbCrLf End If = ssql If = 0 Then MsgBox 沒(méi)有滿足條件的紀(jì)錄存在 !, , 提示 = vbDefault = True = 序號(hào) |^職工工號(hào) |^ 姓 名 |^性別 |^所屬 amp。 Trim(cbl_opt) amp。 and amp。 amp。 Trim(cbl_depart) amp。 and =39。 amp。 Trim(cbl_title) amp。 and =39。 amp。 Trim(txt_name) amp。 and =39。 amp。 Trim(txt_ID) amp。 and =39。 where = amp。 部門(mén)表 B amp。 from 基本工資表 A, amp。 amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 , amp。 select , amp。 Trim(txt_data) amp。 Trim(cbl_data) amp。 vbCrLf End If If cbl_data Then ssql = ssql amp。 39。 amp。 vbCrLf End If If cbl_depart Then ssql = ssql amp。 39。 amp。 vbCrLf End If If cbl_title Then ssql = ssql amp。 39。 amp。 vbCrLf End If If txt_name Then 畢業(yè)設(shè)計(jì)（論文） 第 21 頁(yè)，共 27 頁(yè) ssql = ssql amp。 39。 amp。 vbCrLf If txt_ID Then ssql = ssql amp。 Val() End If ssql = ssql amp。 * amp。 OP If = True Then ssql = ssql amp。 = amp。 工資庫(kù) .mdb) ssql = ssql = UPDATE 基本工資表 SET If = True Then XM = 基本工資 Else XM = 崗位工資 End If ssql = ssql amp。 = ssql If 0 Then Unload Me = True = True = True = True Else MsgBox 無(wú)效的密碼，請(qǐng)重試 !, , 登錄 TxtPassword = End If End Sub 基本數(shù)據(jù)輸 入主要代碼 Private Sub cmd_OK_Click() On Error GoTo Noupdate = True If Trim() = Then MsgBox 工號(hào)不能為空 !, , 警告 Else If = True Then (3) = 男 Else (3) = 女 End If 畢業(yè)設(shè)計(jì)（論文） 第 20 頁(yè)，共 27 頁(yè) (1) = Trim(Str( + 1)) = False = True = False = False End If = False Exit
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1