VB課程設(shè)計(jì)企業(yè)工資管理系統(tǒng)

1、 vbvb 課程設(shè)計(jì)課程設(shè)計(jì) 設(shè)計(jì)題目設(shè)計(jì)題目： 企業(yè)工資管理系統(tǒng)企業(yè)工資管理系統(tǒng) 專專 業(yè)業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù)計(jì)算機(jī)科學(xué)與技術(shù) 班班 級(jí)級(jí)： 學(xué)學(xué) 號(hào)：號(hào)： 學(xué)生姓名學(xué)生姓名： 目目 錄錄 摘 要i 第一章 系統(tǒng)分析1 第二章 系統(tǒng)實(shí)現(xiàn)5 第三章 系統(tǒng)調(diào)試8 第四章 使用說明11 總 結(jié) 13 附 錄 1、源代碼14 2、參考資料25 摘摘 要要 傳統(tǒng)事業(yè)單位的工資管理方法以及傳統(tǒng)工資管理存在很多 的缺陷與弊端。在事業(yè)單位以往的工資錄入中，計(jì)算、合計(jì)等 需要通過大量的手工完成，數(shù)據(jù)量多，處理速度慢，而且極易 出錯(cuò)，導(dǎo)致工作效率低。為了解決這一矛盾，利用計(jì)算機(jī)來進(jìn) 行工資的管理，是十分必要的

2、。 程序設(shè)計(jì)重點(diǎn)論述了工資管理信息系統(tǒng)的組成與每個(gè)模塊 的功能。設(shè)計(jì)工資管理信息系統(tǒng)主要從模塊組成、數(shù)據(jù)連接、 功能實(shí)現(xiàn)等方面著手。 設(shè)計(jì)過程主要以上面的分析的重點(diǎn)作為依據(jù)。首先進(jìn)行基 礎(chǔ)數(shù)據(jù)的采集，然后進(jìn)行工資的核算等。在朝這個(gè)思想靠近的 過程中，在許多小的細(xì)節(jié)上還存在著很多不足。 關(guān)鍵詞：關(guān)鍵詞：管理信息系統(tǒng)，模塊組成 第一章第一章 系統(tǒng)分析系統(tǒng)分析 1.11.1、系統(tǒng)概述系統(tǒng)概述 縱觀各企業(yè)工資管理軟件、一個(gè)好的企業(yè)工資管理軟件，應(yīng) 具有簡單友好的操作界面、安全性好的數(shù)據(jù)庫、分級(jí)用戶權(quán)限管 理、強(qiáng)大數(shù)據(jù)導(dǎo)出及備份功能、聯(lián)機(jī)幫肋文檔。本系統(tǒng)著重圍繞 這幾點(diǎn)進(jìn)行開發(fā)設(shè)計(jì)。 基于以上眾多問題的

3、分析，和企業(yè)管理制度的參考。將系統(tǒng) 具體分為系統(tǒng)管理、員工信息設(shè)定、工資信息管理、工資結(jié)算管 理、數(shù)據(jù)庫管理、工具箱、幫助七大模塊: 系統(tǒng)管理分為操作員登錄管理，用戶管理，鎖定操作畫面及退 出。操作員登錄管理記錄用戶登錄的時(shí)間，方便管理員查看。 在用戶暫時(shí)離開時(shí)可鎖定操作畫面，防止非法操作。 用戶管理分為新建普通用戶，新建管理員用戶，修改密碼三 部分。 1.21.2 系統(tǒng)功能系統(tǒng)功能 1、 用戶和組管理功能 2、 數(shù)據(jù)的添加、刪除、修改功能 3、 數(shù)據(jù)統(tǒng)計(jì)功能 4、 信息保存功能 5、 數(shù)據(jù)導(dǎo)出功能 6、 方便的數(shù)據(jù)庫備份功能 7、 提供實(shí)用的工具箱 1.31.3 數(shù)據(jù)流程圖數(shù)據(jù)流程圖 具有相

4、應(yīng)權(quán)限的用戶在正確登陸后，可以打開并添加新員工 的個(gè)人檔案，添加完成后可以使用數(shù)據(jù)導(dǎo)出功能，導(dǎo)出數(shù)據(jù)。數(shù) 據(jù)流圖如下圖 1-1 所示： 1.41.4 模塊圖模塊圖 如圖： 圖 1-2 系統(tǒng)功能模塊圖 第二章第二章 系統(tǒng)的實(shí)現(xiàn)系統(tǒng)的實(shí)現(xiàn) 2.12.1 系統(tǒng)安全及權(quán)限的實(shí)現(xiàn)系統(tǒng)安全及權(quán)限的實(shí)現(xiàn) 為了確保系統(tǒng)的安全，對數(shù)據(jù)庫進(jìn)行加密處理，采用了用戶和組管理， 并記錄用戶登錄信息。擁有高級(jí)權(quán)限的用戶，可以創(chuàng)建不同的組，并可將全 部或部分權(quán)限分配給創(chuàng)建用戶。 為了實(shí)現(xiàn)該功能，系統(tǒng)采用了遞歸方式，使高一級(jí)別的用戶可以管理低 級(jí)用戶，最高權(quán)限屬于管理員。 具體描述如下: 2.22.2 登錄窗口的實(shí)現(xiàn)登錄窗口

5、的實(shí)現(xiàn) 系統(tǒng)登陸時(shí)，要求正確輸入用戶名和密碼。成功登陸后顯示如圖 4-2 所示工資管理 系統(tǒng)主界面。用戶名分為管理員用戶和普通用戶。如圖 2-1 所示： 圖 2-1 登錄窗口 2.32.3 員工基本檔案信息的實(shí)現(xiàn)員工基本檔案信息的實(shí)現(xiàn) 員工基本檔案信息管理，在窗體中完成員工基本信息的錄入工作。根據(jù) 提示在該窗體中輸入相應(yīng)的信息，最后單擊“保存”按鈕，進(jìn)行信息的保存。 如圖 2-2 所示 圖 2-2 員工基本檔案信息錄入窗口 2.42.4 工資的結(jié)算工資的結(jié)算 在該窗體中輸入相應(yīng)的信息，完成月工資結(jié)算、產(chǎn)量匯總、 綜合處理具體如圖 2-3 所示： 圖 2-3 月工資結(jié)算、產(chǎn)量匯總、綜合處理 第三

6、章第三章 系統(tǒng)調(diào)試系統(tǒng)調(diào)試 性能測試與分析性能測試與分析 這個(gè)階段的關(guān)鍵任務(wù)是通過各種類型的測試及相應(yīng)的調(diào)試，使 軟件達(dá)到預(yù)定的的要求，根據(jù)分工本人負(fù)責(zé)整個(gè)程序運(yùn)行以及整 個(gè)程序調(diào)試。 3.13.1、測試環(huán)境、測試環(huán)境 測試環(huán)境為： 操作系統(tǒng)：windows2000 及以上 數(shù)據(jù)庫系統(tǒng)：access2000。 3.23.2、系統(tǒng)測試需求分析、系統(tǒng)測試需求分析 科技成果管理系統(tǒng)作為信息管理系統(tǒng)應(yīng)用程序，應(yīng)具有設(shè)計(jì) 文件所規(guī)定的功能，各個(gè)功能模塊都能完成相應(yīng)的任務(wù)，保證 用戶所輸入數(shù)據(jù)的正確性和安全性。程序設(shè)計(jì)及相關(guān)功能是否 符合要求，只有通過嚴(yán)密的測試才能發(fā)現(xiàn)問題，盡可能減少錯(cuò) 誤的發(fā)生。所以，

7、必須對系統(tǒng)進(jìn)行測試，達(dá)到糾錯(cuò)改錯(cuò)的目的。 測試方法 軟件測試主要分靜態(tài)和動(dòng)態(tài)分析方法，動(dòng)態(tài)法有白盒和黑盒 法，本系統(tǒng)主要采用黑盒法進(jìn)行測試對程序功能進(jìn)行測試。 3.33.3、系統(tǒng)測試策略說明、系統(tǒng)測試策略說明 整個(gè)系統(tǒng)界面窗口的測試項(xiàng)目 1、相關(guān)輸入或輸出命令能否正常打開？ 2、頁面顯示是否正常，讀數(shù)據(jù)庫時(shí)是否出錯(cuò)？ 3、業(yè)務(wù)流程是否合理，是否適合用戶操作？ 數(shù)據(jù)項(xiàng)測試項(xiàng)目 1. 能否識(shí)別輸入數(shù)據(jù)的類型和長度？ 2. 異常處理能否保證系統(tǒng)在不正確的操作下運(yùn)行，能否識(shí) 別非法數(shù)據(jù)？ 3. 數(shù)據(jù)庫在大量的數(shù)據(jù)輸入輸出時(shí)能否正常運(yùn)行？ 4. 數(shù)據(jù)寫入數(shù)據(jù)庫時(shí)能否寫入到對應(yīng)的字段？ 3.43.4、系統(tǒng)

8、測試方案設(shè)計(jì)、系統(tǒng)測試方案設(shè)計(jì) 功能測試采用黑盒測試法，數(shù)據(jù)設(shè)計(jì)如下：測試報(bào)告見測試報(bào)告見 系統(tǒng)管理模塊測試用例： 3.1.1 設(shè)置操作員、密碼、權(quán)限設(shè)計(jì)測試用例，如表 （表 3.1.1）： 表 4.1.1 操作員編號(hào)操作員姓名操作員類別用戶密碼 01wlz 系統(tǒng)管理員 wlz 02wanglingzhing 普通用戶 wlz 3.1.2 設(shè)置快捷鍵用戶和登陸密碼測試用例設(shè)計(jì)如下表 第一次測試用例（設(shè)計(jì)兩組相同數(shù)據(jù)）第二次測試用例（兩次密碼輸入不同） 用戶名 用戶密碼確認(rèn)密碼用戶名用戶密碼確認(rèn)密碼 11111111111 第一次輸入與預(yù)期結(jié)果一致、第二次不一致與預(yù)期結(jié)果不一致 第四章 使用說明

9、 vb 程序語言具有許多優(yōu)秀的特性，用其設(shè)計(jì)應(yīng)用程序時(shí)有兩 個(gè)基本特點(diǎn)：可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程。 1 1可視化設(shè)計(jì)可視化設(shè)計(jì) 同其他的一些可視化程序開發(fā)工具一樣,vb 具有可視化設(shè)計(jì) 的特點(diǎn),微軟的 word 在剛剛進(jìn)入市場時(shí),同 wps 競爭的一個(gè)重要的 功能砝碼就是所見即所得的字處理功能,vb 在設(shè)計(jì)應(yīng)用程序界面 時(shí)也可以說是所見即所得.在設(shè)計(jì)時(shí),頭腦中所想象的應(yīng)用程序 界面,完全可以通過鍵盤鼠標(biāo)以及徒手畫出來,而不是編制大量的 代碼然后再編譯生成,如果需要修改,也是利用鍵盤鼠標(biāo)和手畫,而 底層的一些程序代碼由 vb 自動(dòng)生成或修改。 vb 為用戶提供大量的界面元素(在 vb 中稱為控件

10、對象),這些 控件對象對于熟悉 windows 應(yīng)用程序的用戶而言是一點(diǎn)也不陌生, 如窗體、菜單、命令按鈕、工具按鈕、檢查框等等,用 戶只需要利用鼠標(biāo)、鍵盤把這些控件對象拖動(dòng)到適當(dāng)?shù)奈恢?設(shè)置 它們的大小、形狀、屬性等,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。 2.2.事件驅(qū)動(dòng)編程事件驅(qū)動(dòng)編程 windows 操作系統(tǒng)出現(xiàn)以來,圖形化的用戶界面和多任務(wù)多進(jìn) 程的應(yīng)用程序要求程序設(shè)計(jì)不能是單一性的,在使用 vb 設(shè)計(jì)應(yīng)用 程序時(shí),必須首先確定應(yīng)用程序如何同用戶進(jìn)行交互.例如發(fā)生鼠 標(biāo)單擊、鍵盤輸入等事件時(shí),由用戶編寫的代碼控制這些事件的響 應(yīng),這就是所謂的事件驅(qū)動(dòng)編程。 3 3實(shí)現(xiàn)菜單選項(xiàng)實(shí)現(xiàn)菜單選項(xiàng)

11、菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義 良好的菜單使程序易于使用和維護(hù)，visual basic 也提供了強(qiáng)大的 創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 本系統(tǒng)使用 visual basic 的菜單編輯器建立菜單或者修改已 經(jīng)存在的菜單，您也可以使用 visual basic 的 application wizard 來操作。 總結(jié)總結(jié) 此次課程設(shè)計(jì)，不盡鞏固了所學(xué)知識(shí), 而且在這基礎(chǔ)上也提高 了自己，使我明白需求分析、合理設(shè)計(jì)數(shù)據(jù)庫，編寫代碼對軟件 設(shè)計(jì)的好壞起了非常重要的作用。由于本身能力的局限性，所以 做編寫的代碼，即使經(jīng)過反復(fù)檢查也難免出錯(cuò)所以在本階段力求 使用有限的時(shí)間找出盡可能

12、多的錯(cuò)誤，力求系統(tǒng)盡量正確。 附附 錄：錄： 1 源代碼源代碼 實(shí)現(xiàn)功能的部分主要代碼： private sub comok_click() on error goto dealerror dim strsql as string dim strmsg as string on error goto dealerror dim objcn as new connection strcn = cs() objcn.connectionstring = strcn objcn.open set objrs = new recordset set objrs.activeconnection = o

13、bjcn objrs.cursorlocation = aduseclient strsql = select * from 系統(tǒng)用戶 objrs.open strsql objrs.activeconnection = nothing objcn.close set objcn = nothing if logontimes = 3 then msgbox 你已經(jīng)超過最大登陸次數(shù)！退出系統(tǒng), vbokonly + vbcritical, 系統(tǒng)登錄 end else objrs.movefirst objrs.find 用戶名= & txtusername & if objrs.eof the

14、n msgbox 用戶名錯(cuò)誤！, vbokonly + vbcritical, 系統(tǒng)登錄 txtusername.setfocus txtusername.text = else if objrs!口令 txtpassword then msgbox 密碼錯(cuò)誤!請重新輸入!, vbokonly + vbcritical, 系統(tǒng)登錄 txtpassword.setfocus txtpassword.text = else msgbox 歡迎使用工資管理系統(tǒng), vbokcancel + vbokonly, 系統(tǒng)登錄 strusername = txtusername userpassword =

15、txtpassword if cmbstatus = then msgbox 請選擇登陸身份!, vbokonly + vbcritical, 系統(tǒng)登錄 cmbstatus.setfocus else if cmbstatus.listindex = 0 and objrs!admin = true then useradmin = 1 end if if cmbstatus.listindex = 0 and objrs!admin = false then x = msgbox(你不是管理員，將以普通用戶 登陸, vbokcancel + vbokonly, 系統(tǒng)登錄) end if if

16、 x = 2 then txtusername.setfocus txtusername.text = txtpassword.text = else 添加操作員登陸時(shí)間 strsql = insert into t_login (用戶,登錄時(shí) 間) values( & txtusername & , & now & ) set objrs = executesql(strsql, strmsg) unload me mdiform1.show end if end if end if end if end if logontimes = logontimes + 1 登陸次數(shù) exit su

17、b dealerror: msg = 程序執(zhí)行出錯(cuò),錯(cuò)誤信息如下: & vbcrlf & err.description showerror msg end sub dim objrs as recordset dim i as integer dim logontimes as integer private sub comcancle_click() n = msgbox(你選擇了退出系統(tǒng)登陸,退出將不能啟動(dòng)管理系統(tǒng)! & vbcrlf & 是否真的退出?, vbyesno, 系統(tǒng)驗(yàn)證) if n = vbyes then unload me end if end sub 員工月工資結(jié)算代

18、碼 dim strsql as string dim strmsg as string dim rs as adodb.recordset dim dj1 as integer dim dj2 as integer dim dj3 as integer 記件統(tǒng)計(jì) strsql = select * from salary where 工號(hào)= & gh & set rs = executesql(strsql, strmsg) if rs.eof = false then textno.text = rs.fields(工號(hào)).value textname.text = rs.fields(姓名

19、).value combod.value = rs.fields(工作日).value textlx(0).text = rs.fields(產(chǎn)品類型一). value dj1 = rs.fields(單價(jià)一).value dj2 = rs.fields(單價(jià)二).value dj3 = rs.fields(單價(jià)三).value textlx(1).text = rs.fields(產(chǎn)品類型二). value textlx(2).text = rs.fields(產(chǎn)品類型三). value rs.close strsql = select sum(數(shù)量一) as 數(shù)量一, sum(數(shù)量二) a

20、s 數(shù)量二,sum(數(shù)量三) as 數(shù)量三,sum(每日匯總) as 每日匯總 from salary group by 工號(hào)= & gh & set rs = executesql(strsql, strmsg) textsl(0).text = rs.fields(數(shù)量一). value textsl(1).text = rs.fields(數(shù)量二). value textsl(2).text = rs.fields(數(shù)量三). value textzj(0).text = val(textsl(0).text) * dj1 textzj(1).text = val(textsl(1).t

21、ext) * dj2 textzj(2).text = val(textsl(2).text) * dj3 txtgj.text = val(textzj(0).text) + val(textzj(1).text) + val(textzj(2).text) 獎(jiǎng)金 福利結(jié)算 rs.close strsql = select * from sar_other where 工號(hào) = & textno & set rs = executesql(strsql, strmsg) text(0).text = rs.fields(獎(jiǎng)金).value text(1).text = rs.fields(津

22、貼).value text(2).text = rs.fields(福利).value text(3).text = rs.fields(其他項(xiàng)目).value 扣除 rs.close strsql = select * from kouchu where 工號(hào)= & textno & set rs = executesql(strsql, strmsg) tet(0).text = rs.fields(住宿費(fèi)) tet(1).text = rs.fields(火食費(fèi)) tet(2).text = rs.fields(公基金) tet(3).text = rs.fields(垃圾處理費(fèi)) te

23、t(4).text = rs.fields(醫(yī)療保險(xiǎn)費(fèi)) tet(5).text = rs.fields(其它) else msgbox 數(shù)據(jù)庫還沒有此工號(hào)的工資記錄, vbokonly + vbexclamation, 提示 chkboxjj.value = false chkboxcp.value = false chkboxcr.value = false chkboxjs.value = false exit sub end if 記時(shí)統(tǒng)計(jì) rs.close strsql = select sum(加班時(shí)間) as 加班總時(shí)間, sum(工作小時(shí)數(shù)) as 工作小時(shí)數(shù),sum(記時(shí)匯總) as 記時(shí)匯總 from time