數(shù)據(jù)庫(kù)課程設(shè)計(jì)(VB編程)工資管理系統(tǒng)

1、數(shù)據(jù)庫(kù)課程設(shè)計(jì)報(bào)告企業(yè)員工工資管理系統(tǒng)摘 要企業(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)、實(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ú)編寫。其系統(tǒng)的設(shè)計(jì)主要包括數(shù)據(jù)庫(kù)的設(shè)計(jì)、維護(hù)和應(yīng)用界面的設(shè)計(jì)與后臺(tái)數(shù)據(jù)庫(kù)的連接

2、。經(jīng)分析采用Microsoft 公司開(kāi)發(fā)的Visual Basic 6.0為開(kāi)發(fā)工具，Microsoft SQL sever 2000 為后臺(tái)數(shù)據(jù)庫(kù)。Visual Basic (簡(jiǎn)稱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é)者最理想的編程語(yǔ)言，也是專業(yè)人員得心應(yīng)手的開(kāi)發(fā)工具。它在一個(gè)公共環(huán)境里集成了許多不同的功能，例如，設(shè)計(jì)、編輯、編譯和調(diào)試。目前市場(chǎng)上數(shù)據(jù)庫(kù)的主流廠商及產(chǎn)品有IBM D

3、B2、Microsoft SQL SERVER 2000、ORACLE 9i、Sybase。Microsoft SQL Server 2000是在SQL Server 7.0的基礎(chǔ)上對(duì)性能、可靠性、質(zhì)量以及易用性進(jìn)行了擴(kuò)展。SQL Server 2000中包含許多新特性，這些特性使其成為針對(duì)電子商務(wù)、數(shù)據(jù)倉(cāng)庫(kù)和在線商務(wù)解決方案的卓越的數(shù)據(jù)庫(kù)平臺(tái)。其增強(qiáng)的特性包括對(duì)豐富的擴(kuò)展標(biāo)記語(yǔ)言（XML）的支持、綜合分析服務(wù)以及便捷的數(shù)據(jù)庫(kù)管理。Microsoft SQL Server 2000簡(jiǎn)化了管理、優(yōu)化工作，并且增強(qiáng)了迅速、成功的部署在線商務(wù)應(yīng)用程序所需的可靠性和伸縮性。關(guān)鍵詞：工資管理系統(tǒng)、設(shè)計(jì)、

4、開(kāi)發(fā)工具目錄摘 要 1目錄 2第一章 緒論 31.1 問(wèn)題的提出 31.2 系統(tǒng)設(shè)計(jì)功能 3第二章 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì) 52.1 數(shù)據(jù)庫(kù)分析設(shè)計(jì) 52.2 數(shù)據(jù)各個(gè)表之間的關(guān)系 6第三章 各個(gè)關(guān)系間的數(shù)據(jù)結(jié)構(gòu) 73.1 系統(tǒng)設(shè)計(jì)目標(biāo) 73.2 系統(tǒng)概要分析 7第四章 企業(yè)工資管理系統(tǒng)應(yīng)用設(shè)計(jì) 94.1 企業(yè)工資管理系統(tǒng)設(shè)計(jì) 94.2 子模塊的設(shè)計(jì) 10第五章 各個(gè)模塊部門代碼 155.1登陸界面 155.2 各個(gè)子模塊代碼設(shè)置 16第六章 各模塊設(shè)計(jì)要點(diǎn) 236.1 登錄模塊設(shè)計(jì) 236.3用戶管理設(shè)計(jì) 236.3 信息管理設(shè)計(jì) 236.4 查詢工資設(shè)計(jì) 24第七章 結(jié)束語(yǔ) 25致謝 26參考文獻(xiàn)

5、 27第1章 緒論1.1 問(wèn)題的提出隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫不慎或計(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ì)量，提高工作效率，這些都在很大程度上給企業(yè)提出越來(lái)越嚴(yán)峻的挑戰(zhàn)，對(duì)企業(yè)體系無(wú)論是在行政職能、企業(yè)管理水平以及優(yōu)質(zhì)服務(wù)上都提出更高的要求。建設(shè)一個(gè)科學(xué)高效的信息管理系統(tǒng)是解決這一問(wèn)題的

6、必由之路。企業(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)許多的不便?；谝陨显颍髽I(yè)工資管理系統(tǒng)使用電腦安全保存、快速計(jì)算、全面統(tǒng)計(jì)，實(shí)現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動(dòng)化。工資管理系統(tǒng)是企、事業(yè)單位常見(jiàn)的計(jì)算機(jī)信息管理系統(tǒng)。它的主要任務(wù)是對(duì)各種工資信息進(jìn)行日常的信息管理，如工資信息的輸入、查詢、修改、增加、刪除，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總，快速打印出報(bào)表。在建立與實(shí)現(xiàn)工資管理系

7、統(tǒng)時(shí)，進(jìn)行了功能劃分，能夠由數(shù)據(jù)庫(kù)管理系統(tǒng)完成的功能應(yīng)盡可能由數(shù)據(jù)庫(kù)管理系統(tǒng)守成，充分發(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è)員工工資管理的需要。1.2 系統(tǒng)設(shè)計(jì)功能企業(yè)工資管理系統(tǒng)的主要任務(wù)是用計(jì)算機(jī)對(duì)各種工資信息進(jìn)行日常的管理，如查詢、修改、添加、刪除以及存儲(chǔ)等，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總工作，針對(duì)系統(tǒng)服務(wù)對(duì)象的具體要求，

8、設(shè)計(jì)了企業(yè)工資管理系統(tǒng)。企業(yè)工資管理系統(tǒng)主要有以下幾大功能：(1 對(duì)單位人員的變動(dòng)進(jìn)行處理。一個(gè)單位的職工不會(huì)是一成不變的，總是在不斷的變化：有調(diào)出、有調(diào)入、也有職工在本單位內(nèi)部調(diào)動(dòng)。因此，設(shè)計(jì)系統(tǒng)是應(yīng)考慮到這些情況。(2 對(duì)職工的工資進(jìn)行計(jì)算、修改?？梢詫?duì)職工的工資檔案進(jìn)行個(gè)別、部分和批量修改，同時(shí)，能對(duì)各職工的工資進(jìn)行計(jì)算，即計(jì)算基本工資、崗位工資、水電費(fèi)及實(shí)發(fā)金額等。(3 查詢統(tǒng)計(jì)功能。要求即可以單項(xiàng)查詢，比如查看某個(gè)職工的工資情況等；也可以多項(xiàng)查詢，比如某個(gè)部門所有的員工的工資信息。（4）對(duì)用戶管理功能。一個(gè)系統(tǒng)的應(yīng)用有管理員和普通用戶，他們對(duì)系統(tǒng)的權(quán)限受到限制。第二章 數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)

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

10、、修改和查詢。這就要求各種信息中存在實(shí)體完整性、參照完整性和用戶自定義完整性。搜集了各項(xiàng)要求，故數(shù)據(jù)項(xiàng)要求設(shè)計(jì)如下：表2.1員工信息表鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵員工編號(hào)char8不可以姓名char8不可以性別char2可以“男”出生年月datetime8可以外鍵所屬部門char4可以文化程度char4可以職稱char12可以表2.2 部門信息鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵部門編號(hào)char4不可以部門名稱char20可以部門負(fù)責(zé)人char8可以部門人數(shù)int4可以表2.3 基本工資鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵工資級(jí)別char2可以工資金額numeric5(8,2不可以表2.4崗位工資鍵名稱

11、數(shù)據(jù)類型大小空默認(rèn)值主鍵工資級(jí)別char2可以工資金額numeric5(8,2不可以表2.5工資信息鍵名稱數(shù)據(jù)類型大小空默認(rèn)值主鍵、外鍵員工編號(hào)char8不可以外鍵部門編號(hào)char4可以基本工資numeric5(8,2可以崗位工資numeric5(8,2可以水電費(fèi)numeric5(8,2可以實(shí)發(fā)工資numeric5(8,2可以2.2 數(shù)據(jù)各個(gè)表之間的關(guān)系在設(shè)計(jì)過(guò)程中，從用戶的角度考慮來(lái)處理各個(gè)表之間的約束關(guān)系，把概念模式轉(zhuǎn)化成邏輯模式最終形成E-R圖。員工信息表(員工編號(hào)、姓名、性別、出生年月、所屬部門、文化程度、職稱部門信息表(部門編號(hào)、部門名稱、部門負(fù)責(zé)人、部門人數(shù)基本工資表(工資級(jí)別、工

12、資金額崗位工資表(工資級(jí)別、工資金額工資信息表(員工編號(hào)、部門編號(hào)、基本工資、崗位工資、水電費(fèi)、實(shí)發(fā)工資各個(gè)模塊之間的關(guān)系,如圖2.1所示。圖2.1 各表之間的聯(lián)系第三章 各個(gè)關(guān)系間的數(shù)據(jù)結(jié)構(gòu)3.1 系統(tǒng)設(shè)計(jì)目標(biāo)開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的員工管理。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。·企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如水電費(fèi)。·企業(yè)信息管理部分：包括員工信息、部門信息和發(fā)放工資（工資信息）。·企業(yè)員工查詢部分：包括按員工查詢和按部門查詢。

13、·系統(tǒng)部分：包括添加用戶、修改用戶信息。3.2 系統(tǒng)概要分析用戶在使用一個(gè)系統(tǒng)時(shí)，必須先登錄操作界面，在操作完成后然后再退出，其操作如圖3.1所示。注銷圖3.1 系統(tǒng)流程圖說(shuō)明：操作員進(jìn)入管理系統(tǒng)的身份不同，所獲得的權(quán)限也不同，普通用戶只可以查詢自己的工資情況，而且部門對(duì)自己的所有信息進(jìn)行更改。圖3.2 用戶操作模塊說(shuō)明：管理員可以對(duì)所有模塊進(jìn)行操作，普通用戶只可以進(jìn)行查詢員工工資的權(quán)限。說(shuō)明：在各個(gè)子模塊操作時(shí)用戶同時(shí)在實(shí)現(xiàn)更改的時(shí)候在對(duì)話框上的網(wǎng)格看到后臺(tái)數(shù)據(jù)庫(kù)最新的動(dòng)態(tài)。各個(gè)模塊簡(jiǎn)介：登錄模塊：主要完成用戶的登錄信息核對(duì)并進(jìn)入主界面。用戶管理模塊：主要完成對(duì)用戶信息的添加、修改

14、和刪除功能。信息設(shè)置模塊：主要對(duì)企業(yè)內(nèi)部員工和部門的管理。工資查詢模塊：主要完成對(duì)員工工資的查詢。第四章 企業(yè)工資管理系統(tǒng)應(yīng)用設(shè)計(jì)4.1 企業(yè)工資管理系統(tǒng)設(shè)計(jì)“登錄模塊”的設(shè)計(jì)主要是針對(duì)用戶登錄界面的設(shè)計(jì)，判斷用戶是管理員還是普通用戶，從而進(jìn)入主界面。登陸界面主要由用戶名和密碼的信息，還有標(biāo)題的設(shè)置，登錄和取消按鈕的設(shè)置。用戶只有選擇用戶名后填入相應(yīng)的密碼后點(diǎn)擊“登錄”才能進(jìn)入主界面，點(diǎn)擊“取消”會(huì)退出系統(tǒng)。由此，登陸界面設(shè)計(jì)如圖4.1所示圖4.1 登陸界面設(shè)計(jì)界面若用戶對(duì)此有操作上的錯(cuò)誤，我設(shè)計(jì)的特點(diǎn)是都有提示的對(duì)話框（幾乎每個(gè)窗體都設(shè)置了如下操作，除了特殊的提示外，為節(jié)省打印紙張，相同的提

15、示在以后的篇幅中不再一一寫出），如圖4.2所示 4.2 操作錯(cuò)誤提示若用戶三次輸入密碼錯(cuò)誤，系統(tǒng)會(huì)認(rèn)為惡意進(jìn)入，系統(tǒng)自動(dòng)關(guān)閉。如圖4.3所示圖4.3 強(qiáng)制關(guān)閉圖主界面的設(shè)計(jì)是由菜單編輯器生成，主要由系統(tǒng)設(shè)置、設(shè)置、信息維護(hù)、工資查詢五個(gè)模塊組成。其作用是使程序更加有條有理，有利于管理。其中普通用戶只可部分操作，管理員可以對(duì)所有模塊進(jìn)行操作。主界面設(shè)計(jì)如圖4.4所示：圖4.4 主界面設(shè)計(jì)圖4.2 子模塊的設(shè)計(jì)為了防止用戶在輸入密碼時(shí)按錯(cuò)鍵或者一時(shí)忘記密碼，我在設(shè)計(jì)的時(shí)候運(yùn)用了“確認(rèn)密碼”的文本框，其屬性與密碼項(xiàng)相同?？梢杂脕?lái)矯正用戶一時(shí)的粗心大意目的，完善了系統(tǒng)的完整性。圖4.5 用戶添加圖4.

16、6 用戶修改關(guān)于用戶管理的子菜單，只有管理員有權(quán)限進(jìn)入設(shè)置。圖4.7 基本工資設(shè)置 圖4.8 確定刪除對(duì)話框 圖4.9 部門管理設(shè)置用戶可以在工資信息中輸入員工的工資信息，由于添加和修改的操作同時(shí)在一個(gè)窗體中進(jìn)行，員工編號(hào)不知道要添加的哪一個(gè)，所以員工編號(hào)的下拉按鈕不是“只讀”屬性，用戶在輸入員工編號(hào)時(shí)應(yīng)輸入一個(gè)存在的員工，不然則彈出如圖4.11所示的提示框。 圖4.10工資信息設(shè)置 圖4.11 員工不存在提示管理員可以查看所有人的工資情況，但是普通用戶只可以查看自己的工資情況，別人的工資情況不允許查看。圖4.12 按員工查詢第五章 各個(gè)模塊部門代碼5.1登陸界面Static try_time

17、s As Integer Dim sql As StringDim rst As ADODB.RecordsetIf Trim(cmo_user.Text = "" ThenMsgBox "請(qǐng)選擇用戶名", vbOKOnly + vbInformation, "提示"cmo_user.SetFocusElseIf Trim(txt_key.Text = "" ThenMsgBox "請(qǐng)輸入密碼", vbOKOnly + vbExclamation, "提示"txt_key.S

18、etFocusElsesql = "select * from 用戶表 where 用戶名='" & Trim(cmo_user.Text & "'"Set rst = ExecuteSQL(sql, ""If Trim(rst.Fields(1 = Trim(txt_key.Text Thentempuser = Trim(cmo_user.Textpower = Trim(rst.Fields(2username = Trim(cmo_user.Textrst.Closefrm_main.ShowU

19、nload MeIf power <> "管理員" Thenfrm_main.defend = FalseEnd IfElseMsgBox "密碼不正確，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告"txt_key.SetFocustxt_key.Text = ""try_times = try_times + 1If try_times = 3 ThenMsgBox "您已三次嘗試進(jìn)入本系統(tǒng)失敗，系統(tǒng)將自動(dòng)關(guān)閉", vbOKOnly + vbExcla

20、mation, "結(jié)束"Unload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As IntegerDim sql As StringDim rst As ADODB.Recordsetsql = "select 用戶名 from 用戶表 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountcmo_user.AddItem (rst.Fields(0rst.MoveNextNext irst.C

21、loseEnd Sub5.2 各個(gè)子模塊代碼設(shè)置Private Sub cmd_add_Click(Dim rst As ADODB.RecordsetDim sql As StringDim i As IntegerIf Trim(txt_adduser.Text = "" Or Trim(txt_addkey.Text = "" Or Trim(cmo_addpower = "" ThenMsgBox "請(qǐng)將用戶信息填寫完整！", vbOKOnly + vbExclamation, "警告"

22、txt_adduser.SetFocustxt_adduser.Text = ""txt_addkey.Text = ""txt_rekey.Text = ""cmo_addpower.ClearCall Form_LoadElsesql = "select 用戶名 from 用戶表"Set rst = ExecuteSQL(sql, ""If Trim(txt_adduser.Text = Trim(rst.Fields(0 ThenMsgBox "您輸入的用戶已經(jīng)存在，請(qǐng)重新輸入！

23、", vbOKOnly + vbExclamation, "警告"rst.Closetxt_adduser.SetFocustxt_adduser.Text = ""txt_addkey.Text = ""cmo_addpower.ClearCall Form_Loadtxt_rekey.Text = ""ElseIf Trim(txt_addkey.Text <> Trim(txt_rekey.Text ThenMsgBox "兩次輸入的密碼不相同,請(qǐng)重新輸入!", vb

24、OKOnly + vbExclamation, "警告"txt_addkey.SetFocustxt_addkey.Text = ""txt_rekey.Text = ""Elsesql = "insert into 用戶表 values(" & "'" & Trim(txt_adduser.Text & "'," _& "'" & Trim(txt_addkey.Text & &qu

25、ot;'," _& "'" & Trim(cmo_addpower & "'" & ""Set rst = ExecuteSQL(sql, ""MsgBox "添加成功", vbOKOnly + vbExclamation, "添加結(jié)果"txt_adduser.SetFocustxt_adduser.Text = ""txt_addkey.Text = ""txt_rek

26、ey.Text = ""cmo_addpower.ClearCall Form_LoadEnd IfEnd IfEnd IfEnd SubPrivate Sub cmd_cancel_Click(Unload MeEnd SubPrivate Sub Form_Load(With cmo_addpower.AddItem "管理員".AddItem "普通用戶"End WithEnd Sub以基本工資中的修改和刪除為例，崗位工資與基本工資雷同，不再贅述。Private Sub cmd_alter_Click(If Trim(cmo_s

27、cale.Text = "" Or Trim(txt_money.Text = "" ThenMsgBox "請(qǐng)?zhí)顚懶枰薷牡男畔ⅲ?quot;, vbOKOnly + vbExclamation, "警告"cmo_scale.SetFocuscmo_scale.Text = ""txt_money.Text = ""Elsesql = "select 工資級(jí)別 from 基本工資 where 工資級(jí)別='" & Trim(cmo_scale.Tex

28、t & "'"Set rst = ExecuteSQL(sql, ""If rst.RecordCount = 0 ThenMsgBox "您輸入的級(jí)別不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"cmo_scale.SetFocuscmo_scale.Text = ""txt_money.Text = ""Elsesql = "update 基本工資 set 工資金額='" & Tr

29、im(txt_money.Text & "' where 工資級(jí)別='" & Trim(cmo_scale.Text & "'"Set rst = ExecuteSQL(sql, ""MsgBox "修改成功！", vbOKOnly + vbInformation, "操作結(jié)果"cmo_scale.SetFocuscmo_scale.Text = ""txt_money.Text = ""Call Form_

30、LoadEnd IfEnd IfEnd SubPrivate Sub cmd_cancel_Click(If rst.RecordCount <> 0 ThenIf MsgBox("真的要?jiǎng)h除該工資級(jí)別嗎?", vbYesNo + vbQuestion, "警告" = vbYes Thenrst.DeleteMsgBox "刪除成功!", vbInformation, "提示"cmo_scale.SetFocusCall Form_LoadElsecmo_scale.SetFocusEnd If End

31、 IfEnd sub以員工修改為例，部門修改雷同。Private Sub cmd_add_Click(If Trim(cmo_number.Text = "" ThenMsgBox "請(qǐng)?zhí)顚憜T工編號(hào)！"cmo_number.SetFocusElseSet rst = ExecuteSQL("select * from 員工信息 where 員工編號(hào)='" & Trim(cmo_number.Text & "'", ""If rst.RecordCount <

32、> 0 ThenMsgBox "該員工已經(jīng)存在，請(qǐng)重新輸入員工編號(hào)！", vbOKOnly + vbInformation, "提示"cmo_number.SetFocusElseIf Trim(txt_name.Text = "" ThenMsgBox "員工姓名不允許為空！"txt_name.SetFocusElseIf Trim(cmo_sex.Text = "" ThenMsgBox "性別不允許為空！"cmo_sex.SetFocusElseIf Trim(c

33、mo_dept.Text = "" ThenMsgBox "員工部門不允許為空！"cmo_dept.SetFocusElseIf Trim(cmo_education.Text = "" ThenMsgBox "員工文化程度不允許為空！"cmo_education.SetFocusElseIf Trim(txt_title.Text = "" ThenMsgBox "職稱不允許為空！"txt_title.SetFocusElsesql = "insert into

34、員工信息 values (" & "'" & Trim(cmo_number.Text & "'," _& "'" & Trim(txt_name.Text & "'," _& "'" & Trim(cmo_sex.Text & "'," _& "'" & Trim(DTPbirthday.Value &

35、amp; "'," _& "'" & Trim(cmo_dept.Text & "'," _& "'" & Trim(cmo_education.Text & "'," _& "'" & Trim(txt_title.Text & "'"Set rst = ExecuteSQL(sql, ""cmo_numbe

36、r.SetFocuscmo_number.Cleartxt_name.Text = ""cmo_sex.Text = "男"cmo_dept.Clearcmo_education.ClearDTPbirthday.Refreshtxt_title.Text = ""Call Form_LoadMsgBox "操作成功！", vbOKOnly + vbInformation, "操作結(jié)果"End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivat

37、e Sub Form_Load(sql = "select 員工編號(hào) from 員工信息 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountcmo_number.AddItem (rst.Fields(0rst.MoveNextNext isql = "select 部門編號(hào) from 部門信息 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountcmo_dept.AddItem (rst.

38、Fields(0rst.MoveNextNext iWith cmo_education.AddItem "高中以下".AddItem "高中".AddItem "中專".AddItem "大專".AddItem "本科".AddItem "研碩".AddItem "博士".AddItem "博士后"End Withsql = "select * from 員工信息 "Set rst = ExecuteSQL(sql

39、, ""Set DataGrid1.DataSource = rstEnd SubPrivate Sub cmd_single_Click(Dim sql As StringDim rst As ADODB.RecordsetIf Trim(cmo_number.Text = "" ThenMsgBox "請(qǐng)選擇員工編號(hào)！", vbOKOnly + vbExclamation, "警告"cmo_number.SetFocusElseIf Trim(cmo_number.Text <> username

40、And power <> "管理員" ThenMsgBox "你不能查看其他員工的工資信息！", vbOKOnly + vbExclamation, "警告"Elsesql = "select * from 工資信息 where 員工編號(hào)='" & Trim(cmo_number.Text & "'"Set rst = ExecuteSQL(sql, ""Set DataGrid1.DataSource = rstEnd IfEnd

41、 IfEnd SubPrivate Sub Form_Load(Dim sql As StringDim rst As ADODB.Recordsetsql = "select 員工編號(hào) from 工資信息"Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountcmo_number.AddItem (rst.Fields(0rst.MoveNextNext iEnd Sub第6章 各模塊設(shè)計(jì)要點(diǎn)6.1 登錄模塊設(shè)計(jì)登錄模塊是所有用戶進(jìn)入工資管理系統(tǒng)的唯一途徑，除了確定用戶類型以外，還要注意用戶登錄

42、的密碼是否與后臺(tái)數(shù)據(jù)庫(kù)的一致，如果不一致則會(huì)彈出圖4.2所示的提示信息。用戶在登錄模塊出現(xiàn)的所有情況我都予以考慮了。在用戶登錄時(shí)根據(jù)判斷用戶的權(quán)限，在模塊中有“If power <> "管理員”的代碼，此項(xiàng)決定了主界面的操作模塊。在調(diào)試所有登錄情況都成功后，我想到了一種惡意登錄此系統(tǒng)的情況，因此我設(shè)置了“try_times”來(lái)限制用戶的強(qiáng)制登錄如圖4.3所示。6.3用戶管理設(shè)計(jì)在添加用戶模塊中，我仿造了一般填寫信息時(shí)的方法設(shè)計(jì)了“確認(rèn)密碼”操作，如果在操作錯(cuò)誤時(shí)候會(huì)彈出如圖6.1所示的提示信息，點(diǎn)擊確定后，鼠標(biāo)自動(dòng)停在密碼文本框中，用戶不需要再次輸入用戶名，在此說(shuō)明一下，在我做的系統(tǒng)中幾乎所有的錯(cuò)誤轉(zhuǎn)移都有如上的提示和獲得焦點(diǎn)的操作。刪除用戶模塊中，在用戶點(diǎn)擊了確定按鈕以后，會(huì)有如圖4.8所示的對(duì)話框，為用戶刪除考慮了情況。圖6.1 “確認(rèn)密碼”錯(cuò)誤6.3 信息管理設(shè)計(jì)這個(gè)部門主要由部門信息和員工信息組成，發(fā)放工資是對(duì)員工工資的管理，