1、精品講座下載網： .海量管理講座下載數(shù)據(jù)庫課程設計報告企業(yè)員工工資管理系統(tǒng)姓 名：班 級：學 號：指導教師：成 績：完成時間：完成地點：精品講座下載網： .海量管理資源下載，40000多講培訓視頻，最新最全！聯(lián)系 QQ: 815250251企業(yè)的工資管理是公司管理的一個重要內容。工資管理既涉及到企業(yè)勞動人事的管 理，同時也是企業(yè)財務管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接 工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費、 實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運作，企業(yè) 員工的工資是企業(yè)資金管理的一個重要的組成部分。

2、但考慮到學生的開發(fā)時間，本次設計 主要闡述員工工資管理系統(tǒng)主要是以企業(yè)員工工資情況為對象而開發(fā)的。涉及系統(tǒng)比較 小，有利于學生單獨編寫。其系統(tǒng)的設計主要包括數(shù)據(jù)庫的設計、維護和應用界面的設計 與后臺數(shù)據(jù)庫的連接。經分析采用 Microsoft公司開發(fā)的Visual Basic 6.0 為開發(fā)工具， Microsoft SQL sever 2000為后臺數(shù)據(jù)庫。Visual Basic （ 簡稱 VB）H由 Microsoft 公司推出的在Windows操作平臺下最迅速、最簡捷的應用開發(fā)工具之一。它引入了面向對象的 程序設計思想和“控件”的概念，使得大量已經編好的Visual Basic 程序可

3、以直接拿來使用。同時VB具有簡單、易學的特點，是大多數(shù)初學者最理想的編程語言，也是專業(yè)人 員得心應手的開發(fā)工具。它在一個公共環(huán)境里集成了許多不同的功能，例如，設計、編輯、編譯和調試。目前市場上數(shù)據(jù)庫的主流廠商及產品有舊M DB2、Microsoft SQL SERVER2000、ORACLE 9i、Sybase Microsoft SQL Server 2000 是在 SQL Server 7.0 的基礎上 對性能、可靠性、質量以及易用性進行了擴展。SQL Server 2000中包含許多新特性，這些特性使其成為針對電子商務、數(shù)據(jù)倉庫和在線商務解決方案的卓越的數(shù)據(jù)庫平臺。其增 強的特性包括對豐

4、富的擴展標記語言（XML的支持、綜合分析服務以及便捷的數(shù)據(jù)庫管 理。Microsoft SQL Server 2000 簡化了管理、優(yōu)化工作，并且增強了迅速、成功的部署 在線商務應用程序所需的可靠性和伸縮性。關鍵詞：工資管理系統(tǒng)、設計、開發(fā)工具28目錄摘要1目錄2第一章緒論31.1 問題的提出31.2 系統(tǒng)設計功能4第二章數(shù)據(jù)庫系統(tǒng)設計52.1 數(shù)據(jù)庫分析設計 52.2 數(shù)據(jù)各個表之間的關系 6第三章各個關系間的數(shù)據(jù)結構 73.1 系統(tǒng)設計目標73.2 系統(tǒng)概要分析7第四章企業(yè)工資管理系統(tǒng)應用設計 94.1 企業(yè)工資管理系統(tǒng)設計 94.2 子模塊的設計11第五章 各個模塊部門代碼 165.1

5、登陸界面165.2 各個子模塊代碼設置 17第六章各模塊設計要點246.1 登錄模塊設計246.3 用戶管理設計246.4 信息管理設計256.5 查詢工資設計25第七章結束語26致謝26參考文獻27第一章緒論1.1 問題的提出隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復雜。早期的工資統(tǒng)計和 發(fā)放都是使用人工方式處理紙質材料，不僅花費財務人員大量的時間且不易保存，往往由 于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。早期工資管理多采取紙質 材料和具有較強的時間限制。隨著我國國民經濟建設的蓬勃發(fā)展和具有中國特色的社會主 義市場經濟體制的迅速完善，各個行業(yè)都在積極使用現(xiàn)代化的手

6、段，不斷改善服務質量， 提高工作效率，這些都在很大程度上給企業(yè)提出越來越嚴峻的挑戰(zhàn)，對企業(yè)體系無論是在 行政職能、企業(yè)管理水平以及優(yōu)質服務上都提出更高的要求。建設一個科學高效的信息管 理系統(tǒng)是解決這一問題的必由之路。企業(yè)內部財務管理是該企業(yè)運用現(xiàn)代化技術創(chuàng)造更多 更高的經濟效益的主要因素之一。工資管理作為企業(yè)內部的一種財務管理也是如此，由于 企業(yè)職工人數(shù)較多，每一位職工的具體實際情況也不盡相同，各項工資條款的發(fā)放，如果 沒有一個完整的管理系統(tǒng)對企業(yè)和員工的工作都帶來許多的不便?；谝陨显?，企業(yè)工 資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、 自動化。工資管理

7、系統(tǒng)是企、事業(yè)單位常見的計算機信息管理系統(tǒng)。它的主要任務是對各種工 資信息進行日常的信息管理，如工資信息的輸入、查詢、修改、增加、刪除，迅速準確地 完成各種工資信息的統(tǒng)計計算和匯總，快速打印出報表。在建立與實現(xiàn)工資管理系統(tǒng)時， 進行了功能劃分，能夠由數(shù)據(jù)庫管理系統(tǒng)完成的功能應盡可能由數(shù)據(jù)庫管理系統(tǒng)守成，充 分發(fā)揮數(shù)據(jù)庫管理系統(tǒng)高效、完全、可靠、便捷的性能，減少編程人員的工作量。工資管 理系統(tǒng)是數(shù)據(jù)庫管理系統(tǒng)的一個比較典型的應用，前臺使用的是微軟的VB6.0,后臺數(shù)據(jù)庫采用Microsoft SQL Sever數(shù)據(jù)庫。運行結果證明，本企業(yè)員工工資管理系統(tǒng)極大提高 了工作效率，節(jié)省了人力和物力，自

8、重滿足企業(yè)員工工資管理的需要。1.2 系統(tǒng)設計功能企業(yè)工資管理系統(tǒng)的主要任務是用計算機對各種工資信息進行日常的管理，如查詢、 修改、添加、刪除以及存儲等，迅速準確地完成各種工資信息的統(tǒng)計計算和匯總工作，針 對系統(tǒng)服務對象的具體要求，設計了企業(yè)工資管理系統(tǒng)。企業(yè)工資管理系統(tǒng)主要有以下幾 大功能：(1)對單位人員的變動進行處理。一個單位的職工不會是一成不變的，總是在不斷的變化: 有調出、有調入、也有職工在本單位內部調動。因此，設計系統(tǒng)是應考慮到這些情況。(2)對職工的工資進行計算、修改?？梢詫β毠さ墓べY檔案進行個別、部分和批量修改， 同時，能對各職工的工資進行計算，即計算基本工資、崗位工資、水電費

9、及實發(fā)金額等。(3)查詢統(tǒng)計功能。要求即可以單項查詢，比如查看某個職工的工資情況等；也可以多項 查詢，比如某個部門所有的員工的工資信息。(4)對用戶管理功能。一個系統(tǒng)的應用有管理員和普通用戶，他們對系統(tǒng)的權限受到限 制。第二章數(shù)據(jù)庫系統(tǒng)設計2.1 數(shù)據(jù)庫分析設計需求分析的過程可以說是一個對具體問題的反復理解和抽象的過程。理解就是對現(xiàn)實 問題的理解，要弄清楚究竟需要解決什么問題。抽象就是除去問題的表面，提取問題的本 質，建立問題的邏輯模型，以便于以后階段的系統(tǒng)的設計實現(xiàn)。需求分析階段是軟件產品 生存命期中的一個重要階段，其根本任務是確定用戶對軟件系統(tǒng)的需求。所謂需求是指用 戶對軟件的功能和性能的

10、要求，就是用戶希望軟件能什么事情，完成什么樣的功能，達到 什么性能。此次課程設計的使用者是企業(yè)的員工，主要是針對系統(tǒng)的管理員。其進行的操 作就是對公司員工、部門等一些方面改動的改善。由此對員工需求分析如下。用戶的需求就是對員工工資和使用用戶的添加、刪除、修改和查詢。這就要求各種信 息中存在實體完整性、參照完整性和用戶自定義完整性。搜集了各項要求，故數(shù)據(jù)項要求 設計如下：表2.1員工信息表鍵名稱數(shù)據(jù)類型大小空默認值主鍵員工編號char8/、可以姓名char8/、可以性別char2可以“男”出生年月datetime8可以外鍵所屬部門char4可以文化程度char4可以職稱char12可以表2.2部

11、門信息鍵名稱數(shù)據(jù)類型大小空默認值主鍵部門編號char4/、口以部門名稱char20可以部門負責char8可以部門人數(shù)int4可以表2.3基本工資鍵名稱數(shù)據(jù)類型大小空默認值主鍵工資級別char2可以工資金額numeric5(8,2)/、可以表2.4崗位工資鍵名稱數(shù)據(jù)類型大小空默認值主鍵工資級別char2可以工資金額numeric5(8,2)/、可以表2.5工資信息鍵名稱數(shù)據(jù)類型大小空默認值主鍵、外鍵員工編號char8/、可以外鍵部門編號char4可以基本工資numeric5(8,2)可以崗位工資numeric5(8,2)可以水電費numeric5(8,2)可以實發(fā)工資numeric5(8,2)可

12、以2.2 數(shù)據(jù)各個表之間的關系在設計過程中，從用戶的角度考慮來處理各個表之間的約束關系，把概念模式轉化成 邏輯模式最終形成E-R圖。員工信息表（員工編號、姓名、性別、出生年月、所屬部門、文化程度、職稱 ） 部門信息表（部門編號、部門名稱、部門負責人、部門人數(shù) ）基本工資表（工資級別、工資金額）崗位工資表（工資級別、工資金額）工資信息表（員工編號、部門編號、基本工資、崗位工資、水電費、實發(fā)工資）各個模塊之間的關系，如圖2.1所示?；竟べY?工資皴別工資金額兩位工資 g工資級別 -工資金領工資信息 月員工編號 _部門騙號 二基本工資 .崗僮工資水電費部門信息1?部門編號部門名稱 部強責人 部門人數(shù)

13、1圖2.1各表之間的聯(lián)系用戶表用戶名 密碼挪艮實發(fā)金甑第三章 各個關系間的數(shù)據(jù)結構3.1 系統(tǒng)設計目標開發(fā)這個系統(tǒng)的目的就是幫助企業(yè)的財務主管部門提高工作效率，實現(xiàn)企業(yè)工資信 息管理的系統(tǒng)化、規(guī)范化和自動化。實現(xiàn)企業(yè)高效、科學、現(xiàn)代化的員工管理。系統(tǒng)最終 實現(xiàn)的主要功能如下。 企業(yè)工資信息設置部分：包括設置員工的基本工資和其他項目的金額，如水電費。 企業(yè)信息管理部分：包括員工信息、部門信息和發(fā)放工資（工資信息）。 企業(yè)員工查詢部分：包括按員工查詢和按部門查詢。 系統(tǒng)部分：包括添加用戶、修改用戶信息。3.2 系統(tǒng)概要分析用戶在使用一個系統(tǒng)時，必須先登錄操作界面，在操作完成后然后再退出，具操作如

14、圖3.1所示。注銷登錄退出系統(tǒng)用戶顯不屏幕圖3.1系統(tǒng)流程圖說明：操作員進入管理系統(tǒng)的身份不同，所獲得的權限也不同，普通用戶只可以查詢自己的工資情況，而且部門對自己的所有信息進行更改。用戶用戶管理工資設置 信息管理 工資查詢圖3.2用戶操作模塊說明：管理員可以對所有模塊進行操作，普通用戶只可以進行查詢員工工資的權限。圖3,3圖3,4圖3.5圖3 6說明：在各個子模塊操作時用戶同時在實現(xiàn)更改的時候在對話框上的網格看到后臺數(shù)據(jù)庫 最新的動態(tài)。各個模塊簡介：登錄模塊：主要完成用戶的登錄信息核對并進入主界面。用戶管理模塊：主要完成對用戶信息的添加、修改和刪除功能。信息設置模塊：主要對企業(yè)內部員工和部門

15、的管理。工資查詢模塊：主要完成對員工工資的查詢。第四章企業(yè)工資管理系統(tǒng)應用設計4.1 企業(yè)工資管理系統(tǒng)設計4.1.1 登陸模塊”詳細設計登錄模塊”的設計主要是針對用戶登錄界面的設計，判斷用戶是管理員還是普通用戶， 從而進入主界面。登陸界面主要由用戶名和密碼的信息，還有標題的設置，登錄和取消按鈕的設置。用戶只有選擇用戶名后填入相應的密碼后點擊登錄”才能進入主界面，點擊 取消”會退出系統(tǒng)。由此，登陸界面設計如圖4.1所示圖4.1登陸界面設計界面若用戶對此有操作上的錯誤，我設計的特點是都有提示的對話框（幾乎每個窗體都設相同的提示在以后的篇幅中不再一置了如下操作，除了特殊的提示外，為節(jié)省打印紙張, 一

16、寫出），如圖4.2所示4.2 操作錯誤提示若用戶三次輸入密碼錯誤，系統(tǒng)會認為惡意進入，系統(tǒng)自動關閉。如圖 4.3所示圖4.3強制關閉圖4.1.2主界面”的詳細設計主界面的設計是由菜單編輯器生成，主要由系統(tǒng)設置、設置、信息維護、工資查詢五 個模塊組成。其作用是使程序更加有條有理，有利于管理。其中普通用戶只可部分操作， 管理員可以對所有模塊進行操作。主界面設計如圖4.4所示：SSB員工工費管理系統(tǒng)JLJ圖4.4主界面設計圖4.2子模塊的設計4.2.1 選擇“系統(tǒng)設置” 一 “用戶管理” 一 “用戶添加”菜單，在添加用戶的窗體里 輸入用戶名、用戶密碼和權限，系統(tǒng)自動新增用戶名及其用戶信息。如圖 4.

17、5所示。為了防止用戶在輸入密碼時按錯鍵或者一時忘記密碼，我在設計的時候運用了 “確認 密碼”的文本框，其屬性與密碼項相同?？梢杂脕沓C正用戶一時的粗心大意目的，完善了 系統(tǒng)的完整性。一用戶管理圖4.5用戶添加4.2.2 .選擇”系統(tǒng)設置4”用戶管理“t用戶修改菜單，其窗體由五個標簽、兩個文 本框、兩個組合框和一個按鈕組成，分別設置它們的屬性，其中兩個組合框的屬性設置為 只讀屬性。在用戶修改的窗體里選擇用戶名即可修改用戶密碼和權限，系統(tǒng)價自動更改后 臺數(shù)據(jù)庫的用戶信息。設計界面如圖 4.6所示圖4.6用戶修改4.2.3選擇”系統(tǒng)設置“一用戶管理“t用戶刪除 菜單，窗體設計較簡單，分別由一個文本框、

18、一個組合框和兩個按鈕組成，組合框的屬性設置為只讀屬性。由于刪除的用戶只 可以是后臺數(shù)據(jù)庫中存在的用戶在下拉按鈕中選擇要刪除的用戶名，即可刪除用戶名及其 有關信息。關于用戶管理的子菜單，只有管理員有權限進入設置。4.2.4 選擇”設置“t基本工資 菜單，自動彈出基本工資設置的對話框（如圖4.7所示）， 在網格中會顯示數(shù)據(jù)庫中現(xiàn)有的基本工資級別和金額，用戶在填寫完級別和金額后單擊添 加或者修改按鈕進行后臺數(shù)據(jù)庫的更新。 在網格中選擇要刪除的基本工資，點擊刪除按鈕， 系統(tǒng)會自動進行刪除，并且所有的操作后會自動刷新網格，以及時提供給用戶信息。圖4.7 基本工資設置4.2.5 選擇”設置“t崗位工資 菜

19、單后，自動彈出對話框，其功能與基本工資設置相同， 在此不在贅述。4.2.6 選擇”信息維護“一門管理 菜單后會出現(xiàn)如圖4.9所示對話框，管理員用戶可 以通過網格瀏覽現(xiàn)有庫中的部門信息，在部門信息框架中輸入部門信息，同時也可添加、 修改部門信息，數(shù)據(jù)庫自動更新。當刪除一條信息時，會出現(xiàn)如圖 4.8所示提示信息，用 戶可以選擇刪除或者取消操作。但如其部門已經被引用，則delete”語句會與約束條件發(fā)生 沖突，不能刪除。真的要刪除該部門T否圖4.8確定刪除對話框 Itai x添加圖4.9部門管理設置4.2.7 選擇”信息維護“一員工管理 菜單后會出現(xiàn)如下對話框，“性別”組合框默認為“男”，如用戶輸入

20、的不是“男”或者是“女”時，添加操作將不能進行，并且在填寫員 工信息時，員工的性別默認為 男”。其進行的操作與部門管理相同，不再贅述。4.2.8 選擇”信息管理“一發(fā)放工資菜單，網格顯示的是現(xiàn)有后臺數(shù)據(jù)庫中的員工工資 信息，右邊可以直接瀏覽員工工資信息。直接點擊選擇網格中的工資信息，單擊刪除按鈕 可直接刪除?？紤]到設計頁面的大小問題，對工資信息的添加和修改操作轉移到另一個窗 體（如圖4.10所示）中進行。用戶可以在工資信息中輸入員工的工資信息，由于添加和修改的操作同時在一個窗體中進行，員工編號不知道要添加的哪一個，所以員工編號的下拉按鈕不是只讀”屬性，用戶在輸入員工編號時應輸入一個存在的員工，

21、不然則彈出如圖4.11所示的提示框。，添加工整信息工資信息基本工資：崗位工資：水電費：修改取消圖4.10工資信息設置員工編號：圖4.11員工不存在提示4.2.9 選擇 工資查詢” 一按員工查詢”菜單，彈出如圖4.12所示對話框，用戶可以選擇 單人查詢或者全部顯示，但是不能對員工的工資做任何的改動。管理員可以查看所有人的工資情況，但是普通用戶只可以查看自己的工資情況，別人 的工資情況不允許查看。圖4.12按員工查詢4.2.10 選擇工資查詢” 一按部門查詢”菜單，彈出對話框，當選擇部門編號”后可執(zhí)行 單個顯示”，若想全部顯示，可直接單擊”顯示所有 按鈕。網格中將會同時刷新后臺數(shù)據(jù)庫 信息，但是不

22、能做任何的修改。第五章各個模塊部門代碼1.1 登陸界面Static try_times As IntegerDim sql As StringDim rst As ADODB.RecordsetIf Trim(cmo_user.Text) = ThenMsgBox 請選擇用戶名, vbOKOnly + vbInformation,提示 cmo_user.SetFocusElseIf Trim(txt_key.Text) = ThenMsgBox 請輸入密碼, vbOKOnly + vbExclamation,提示 txt_key.SetFocusElsesql = select * from

23、用戶表 where 用戶名=& Trim(cmo_user.Text) & ” Set rst = ExecuteSQL(sql,)If Trim(rst.Fields(1) = Trim(txt_key.Text) Thentempuser = Trim(cmo_user.Text)power = Trim(rst.Fields(2)username = Trim(cmo_user.Text)rst.Closefrm_main.Show Unload MeIf power 管理員Thenfrm_main.set.Enabled = Falsefrm_main.defend = False E

24、nd IfElseMsgBox 密碼不正確，請重新輸入, vbOKOnly + vbExclamation,”警告 txt_key.SetFocus txt_key.Text =try_times = try_times + 1If try_times = 3 ThenMsgBox 您已三次嘗試進入本系統(tǒng)失敗，系統(tǒng)將自動關閉 , vbOKOnly + vbExclamation,結束Unload MeEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Dim i As IntegerDim sql As StringDim rst As

25、ADODB.Recordset sql = select用戶名from 用戶表 Set rst = ExecuteSQL(sql,) For i = 1 To rst.RecordCount cmo_user.AddItem (rst.Fields(0) rst.MoveNext Next i rst.Close End Sub1.2 各個子模塊代碼設置1.2.1 以用戶添加為例，部分代碼如下所示Private Sub cmd_add_Click()Dim rst As ADODB.RecordsetDim sql As StringDim i As IntegerIf Trim(txt_ad

26、duser.Text) = Or Trim(txt_addkey.Text) = Or Trim(cmo_addpower) = Then MsgBox 請將用戶信息填寫完整！ , vbOKOnly + vbExclamation,警告 txt_adduser.SetFocus txt_adduser.Text = txt_addkey.Text = txt_rekey.Text = cmo_addpower.ClearCall Form_LoadElsesql = select用戶名from 用戶表”Set rst = ExecuteSQL(sql,)If Trim(txt_adduser.

27、Text) = Trim(rst.Fields(0) ThenMsgBox 您輸入的用戶已經存在，請重新輸入！, vbOKOnly + vbExclamation,警告rst.Closetxt_adduser.SetFocus txt_adduser.Text = txt_addkey.Text =cmo_addpower.ClearCall Form_Loadtxt_rekey.Text =ElseIf Trim(txt_addkey.Text) Trim(txt_rekey.Text) ThenMsgBox 兩次輸入的密碼不相同，請重新輸入！”, vbOKOnly + vbExclamat

28、ion,”警告 txt_addkey.SetFocustxt_addkey.Text =txt_rekey.Text =Elsesql = insert into 用戶表 values( & & Trim(txt_adduser.Text) & , _6 & Trim(txt_addkey.Text) & , _7 & Trim(cmo_addpower) & & )Set rst = ExecuteSQL(sql,)MsgBox 添加成功, vbOKOnly + vbExclamation,添加結果 txt_adduser.SetFocustxt_adduser.Text =txt_addk

29、ey.Text =txt_rekey.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 Sub5.2.2 工資設置代碼以基本工資中的修改和刪除為例，崗位工資與基本工資雷同，不再贅述。Private Sub cmd_alter_Click()If Trim(cmo_scale.T

30、ext) = Or Trim(txt_money.Text) = ThenMsgBox 請?zhí)顚懶枰薷牡男畔ⅲ? vbOKOnly + vbExclamation,警告cmo_scale.SetFocuscmo_scale.Text =txt_money.Text =Elsesql = select 工資級別 from 基本工資 where 工資級別=& Trim(cmo_scale.Text) & Set rst = ExecuteSQL(sql,)If rst.RecordCount = 0 ThenMsgBox ”您輸入的級別不存在，請重新輸入！, vbOKOnly + vbExclam

31、ation,警告cmo_scale.SetFocuscmo_scale.Text =txt_money.Text =Elsesql = update 基本工資 set 工資金額=& Trim(txt_money.Text) & where 工資級別=&Trim(cmo_scale.Text) & ”Set rst = ExecuteSQL(sql,)MsgBox 修改成功！ , vbOKOnly + vbInformation,操作結果cmo_scale.SetFocuscmo_scale.Text =txt_money.Text =Call Form_LoadEnd IfEnd IfEnd

32、SubPrivate Sub cmd_cancel_Click()If rst.RecordCount 0 ThenIf MsgBox(真的要刪除該工資級別嗎？, vbYesNo + vbQuestion,警告)=vbYes Then rst.DeleteMsgBox 刪除成功！”, vbInformation,提示cmo_scale.SetFocusCall Form_LoadElsecmo_scale.SetFocusEnd IfEnd IfEnd sub5.2.3 企業(yè)信息維護代碼以員工修改為例，部門修改雷同。Private Sub cmd_add_Click()If Trim(cmo_

33、number.Text) = ThenMsgBox 請?zhí)顚憜T工編號！cmo_number.SetFocusElseSet rst = ExecuteSQL(select * from 員工信息 where 員工編號=& Trim(cmo_number.Text)& 山,)If rst.RecordCount 0 ThenMsgBox ”該員工已經存在，請重新輸入員工編號！, vbOKOnly + vbInformation,提示cmo_number.SetFocusElseIf Trim(txt_name.Text) = ThenMsgBox 員工姓名不允許為空！txt_name.SetFoc

34、usElseIf Trim(cmo_sex.Text) = Then MsgBox 性別不允許為空！ cmo_sex.SetFocusElseIf Trim(cmo_dept.Text) = ThenMsgBox 員工部門不允許為空！cmo_dept.SetFocusElseIf Trim(cmo_education.Text) = ThenMsgBox 員工文化程度不允許為空！cmo_education.SetFocusElseIf Trim(txt_title.Text) = Then MsgBox 職稱不允許為空！ txt_title.SetFocusElse sql = insert

35、into 員工信息 values ( & & Trim(cmo_number.Text) & , _& & Trim(txt_name.Text) & , _& ” & Trim(cmo_sex.Text) & , _& & Trim(DTPbirthday.Value) & ,& ” & Trim(cmo_dept.Text) & , _& & Trim(cmo_education.Text) & & ” & Trim(txt_title.Text) & )Set rst = ExecuteSQL(sql,)cmo_number.SetFocuscmo_number.Cleartxt_nam

36、e.Text =cmo_sex.Text =明cmo_dept.Clearcmo_education.ClearDTPbirthday.Refresh txt_title.Text =操作結果Call Form_LoadMsgBox 操作成功！ , vbOKOnly + vbInformation,End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()sql = select員工編號from 員工信息Set rst = ExecuteSQL(sql,)For i = 1 To rst.RecordCoun

37、tcmo_number.AddItem (rst.Fields(0)rst.MoveNextNext isql = select部門編號from 部門信息Set rst = ExecuteSQL(sql,)For i = 1 To rst.RecordCountcmo_dept.AddItem (rst.Fields(0)rst.MoveNextNext iWith cmo_education.AddItem 高中以下.AddItem 高中.AddItem 中專.AddItem 大專.AddItem ”本科.AddItem 研碩.AddItem 博士.AddItem 博士后End Withsq

38、l = select * from 員工信息Set rst = ExecuteSQL(sql,)Set DataGrid1.DataSource = rstEnd Sub5.2.4查詢員工信息Private Sub cmd_single_Click()Dim sql As StringDim rst As ADODB.RecordsetIf Trim(cmo_number.Text) = ThenMsgBox ”請選擇員工編號！ , vbOKOnly + vbExclamation,警告 cmo_number.SetFocusElseIf Trim(cmo_number.Text) usern

39、ame And power 管理員ThenMsgBox 你不能查看其他員工的工資信息！, vbOKOnly + vbExclamation,警告Elsesql = select * from 工資信息 where 員工編號=& Trim(cmo_number.Text) & Set rst = ExecuteSQL(sql,)Set DataGridl.DataSource = rstEnd IfEnd IfEnd SubPrivate Sub Form_Load()Dim sql As StringDim rst As ADODB.Recordsetsql = select員工編號from

40、工資信息”Set rst = ExecuteSQL(sql,)For i = 1 To rst.RecordCountcmo_number.AddItem (rst.Fields(0)rst.MoveNextNext iEnd Sub第六章各模塊設計要點6.1 登錄模塊設計登錄模塊是所有用戶進入工資管理系統(tǒng)的唯一途徑，除了確定用戶類型以外，還要注 意用戶登錄的密碼是否與后臺數(shù)據(jù)庫的一致，如果不一致則會彈出圖4.2所示的提示信息。 用戶在登錄模塊出現(xiàn)的所有情況我都予以考慮了。在用戶登錄時根據(jù)判斷用戶的權限，在 模塊中有 “If power 管理員Then frm_main.set.Enabled

41、 = False frm_main.defend = False”的代碼，此項決定了主界面的操作模塊。在調試所有登錄情況都成功后，我想到了一種惡意登錄此系統(tǒng)的情況，因此我設置了 “try_times”來限制用戶的強制登錄如圖 4.3所示。6.3 用戶管理設計在添加用戶模塊中，我仿造了一般填寫信息時的方法設計了 “確認密碼”操作，如果 在操作錯誤時候會彈出如圖6.1所示的提示信息，點擊確定后，鼠標自動停在密碼文本框 中，用戶不需要再次輸入用戶名，在此說明一下，在我做的系統(tǒng)中幾乎所有的錯誤轉移都 有如上的提示和獲得焦點的操作。刪除用戶模塊中，在用戶點擊了確定按鈕以后，會有如圖4.8所示的對話框，為用戶刪除考慮了情況。圖6.1 “確認密碼”錯誤6.4 信息管理設計這個部門主要由部門信息和員工信息組成，發(fā)放工資是對員工工資的管理，部門信息 的設置和員工信息設置基本相同。工程I 岡圖6.3添加存在情況員工信息中引用了 “ DTPicke