數(shù)據(jù)庫(kù)課程設(shè)計(jì)（企業(yè)員工工資管理系統(tǒng)）

1、<p><b>　　數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告</b></p><p>　　企業(yè)員工工資管理系統(tǒng)</p><p>　　姓 名：_____________________________</p><p>　　班 級(jí)：_____________________________</p><p>　　學(xué) 號(hào)：

2、_____________________________</p><p>　　指導(dǎo)教師：_____________________________</p><p>　　成 績(jī)：_____________________________</p><p>　　完成時(shí)間：_____________________________</p><p&

3、gt;　　完成地點(diǎn)：_____________________________</p><p><b>　　摘 要</b></p><p>　　企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成企業(yè)每個(gè)職工的基本工資、津貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)

4、、實(shí)際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動(dòng)影響到企業(yè)的整體運(yùn)作，企業(yè)員工的工資是企業(yè)資金管理的一個(gè)重要的組成部分。但考慮到學(xué)生的開(kāi)發(fā)時(shí)間，本次設(shè)計(jì)主要闡述員工工資管理系統(tǒng)主要是以企業(yè)員工工資情況為對(duì)象而開(kāi)發(fā)的。涉及系統(tǒng)比較小，有利于學(xué)生單獨(dú)編寫(xiě)。其系統(tǒng)的設(shè)計(jì)主要包括數(shù)據(jù)庫(kù)的設(shè)計(jì)、維護(hù)和應(yīng)用界面的設(shè)計(jì)與后臺(tái)數(shù)據(jù)庫(kù)的連接。經(jīng)分析采用Microsoft 公司開(kāi)發(fā)的Visual Basic 6.0為開(kāi)發(fā)工具，Microsoft SQ

5、L sever 2000 為后臺(tái)數(shù)據(jù)庫(kù)。Visual Basic (簡(jiǎn)稱(chēng)VB)是由Microsoft公司推出的在Windows操作平臺(tái)下最迅速、最簡(jiǎn)捷的應(yīng)用開(kāi)發(fā)工具之一。它引入了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想和“控件”的概念，使得大量已經(jīng)編好的Visual Basic 程序可以直接拿來(lái)使用。同時(shí)VB具有簡(jiǎn)單、易學(xué)的特點(diǎn)，是大多數(shù)初學(xué)者最理想</p><p>　　關(guān)鍵詞：工資管理系統(tǒng)、設(shè)計(jì)、開(kāi)發(fā)工具</p>

6、<p><b>　　目錄</b></p><p><b>　　摘 要1</b></p><p><b>　　目錄2</b></p><p><b>　　第一章 緒論3</b></p><p>　　1.1 問(wèn)題的提出3</p>

7、<p>　　1.2 系統(tǒng)設(shè)計(jì)功能3</p><p>　　第二章 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)5</p><p>　　2.1 數(shù)據(jù)庫(kù)分析設(shè)計(jì)5</p><p>　　2.2 數(shù)據(jù)各個(gè)表之間的關(guān)系6</p><p>　　第三章 各個(gè)關(guān)系間的數(shù)據(jù)結(jié)構(gòu)7</p><p>　　3.1 系統(tǒng)設(shè)計(jì)目標(biāo)7</p>

8、<p>　　3.2 系統(tǒng)概要分析7</p><p>　　第四章 企業(yè)工資管理系統(tǒng)應(yīng)用設(shè)計(jì)9</p><p>　　4.1 企業(yè)工資管理系統(tǒng)設(shè)計(jì)9</p><p>　　4.2 子模塊的設(shè)計(jì)10</p><p>　　第五章 各個(gè)模塊部門(mén)代碼15</p><p>　　5.1登陸界面15</p>

9、;<p>　　5.2 各個(gè)子模塊代碼設(shè)置16</p><p>　　第六章 各模塊設(shè)計(jì)要點(diǎn)23</p><p>　　6.1 登錄模塊設(shè)計(jì)23</p><p>　　6.3用戶管理設(shè)計(jì)23</p><p>　　6.3 信息管理設(shè)計(jì)23</p><p>　　6.4 查詢工資設(shè)計(jì)24</p>

10、<p>　　第七章 結(jié)束語(yǔ)25</p><p><b>　　致謝26</b></p><p><b>　　參考文獻(xiàn)27</b></p><p><b>　　緒論</b></p><p><b>　　1.1 問(wèn)題的提出</b></p

11、><p>　　隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫(xiě)不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。早期工資管理多采取紙質(zhì)材料和具有較強(qiáng)的時(shí)間限制。隨著我國(guó)國(guó)民經(jīng)濟(jì)建設(shè)的蓬勃發(fā)展和具有中國(guó)特色的社會(huì)主義市場(chǎng)經(jīng)濟(jì)體制的迅速完善，各個(gè)行業(yè)都在積極使用現(xiàn)代化的手段，不斷改善服務(wù)質(zhì)量，提高工作效率，這些都

12、在很大程度上給企業(yè)提出越來(lái)越嚴(yán)峻的挑戰(zhàn)，對(duì)企業(yè)體系無(wú)論是在行政職能、企業(yè)管理水平以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。建設(shè)一個(gè)科學(xué)高效的信息管理系統(tǒng)是解決這一問(wèn)題的必由之路。企業(yè)內(nèi)部財(cái)務(wù)管理是該企業(yè)運(yùn)用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟(jì)效益的主要因素之一。工資管理作為企業(yè)內(nèi)部的一種財(cái)務(wù)管理也是如此，由于企業(yè)職工人數(shù)較多，每一位職工的具體實(shí)際情況也不盡相同，各項(xiàng)工資條款的發(fā)放，如果沒(méi)有一個(gè)完整的管理系統(tǒng)對(duì)企業(yè)和員工的工作都帶來(lái)許多的不便?；谝陨显?/p>

13、，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。</p><p>　　工資管理系統(tǒng)是企、事業(yè)單位常見(jiàn)的計(jì)算機(jī)信息管理系統(tǒng)。它的主要任務(wù)是對(duì)各種工資信息進(jìn)行日常的信息管理，如工資信息的輸入、查詢、修改、增加、刪除，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總，快速打印出報(bào)表。在建立與實(shí)現(xiàn)工資管理系統(tǒng)時(shí)，進(jìn)行了功能劃分，能夠由數(shù)據(jù)庫(kù)管理系統(tǒng)完成的功能應(yīng)盡可能由數(shù)據(jù)庫(kù)管理系統(tǒng)

14、守成，充分發(fā)揮數(shù)據(jù)庫(kù)管理系統(tǒng)高效、完全、可靠、便捷的性能，減少編程人員的工作量。工資管理系統(tǒng)是數(shù)據(jù)庫(kù)管理系統(tǒng)的一個(gè)比較典型的應(yīng)用，前臺(tái)使用的是微軟的VB6.0，后臺(tái)數(shù)據(jù)庫(kù)采用Microsoft SQL Sever數(shù)據(jù)庫(kù)。運(yùn)行結(jié)果證明，本企業(yè)員工工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，自重滿足企業(yè)員工工資管理的需要。</p><p>　　1.2 系統(tǒng)設(shè)計(jì)功能</p><p>　　企

15、業(yè)工資管理系統(tǒng)的主要任務(wù)是用計(jì)算機(jī)對(duì)各種工資信息進(jìn)行日常的管理，如查詢、修改、添加、刪除以及存儲(chǔ)等，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總工作，針對(duì)系統(tǒng)服務(wù)對(duì)象的具體要求，設(shè)計(jì)了企業(yè)工資管理系統(tǒng)。企業(yè)工資管理系統(tǒng)主要有以下幾大功能：</p><p>　　對(duì)單位人員的變動(dòng)進(jìn)行處理。一個(gè)單位的職工不會(huì)是一成不變的，總是在不斷的變化：有調(diào)出、有調(diào)入、也有職工在本單位內(nèi)部調(diào)動(dòng)。因此，設(shè)計(jì)系統(tǒng)是應(yīng)考慮到這些情況。<

16、;/p><p>　　對(duì)職工的工資進(jìn)行計(jì)算、修改?？梢詫?duì)職工的工資檔案進(jìn)行個(gè)別、部分和批量修改，同時(shí)，能對(duì)各職工的工資進(jìn)行計(jì)算，即計(jì)算基本工資、崗位工資、水電費(fèi)及實(shí)發(fā)金額等。</p><p>　　查詢統(tǒng)計(jì)功能。要求即可以單項(xiàng)查詢，比如查看某個(gè)職工的工資情況等；也可以多項(xiàng)查詢，比如某個(gè)部門(mén)所有的員工的工資信息。</p><p>　?。?）對(duì)用戶管理功能。一個(gè)系統(tǒng)的應(yīng)用有管理

17、員和普通用戶，他們對(duì)系統(tǒng)的權(quán)限受到限制。</p><p>　　第二章 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)</p><p>　　2.1 數(shù)據(jù)庫(kù)分析設(shè)計(jì)</p><p>　　需求分析的過(guò)程可以說(shuō)是一個(gè)對(duì)具體問(wèn)題的反復(fù)理解和抽象的過(guò)程。理解就是對(duì)現(xiàn)實(shí)問(wèn)題的理解，要弄清楚究竟需要解決什么問(wèn)題。抽象就是除去問(wèn)題的表面，提取問(wèn)題的本質(zhì)，建立問(wèn)題的邏輯模型，以便于以后階段的系統(tǒng)的設(shè)計(jì)實(shí)現(xiàn)。需求分析階

18、段是軟件產(chǎn)品生存命期中的一個(gè)重要階段，其根本任務(wù)是確定用戶對(duì)軟件系統(tǒng)的需求。所謂需求是指用戶對(duì)軟件的功能和性能的要求，就是用戶希望軟件能什么事情，完成什么樣的功能，達(dá)到什么性能。此次課程設(shè)計(jì)的使用者是企業(yè)的員工，主要是針對(duì)系統(tǒng)的管理員。其進(jìn)行的操作就是對(duì)公司員工、部門(mén)等一些方面改動(dòng)的改善。由此對(duì)員工需求分析如下。</p><p>　　用戶的需求就是對(duì)員工工資和使用用戶的添加、刪除、修改和查詢。這就要求各種信息中存

19、在實(shí)體完整性、參照完整性和用戶自定義完整性。搜集了各項(xiàng)要求，故數(shù)據(jù)項(xiàng)要求設(shè)計(jì)如下：</p><p><b>　　表2.1員工信息表</b></p><p><b>　　表2.2 部門(mén)信息</b></p><p><b>　　表2.3 基本工資</b></p><p><b

20、>　　表2.4崗位工資</b></p><p><b>　　表2.5工資信息</b></p><p>　　2.2 數(shù)據(jù)各個(gè)表之間的關(guān)系</p><p>　　在設(shè)計(jì)過(guò)程中，從用戶的角度考慮來(lái)處理各個(gè)表之間的約束關(guān)系，把概念模式轉(zhuǎn)化成邏輯模式最終形成E-R圖。</p><p>　　員工信息表(員工編號(hào)、姓名

21、、性別、出生年月、所屬部門(mén)、文化程度、職稱(chēng))</p><p>　　部門(mén)信息表(部門(mén)編號(hào)、部門(mén)名稱(chēng)、部門(mén)負(fù)責(zé)人、部門(mén)人數(shù))</p><p>　　基本工資表(工資級(jí)別、工資金額)</p><p>　　崗位工資表(工資級(jí)別、工資金額)</p><p>　　工資信息表(員工編號(hào)、部門(mén)編號(hào)、基本工資、崗位工資、水電費(fèi)、實(shí)發(fā)工資)</p>

22、<p>　　各個(gè)模塊之間的關(guān)系,如圖2.1所示。</p><p>　　圖2.1 各表之間的聯(lián)系</p><p>　　第三章 各個(gè)關(guān)系間的數(shù)據(jù)結(jié)構(gòu)</p><p>　　3.1 系統(tǒng)設(shè)計(jì)目標(biāo)</p><p>　　開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門(mén)提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。實(shí)現(xiàn)企業(yè)高效、科學(xué)、

23、現(xiàn)代化的員工管理。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。</p><p>　　·企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如水電費(fèi)。</p><p>　　·企業(yè)信息管理部分：包括員工信息、部門(mén)信息和發(fā)放工資（工資信息）。</p><p>　　·企業(yè)員工查詢部分：包括按員工查詢和按部門(mén)查詢。</p><p&g

24、t;　　·系統(tǒng)部分：包括添加用戶、修改用戶信息。</p><p>　　3.2 系統(tǒng)概要分析</p><p>　　用戶在使用一個(gè)系統(tǒng)時(shí)，必須先登錄操作界面，在操作完成后然后再退出，其操作如圖3.1所示。</p><p><b>　　注銷(xiāo)</b></p><p>　　圖3.1 系統(tǒng)流程圖</p>&l

25、t;p>　　說(shuō)明：操作員進(jìn)入管理系統(tǒng)的身份不同，所獲得的權(quán)限也不同，普通用戶只可以查詢自己的工資情況，而且部門(mén)對(duì)自己的所有信息進(jìn)行更改。</p><p>　　圖3.2 用戶操作模塊</p><p>　　說(shuō)明：管理員可以對(duì)所有模塊進(jìn)行操作，普通用戶只可以進(jìn)行查詢員工工資的權(quán)限。</p><p>　　說(shuō)明：在各個(gè)子模塊操作時(shí)用戶同時(shí)在實(shí)現(xiàn)更改的時(shí)候在對(duì)話框上的網(wǎng)格

26、看到后臺(tái)數(shù)據(jù)庫(kù)最新的動(dòng)態(tài)。</p><p><b>　　各個(gè)模塊簡(jiǎn)介：</b></p><p>　　登錄模塊：主要完成用戶的登錄信息核對(duì)并進(jìn)入主界面。</p><p>　　用戶管理模塊：主要完成對(duì)用戶信息的添加、修改和刪除功能。</p><p>　　信息設(shè)置模塊：主要對(duì)企業(yè)內(nèi)部員工和部門(mén)的管理。</p>&

27、lt;p>　　工資查詢模塊：主要完成對(duì)員工工資的查詢。</p><p>　　第四章 企業(yè)工資管理系統(tǒng)應(yīng)用設(shè)計(jì)</p><p>　　4.1 企業(yè)工資管理系統(tǒng)設(shè)計(jì)</p><p>　　4.1.1 “登陸模塊”詳細(xì)設(shè)計(jì)</p><p>　　“登錄模塊”的設(shè)計(jì)主要是針對(duì)用戶登錄界面的設(shè)計(jì)，判斷用戶是管理員還是普通用戶，從而進(jìn)入主界面。</

28、p><p>　　登陸界面主要由用戶名和密碼的信息，還有標(biāo)題的設(shè)置，登錄和取消按鈕的設(shè)置。用戶只有選擇用戶名后填入相應(yīng)的密碼后點(diǎn)擊“登錄”才能進(jìn)入主界面，點(diǎn)擊“取消”會(huì)退出系統(tǒng)。由此，登陸界面設(shè)計(jì)如圖4.1所示</p><p>　　圖4.1 登陸界面設(shè)計(jì)界面</p><p>　　若用戶對(duì)此有操作上的錯(cuò)誤，我設(shè)計(jì)的特點(diǎn)是都有提示的對(duì)話框（幾乎每個(gè)窗體都設(shè)置了如下操作，除了

29、特殊的提示外，為節(jié)省打印紙張，相同的提示在以后的篇幅中不再一一寫(xiě)出），如圖4.2所示</p><p>　　4.2 操作錯(cuò)誤提示</p><p>　　若用戶三次輸入密碼錯(cuò)誤，系統(tǒng)會(huì)認(rèn)為惡意進(jìn)入，系統(tǒng)自動(dòng)關(guān)閉。如圖4.3所示</p><p>　　圖4.3 強(qiáng)制關(guān)閉圖</p><p>　　4.1.2 “主界面”的詳細(xì)設(shè)計(jì)</p>&l

30、t;p>　　主界面的設(shè)計(jì)是由菜單編輯器生成，主要由系統(tǒng)設(shè)置、設(shè)置、信息維護(hù)、工資查詢五個(gè)模塊組成。其作用是使程序更加有條有理，有利于管理。其中普通用戶只可部分操作，管理員可以對(duì)所有模塊進(jìn)行操作。主界面設(shè)計(jì)如圖4.4所示：</p><p>　　圖4.4 主界面設(shè)計(jì)圖</p><p>　　4.2 子模塊的設(shè)計(jì)</p><p>　　4.2.1 選擇“系統(tǒng)設(shè)置”→“用

31、戶管理”→“用戶添加”菜單，在添加用戶的窗體里輸入用戶名、用戶密碼和權(quán)限，系統(tǒng)自動(dòng)新增用戶名及其用戶信息。如圖4.5所示。</p><p>　　為了防止用戶在輸入密碼時(shí)按錯(cuò)鍵或者一時(shí)忘記密碼，我在設(shè)計(jì)的時(shí)候運(yùn)用了“確認(rèn)密碼”的文本框，其屬性與密碼項(xiàng)相同?？梢杂脕?lái)矯正用戶一時(shí)的粗心大意目的，完善了系統(tǒng)的完整性。</p><p><b>　　圖4.5 用戶添加</b>&l

32、t;/p><p>　　4.2.2. 選擇”系統(tǒng)設(shè)置“→”用戶管理“→”用戶修改“菜單，其窗體由五個(gè)標(biāo)簽、兩個(gè)文本框、兩個(gè)組合框和一個(gè)按鈕組成，分別設(shè)置它們的屬性，其中兩個(gè)組合框的屬性設(shè)置為只讀屬性。在用戶修改的窗體里選擇用戶名即可修改用戶密碼和權(quán)限，系統(tǒng)價(jià)自動(dòng)更改后臺(tái)數(shù)據(jù)庫(kù)的用戶信息。設(shè)計(jì)界面如圖4.6所示</p><p><b>　　圖4.6 用戶修改</b></

33、p><p>　　4.2.3 選擇”系統(tǒng)設(shè)置“→”用戶管理“→”用戶刪除“菜單，窗體設(shè)計(jì)較簡(jiǎn)單，分別由一個(gè)文本框、一個(gè)組合框和兩個(gè)按鈕組成，組合框的屬性設(shè)置為只讀屬性。由于刪除的用戶只可以是后臺(tái)數(shù)據(jù)庫(kù)中存在的用戶在下拉按鈕中選擇要?jiǎng)h除的用戶名，即可刪除用戶名及其有關(guān)信息。</p><p>　　關(guān)于用戶管理的子菜單，只有管理員有權(quán)限進(jìn)入設(shè)置。</p><p>　　4.2.4

34、 選擇”設(shè)置“→”基本工資“菜單，自動(dòng)彈出基本工資設(shè)置的對(duì)話框（如圖4.7所示），在網(wǎng)格中會(huì)顯示數(shù)據(jù)庫(kù)中現(xiàn)有的基本工資級(jí)別和金額，用戶在填寫(xiě)完級(jí)別和金額后單擊添加或者修改按鈕進(jìn)行后臺(tái)數(shù)據(jù)庫(kù)的更新。在網(wǎng)格中選擇要?jiǎng)h除的基本工資，點(diǎn)擊刪除按鈕，系統(tǒng)會(huì)自動(dòng)進(jìn)行刪除，并且所有的操作后會(huì)自動(dòng)刷新網(wǎng)格，以及時(shí)提供給用戶信息。</p><p>　　圖4.7 基本工資設(shè)置</p><p>　　4.2.5

35、 選擇”設(shè)置“→”崗位工資“菜單后，自動(dòng)彈出對(duì)話框，其功能與基本工資設(shè)置相同，在此不在贅述。</p><p>　　4.2.6選擇”信息維護(hù)“→”部門(mén)管理“菜單后會(huì)出現(xiàn)如圖4.9所示對(duì)話框，管理員用戶可以通過(guò)網(wǎng)格瀏覽現(xiàn)有庫(kù)中的部門(mén)信息，在部門(mén)信息框架中輸入部門(mén)信息，同時(shí)也可添加、修改部門(mén)信息，數(shù)據(jù)庫(kù)自動(dòng)更新。當(dāng)刪除一條信息時(shí)，會(huì)出現(xiàn)如圖4.8所示提示信息，用戶可以選擇刪除或者取消操作。但如其部門(mén)已經(jīng)被引用，則&qu

36、ot;delete"語(yǔ)句會(huì)與約束條件發(fā)生沖突，不能刪除。</p><p>　　圖4.8 確定刪除對(duì)話框 </p><p>　　圖4.9 部門(mén)管理設(shè)置</p><p>　　4.2.7 選擇”信息維護(hù)“→”員工管理“菜單后會(huì)出現(xiàn)如下對(duì)話框，“性別”組合框默認(rèn)為“男”，如用戶輸入的不是“男”或者是“女”時(shí)，添加操作將不能進(jìn)行，并且在填寫(xiě)員工信息時(shí)，員工的性別默

37、認(rèn)為“男”。其進(jìn)行的操作與部門(mén)管理相同，不再贅述。 </p><p>　　4.2.8 選擇”信息管理“→”發(fā)放工資“菜單，網(wǎng)格顯示的是現(xiàn)有后臺(tái)數(shù)據(jù)庫(kù)中的員工工資信息，右邊可以直接瀏覽員工工資信息。直接點(diǎn)擊選擇網(wǎng)格中的工資信息，單擊刪除按鈕可直接刪除。考慮到設(shè)計(jì)頁(yè)面的大小問(wèn)題，對(duì)工資信息的添加和修改操作轉(zhuǎn)移到另一個(gè)窗體（如圖4.10所示）中進(jìn)行。</p><p>　

38、　用戶可以在工資信息中輸入員工的工資信息，由于添加和修改的操作同時(shí)在一個(gè)窗體中進(jìn)行，員工編號(hào)不知道要添加的哪一個(gè)，所以員工編號(hào)的下拉按鈕不是“只讀”屬性，用戶在輸入員工編號(hào)時(shí)應(yīng)輸入一個(gè)存在的員工，不然則彈出如圖4.11所示的提示框。</p><p>　　圖4.10工資信息設(shè)置</p><p>　　圖4.11 員工不存在提示</p><p>　　4.2.9選擇“工資查

39、詢”→“按員工查詢”菜單，彈出如圖4.12所示對(duì)話框，用戶可以選擇單人查詢或者全部顯示，但是不能對(duì)員工的工資做任何的改動(dòng)。</p><p>　　管理員可以查看所有人的工資情況，但是普通用戶只可以查看自己的工資情況，別人的工資情況不允許查看。</p><p>　　圖4.12 按員工查詢</p><p>　　4.2.10 選擇“工資查詢”→“按部門(mén)查詢”菜單，彈出對(duì)話框

40、，當(dāng)選擇“部門(mén)編號(hào)”后可執(zhí)行“單個(gè)顯示”，若想全部顯示，可直接單擊”顯示所有“按鈕。網(wǎng)格中將會(huì)同時(shí)刷新后臺(tái)數(shù)據(jù)庫(kù)信息，但是不能做任何的修改。</p><p>　　第五章 各個(gè)模塊部門(mén)代碼</p><p><b>　　5.1登陸界面</b></p><p>　　Static try_times As Integer </p>&l

41、t;p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　If Trim(cmo_user.Text) = "" Then</p><p>　　MsgBox "請(qǐng)選擇用戶名", vbOKOnly + vbInformation, &quo

42、t;提示"</p><p>　　cmo_user.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(txt_key.Text) = "" Then</p><p>　　MsgBox "請(qǐng)輸入密碼", vbOKOnly +

43、vbExclamation, "提示"</p><p>　　txt_key.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "select * from 用戶表 where 用戶名='" & Trim(cmo_user.Text) &

44、 "'"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　If Trim(rst.Fields(1)) = Trim(txt_key.Text) Then</p><p>　　tempuser = Trim(cmo_user.Text)</p><

45、p>　　power = Trim(rst.Fields(2))</p><p>　　username = Trim(cmo_user.Text)</p><p><b>　　rst.Close</b></p><p>　　frm_main.Show</p><p><b>　　Unload Me</

46、b></p><p>　　If power <> "管理員" Then</p><p>　　frm_main.set.Enabled = False</p><p>　　frm_main.defend = False</p><p><b>　　End If</b></p>

47、;<p><b>　　Else</b></p><p>　　MsgBox "密碼不正確，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告"</p><p>　　txt_key.SetFocus</p><p>　　txt_key.Text = ""

48、;</p><p>　　try_times = try_times + 1</p><p>　　If try_times = 3 Then</p><p>　　MsgBox "您已三次嘗試進(jìn)入本系統(tǒng)失敗，系統(tǒng)將自動(dòng)關(guān)閉", vbOKOnly + vbExclamation, "結(jié)束"</p><p>&

49、lt;b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b>

50、;</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim i As Integer</p><p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recor

51、dset</p><p>　　sql = "select 用戶名 from 用戶表 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　For i = 1 To rst.RecordCount</p><p>　　cmo_user.AddItem (r

52、st.Fields(0))</p><p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p><b>　　rst.Close</b></p><p><b>　　End Sub</b></p><p>　　5

53、.2 各個(gè)子模塊代碼設(shè)置</p><p>　　5.2.1 以用戶添加為例，部分代碼如下所示</p><p>　　Private Sub cmd_add_Click()</p><p>　　Dim rst As ADODB.Recordset</p><p>　　Dim sql As String</p><p>　　D

54、im i As Integer</p><p>　　If Trim(txt_adduser.Text) = "" Or Trim(txt_addkey.Text) = "" Or Trim(cmo_addpower) = "" Then</p><p>　　MsgBox "請(qǐng)將用戶信息填寫(xiě)完整！", vbOKO

55、nly + vbExclamation, "警告"</p><p>　　txt_adduser.SetFocus</p><p>　　txt_adduser.Text = ""</p><p>　　txt_addkey.Text = ""</p><p>　　txt_rekey.Te

56、xt = ""</p><p>　　cmo_addpower.Clear</p><p>　　Call Form_Load</p><p><b>　　Else</b></p><p>　　sql = "select 用戶名 from 用戶表"</p><p&g

57、t;　　Set rst = ExecuteSQL(sql, "")</p><p>　　If Trim(txt_adduser.Text) = Trim(rst.Fields(0)) Then</p><p>　　MsgBox "您輸入的用戶已經(jīng)存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"&

58、lt;/p><p><b>　　rst.Close</b></p><p>　　txt_adduser.SetFocus</p><p>　　txt_adduser.Text = ""</p><p>　　txt_addkey.Text = ""</p><p>

59、;　　cmo_addpower.Clear</p><p>　　Call Form_Load</p><p>　　txt_rekey.Text = ""</p><p><b>　　Else</b></p><p>　　If Trim(txt_addkey.Text) <> Trim(tx

60、t_rekey.Text) Then</p><p>　　MsgBox "兩次輸入的密碼不相同,請(qǐng)重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p>　　txt_addkey.SetFocus</p><p>　　txt_addkey.Text = ""</p

61、><p>　　txt_rekey.Text = ""</p><p><b>　　Else</b></p><p>　　sql = "insert into 用戶表 values(" & "'" & Trim(txt_adduser.Text) & &quo

62、t;'," _</p><p>　　& "'" & Trim(txt_addkey.Text) & "'," _</p><p>　　& "'" & Trim(cmo_addpower) & "'" & &

63、quot;)"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　MsgBox "添加成功", vbOKOnly + vbExclamation, "添加結(jié)果"</p><p>　　txt_adduser.SetFocus</p>&

64、lt;p>　　txt_adduser.Text = ""</p><p>　　txt_addkey.Text = ""</p><p>　　txt_rekey.Text = ""</p><p>　　cmo_addpower.Clear</p><p>　　Call Form_

65、Load</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　

66、Private Sub cmd_cancel_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　With cmo_addpower<

67、/p><p>　　.AddItem "管理員"</p><p>　　.AddItem "普通用戶"</p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　5.2.2 工

68、資設(shè)置代碼</p><p>　　以基本工資中的修改和刪除為例，崗位工資與基本工資雷同，不再贅述。</p><p>　　Private Sub cmd_alter_Click()</p><p>　　If Trim(cmo_scale.Text) = "" Or Trim(txt_money.Text) = "" Then<

69、;/p><p>　　MsgBox "請(qǐng)?zhí)顚?xiě)需要修改的信息！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmo_scale.SetFocus</p><p>　　cmo_scale.Text = ""</p><p>　　txt_money.Te

70、xt = ""</p><p><b>　　Else</b></p><p>　　sql = "select 工資級(jí)別 from 基本工資 where 工資級(jí)別='" & Trim(cmo_scale.Text) & "'"</p><p>　　Set

71、rst = ExecuteSQL(sql, "")</p><p>　　If rst.RecordCount = 0 Then</p><p>　　MsgBox "您輸入的級(jí)別不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　cmo_scale.Se

72、tFocus</p><p>　　cmo_scale.Text = ""</p><p>　　txt_money.Text = ""</p><p><b>　　Else</b></p><p>　　sql = "update 基本工資 set 工資金額='&qu

73、ot; & Trim(txt_money.Text) & "' where 工資級(jí)別='" & Trim(cmo_scale.Text) & "'"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　MsgBox "

74、修改成功！", vbOKOnly + vbInformation, "操作結(jié)果"</p><p>　　cmo_scale.SetFocus</p><p>　　cmo_scale.Text = ""</p><p>　　txt_money.Text = ""</p><p>

75、;　　Call Form_Load</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmd_cancel_Click()</

76、p><p>　　If rst.RecordCount <> 0 Then</p><p>　　If MsgBox("真的要?jiǎng)h除該工資級(jí)別嗎?", vbYesNo + vbQuestion, "警告") = vbYes Then</p><p>　　rst.Delete</p><p>　　Msg

77、Box "刪除成功!", vbInformation, "提示"</p><p>　　cmo_scale.SetFocus</p><p>　　Call Form_Load</p><p><b>　　Else</b></p><p>　　cmo_scale.SetFocus<

78、;/p><p><b>　　End If </b></p><p><b>　　End If</b></p><p><b>　　End sub</b></p><p>　　5.2.3 企業(yè)信息維護(hù)代碼</p><p>　　以員工修改為例，部門(mén)修改雷同。&l

79、t;/p><p>　　Private Sub cmd_add_Click()</p><p>　　If Trim(cmo_number.Text) = "" Then</p><p>　　MsgBox "請(qǐng)?zhí)顚?xiě)員工編號(hào)！"</p><p>　　cmo_number.SetFocus</p>&

80、lt;p><b>　　Else</b></p><p>　　Set rst = ExecuteSQL("select * from 員工信息 where 員工編號(hào)='" & Trim(cmo_number.Text) & "'", "")</p><p>　　If rst

81、.RecordCount <> 0 Then</p><p>　　MsgBox "該員工已經(jīng)存在，請(qǐng)重新輸入員工編號(hào)！", vbOKOnly + vbInformation, "提示"</p><p>　　cmo_number.SetFocus</p><p><b>　　Else</b>&l

82、t;/p><p>　　If Trim(txt_name.Text) = "" Then</p><p>　　MsgBox "員工姓名不允許為空！"</p><p>　　txt_name.SetFocus</p><p><b>　　Else</b></p><p&g

83、t;　　If Trim(cmo_sex.Text) = "" Then</p><p>　　MsgBox "性別不允許為空！"</p><p>　　cmo_sex.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(cmo_dept.

84、Text) = "" Then</p><p>　　MsgBox "員工部門(mén)不允許為空！"</p><p>　　cmo_dept.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(cmo_education.Text) = &quo

85、t;" Then</p><p>　　MsgBox "員工文化程度不允許為空！"</p><p>　　cmo_education.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(txt_title.Text) = ""

86、Then</p><p>　　MsgBox "職稱(chēng)不允許為空！"</p><p>　　txt_title.SetFocus</p><p><b>　　Else</b></p><p>　　sql = "insert into 員工信息 values (" & "

87、'" & Trim(cmo_number.Text) & "'," _</p><p>　　& "'" & Trim(txt_name.Text) & "'," _</p><p>　　& "'" & Tr

88、im(cmo_sex.Text) & "'," _</p><p>　　& "'" & Trim(DTPbirthday.Value) & "'," _</p><p>　　& "'" & Trim(cmo_dept.Text) &

89、amp; "'," _</p><p>　　& "'" & Trim(cmo_education.Text) & "'," _</p><p>　　& "'" & Trim(txt_title.Text) & "'

90、)"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　cmo_number.SetFocus</p><p>　　cmo_number.Clear</p><p>　　txt_name.Text = ""</p><p&g

91、t;　　cmo_sex.Text = "男"</p><p>　　cmo_dept.Clear</p><p>　　cmo_education.Clear</p><p>　　DTPbirthday.Refresh</p><p>　　txt_title.Text = ""</p><

92、;p>　　Call Form_Load</p><p>　　MsgBox "操作成功！", vbOKOnly + vbInformation, "操作結(jié)果"</p><p><b>　　End If</b></p><p><b>　　End If</b></p>

93、<p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If&

94、lt;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　sql = "select 員工編號(hào) from 員工信息 "</p><p>　　Set rst = ExecuteSQL(sql, &quo

95、t;")</p><p>　　For i = 1 To rst.RecordCount</p><p>　　cmo_number.AddItem (rst.Fields(0))</p><p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p>

96、;　　sql = "select 部門(mén)編號(hào) from 部門(mén)信息 "</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　For i = 1 To rst.RecordCount</p><p>　　cmo_dept.AddItem (rst.Fields(0))</p>

97、;<p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p>　　With cmo_education</p><p>　　.AddItem "高中以下"</p><p>　　.AddItem "高中"</p>

98、<p>　　.AddItem "中專(zhuān)"</p><p>　　.AddItem "大專(zhuān)"</p><p>　　.AddItem "本科"</p><p>　　.AddItem "研碩"</p><p>　　.AddItem "博士"&

99、lt;/p><p>　　.AddItem "博士后"</p><p><b>　　End With</b></p><p>　　sql = "select * from 員工信息 "</p><p>　　Set rst = ExecuteSQL(sql, "")&l

100、t;/p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End Sub</b></p><p>　　5.2.4 查詢員工信息</p><p>　　Private Sub cmd_single_Click()</p><p>　　Dim sql A

101、s String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　If Trim(cmo_number.Text) = "" Then</p><p>　　MsgBox "請(qǐng)選擇員工編號(hào)！", vbOKOnly + vbExclamation, "警告"<

102、/p><p>　　cmo_number.SetFocus</p><p><b>　　Else</b></p><p>　　If Trim(cmo_number.Text) <> username And power <> "管理員" Then</p><p>　　MsgBox &

103、quot;你不能查看其他員工的工資信息！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Else</b></p><p>　　sql = "select * from 工資信息 where 員工編號(hào)='" & Trim(cmo_number.Text) &

104、amp; "'"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　Set DataGrid1.DataSource = rst</p><p><b>　　End If</b></p><p><b>　　End

105、 If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim sql As String</p><p>　　Dim rst As ADODB.Recordset</p><p>　　

106、sql = "select 員工編號(hào) from 工資信息"</p><p>　　Set rst = ExecuteSQL(sql, "")</p><p>　　For i = 1 To rst.RecordCount</p><p>　　cmo_number.AddItem (rst.Fields(0))</p>

107、<p>　　rst.MoveNext</p><p><b>　　Next i</b></p><p><b>　　End Sub</b></p><p><b>　　各模塊設(shè)計(jì)要點(diǎn)</b></p><p>　　6.1 登錄模塊設(shè)計(jì)</p><p

108、>　　登錄模塊是所有用戶進(jìn)入工資管理系統(tǒng)的唯一途徑，除了確定用戶類(lèi)型以外，還要注意用戶登錄的密碼是否與后臺(tái)數(shù)據(jù)庫(kù)的一致，如果不一致則會(huì)彈出圖4.2所示的提示信息。用戶在登錄模塊出現(xiàn)的所有情況我都予以考慮了。在用戶登錄時(shí)根據(jù)判斷用戶的權(quán)限，在模塊中有“If power <> "管理員" Then frm_main.set.Enabled = False frm_main.defend = Fal

109、se”的代碼，此項(xiàng)決定了主界面的操作模塊。</p><p>　　在調(diào)試所有登錄情況都成功后，我想到了一種惡意登錄此系統(tǒng)的情況，因此我設(shè)置了“try_times”來(lái)限制用戶的強(qiáng)制登錄如圖4.3所示。</p><p><b>　　6.3用戶管理設(shè)計(jì)</b></p><p>　　在添加用戶模塊中，我仿造了一般填寫(xiě)信息時(shí)的方法設(shè)計(jì)了“確認(rèn)密碼”操作，如

110、果在操作錯(cuò)誤時(shí)候會(huì)彈出如圖6.1所示的提示信息，點(diǎn)擊確定后，鼠標(biāo)自動(dòng)停在密碼文本框中，用戶不需要再次輸入用戶名，在此說(shuō)明一下，在我做的系統(tǒng)中幾乎所有的錯(cuò)誤轉(zhuǎn)移都有如上的提示和獲得焦點(diǎn)的操作。</p><p>　　刪除用戶模塊中，在用戶點(diǎn)擊了確定按鈕以后，會(huì)有如圖4.8所示的對(duì)話框，為用戶刪除考慮了情況。</p><p>　　圖6.1 “確認(rèn)密碼”錯(cuò)誤</p><p>

111、;　　6.3 信息管理設(shè)計(jì)</p><p>　　這個(gè)部門(mén)主要由部門(mén)信息和員工信息組成，發(fā)放工資是對(duì)員工工資的管理，部門(mén)信息的設(shè)置和員工信息設(shè)置基本相同。</p><p>　　員工信息中引用了“DTPicker”控件，默認(rèn)的日期為登錄的日期，用戶可以點(diǎn)擊直接更改日期，增強(qiáng)了程序的完整性。還有值得一提的是在員工信息錄入的時(shí)候，由于后臺(tái)數(shù)據(jù)庫(kù)“性別”設(shè)置默認(rèn)為“男”，因此我設(shè)置了默認(rèn)為“男”的操

112、作，具體看代碼中敘述。如果用戶沒(méi)有完成信息的錄入?yún)s點(diǎn)擊了“確定”按鈕后，會(huì)出現(xiàn)如圖6.2的對(duì)話框。如果用戶在使用添加按鈕時(shí)，輸入了一個(gè)已經(jīng)存在的員工編號(hào)，根據(jù)主鍵的不可重復(fù)性，員工信息不能插入后臺(tái)數(shù)據(jù)庫(kù)，則會(huì)彈出如圖6.3所示的對(duì)話框。</p><p>　　圖6.1 提示信息 圖6.3 添加存在情況</p><p>　　發(fā)放工資主要是對(duì)企業(yè)已有員工的工資設(shè)置，提

113、供了添加、修改和刪除操作。添加操作和修改操作都在一個(gè)對(duì)話框中進(jìn)行，根據(jù)數(shù)據(jù)庫(kù)數(shù)據(jù)參照完整性，其中基本工資和崗位工資必須是已經(jīng)存在的級(jí)別，其文本框被設(shè)置為“只讀”屬性，用戶不可自動(dòng)輸入信息。</p><p>　　6.4 查詢工資設(shè)計(jì)</p><p>　　查詢工資時(shí)主要考慮 用戶的權(quán)限問(wèn)題，主要在登錄模塊中用全局變量記錄了用戶的權(quán)限，在用戶點(diǎn)擊確定以后系統(tǒng)會(huì)統(tǒng)計(jì)權(quán)限，分配給用戶正確的查詢工資的

114、方法。</p><p><b>　　第七章 結(jié)束語(yǔ)</b></p><p>　　此次課程設(shè)計(jì)歷程半個(gè)多學(xué)期，期間包括自學(xué)Visual Basic 6.0 教程、課程代碼設(shè)計(jì)和課程實(shí)際報(bào)告的過(guò)程。這個(gè)過(guò)程給我的感觸有以下幾點(diǎn)：</p><p>　　一、看似簡(jiǎn)單，其實(shí)不然</p><p>　　以前沒(méi)有過(guò)課程設(shè)計(jì)的經(jīng)驗(yàn)，作為第

115、一次課程設(shè)計(jì)課，我抱著試試看的態(tài)度去寫(xiě)，一開(kāi)始看了只有這么幾個(gè)模塊是心里挺高興的，但是當(dāng)我真真正正地去把一個(gè)操作寫(xiě)成功時(shí)，很多意想不到的情況發(fā)生了。有時(shí)候會(huì)為了一個(gè)操作不能調(diào)試成功而整個(gè)晚上都不能去安心做其他的作業(yè)。</p><p><b>　　冷靜沉著、兢兢業(yè)業(yè)</b></p><p>　　編程是一個(gè)很繁瑣的過(guò)程，要考慮到很多錯(cuò)誤轉(zhuǎn)移情況，在這期間會(huì)有很多以前不曾想

116、過(guò)的問(wèn)題出現(xiàn)，次數(shù)多了，不免會(huì)有覺(jué)得做不下去的感覺(jué)。但是我從中發(fā)現(xiàn)，只要一步一步調(diào)試、靜下心來(lái)看待問(wèn)題，再?gòu)?fù)雜再微小的問(wèn)題都會(huì)迎刃而解，當(dāng)一個(gè)程序被調(diào)試出來(lái)時(shí)，那時(shí)的快樂(lè)相比與任何困難都值得的。</p><p><b>　　立足程序、回歸書(shū)本</b></p><p>　　在著手寫(xiě)程序時(shí)覺(jué)得思路一片混亂，無(wú)意間出現(xiàn)的問(wèn)題會(huì)不知道怎么解決。這時(shí)，需要回歸書(shū)本，書(shū)本是前人總

117、結(jié)的經(jīng)驗(yàn)，幾乎所有情況都會(huì)有解決方法。只有把書(shū)本“吃透”，在遇到問(wèn)題是才會(huì)反應(yīng)快。</p><p><b>　　致謝</b></p><p>　　在課程設(shè)計(jì)的大半個(gè)學(xué)期中，都是由我的指導(dǎo)老師xx老師指引下完成，在此，我向xx老師致以誠(chéng)摯的謝意。由于此次設(shè)計(jì)的主要語(yǔ)言Visual Basic 語(yǔ)言沒(méi)有經(jīng)過(guò)正式的教學(xué)，在很多方面都還存在一知半解的情況，而xx老師多次幫我解

118、釋重點(diǎn)、分析程序，特別在課程設(shè)計(jì)報(bào)告的時(shí)候給予了很多的指導(dǎo)。在他的悉心指導(dǎo)下，我不僅學(xué)到了扎實(shí)的文化知識(shí)，也在為人處世方面受益匪淺，尤其是一次次xx老師在鼓勵(lì)我們的話語(yǔ)，我想在我以后每一次遇到困難時(shí)都會(huì)歷歷在目。</p><p>　　然后我要感謝我的同窗同學(xué)，在此次課程設(shè)計(jì)過(guò)程中與他們探討深究，使我受益頗多，在此，我表示衷心的感謝. </p><p><b>　　參考文獻(xiàn)<

119、;/b></p><p>　　Visual Basic 教程[M] 清華大學(xué)出版社 鄭阿奇 主編 曹戈 編著 </p><p>　　Visual Basic 信息系統(tǒng)開(kāi)發(fā)實(shí)例精選[M] 機(jī)械工業(yè)出版社 賽奎春 主編 高春艷 李俊民 張耀庭 等編著</p><p>　　Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例解析[M] 機(jī)械工業(yè)出版