1、企業(yè)工資管理系統(tǒng)畢業(yè)設(shè)計學生姓名：學號：學院、系：專業(yè)：設(shè)計題目：企業(yè)工資治理系統(tǒng)指導老師：2018年10月1日摘要3一、開發(fā)背景31. 1數(shù)據(jù)庫治理系統(tǒng)簡介41.2 企業(yè)工資治理系統(tǒng)41.3 開發(fā)工具簡介4二、需求分析42.1系統(tǒng)分析42. 2系統(tǒng)開發(fā)的可行性分析52. 3系統(tǒng)功能需求5三、系統(tǒng)數(shù)據(jù)庫設(shè)計63. 1數(shù)據(jù)庫介紹63.2 使用ADO控件訪咨詢數(shù)據(jù)庫63.3 數(shù)據(jù)庫設(shè)計過程6四、企業(yè)工資治理系統(tǒng)用戶界面設(shè)計104. 1用戶界面104.2“主窗體”模塊設(shè)計114.3各項子模塊的設(shè)計12六、參考資料30本系統(tǒng)是針對蕪湖市雙翼航天有限公司的實際治理情形所設(shè)計和開發(fā)的一個工資治理系統(tǒng)。本系

2、統(tǒng)采納可視化的面向?qū)ο蟮木幊坦ぞ遃isualBasic6.0來開發(fā)，用Access2003建立數(shù)據(jù)庫，從開發(fā)背景、需求分析、系統(tǒng)模塊建立、數(shù)據(jù)庫設(shè)計、功能模塊編程等方面闡述了于企業(yè)工資治理系統(tǒng)的開發(fā)過程，開發(fā)出真正適合該公司的工資治理系統(tǒng)。該系統(tǒng)要緊由職員治理、工資查詢運算和工資報表輸出三個模塊組成，功能差不多涵蓋該企業(yè)的工資治理業(yè)務(wù)范疇。那個工資治理系統(tǒng)是典型的信息治理系統(tǒng)(MIS),前臺程序開發(fā)工具采納微軟的VB6,后臺數(shù)據(jù)庫采納Access數(shù)據(jù)庫。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強大的優(yōu)點。Access數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點。關(guān)鍵

3、詞：工資治理系統(tǒng);開發(fā)工具VisualBasic6.0；數(shù)據(jù)庫Access2003；系統(tǒng)設(shè)計與開發(fā)開發(fā)平臺：WINDOWS開發(fā)環(huán)境：VisualBasic6.0,Access2003一、開發(fā)背景企業(yè)工資治理是任何企事業(yè)單位都面臨的咨詢題，由于各個單位的工資處理方式總是有所區(qū)不，因此目前還沒有一個通用的工資治理系統(tǒng)，只能針對具體情形去開發(fā)適合本單位需求的工資治理系統(tǒng)。由于蕪湖市雙翼航天有限公司的進展規(guī)模一樣，職員的數(shù)量有限，對企業(yè)的工資治理有一定差不多的要求，因此使用運算機工資治理系統(tǒng)成為其必定趨勢。企業(yè)的工資治理是公司治理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資治理工作也變得越來越復雜

4、。工資治理既涉及到企業(yè)勞動人事的治理，同時也是企業(yè)財務(wù)治理的重要組成部分。工資治理需要和人事治理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的差不多工資、津貼、醫(yī)療保險、保險費、實際發(fā)放工資等。資金是企業(yè)生存的要緊元素，資金的流淌阻礙到企業(yè)的整體運作，企業(yè)職員的工資是企業(yè)資金治理的一個重要的組成部分。早期的工資統(tǒng)計和發(fā)放差不多上使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時刻且不易儲存，往往由于個人的因素抄寫不慎或運算疏忽，顯現(xiàn)工資發(fā)放錯誤的現(xiàn)象。早期工資治理多采取紙質(zhì)材料和具有較強的時刻限制?；谝陨暇壒?，企業(yè)工資治理系統(tǒng)使用電腦安全儲存、快速運算、全面統(tǒng)計，實現(xiàn)工資治理的

5、系統(tǒng)化、規(guī)范化、自動化。企業(yè)工資治理系統(tǒng)是典型的信息治理系統(tǒng)（MIS）,前臺程序開發(fā)工具采納微軟的VB6,后臺數(shù)據(jù)庫采納Access數(shù)據(jù)庫。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強大的優(yōu)點。Access數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點。1.1 數(shù)據(jù)庫治理系統(tǒng)數(shù)據(jù)庫治理系統(tǒng)（DBMS）是指數(shù)據(jù)庫系統(tǒng)中治理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。對數(shù)據(jù)庫的一切操作，包括定義、更新及各種操縱,差不多上通過DBMS進行的。DBMS總是基于某種數(shù)據(jù)模型，能夠把DBMS看成是某種數(shù)據(jù)模型在運算機系統(tǒng)上的具體實現(xiàn)。依照數(shù)據(jù)模型的不同，DBMS能夠分成層次

6、型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。MicrosoftAccess2003確實是一種關(guān)系型數(shù)據(jù)庫治理系統(tǒng)。關(guān)系模型要緊是用二維表格結(jié)構(gòu)表達實體集，用外鍵表示實體間聯(lián)系。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模式相當于前面提到的記錄類型，每個關(guān)系實際上是一張二維表格。關(guān)系模型和層次、網(wǎng)狀模型的最大判不是用關(guān)鍵碼而不是用指針導航數(shù)據(jù)，表格簡單用戶易明白，編程時并不涉及儲備結(jié)構(gòu)，訪咨詢技術(shù)等細節(jié)。SQL語言是關(guān)系型數(shù)據(jù)庫的標準化語言，已得到了廣泛的應用。1.2 企業(yè)工資治理系統(tǒng)企業(yè)工資治理是一項瑣碎、復雜而乂十分細致的工作，一樣不承諾發(fā)生差錯。同時工資的發(fā)放具有較強的時刻限制，必須嚴格按照單位規(guī)定

7、的時刻完成運算和發(fā)放工作。正是企業(yè)工資治理的這種重復性、規(guī)律性、時刻性，使得企業(yè)工資治理運算機化成為可能。企業(yè)工資治理系統(tǒng)確實是使用電腦代替大量的人工統(tǒng)計和運算，完成眾多企業(yè)工資信息的處理，同時使用電腦還能夠安全地、完整地儲存大量的企業(yè)工資記錄。1.3 開發(fā)工具簡介微軟公司的VisualBasic6.0是Windows應用程序開發(fā)工具,是目前最為廣泛的、易學易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應用程序的運行效率和可靠性。因此，本系統(tǒng)使用MicrosoftVisual

8、Basic6.0開發(fā)。二、需求分析2.1系統(tǒng)分析系統(tǒng)分析的過程能夠講是一個對具體咨詢題的反復明白得和抽象的過程。明白得確實是對現(xiàn)實咨詢題的明白得，要弄清晰怎么講需要解決什么咨詢題。抽象確實是除去咨詢題的表面，提取咨詢題的本質(zhì)，建立咨詢題的邏輯模型，以便于以后時期的系統(tǒng)的設(shè)計實現(xiàn)。需求分析時期是軟件產(chǎn)品生存命期中的一個重要時期，其全然任務(wù)是確定用戶對軟件系統(tǒng)的需求。所謂需求是指用戶對軟件的功能和性能的要求，確實是用戶期望軟件能什么情況，完成什么樣的功能，達到什么性能。通常需求分為兩種類型：一種是功能性需求，一種是非功能性需求，這一點也需要有一種清晰的認識。功能性需求是指需要運算機系統(tǒng)解決的咨詢題

9、，也確實是對數(shù)據(jù)的處理要求，這是一類最要緊的需求。非功能性需求是指實際使用環(huán)境所要求的需求，往往是一些限制要求，例如：性能要求，可靠性要求，安全保密要求，等等。本系統(tǒng)的設(shè)計應滿足以下的系統(tǒng)要求： 滿足企業(yè)職員信息治理的差不多要求； 滿足企業(yè)工資結(jié)算的差不多要求： 滿足企業(yè)工資查詢和報表導出的差不多要求； 提供良好的操作界面，對操作人員的技能要求比較的低； 能夠保證企業(yè)工資治理數(shù)據(jù)的安全準確。2.2 系統(tǒng)開發(fā)的可行性分析治理信息系統(tǒng)的可行性分析包括以下四個方面： 治理可行性：指治理人員對開發(fā)項目是否支持，現(xiàn)有治理制度是否健全等。而且運用此系統(tǒng)能夠大大地提高工作效率，方便治理。 經(jīng)濟可性行：要緊是

10、預估費用支出和對項目的經(jīng)濟效益進行評判。依照該醫(yī)院的現(xiàn)有資源設(shè)備，建立工資MIS不但能提高工作效率、降低費用，還能提高數(shù)據(jù)運算的準確性。 技術(shù)可行性：要緊分析當前的技術(shù)條件能否滿足對系統(tǒng)提出的要求。該醫(yī)院內(nèi)部建有局域網(wǎng)，有比較專業(yè)的技術(shù)人員，能夠勝任信息系統(tǒng)的開發(fā)工作。 社會可行性：是分析研究系統(tǒng)投入使用后對醫(yī)院和社會可能帶來的阻礙。此系統(tǒng)的開發(fā)可不能對社會帶來任何危害，因此開發(fā)此系統(tǒng)是可行的。綜上所述，蕪湖市雙翼航天有限公司工資治理系統(tǒng)是完全可行與重要的。2.3 系統(tǒng)功能需求開發(fā)那個系統(tǒng)的目的確實是關(guān)心企業(yè)的財務(wù)主管部門提高工作效率，實現(xiàn)企業(yè)工資信息治理的系統(tǒng)化、規(guī)范化和自動化。能夠和認識治

11、理系統(tǒng)、考勤治理系統(tǒng)相結(jié)合，真正實現(xiàn)企業(yè)高效、科學、現(xiàn)代化的職員治理。系統(tǒng)最終實現(xiàn)的要緊功能如下： 企業(yè)工資信息設(shè)置部分：包括設(shè)置職員的差不多工資和其他項目的金額，如獎金等。同時負責設(shè)置職職員資的運算公式。 企業(yè)工資信息治理部分：包括統(tǒng)計出勤、運算工資、查詢工資和導出工資表。 系統(tǒng)部分：包括添加用戶和修改密碼。依照以上系統(tǒng)應實現(xiàn)的功能，能夠?qū)ζ渖厦娴墓δ苓M行模塊化設(shè)計，得出系統(tǒng)功能模塊圖，如圖2-1所示。修改密碼添加用戶導出工資關(guān)于一JI八I查詢工資工資信息治理J一疊實發(fā)工資rLI出勤統(tǒng)計工資運算公式設(shè)wJ工資信自董置一工其他工資設(shè)置，差不多工資設(shè)置，系統(tǒng)AL退出系統(tǒng)廠V圖2-1系統(tǒng)功能模塊圖

12、三.系統(tǒng)數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是信息治理系統(tǒng)的后臺，儲備著所有的信息，在信息治理系統(tǒng)中有著專門重要的地位。數(shù)據(jù)庫設(shè)計的好與壞，直截了當阻礙到那個系統(tǒng)的運行效率。良好的數(shù)據(jù)庫設(shè)計，能夠提高數(shù)據(jù)信息的儲備效率，確保數(shù)據(jù)信息的完整性和一致性。3.1 數(shù)據(jù)庫介紹數(shù)據(jù)庫是一種儲備數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫確實是信息的集合。運算機的數(shù)據(jù)庫能夠分為兩類：非關(guān)系數(shù)據(jù)庫和關(guān)系數(shù)據(jù)庫。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，如記錄、域等。Access2003確實是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能聚攏各種信息以供查詢、儲備和檢索。Access的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。

13、數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，能夠使數(shù)據(jù)庫一目了然。另外，Access承諾創(chuàng)建自定義報表用于輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)儲備庫，能夠使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫開發(fā)，具備了許多優(yōu)點，能夠在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。3.2 使用ADO控件訪咨詢數(shù)據(jù)庫ADO是ActiveXDataObjects的縮寫，提供對各種數(shù)據(jù)庫訪咨詢的標準接口。1.如何用ADO存取數(shù)據(jù)：在實際編程過程

14、中使用ADO的一個典型的存取數(shù)據(jù)的步驟為：第二，打開記錄集對象；第三，使用記錄集：2.關(guān)閉所有的數(shù)據(jù)連接:假如在代碼中使用了數(shù)據(jù)控件如ADO,在退出時應該關(guān)閉所有打開的recordsource,database。盡管對象能自動注銷，然而數(shù)據(jù)連接可不能趕忙斷開，可能會導致一些內(nèi)存不能被系統(tǒng)重新分配。VisualBasic提供了與底層數(shù)據(jù)庫系統(tǒng)緊密的連接。VisualBasic支持不同的關(guān)系數(shù)據(jù)庫治理系統(tǒng)并充分發(fā)揮每一個數(shù)據(jù)庫的特長。生成獨立應用或脫離服務(wù)器運行的服務(wù)以上的應用，VisualBasic連接數(shù)據(jù)庫的方式有兩種：第二，通過使用由VisualBasic提供的專用的直截了當與數(shù)據(jù)庫相連的接

15、口。3.3數(shù)據(jù)庫設(shè)計過程1 .企業(yè)治理系統(tǒng)的ER圖：如圖31所示。2 .關(guān)系模式的設(shè)計：啟動Access2003,創(chuàng)建新的數(shù)據(jù)庫，命名為Sal箕y.mdb,儲存在要存放那個系統(tǒng)所有工程文件的文件夾中。在使用的時.，要把應用程序和那個數(shù)據(jù)庫儲存在同一個文件夾中。職員出勤統(tǒng)計信息表（記錄編號、職員編號、職員姓名、統(tǒng)計時刻、出勒天數(shù)、遲到早退次數(shù)、曠工次數(shù)、正常加班次數(shù)、專門加班次數(shù)、出差次數(shù)）;職職員資運算公式信息表（正常加班工資仃分比、專門加班工資白分比、出差工資、曠工工資、遲到早退）;職員其他項目設(shè)置（記錄編號、職員編號、年月、類型、名稱、金額、備注）;工資信息設(shè)置表（記錄編號、職員編號、職員

16、職務(wù)、差不多工資）； 職職員資統(tǒng)計信息表（記錄編號、職員編號、職員姓名、時刻、差不多工資、獎金、福利、津貼、扣發(fā)、遲到早退扣發(fā)、曠工扣發(fā)、加班費、出差費、其他金額、總額）。 職員信息表（職員編號、職員姓名、性不、籍貫、年齡、生日、學歷、專業(yè)、住址、郵編、電話、Email.參加工作時刻、進入公司時刻、部門、起薪時刻、職務(wù)、備注） 用戶信息表（用戶名稱、用戶密碼）3.物理結(jié)構(gòu)的設(shè)計：為了便于對數(shù)據(jù)的添加、查詢、修改和刪除操作，依照本系統(tǒng)的需求分析,最終確定用于儲存數(shù)據(jù)的差不多數(shù)據(jù)表共有7個，具體設(shè)計如下：,差不多表attendancestatistics,用于儲存職員的出勤信息:字段類型氏度講明i

17、d自動編號長整型記錄編號stuffid文本50職員編號stuffname文本50職員姓名recordmonth日期/時刻短日期統(tǒng)計時刻attendance數(shù)字長整型出勤天數(shù)lateearly數(shù)字長整型遲到早退次數(shù)absent數(shù)字長整型曠工次數(shù)overtimecom數(shù)字長整型正常加班次數(shù)overtimespe數(shù)字長整型專門加班次數(shù)errand數(shù)字長整型出差次數(shù)差不多表formulasetting,用于運算職職員資:字段類型長度講明overtimecom數(shù)字長整型正常加班工資百分比overtimespe數(shù)字長整型專門加班工資百分比errand數(shù)字長整型出差工資absent數(shù)字長整型曠工工資le數(shù)字

18、長整型遲到早退差不多表salaryother,用于設(shè)置職員其他項目:字段類型長度講明id自動編號長整型記錄編號stuffid文本50職員編號yearmonth日期/時刻短時期年月type數(shù)字長整型類型name文本50名稱money貨幣貨幣金額remark備注備注差不多表salarysetting,用于設(shè)置差不多工資:字段類型長度講明id自動編號長整型記錄編號stuffid文本50職員編號sposition文本50職員職務(wù)salary貨幣貨幣差不多工資差不多表salarystatistics,用于儲存職職員資統(tǒng)計出的信息:字段類型長度講明id自動編號長整型記錄編號stuffid文本50職員編號s

19、tuffname文本50職員姓名yearmonth日期/時刻短時期時刻basicsalary貨幣貨幣差不多工資bonus貨幣貨幣獎金welfare貨幣貨幣福利allowance貨幣貨幣津貼abatement貨幣貨幣扣發(fā)lesub貨幣貨幣遲到早退扣發(fā)absentsub貨幣貨幣曠工扣發(fā)overtime貨幣貨幣加班費errand貨幣貨幣出差費others貨幣貨幣其他金額total貨幣貨幣總額差不多表stuffinfo,用于儲存職員的信息:字段類型長度講明sid文本50職員編號sname文本50職員姓名sgender文本50性不splace文本50籍貫sage數(shù)字長整型年齡sbirthday日期/時刻

20、短時期生日sdegree文本50學歷sspecial文本50專業(yè)saddress文本50住址scode文本50郵編stel文本50電話semail文本50EmailsworkTime日期/時刻短時期參加工作時刻sintime日期/時刻短時期進入公司時刻sdept文本50部門spaytime日期/時刻短時期起薪時刻sposition文本50職務(wù)sremark文本50備注差不多表userinfo,儲存用戶信息:字段類型長度講明userid文本50用戶名稱userpwd文本50用戶密碼企業(yè)工資治理系統(tǒng)用戶界面設(shè)計4.1 登錄界面登錄模塊的詳細設(shè)計要緊是用戶登錄的一個界面，判定登錄的用戶是治理員依舊一

21、般用戶，進入后將面對的是主界面，從而進行相關(guān)的操作。登錄的界面要緊由用戶名和密碼的信息，還有一些標題設(shè)置，確定和取消的按鈕組成。通過標題能夠明白此系統(tǒng)的大致內(nèi)容，由此，登錄界面的設(shè)計完成。4.2 主窗體模塊設(shè)計在那個項目中，選擇使用多文檔界面。使用那個窗體的好處是能夠使程序更加有條理。關(guān)于一個多任務(wù)的應用程序，使用多文檔窗體還能夠減少占用的系統(tǒng)資源。主窗體設(shè)計的界面是用菜單編輯器做的，要緊由系統(tǒng)、工資信息設(shè)置、工資信息治理和關(guān)于這四個大模塊組成。主窗體是進行相關(guān)操作的主界面。在這幾個里，治理員有所有的權(quán)益進行各種操作。4.3 各項子模塊的設(shè)計1、選擇“系統(tǒng)”一“添加用戶”菜單，在添加用戶的窗體

22、里，輸入新的用戶名稱和密碼后，單擊“確定”按鈕，系統(tǒng)將會添加新的用戶。添加用戶窗口局部代碼：sqI="insertintouserinfo(userid,userpwd)values，"&usernamesql=sql&，&password&，)Calltransactsql(sql,"salary")MsgBox添加成功”,vbOKOnly+vbExclamation,添加結(jié)果username.Text=password.Text=confirmpwd.Text=username.SetFocus瑞認取消2、選擇“系統(tǒng)”

23、一“修改密碼”菜單，在修改密碼的窗體里，輸入舊密碼和2次輸入新密碼后，單擊“確定”按鈕，系統(tǒng)將會更換當前用戶的密碼。修改密碼窗口局部代碼：userpassword=newpwdsql=z，updateuserinfosetuserpwd='&newpwd&''whereuserid='&strusername&'Calltransactsql(sql,"salary")MsgBox密碼差不多修改，vbOKOnly+vbExclamation,修改結(jié)果UnloadMe3、選擇“工資信息設(shè)置”一“設(shè)置差不多

24、工資”菜單設(shè)置職員的差不多工資，能夠依照職員的編號，或者依照職員職務(wù)設(shè)置差不多工資，設(shè)置的差不多工資為每個小時的工資。設(shè)置差不多工資窗口局部代碼：Setrs=getrs(sql,"salary")Ifrs.EOF=FalseThensql="deletefromsalarysettingwherestuffid=&Mstuffid.Text&Calltransactsql(sql,"salary")EndIfrs.Closeid=Mstuffid.TextCalladdrecordMsgBox“差不多設(shè)置差不多:資，vbOKOn

25、ly+vbExclamation,添加結(jié)果Callinitsql="select*fromsalarysetting”Callfrmresult.basictopicCallfrmresult.showbasic(sql)frmresult.Showfrmresult.ZOrder0Me.ZOrder04、選擇“工資信息設(shè)置”->“其他項目設(shè)置”菜單，在其他項目設(shè)置的窗體中，設(shè)置職員當月的獎金、津貼、福利等項目。其他項目設(shè)置窗口局部代碼:sql="select*fromsalary-other7"Ifichangeflag=1ThenCalladdMsgBo

26、x”差不多添加記錄，vbOKOnly+vbExclamation,“提示Callfrmresult.othertopicCallfrmresult.showother(sql)frmresult.ShowUnloadMeElseIfMe.optionbonus.Value=TrueThenitype=1ElselfMe.optionallowance.Value=TrueThenitype=2ElselfMe.optionwelfare.Value=TrueThenitype=3ElselfMe.optionabatement.Value=TrueThenitype=4ElselfMe.opt

27、ionothers.Value=TrueThenitype=5resumdate=recordtimesql="deletefromsalaryotherwherestuffid='&Mid.TextsqI=sql&'andYearMonth=#，z&recordtime&"#andsql=sql&Type=&itypeCalltransactsql(sql,"Salary")CalladdCallfrmsumsalary.resumsalary(resumdate)sqI="se

28、lect*fromsalaryother"Callfrmresult.othertopicCallfrmresult.showother(sql)frmresult.ShowUnloadMeEndIf5、選擇“工資信息設(shè)置”一“工資運算公式設(shè)置”菜單，在那個運算公式窗體中設(shè)置職員實際發(fā)放工資的運算公式。運算公式窗口局部代碼:IfMe.textovertimecom=AndIsNumeric(Me.textovertimecom)=TrueThenMsgBox”請輸入正常加班工資百分比",vbOKOnly+vbExclamation,提示Me.textovertimecom=

29、”Me.textovertimecom.SetFocusElselfMe.textovertimespe=AndIsNumeric(Me.textovertimespe)=FalseThenMsgBox”請輸入專門加班工資百分比”,vbOKOnly+vbExclamation,提示Me.textovertimespe=Me.textovertimespe.SetFocusElselfMe.texterrand="AndIsNumeric(Me.texterrand)=FalseThenMsgBox”請輸入出差工資，vbOKOnly+vbExclamation,提示Me.texterr

30、and=Me.texterrand.SetFocusElselfMe.textabsent="AndIsNumeric(Me.textabsent)=FalseThenMsgBox”請輸入曠工扣發(fā)工資"，vbOKOnly+vbExclamation,“提示Me.textabsent=Me.textabsent.SetFocusElselfMe.textle=AndIsNumeric(Me.textle)=FalseThenMsgBox請輸入遲到早退扣發(fā)工資，vbOKOnly+vbExclamation,提示Me.textle=Me.textle.SetFocusElseCa

31、llsetvalueCallinitEndIf6、選擇“工資信息治理”一“統(tǒng)計出勤記錄”菜單，在統(tǒng)計出勤記錄窗體中選擇需要統(tǒng)計記錄的月份。統(tǒng)計出勤記錄窗口部分代碼：firstday=Year(Date)&一&Mmonth.Text&-1days=DateDiff(d,Year(Date)&一&Mmonth.Text&-1,_Year(Date)&一&Mmonth.Text+1&-1)lastday=Year(Date)&一&Mmonth.Text&一&dayssql="select

32、*fromattendancestatisticswhererecordmonthbetweensql=sql&firstday&”#and#&lastday&"#Setrsrecord=getrs(sql,"salary")Ifrsrecord.EOF=FalseThenMsgBox”差不多統(tǒng)計"，vbOKOnly+vbExclamation,"提示”frmaresult.Showfrmaresult.ZOrder0rsrecord.CloseUnloadMeExitSubEndIfsql="sele

33、ct*fromattendanceinfowhereadatebetween#sql=sqI&firstday&#and#&lastday&Setrsrecord=getrs(sqI,"person")Ifrsrecord.EOF=FalseThensql="selectsid,snamefromstuffinfoorderbysidSetrsperson=getrs(sqI,"person")區(qū)7、選擇月份后單擊“確定”按鈕，假如系統(tǒng)差不多統(tǒng)計過該月份的記錄，那么會顯現(xiàn)如下圖所示的統(tǒng)計結(jié)果信息列表。假如系統(tǒng)沒有

34、統(tǒng)計過，那么系統(tǒng)就會開始統(tǒng)計記錄，然后顯示如圖所示的統(tǒng)計結(jié)果信息列表。職員出勤結(jié)構(gòu)窗口部分代碼：Ifstrusername<>adminThensql="selectsidfromstuffinfowheresname='&strusername&Setrs=getrs(sqI,"salary")sd=rs(0)sqI="select*fromattendancestatistieswherestuffid='&sd&Me.Adodcl.ConnectionString="/provi

35、der=microsoft.jet.oledb.4.0;Datasource=，&App.Path&'salary.mdb”Me.Adodcl.RecordSource=sqlMe.Adodcl.RefreshSetMe.DataGridl.DataSource=Me.Adodcl.RecordsetMe.DataGridl.RefreshElsesql="select*fromattendancestatistics”Me.Adodcl.ConnectionString=，/provider=microsoft.jet.oledb.4.0;Datasourc

36、e=，/&App.Path&z/salary.mdbMe.Adodcl.RecordSource=sqlMe.Adodcl.RefreshSetMe.DataGridl.DataSource=Me.Adodcl.RecordsetMe.DataGridl.RefreshEndIf8、選擇“工資信息治理”一“運算實發(fā)工資”菜單，在那個窗體中選擇需要統(tǒng)計的月份。選擇統(tǒng)計月份后，單擊“開始統(tǒng)計”按鈕，系統(tǒng)假如差不多統(tǒng)計了該月份的工資，系統(tǒng)會顯示工資信息列表窗體。假如系統(tǒng)還沒有統(tǒng)計工資，那么系統(tǒng)開始統(tǒng)計工資，然后在信息結(jié)果列表窗體中顯示統(tǒng)計結(jié)果。運算實發(fā)工資窗口部分代碼：IfMmont

37、h.Text=4Thenfirstday=Year(Date)&“一&Mmonth.Text&”-1days=DateDiff("d”,Year(Date)&"-"&Mmonth.Text&-Year(Date)&一&Mmonth.Text+1&-1)lastday=Year(Date)&一&Mmonth.Text&一&daysCallsumsalary(firstday,lastday)sql="select*fromsalarystatistics

38、frmresult.SSTabl.Caption="職職員資統(tǒng)計列表”Callfrmresult.listtopicCallfrmresult.showdata(sql)frmresult.Caption="統(tǒng)計結(jié)果列表“frmresult.ZOrder0UnloadMeElseMsgBox那個月的工資未統(tǒng)計“，vbOKOnly+vbExcTarnation,提示EndIf9、選擇“工資信息治理”一“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認的是查詢出數(shù)據(jù)庫中所有的記錄（當治理員進入的時候），當從“職員編號”下拉列表中選擇一個職員編號后，單擊“查詢單人”按鈕，就會

39、查詢出符合那個職員編號的記錄；假如需要返回查詢所有信息，單擊“查詢所有”按鈕,系統(tǒng)就會返回所有職員的信息。在“職職員資統(tǒng)計列表”中單擊鼠標右鍵，會彈出下圖的菜單，在“職員其他項目列表”中單擊鼠標右鍵也會顯現(xiàn)下圖的菜單。添加基本工資設(shè)置修改基本工資設(shè)置刪除基本工資設(shè)置假如要選擇“刪除差不多工資設(shè)置”，顯現(xiàn)如下的提示:具體的操作那個地點就不詳細介紹。工黃統(tǒng)計結(jié)果二二二蛋詢單人去詢所有:二二1m員工殘本工資列表員工其他項日列表員工工資%計列發(fā)10、選擇“工資信息治理”->“導出工資表”菜單，會顯現(xiàn)下圖的“導出記錄”窗體中選擇需要導出工資的月份。選擇月份和儲存位置后，單擊“導出”按鈕，系統(tǒng)會開始

40、導出數(shù)據(jù)。zl保存為工程1是否轉(zhuǎn)到導出的文件？二期定二二I取消I單擊“確定”按鈕打開導出的文件，單擊“取消”按鈕回到系統(tǒng)。4.4各項子模塊編寫要點在登錄的那個窗體里，我做的特點是：只要在數(shù)據(jù)庫里有用戶信息的，都能夠登錄，然后顯示相關(guān)自己的信息，而治理員顯示所有的信息。當輸入的用戶名或密碼不正確的時候，會顯現(xiàn)如下的對話框：或者在主窗體的設(shè)計中，我在系統(tǒng)的下拉菜單里包括有添加用戶、修改密碼和退出系統(tǒng)。在那個模塊里一般用戶只有修改自己的密碼的權(quán)益。在添加用戶的窗體里：添加3個標簽、3個文本框和2個命令按鈕，然后設(shè)置它們相關(guān)的屬性。在修改密碼的窗體里：添加了3個標簽，用來顯示信息；3個文本框用來輸入用

41、戶名稱和用戶密碼；2個按鈕用來確定和取消操作，然后設(shè)置它們的屬性。在工資信息設(shè)置的下拉菜單里包括有差不多工資信息設(shè)置、其他項目信息設(shè)置和運算公式設(shè)置。在那個模塊里，一般用戶沒有任何權(quán)益進行相關(guān)的操作。在差不多工資窗體里：添加了2個選項按鈕、2個下拉列表、2個標簽、1個文本框和2個按鈕，然后設(shè)置它們的屬性。在其他項目設(shè)置的窗體里：使用了一個DTPicker控件獲得添加記錄的時刻，要使用那個控件需要添加部件類庫，選擇“工程一部件”命令，選擇MicrosoftWindowsCommonControls_26.0(sp4)項，然后設(shè)置相關(guān)的屬性。在工資信息治理的下拉菜單里包括有統(tǒng)計出勤信息、運算實發(fā)工

42、資、查詢工資和導出工資表。在那個模塊里，一般用戶有統(tǒng)計出勤信息和查詢工資的權(quán)益，然而都顯示的是自己的信息。在出勤統(tǒng)計窗體里：添加一個下拉列表、一個標簽和2個命令按鈕，然后設(shè)置相關(guān)的屬性。在出勤結(jié)果信息列表的窗體里：使用了Adodc控件和DataGrid控件，控件的Visible屬性一定要設(shè)置為False。在運算實發(fā)工資窗體里添加的控件和統(tǒng)計出勤記錄窗體的控件相同。在工資統(tǒng)計列表窗體里：使用了SSTab控件，在每一個標簽上添加一個MSFlexGrid控件，然后設(shè)置它們的屬性。在導出工資表的窗體中使用了CommondDialog控件，要使用那個控件需要在"控件”窗體中，選擇Microso

43、ftCommonDialogControl6.0(sp3)項，同時因為數(shù)據(jù)表格是導出到Excel,因此需要添加引用。選擇“工程一引用”菜單，在“引用”窗體中選擇MicrosoftExcel9.0ObjectLibrary項，如此才能夠成功導入到Excelo在那個窗體里，我做的特點是：權(quán)益分工明確。當治理員進入的時候他有所有的權(quán)益，單擊哪個模塊就會彈出相對應的窗體。而一般用戶則不能，我把它進行了權(quán)限設(shè)置，會彈出權(quán)限的對話框。在添加用戶的窗體里，假如輸入的用戶密碼和確認密碼不一致，將顯現(xiàn)一個警告對話框：然后輸入與用戶密碼相同的密碼，我那個地點的密碼差不多上以*的形式表達,是不可見的。添加的用戶將儲

44、存在數(shù)據(jù)庫的userinfo里。單擊“取消”按鈕就卸載此窗體，添加用戶的過程到此完成。在修改密碼的窗體里，我要注重講解一下：當輸入的舊密碼與登錄時的密碼不一致將顯現(xiàn)提示對話框（如圖一），當輸入的“確認新密碼”和“輸入新密碼”的密碼不一致時也將顯現(xiàn)警告對話框（如圖二）。我在做那個窗體時遇到了一個咨詢題：確實是輸入的新密碼確認后，當你再一次的進入修改密碼窗體輸入舊密碼時，假如輸入的是剛剛修改過的密碼，就會顯現(xiàn)錯誤。通過一段時刻的摸索，我發(fā)覺緣故是修改過的密碼沒有覆蓋登錄時的密碼，因此會顯現(xiàn)咨詢題。我覺得這是一個專門大的咨詢題，在不的書上可能沒注意到這一點，因此我要注重的講一下，這是我做那個窗體時的

45、最大體會。圖一圖二在建立差不多工資窗體時，那個窗體會在兩個地點使用到，一個確實是添加,另一個確實是修改，在窗體投入時系統(tǒng)應自動判定狀態(tài)。選擇職員編號或選擇職務(wù)，然后填寫工資金額，單擊“確定”按鈕，系統(tǒng)就會按照選擇的方式，設(shè)置職員的差不多工資。在做差不多工資那個窗體時，我的方法是：當你在修改差不多工資的信息，第一都要從數(shù)據(jù)庫中調(diào)出相關(guān)的信息，然后把它刪除掉，再從數(shù)據(jù)庫中的職員信息表中調(diào)出所要的信息，然后再一次的添加所要設(shè)置的信息。當你沒輸入職員編號的時候，會顯現(xiàn)下圖的對話框：當沒輸入職員的職務(wù)時會顯現(xiàn)錯誤的信息O在建立其他項目設(shè)置的窗體時，也在兩個地點使用，即添加和修改，在載入時也需要判定狀態(tài)。

46、選擇職員編號，再選擇需要添加的項目和進額，單擊“確定”按鈕，即可添加其他項目。在其他項目設(shè)置那個窗體里，我用了一個Frame控件和幾個optionButton控件，目的在于：在添加其他項目時，只能有一個設(shè)置是有效的，而且還能夠添加其他的項目，還有備注等等，這些都便于記錄。那個地點還有一個DTPicker控件是用來記錄添加其他項目的時刻，我覺得那個控件專門好。還有確實是每次添加成功后，系統(tǒng)需要初始化，更新一下。在設(shè)置完那個窗體后將會彈出查詢工資的窗體。在建立工資運算公式的窗體時，輸入內(nèi)容后，單擊“確定”按鈕，設(shè)置運算公式中使用的數(shù)字。在運算公式設(shè)置的窗體里，單擊“復原默認值”按鈕系統(tǒng)將會復原公式

47、中的默認值。那個地點的復原默認值功能采納的方法比較簡單，確實是在一個函數(shù)中設(shè)置了固定的默認值。假如需要使用可變的默認值，能夠在數(shù)據(jù)庫中設(shè)置一項默認值字段，如此能夠方便的更換默認值。當輸入的格式與設(shè)定的格式不一致的時候，會彈出相關(guān)的對話框。建立出勤統(tǒng)計窗體，選擇月份后，單擊“確定”按鈕，開始統(tǒng)計出勤記錄。在統(tǒng)計出勤信息的窗體里，這要和出勤記錄的數(shù)據(jù)庫相連，假如輸入的月份沒有統(tǒng)計將如下的對話框：假如輸入的月份有統(tǒng)計記錄則彈出如下的對話框:然后彈出出勤結(jié)果的窗體，顯示數(shù)據(jù)庫中統(tǒng)計信息相關(guān)的記錄。企業(yè)工資官理系統(tǒng)-r茸工出新結(jié)果東筑工資信息設(shè)置工資信息若更關(guān)于出勁結(jié)果idstuff)(1P000001

48、束輦.50P000002季詠57P000003王小丫丸P000004水均差.59P000005白巖松60P000006藥東61P000007芟徒翔62P000003劉住宏63P00000964POOOOOIO治理員能看到的界面企業(yè)工貧管理系統(tǒng)-員工出新結(jié)果系統(tǒng)工夷信息設(shè)百工s信息音到關(guān)于出勤結(jié)果ImtuffidP000001|<|這是用戶登錄所顯示的用戶信息建立運算實發(fā)工資的窗體，那個窗體的建立和統(tǒng)計出勤記錄的窗體比較相似,選擇月份后，單擊“開始統(tǒng)計”按鈕，即可統(tǒng)計職職員資。在運算實發(fā)工資的窗體里，假如輸入的月份的工資沒統(tǒng)計會彈出如下的對話框:否則會顯現(xiàn)如下的對話框:單擊“確定”后，就會

49、顯現(xiàn)工資信息列表，這時你將看見所有關(guān)于你想要的建立工資查詢的窗體，在選擇職員編號后，單擊“查詢單人”按鈕，返回選擇職員的相關(guān)信息。單擊“查詢?nèi)俊卑粹o，系統(tǒng)返回全部職員的信息。在建立工資查詢（即工資統(tǒng)計結(jié)果列表）的窗體時，我覺得這是一個最難的窗體。不僅是因為它的設(shè)置，還有確實是它的代碼和數(shù)據(jù)庫相連的操作。在那個窗體中使用了SSTab控件，在每一個標簽上添加一個MSFlexGrid控件。當你是治理員登錄的時候，他的權(quán)限是所有，當你是用戶登上的時候，窗體只顯示登錄用戶本人的相關(guān)信息。他沒有任何權(quán)限，只能看到自己的信息，這是我做那個窗體的特色。窗體的部分代碼為：sql="selectsid

50、fromstuffinfowheresndme='&strusername&'Setrs=getrs(sql,"salary")WhileNotrs.EOFMid.Additemrs(0)rs.MoveNextWendrs.CloseEndIfMid.Listindex=0SelectCaseMe.SSTabl.TabCase0sql="select*fromsalarysetting”CallbasictopicCallshowbasic(sql)Case 1sql="select*fromsalaryotherCall

51、othertopicCallshowother(sql)Case 2sql="select*fromsalarystatisticsorderbyiddescCalllisttopicCal1showdata(sql)EndSelectEndIfElsesql="selectsidfromstuffinfowheresname='&strusername&Setrs=getrs(sql,"salary")WhileNotrs.EOFMid.Additemrs(0)rs.MoveNextWendrs.MoveFirstsd=rs(0)rs.CloseM