PAGE36數(shù)據(jù)庫課程程設(shè)計報報告企業(yè)員工工工資管理理系統(tǒng)摘要企業(yè)的工資資管理是是公司管管理的一一個重要要內(nèi)容。工工資管理理既涉及及到企業(yè)業(yè)勞動人人事的管管理，同同時也是是企業(yè)財財務(wù)管理理的重要要組成部部分。工工資管理理需要和和人事管管理相聯(lián)聯(lián)系，同同時連接接工時考考勤和醫(yī)醫(yī)療保險險等等，來來生成企企業(yè)每個個職工的的基本工工資、津津貼、醫(yī)醫(yī)療保險險、保險險費、實實際發(fā)放放工資等等。資金金是企業(yè)業(yè)生存的的主要元元素，資資金的流流動影響響到企業(yè)業(yè)的整體體運作，企企業(yè)員工工的工資資是企業(yè)業(yè)資金管管理的一一個重要要的組成成部分。但但考慮到到學(xué)生的的開發(fā)時時間，本本次設(shè)計計主要闡闡述員工工工資管管理系統(tǒng)統(tǒng)主要是是以企業(yè)業(yè)員工工工資情況況為對象象而開發(fā)發(fā)的。涉涉及系統(tǒng)統(tǒng)比較小小，有利利于學(xué)生生單獨編編寫。其其系統(tǒng)的的設(shè)計主主要包括括數(shù)據(jù)庫庫的設(shè)計計、維護護和應(yīng)用用界面的的設(shè)計與與后臺數(shù)數(shù)據(jù)庫的的連接。經(jīng)經(jīng)分析采采用Miicroosofft公公司開發(fā)發(fā)的ViisuaalBBasiic66.0為為開發(fā)工工具，MMicrrosooftSQLLseeverr20000為后臺臺數(shù)據(jù)庫庫。ViisuaalBBasiic((簡稱VVB)是是由Miicroosofft公司司推出的的在Wiindoows操操作平臺臺下最迅迅速、最最簡捷的的應(yīng)用開開發(fā)工具具之一。它引入了面向?qū)ο蟮某绦蛟O(shè)計思想和“控件”的概念，使得大量已經(jīng)編好的VisualBasic程序可以直接拿來使用。同時VB具有簡單、易學(xué)的特點，是大多數(shù)初學(xué)者最理想的編程語言，也是專業(yè)人員得心應(yīng)手的開發(fā)工具。它在一個公共環(huán)境里集成了許多不同的功能，例如，設(shè)計、編輯、編譯和調(diào)試。目前市場上數(shù)據(jù)庫的主流廠商及產(chǎn)品有IBMDB2、MicrosoftSQLSERVER2000、ORACLE9i、Sybase。MicrosoftSQLServer2000是在SQLServer7.0的基礎(chǔ)上對性能、可靠性、質(zhì)量以及易用性進行了擴展。SQLServer2000中包含許多新特性，這些特性使其成為針對電子商務(wù)、數(shù)據(jù)倉庫和在線商務(wù)解決方案的卓越的數(shù)據(jù)庫平臺。其增強的特性包括對豐富的擴展標(biāo)記語言（XML）的支持、綜合分析服務(wù)以及便捷的數(shù)據(jù)庫管理。MicrosoftSQLServer2000簡化了管理、優(yōu)化工作，并且增強了迅速、成功的部署在線商務(wù)應(yīng)用程序所需的可靠性和伸縮性。關(guān)鍵詞：工工資管理理系統(tǒng)、設(shè)設(shè)計、開開發(fā)工具具目錄TOC\o"1-3"\h\u摘要 11目錄 2第一章緒緒論 31.1問問題的提提出 31.2系系統(tǒng)設(shè)計計功能 3第二章數(shù)數(shù)據(jù)庫系系統(tǒng)設(shè)計計 52.1數(shù)數(shù)據(jù)庫分分析設(shè)計計 52.2數(shù)數(shù)據(jù)各個個表之間間的關(guān)系系 6第三章各各個關(guān)系系間的數(shù)數(shù)據(jù)結(jié)構(gòu)構(gòu) 73.1系系統(tǒng)設(shè)計計目標(biāo) 73.2系系統(tǒng)概要要分析 7第四章企企業(yè)工資資管理系系統(tǒng)應(yīng)用用設(shè)計 94.1企企業(yè)工資資管理系系統(tǒng)設(shè)計計 94.2子子模塊的的設(shè)計 10第五章各各個模塊塊部門代代碼 155.1登陸陸界面 155.2各各個子模模塊代碼碼設(shè)置 16第六章各各模塊設(shè)設(shè)計要點點 236.1登登錄模塊塊設(shè)計 236.3用戶戶管理設(shè)設(shè)計 236.3信信息管理理設(shè)計 236.4查查詢工資資設(shè)計 24第七章結(jié)結(jié)束語 25致謝 266參考文獻 27緒論1.1問問題的提提出隨隨著企業(yè)業(yè)人員數(shù)數(shù)量增加加，企業(yè)業(yè)的工資資管理工工作也變變得越來來越復(fù)雜雜。早期期的工資資統(tǒng)計和和發(fā)放都都是使用用人工方方式處理理紙質(zhì)材材料，不不僅花費費財務(wù)人人員大量量的時間間且不易易保存，往往往由于于個人的的因素抄抄寫不慎慎或計算算疏忽，出出現(xiàn)工資資發(fā)放錯錯誤的現(xiàn)現(xiàn)象。早早期工資資管理多多采取紙紙質(zhì)材料料和具有有較強的的時間限限制。隨隨著我國國國民經(jīng)經(jīng)濟建設(shè)設(shè)的蓬勃勃發(fā)展和和具有中中國特色色的社會會主義市市場經(jīng)濟濟體制的的迅速完完善，各各個行業(yè)業(yè)都在積積極使用用現(xiàn)代化化的手段段，不斷斷改善服服務(wù)質(zhì)量量，提高高工作效效率，這這些都在在很大程程度上給給企業(yè)提提出越來來越嚴(yán)峻峻的挑戰(zhàn)戰(zhàn)，對企企業(yè)體系系無論是是在行政政職能、企企業(yè)管理理水平以以及優(yōu)質(zhì)質(zhì)服務(wù)上上都提出出更高的的要求。建建設(shè)一個個科學(xué)高高效的信信息管理理系統(tǒng)是是解決這這一問題題的必由由之路。企企業(yè)內(nèi)部部財務(wù)管管理是該該企業(yè)運運用現(xiàn)代代化技術(shù)術(shù)創(chuàng)造更更多更高高的經(jīng)濟濟效益的的主要因因素之一一。工資資管理作作為企業(yè)業(yè)內(nèi)部的的一種財財務(wù)管理理也是如如此，由由于企業(yè)業(yè)職工人人數(shù)較多多，每一一位職工工的具體體實際情情況也不不盡相同同，各項項工資條條款的發(fā)發(fā)放，如如果沒有有一個完完整的管管理系統(tǒng)統(tǒng)對企業(yè)業(yè)和員工工的工作作都帶來來許多的的不便?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。工資管理系系統(tǒng)是企企、事業(yè)業(yè)單位常常見的計計算機信信息管理理系統(tǒng)。它它的主要要任務(wù)是是對各種種工資信信息進行行日常的的信息管理理，如工工資信息息的輸入入、查詢詢、修改改、增加加、刪除除，迅速速準(zhǔn)確地地完成各各種工資資信息的的統(tǒng)計計計算和匯匯總，快快速打印印出報表表。在建建立與實實現(xiàn)工資資管理系系統(tǒng)時，進進行了功能劃劃分，能能夠由數(shù)數(shù)據(jù)庫管管理系統(tǒng)統(tǒng)完成的的功能應(yīng)應(yīng)盡可能能由數(shù)據(jù)據(jù)庫管理理系統(tǒng)守守成，充充分發(fā)揮揮數(shù)據(jù)庫庫管理系系統(tǒng)高效效、完全全、可靠靠、便捷捷的性能能，減少少編程人人員的工工作量。工工資管理理系統(tǒng)是是數(shù)據(jù)庫庫管理系系統(tǒng)的一一個比較較典型的的應(yīng)用，前臺使用的是微軟的VB6.0，后臺數(shù)據(jù)庫采用MicrosoftSQLSever數(shù)據(jù)庫。運行結(jié)果證明，本企業(yè)員工工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，自重滿足企業(yè)員工工資管理的需要。1.2系系統(tǒng)設(shè)計計功能企企業(yè)工資資管理系系統(tǒng)的主主要任務(wù)務(wù)是用計計算機對對各種工工資信息息進行日日常的管管理，如如查詢、修修改、添添加、刪刪除以及及存儲等等，迅速速準(zhǔn)確地地完成各各種工資資信息的的統(tǒng)計計計算和匯匯總工作作，針對對系統(tǒng)服服務(wù)對象象的具體體要求，設(shè)設(shè)計了企企業(yè)工資資管理系系統(tǒng)。企企業(yè)工資資管理系系統(tǒng)主要要有以下下幾大功功能：對單位人人員的變變動進行行處理。一一個單位位的職工工不會是是一成不不變的，總總是在不不斷的變變化：有有調(diào)出、有有調(diào)入、也也有職工工在本單單位內(nèi)部部調(diào)動。因因此，設(shè)設(shè)計系統(tǒng)統(tǒng)是應(yīng)考考慮到這這些情況況。對職工的的工資進進行計算算、修改改?？梢砸詫β毠すさ墓べY資檔案進進行個別別、部分分和批量量修改，同同時，能能對各職職工的工工資進行行計算，即即計算基基本工資資、崗位位工資、水水電費及及實發(fā)金金額等。查詢統(tǒng)計計功能。要要求即可可以單項項查詢，比比如查看看某個職職工的工工資情況況等；也也可以多多項查詢詢，比如如某個部部門所有有的員工工的工資資信息。（4）對用用戶管理理功能。一一個系統(tǒng)統(tǒng)的應(yīng)用用有管理理員和普普通用戶戶，他們們對系統(tǒng)統(tǒng)的權(quán)限限受到限限制。第二章數(shù)數(shù)據(jù)庫系系統(tǒng)設(shè)計計2.1數(shù)數(shù)據(jù)庫分分析設(shè)計計需求分析的的過程可可以說是是一個對對具體問問題的反反復(fù)理解解和抽象象的過程程。理解解就是對對現(xiàn)實問問題的理理解，要要弄清楚楚究竟需需要解決決什么問問題。抽抽象就是是除去問問題的表表面，提提取問題題的本質(zhì)質(zhì)，建立立問題的的邏輯模模型，以以便于以以后階段段的系統(tǒng)統(tǒng)的設(shè)計計實現(xiàn)。需需求分析析階段是是軟件產(chǎn)產(chǎn)品生存存命期中中的一個個重要階階段，其其根本任任務(wù)是確確定用戶戶對軟件件系統(tǒng)的的需求。所所謂需求求是指用用戶對軟軟件的功功能和性性能的要要求，就就是用戶戶希望軟軟件能什什么事情情，完成成什么樣樣的功能能，達到到什么性性能。此此次課程程設(shè)計的的使用者者是企業(yè)業(yè)的員工工，主要要是針對對系統(tǒng)的的管理員員。其進進行的操操作就是是對公司司員工、部部門等一一些方面面改動的的改善。由由此對員員工需求求分析如如下。用用戶的需需求就是是對員工工工資和和使用用用戶的添添加、刪刪除、修修改和查查詢。這這就要求求各種信信息中存存在實體體完整性性、參照照完整性性和用戶戶自定義義完整性性。搜集集了各項項要求，故故數(shù)據(jù)項項要求設(shè)設(shè)計如下下：表2.1員員工信息息表鍵名稱數(shù)據(jù)類型大小空默認值主鍵員工編號char8不可以姓名char8不可以性別char2可以“男”出生年月datettimee8可以外鍵所屬部門char4可以文化程度char4可以職稱char12可以表2.2部門信信息鍵名稱數(shù)據(jù)類型大小空默認值主鍵部門編號char4不可以部門名稱char20可以部門負責(zé)人人char8可以部門人數(shù)int4可以表2.3基本工工資鍵名稱數(shù)據(jù)類型大小空默認值主鍵工資級別char2可以工資金額numerric5(8,22)不可以表2.4崗崗位工資資鍵名稱數(shù)據(jù)類型大小空默認值主鍵工資級別char2可以工資金額numerric5(8,22)不可以表2.5工工資信息息鍵名稱數(shù)據(jù)類型大小空默認值主鍵、外鍵鍵員工編號char8不可以外鍵部門編號char4可以基本工資numerric5(8,22)可以崗位工資numerric5(8,22)可以水電費numerric5(8,22)可以實發(fā)工資numerric5(8,22)可以2.2數(shù)數(shù)據(jù)各個個表之間間的關(guān)系系在設(shè)計過程程中，從從用戶的的角度考考慮來處處理各個個表之間間的約束束關(guān)系，把把概念模模式轉(zhuǎn)化化成邏輯輯模式最最終形成成E-RR圖。員工信息表表(員工工編號、姓姓名、性性別、出出生年月月、所屬屬部門、文文化程度度、職稱稱)部門信息表表(部門門編號、部部門名稱稱、部門門負責(zé)人人、部門門人數(shù)))基本工資表表(工資資級別、工工資金額額)崗位工資表表(工資資級別、工工資金額額)工資信息表表(員工工編號、部部門編號號、基本本工資、崗崗位工資資、水電電費、實實發(fā)工資資)各個模塊之之間的關(guān)關(guān)系,如如圖2..1所示示。圖22.1各表表之間的的聯(lián)系第三章各各個關(guān)系系間的數(shù)數(shù)據(jù)結(jié)構(gòu)構(gòu)3.1系系統(tǒng)設(shè)計計目標(biāo)開發(fā)這個系系統(tǒng)的目目的就是是幫助企企業(yè)的財財務(wù)主管管部門提提高工作作效率，實實現(xiàn)企業(yè)業(yè)工資信信息管理理的系統(tǒng)統(tǒng)化、規(guī)規(guī)范化和和自動化化。實現(xiàn)現(xiàn)企業(yè)高高效、科科學(xué)、現(xiàn)現(xiàn)代化的的員工管管理。系系統(tǒng)最終終實現(xiàn)的的主要功功能如下下。·企業(yè)工資資信息設(shè)設(shè)置部分分：包括括設(shè)置員員工的基基本工資資和其他他項目的的金額，如如水電費費。·企業(yè)信息息管理部部分：包包括員工工信息、部部門信息息和發(fā)放放工資（工工資信息息）?！て髽I(yè)員工工查詢部部分：包包括按員員工查詢詢和按部部門查詢詢。·系統(tǒng)部分分：包括括添加用用戶、修改用戶戶信息。3.2系系統(tǒng)概要要分析用用戶在使使用一個個系統(tǒng)時時，必須須先登錄錄操作界界面，在在操作完完成后然然后再退退出，其其操作如如圖3..1所示示。注注銷圖3.1系統(tǒng)流流程圖說明：操作作員進入入管理系系統(tǒng)的身身份不同同，所獲獲得的權(quán)權(quán)限也不不同，普普通用戶戶只可以以查詢自自己的工工資情況況，而且且部門對對自己的的所有信信息進行行更改。圖3.2用戶操操作模塊塊說明：管理理員可以以對所有有模塊進進行操作作，普通通用戶只只可以進進行查詢詢員工工工資的權(quán)權(quán)限。說明：在各各個子模模塊操作作時用戶戶同時在在實現(xiàn)更更改的時時候在對對話框上上的網(wǎng)格格看到后后臺數(shù)據(jù)據(jù)庫最新新的動態(tài)態(tài)。各個模塊簡簡介：登錄模塊：：主要完完成用戶戶的登錄錄信息核核對并進進入主界界面。用戶管理模模塊：主主要完成成對用戶戶信息的的添加、修修改和刪刪除功能能。信息設(shè)置模模塊：主主要對企企業(yè)內(nèi)部部員工和和部門的的管理。工資查詢模模塊：主主要完成成對員工工工資的的查詢。第四章企企業(yè)工資資管理系系統(tǒng)應(yīng)用用設(shè)計4.1企企業(yè)工資資管理系系統(tǒng)設(shè)計計4.1.11“登陸陸模塊”詳詳細設(shè)計計“登錄模塊塊”的設(shè)設(shè)計主要要是針對對用戶登登錄界面面的設(shè)計計，判斷斷用戶是是管理員員還是普普通用戶戶，從而而進入主主界面。登陸界面主主要由用用戶名和和密碼的的信息，還還有標(biāo)題題的設(shè)置置，登錄錄和取消消按鈕的的設(shè)置。用用戶只有有選擇用用戶名后后填入相相應(yīng)的密密碼后點點擊“登登錄”才才能進入入主界面面，點擊擊“取消消”會退退出系統(tǒng)統(tǒng)。由此此，登陸陸界面設(shè)設(shè)計如圖圖4.11所示圖4.1登陸陸界面設(shè)設(shè)計界面面若用戶對此此有操作作上的錯錯誤，我我設(shè)計的的特點是是都有提提示的對對話框（幾幾乎每個個窗體都都設(shè)置了了如下操操作，除除了特殊殊的提示示外，為為節(jié)省打打印紙張張，相同同的提示示在以后后的篇幅幅中不再再一一寫寫出），如圖4.2所示4.2操操作錯誤誤提示若用戶三次次輸入密密碼錯誤誤，系統(tǒng)統(tǒng)會認為為惡意進進入，系系統(tǒng)自動動關(guān)閉。如圖4.3所示圖4.3強制關(guān)關(guān)閉圖4.1.22“主界界面”的的詳細設(shè)設(shè)計主界面的設(shè)設(shè)計是由由菜單編編輯器生生成，主主要由系系統(tǒng)設(shè)置置、設(shè)置置、信息息維護、工工資查詢詢五個模模塊組成成。其作作用是使使程序更更加有條條有理，有有利于管管理。其其中普通通用戶只只可部分分操作，管管理員可可以對所所有模塊塊進行操操作。主主界面設(shè)設(shè)計如圖圖4.44所示：：圖4.4主界面面設(shè)計圖圖4.2子子模塊的的設(shè)計4.2.11選擇“系統(tǒng)設(shè)設(shè)置”→→“用戶戶管理”→→“用戶戶添加”菜單，在在添加用用戶的窗窗體里輸輸入用戶戶名、用用戶密碼碼和權(quán)限限，系統(tǒng)統(tǒng)自動新新增用戶戶名及其其用戶信信息。如如圖4..5所示示。為了防止用用戶在輸輸入密碼碼時按錯錯鍵或者者一時忘忘記密碼碼，我在在設(shè)計的的時候運運用了“確認密密碼”的文本本框，其其屬性與與密碼項項相同?？煽梢杂脕韥沓C正用用戶一時時的粗心心大意目目的，完完善了系系統(tǒng)的完完整性。圖4.5用戶添添加4.2.22.選擇”系系統(tǒng)設(shè)置置“→”用用戶管理理“→”用用戶修改改“菜單單，其窗窗體由五五個標(biāo)簽簽、兩個個文本框框、兩個個組合框框和一個個按鈕組組成，分分別設(shè)置置它們的的屬性，其其中兩個個組合框框的屬性性設(shè)置為為只讀屬屬性。在在用戶修修改的窗窗體里選選擇用戶戶名即可可修改用用戶密碼碼和權(quán)限限，系統(tǒng)統(tǒng)價自動動更改后后臺數(shù)據(jù)據(jù)庫的用用戶信息息。設(shè)計計界面如如圖4..6所示示圖4.6用戶修修改4.2.33選擇”系系統(tǒng)設(shè)置置“→”用用戶管理理“→”用用戶刪除除“菜單單，窗體體設(shè)計較較簡單，分分別由一一個文本本框、一一個組合合框和兩兩個按鈕鈕組成，組組合框的的屬性設(shè)設(shè)置為只只讀屬性性。由于于刪除的的用戶只只可以是是后臺數(shù)數(shù)據(jù)庫中中存在的的用戶在在下拉按按鈕中選選擇要刪刪除的用用戶名，即即可刪除除用戶名名及其有有關(guān)信息息。關(guān)于用戶管管理的子子菜單，只只有管理理員有權(quán)權(quán)限進入入設(shè)置。4.2.44選擇”設(shè)設(shè)置“→→”基本本工資“菜菜單，自自動彈出出基本工工資設(shè)置置的對話話框（如如圖4..7所示示），在網(wǎng)格格中會顯顯示數(shù)據(jù)據(jù)庫中現(xiàn)現(xiàn)有的基基本工資資級別和和金額，用用戶在填填寫完級級別和金金額后單單擊添加加或者修修改按鈕鈕進行后后臺數(shù)據(jù)據(jù)庫的更更新。在在網(wǎng)格中中選擇要要刪除的的基本工工資，點點擊刪除除按鈕，系系統(tǒng)會自自動進行行刪除，并并且所有有的操作作后會自自動刷新新網(wǎng)格，以以及時提提供給用用戶信息息。圖4.7基本本工資設(shè)設(shè)置4.2.55選擇”設(shè)設(shè)置“→→”崗位位工資“菜菜單后，自自動彈出出對話框框，其功功能與基基本工資資設(shè)置相相同，在在此不在在贅述。4.2.66選擇”信信息維護護“→”部部門管理理“菜單單后會出出現(xiàn)如圖圖4.99所示對對話框，管管理員用用戶可以以通過網(wǎng)網(wǎng)格瀏覽覽現(xiàn)有庫庫中的部部門信息息，在部部門信息息框架中中輸入部部門信息息，同時時也可添添加、修修改部門門信息，數(shù)數(shù)據(jù)庫自自動更新新。當(dāng)刪刪除一條條信息時時，會出出現(xiàn)如圖圖4.88所示提提示信息息，用戶戶可以選選擇刪除除或者取取消操作作。但如如其部門門已經(jīng)被被引用，則則"deelette"語語句會與與約束條條件發(fā)生生沖突，不不能刪除除。圖4.8確定刪刪除對話話框圖4.9部門管管理設(shè)置置4.2.77選擇”信信息維護護“→”員員工管理理“菜單單后會出出現(xiàn)如下下對話框框，“性別”組合框框默認為為“男”，如用用戶輸入入的不是是“男”或者是是“女”時，添添加操作作將不能能進行，并并且在填填寫員工工信息時時，員工工的性別別默認為為“男”。其進行的操作與部門管理相同，不再贅述。4.2.88選擇”信信息管理理“→”發(fā)發(fā)放工資資“菜單單，網(wǎng)格格顯示的的是現(xiàn)有有后臺數(shù)數(shù)據(jù)庫中中的員工工工資信信息，右右邊可以以直接瀏瀏覽員工工工資信信息。直直接點擊擊選擇網(wǎng)網(wǎng)格中的的工資信信息，單單擊刪除除按鈕可可直接刪刪除。考考慮到設(shè)設(shè)計頁面面的大小小問題，對對工資信信息的添添加和修修改操作作轉(zhuǎn)移到到另一個個窗體（如如圖4..10所所示）中中進行。用用戶可以以在工資資信息中中輸入員員工的工工資信息息，由于于添加和和修改的的操作同同時在一一個窗體體中進行行，員工工編號不不知道要要添加的的哪一個個，所以以員工編編號的下下拉按鈕鈕不是“只只讀”屬屬性，用用戶在輸輸入員工工編號時時應(yīng)輸入入一個存存在的員員工，不不然則彈彈出如圖圖4.111所示示的提示示框。圖4.100工資信信息設(shè)置置圖4.111員工工不存在在提示4.2.99選擇“工工資查詢詢”→“按按員工查查詢”菜菜單，彈彈出如圖圖4.112所示示對話框框，用戶戶可以選選擇單人人查詢或或者全部部顯示，但但是不能能對員工工的工資資做任何何的改動動。管管理員可可以查看看所有人人的工資資情況，但但是普通通用戶只只可以查查看自己己的工資資情況，別別人的工工資情況況不允許許查看。圖4.122按員員工查詢詢4.2.110選擇擇“工資資查詢”→→“按部部門查詢詢”菜單單，彈出出對話框框，當(dāng)選選擇“部部門編號號”后可可執(zhí)行“單單個顯示示”，若若想全部部顯示，可可直接單單擊”顯顯示所有有“按鈕鈕。網(wǎng)格格中將會會同時刷刷新后臺臺數(shù)據(jù)庫庫信息，但但是不能能做任何何的修改改。第五章各各個模塊塊部門代代碼5.1登陸陸界面Stattictryy_tiimessAssInnteggerDimmsqqlAAsSStriingDimmrsstAAsAADODDB.RRecoordssetIfTTrimm(cmmo_uuserr.Teext))=""TheenMMsgBBox"請選選擇用戶戶名",,vbbOKOOnlyy+vbIInfoormaatioon,"提示示"ccmo__useer.SSetFFocuusElseeIffTrrim((txtt_keey.TTextt)=="""ThhenMsggBoxx"請請輸入密密碼",,vbbOKOOnlyy+vbEExcllamaatioon,"提示示"txxt_kkey..SettFoccusEElseessql=""sellectt*froom用用戶表wheere用戶名名='""&Triim(ccmo__useer.TTextt)&&"''"SSetrstt=ExeecutteSQQL(ssql,,""")IfTriim(rrst..Fieeldss(1)))==Trrim((txtt_keey.TTextt)TThenntemmpusser=TTrimm(cmmo_uuserr.Teext))powwer=TTrimm(rsst.FFiellds((2)))useernaame=TTrimm(cmmo_uuserr.Teext))rstt.Clloseeffrm__maiin.SShowwUUnlooadMeIIfppoweer<<>""管理員員"TThennfrrm_mmainn.seet.EEnabbledd=Fallsefrrm_mmainn.deefennd==FaalseeEEndIfEElseeMMsgBBox"密碼碼不正確確，請重重新輸入入",vbOOKOnnly+vvbExxclaamattionn,""警告""ttxt__keyy.SeetFoocussttxt__keyy.Teext="""tryy_tiimess=tryy_tiimess+1Iftryy_tiimess=3TThennMsggBoxx"您您已三次次嘗試進進入本系系統(tǒng)失敗敗，系統(tǒng)統(tǒng)將自動動關(guān)閉"",vvbOKKOnlly++vbbExcclammatiion,,"結(jié)結(jié)束"UnlloaddMeeEnddIffEnddIffEnddIffEnddIffEndSSubPrivaateSubbFoorm__Loaad())DiimiiAssInnteggerDiimssqlAsStrringgDiimrrstAsADOODB..Reccorddsettsqql=="sseleect用戶名名frrom用戶表表"Seetrrst=EExeccuteeSQLL(sqql,""))Foorii=1TTorrst..ReccorddCouuntcmmo_uuserr.AdddIttem(rsst.FFiellds((0)))rsst.MMoveeNexxtNeextirsst.CClosseEndSSub5.2各各個子模模塊代碼碼設(shè)置5.2.11以用用戶添加加為例，部部分代碼碼如下所所示PrivaateSubbcmmd_aadd__Cliick(()DimrrstAsADOODB..ReccorddsettDimssqlAsStrringgDimiiAssInnteggerIfTrrim((txtt_adddusser..Texxt)="""OOrTTrimm(txxt_aaddkkey..Texxt)="""OOrTTrimm(cmmo_aaddppoweer)="""TThennMssgBoox""請將用用戶信息息填寫完完整！"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"txxt_aadduuserr.SeetFoocusstxxt_aadduuserr.Teext="""txxt_aaddkkey..Texxt=="""txxt_rrekeey.TTextt=""cmmo_aaddppoweer.CCleaarCaallForrm_LLoaddElsesqql=="sseleect用戶名名frrom用戶表表"Seetrrst=EExeccuteeSQLL(sqql,""))IfTrrim((txtt_adddusser..Texxt)=TTrimm(rsst.FFiellds((0)))ThhenMssgBoox""您輸入入的用戶戶已經(jīng)存存在，請請重新輸輸入！"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"rsst.CClossetxxt_aadduuserr.SeetFoocusstxxt_aadduuserr.Teext="""txxt_aaddkkey..Texxt=="""cmmo_aaddppoweer.CCleaarCaallForrm_LLoaddtxxt_rrekeey.TTextt=""ElseIfTrrim((txtt_adddkeey.TTextt)<<>TTrimm(txxt_rrekeey.TTextt)TThennMssgBoox""兩次輸輸入的密密碼不相相同,請請重新輸輸入!"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"txxt_aaddkkey..SettFoccustxxt_aaddkkey..Texxt=="""txxt_rrekeey.TTextt=""Elsesqql=="iinseertintto用用戶表valluess("&""'"&TTrimm(txxt_aadduuserr.Teext))&"',,"__&"'""&Triim(ttxt__adddkeyy.Teext))&"',,"__&"'""&Triim(ccmo__adddpowwer))&"'""&")""Seetrrst=EExeccuteeSQLL(sqql,""))MssgBoox""添加成成功",,vbbOKOOnlyy+vbEExcllamaatioon,"添加加結(jié)果""txxt_aadduuserr.SeetFoocusstxxt_aadduuserr.Teext="""txxt_aaddkkey..Texxt=="""txxt_rrekeey.TTextt=""cmmo_aaddppoweer.CCleaarCaallForrm_LLoaddEndIIfEndIIfEndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()UnloaadMMeEndSSubPrivaateSubbFoorm__Loaad())Withcmoo_adddpoowerr..AdddIteem""管理員員"..AdddIteem""普通用用戶"EndWWithhEndSSub5.2.22工資資設(shè)置代代碼以基本工資資中的修修改和刪刪除為例例，崗位位工資與與基本工工資雷同同，不再再贅述。PrivaateSubbcmmd_aalteer_CClicck())IfTrrim((cmoo_sccalee.Teext))=""OrTriim(ttxt__monney..Texxt)="""TThennMsgBoox""請?zhí)顚憣懶枰扌薷牡男判畔ⅲ?",vvbOKKOnlly++vbbExcclammatiion,,"警警告"cmo_sscalle.SSetFFocuuscmo_sscalle.TTextt=""txt_mmoneey.TTextt=""Elsesql=="sseleect工資級級別ffromm基本本工資wheere工資級級別=''"&&Trrim((cmoo_sccalee.Teext))&"'""Setrrst=EExeccuteeSQLL(sqql,""))Ifrsst.RRecoordCCounnt==0TheenMsgBoox""您輸入入的級別別不存在在，請重重新輸入入！",,vbbOKOOnlyy+vbEExcllamaatioon,"警告告"cmo_sscalle.SSetFFocuuscmo_sscalle.TTextt=""txt_mmoneey.TTextt=""Elsesql=="uupdaate基本工工資sset工資金金額=''"&&Trrim((txtt_mooneyy.Teext))&"'wheere工資級級別=''"&&Trrim((cmoo_sccalee.Teext))&"'""Setrrst=EExeccuteeSQLL(sqql,""))MsgBoox""修改成成功！"",vvbOKKOnlly++vbbInfformmatiion,,"操操作結(jié)果果"cmo_sscalle.SSetFFocuuscmo_sscalle.TTextt=""txt_mmoneey.TTextt=""CallForrm_LLoaddEndIIfEndIIfEndSSubPrivaateSubbcmmd_ccanccel__Cliick(()Ifrsst.RRecoordCCounnt<<>00ThhenIfMsggBoxx("真真的要刪刪除該工工資級別別嗎?"",vvbYeesNoo+vbQQuesstioon,"警告告")=vvbYeesTThennrstt.DeeletteMssgBoox""刪除成成功!"",vvbInnforrmattionn,""提示""cmoo_sccalee.SeetFoocussCalllFFormm_LooadEElseeccmo__scaale..SettFoccusEnddIffEndIIfEndssub5.2.33企業(yè)業(yè)信息維維護代碼碼以員工修改改為例，部部門修改改雷同。PrivaateSubbcmmd_aadd__Cliick(()IfTrrim((cmoo_nuumbeer.TTextt)=="""ThhenMsgBoox""請?zhí)顚憣憜T工編編號！""cmo_nnumbber..SettFoccusElseSetrrst=EExeccuteeSQLL("sseleect*ffromm員工工信息wheere員工編編號=''"&&Trrim((cmoo_nuumbeer.TTextt)&&"''",""))Ifrsst.RRecoordCCounnt<<>00ThhenMsgBoox""該員工工已經(jīng)存存在，請請重新輸輸入員工工編號！！",vbOOKOnnly+vvbInnforrmattionn,""提示""cmo_nnumbber..SettFoccusElseIfTrrim((txtt_naame..Texxt)="""TThennMsgBoox""員工姓姓名不允允許為空空！"txt_nnamee.SeetFoocussElseIfTrrim((cmoo_seex.TTextt)=="""ThhenMsgBoox""性別不不允許為為空！""cmo_ssex..SettFoccusElseIfTrrim((cmoo_deept..Texxt)="""TThennMsgBoox""員工部部門不允允許為空空！"cmo_ddeptt.SeetFoocussElseIfTrrim((cmoo_edducaatioon.TTextt)=="""ThhenMsgBoox""員工文文化程度度不允許許為空！！"cmo_eeduccatiion..SettFoccusElseIfTrrim((txtt_tiitlee.Teext))=""TheenMsgBoox""職稱不不允許為為空！""txt_ttitlle.SSetFFocuusElsesql=="iinseertintto員員工信息息vaaluees(("&&"''"&&Trrim((cmoo_nuumbeer.TTextt)&&"'',"_&&"''"&&Trrim((txtt_naame..Texxt)&""',""_&&"''"&&Trrim((cmoo_seex.TTextt)&&"'',"_&&"''"&&Trrim((DTPPbirrthdday..Vallue))&"',,"__&&"''"&&Trrim((cmoo_deept..Texxt)&""',""_&&"''"&&Trrim((cmoo_edducaatioon.TTextt)&&"'',"_&&"''"&&Trrim((txtt_tiitlee.Teext))&"'))"Setrrst=EExeccuteeSQLL(sqql,""))cmo_nnumbber..SettFoccuscmo_nnumbber..Cleeartxt_nnamee.Teext="""cmo_ssex..Texxt=="男男"cmo_ddeptt.Cllearrcmo_eeduccatiion..CleearDTPbiirthhdayy.Reefreeshtxt_ttitlle.TTextt=""CallForrm_LLoaddMsgBoox""操作成成功！"",vvbOKKOnlly++vbbInfformmatiion,,"操操作結(jié)果果"EndIIfEndIIfEndIIfEndIIfEndIIfEndIIfEndIIfEndSSubPrivaateSubbFoorm__Loaad())sqql=="sseleect員工編編號ffromm員工工信息"Seetrrst=EExeccuteeSQLL(sqql,""))FFori==1Torstt.ReecorrdCoounttccmo__nummberr.AdddIttem(rsst.FFiellds((0)))rrst..MovveNeextNNexttissql=""sellectt部門門編號froom部部門信息息"Seetrrst=EExeccuteeSQLL(sqql,""))FFori==1Torstt.ReecorrdCoounttccmo__deppt.AAddIItemm(rrst..Fieeldss(0)))rrst..MovveNeextNNexttiWitthccmo__eduucattionn.AdddIttem"高中中以下"".AdddIttem"高中中".AdddIttem"中專專".AdddIttem"大專專".AdddIttem"本科科".AdddIttem"研碩碩".AdddIttem"博士士".AdddIttem"博士士后"EnndWWithhsqql=="sseleect*ffromm員工工信息"Seetrrst=EExeccuteeSQLL(sqql,""))SeetDDataaGriid1..DattaSoourcce==rsstEndSSub5.2.44查詢詢員工信信息PrivaateSubbcmmd_ssinggle__Cliick(()DimmsqqlAAsSStriingDimmrsstAAsAADODDB.RRecoordssetIfTriim(ccmo__nummberr.Teext))=""TheenMsggBoxx"請請選擇員員工編號號！",,vbbOKOOnlyy+vbEExcllamaatioon,"警告告"cmoo_nuumbeer.SSetFFocuusElsseIfTriim(ccmo__nummberr.Teext))<>>ussernnameeAnndppoweer<<>""管理員員"TThennMsggBoxx"你你不能查查看其他他員工的的工資信信息！"",vvbOKKOnlly++vbbExcclammatiion,,"警警告"Elssesqll="seelecct**frrom工資信信息wwherre員員工編號號='""&Triim(ccmo__nummberr.Teext))&"'""Settrsst==ExxecuuteSSQL((sqll,""")SettDaataGGridd1.DDataaSouurcee=rsttEnddIffEnddIffEndSSubPrivaateSubbFoorm__Loaad())DimmsqqlAAsSStriingDimmrsstAAsAADODDB.RRecoordssetsqll="seelecct員員工編號號frrom工資信信息"Settrsst==ExxecuuteSSQL((sqll,""")Forri=11Toorsst.RRecoordCCounntcmoo_nuumbeer.AAddIItemm(rrst..Fieeldss(0)))rstt.MooveNNexttNexxtiiEndSSub各模塊設(shè)計計要點6.1登登錄模塊塊設(shè)計登錄模塊是是所有用用戶進入入工資管管理系統(tǒng)統(tǒng)的唯一一途徑，除除了確定定用戶類類型以外外，還要要注意用用戶登錄錄的密碼碼是否與與后臺數(shù)數(shù)據(jù)庫的的一致，如如果不一一致則會會彈出圖圖4.22所示的的提示信信息。用用戶在登登錄模塊塊出現(xiàn)的的所有情情況我都都予以考考慮了。在在用戶登登錄時根根據(jù)判斷斷用戶的的權(quán)限，在在模塊中中有“Ifpowwer<>"管理理員"Theenfrrm_mmainn.seet.EEnabbledd=Fallseffrm__maiin.ddefeend=FFalsse”的代碼碼，此項項決定了了主界面面的操作作模塊。在調(diào)試所有有登錄情情況都成成功后，我我想到了了一種惡惡意登錄錄此系統(tǒng)統(tǒng)的情況況，因此此我設(shè)置置了“tryy_tiimess”來限制制用戶的的強制登登錄如圖圖4.33所示。6.3用戶戶管理設(shè)設(shè)計在添加用戶戶模塊中中，我仿仿造了一一般填寫寫信息時時的方法法設(shè)計了了“確認密密碼”操作，如如果在操操作錯誤誤時候會會彈出如如圖6..1所示示的提示示信息，點點擊確定定后，鼠鼠標(biāo)自動動停在密密碼文本本框中，用用戶不需需要再次次輸入用用戶名，在在此說明明一下，在在我做的的系統(tǒng)中中幾乎所所有的錯錯誤轉(zhuǎn)移移都有如如上的提提示和獲獲得焦點點的操作作。刪除用戶模模塊中，在在用戶點點擊了確確定按鈕鈕以后，會會有如圖圖4.88所示的的對