員工工資管理系統(tǒng)(VBSQL)

1、VB+SSQLsservve20000課課程設(shè)計(jì)計(jì)報(bào)告員工工資資管理系系統(tǒng)姓 名：_班 級(jí)：_學(xué) 號(hào)：_指導(dǎo)教師師：_成 績(jī)：_完成時(shí)間間：20009-12-28 完成地點(diǎn)點(diǎn)：蚌埠埠學(xué)院 TOC o 1-3 h u HYPERLINK l _Toc19359 摘 要要 PAGEREF _Toc19359 1 HYPERLINK l _Toc4783 第一章 緒論 PAGEREF _Toc4783 22 HYPERLINK l _Toc11814 1.1數(shù)數(shù)據(jù)庫(kù)管管理系統(tǒng)統(tǒng) PAGEREF _Toc11814 2 HYPERLINK l _Toc5310 1.2員員工工資資管理系系統(tǒng) PAGER

2、EF _Toc5310 2 HYPERLINK l _Toc21803 1.3開開發(fā)工具具 PAGEREF _Toc21803 3 HYPERLINK l _Toc6580 第二章 員工工工資管理理系統(tǒng)設(shè)設(shè)計(jì)分析析 PAGEREF _Toc6580 3 HYPERLINK l _Toc21341 2.1應(yīng)應(yīng)用需求求與分析析 PAGEREF _Toc21341 3 HYPERLINK l _Toc1668 2.2系系統(tǒng)模塊塊劃分 PAGEREF _Toc1668 33 HYPERLINK l _Toc10971 2.3系系統(tǒng)數(shù)據(jù)據(jù)庫(kù)設(shè)計(jì)計(jì) PAGEREF _Toc10971 4 HYPERLIN

3、K l _Toc10725 第三章：企業(yè)工工資管理理系統(tǒng)應(yīng)應(yīng)用程序序設(shè)計(jì) PAGEREF _Toc10725 55 HYPERLINK l _Toc14408 31操操作流程程圖 PAGEREF _Toc14408 5 HYPERLINK l _Toc15248 32 “登錄模模塊”詳細(xì)設(shè)設(shè)計(jì) PAGEREF _Toc15248 6 HYPERLINK l _Toc29586 33 “主窗體體”模塊詳詳細(xì)設(shè)計(jì)計(jì) PAGEREF _Toc29586 10 HYPERLINK l _Toc24171 34 各項(xiàng)子子模塊詳詳細(xì)設(shè)計(jì)計(jì) PAGEREF _Toc24171 13 HYPERLINK l

4、_Toc7156 3.41添加加用戶與與刪除 PAGEREF _Toc7156 113 HYPERLINK l _Toc1287 3.42 修修改用戶戶 PAGEREF _Toc1287 15 HYPERLINK l _Toc20728 3.4.3數(shù)據(jù)據(jù)庫(kù)備份份和恢復(fù)復(fù) PAGEREF _Toc20728 17 HYPERLINK l _Toc21274 3.4.4退出出 PAGEREF _Toc21274 20 HYPERLINK l _Toc26749 3.4.5基本本工資 PAGEREF _Toc26749 220 HYPERLINK l _Toc11242 3.4.6崗位位工資 PAG

5、EREF _Toc11242 222 HYPERLINK l _Toc4630 3.4.7部門門管理 PAGEREF _Toc4630 224 HYPERLINK l _Toc23727 3.4.8員工工管理 PAGEREF _Toc23727 226 HYPERLINK l _Toc6714 3.4.9 發(fā)發(fā)放工資資 PAGEREF _Toc6714 27 HYPERLINK l _Toc2946 3.4.10 按員員工查詢?cè)?PAGEREF _Toc2946 32 HYPERLINK l _Toc29728 3.4.11 按部門門查詢 PAGEREF _Toc29728 333 HYPER

6、LINK l _Toc5718 模塊一： PAGEREF _Toc5718 35 HYPERLINK l _Toc10037 模塊二： PAGEREF _Toc10037 35 HYPERLINK l _Toc11010 第五章：結(jié) 束束 語(yǔ) PAGEREF _Toc11010 336 HYPERLINK l _Toc26001 謝辭 PAGEREF _Toc26001 377 HYPERLINK l _Toc26736 參考文獻(xiàn)獻(xiàn)： PAGEREF _Toc26736 377摘 要要企業(yè)的工工資管理理是公司司管理的的一個(gè)重重要內(nèi)容容。隨著著企業(yè)人人員數(shù)量量增加，企企業(yè)的工工資管理理工作也也變

7、得越越來(lái)越復(fù)復(fù)雜。工工資管理理既涉及及到企業(yè)業(yè)勞動(dòng)人人事的管管理，同同時(shí)也是是企業(yè)財(cái)財(cái)務(wù)管理理的重要要組成部部分。工工資管理理需要和和人事管管理相聯(lián)聯(lián)系，同同時(shí)連接接工時(shí)考考勤和醫(yī)醫(yī)療保險(xiǎn)險(xiǎn)等等，來(lái)來(lái)生成企企業(yè)每個(gè)個(gè)職工的的基本工工資、津津貼、醫(yī)醫(yī)療保險(xiǎn)險(xiǎn)、保險(xiǎn)險(xiǎn)費(fèi)、實(shí)實(shí)際發(fā)放放工資等等。資金金是企業(yè)業(yè)生存的的主要元元素，資資金的流流動(dòng)影響響到企業(yè)業(yè)的整體體運(yùn)作，企企業(yè)員工工的工資資是企業(yè)業(yè)資金管管理的一一個(gè)重要要的組成成部分。早早期的工工資統(tǒng)計(jì)計(jì)和發(fā)放放都是使使用人工工方式處處理紙質(zhì)質(zhì)材料，不不僅花費(fèi)費(fèi)財(cái)務(wù)人人員大量量的時(shí)間間且不易易保存，往往往由于于個(gè)人的的因素抄抄寫不慎慎或計(jì)算算疏忽，出

8、出現(xiàn)工資資發(fā)放錯(cuò)錯(cuò)誤的現(xiàn)現(xiàn)象。早早期工資資管理多多采取紙紙質(zhì)材料料和具有有較強(qiáng)的的時(shí)間限限制?；谝陨仙显?，企企業(yè)工資資管理系系統(tǒng)使用用電腦安安全保存存、快速速計(jì)算、全全面統(tǒng)計(jì)計(jì)，實(shí)現(xiàn)現(xiàn)工資管管理的系系統(tǒng)化、規(guī)規(guī)范化、自自動(dòng)化。企企業(yè)工資資管理系系統(tǒng)是典典型的信信息管理理系統(tǒng)（MMIS），前前臺(tái)程序序開發(fā)工工具采用用微軟的的VB66，后臺(tái)臺(tái)數(shù)據(jù)庫(kù)庫(kù)采用ssqlsservve20000數(shù)數(shù)據(jù)庫(kù)。VVB6是是一種面面向?qū)ο笙蟮拈_發(fā)發(fā)工具，具具有組件件豐富、語(yǔ)語(yǔ)言簡(jiǎn)單單、功能能強(qiáng)大的的優(yōu)點(diǎn)。ssqlsservve20000數(shù)數(shù)據(jù)庫(kù)具具有與VVB6無(wú)無(wú)縫連接接、操作作簡(jiǎn)單、易易于使用用的優(yōu)點(diǎn)點(diǎn)。運(yùn)

9、行行結(jié)果證證明，本本企業(yè)工工資管理理系統(tǒng)極極大提高高了工作作效率，節(jié)節(jié)省了人人力和物物力，最最終滿足足企業(yè)財(cái)財(cái)務(wù)管理理、員工工工資發(fā)發(fā)放的需需要，同同時(shí)也成成為現(xiàn)代代化企業(yè)業(yè)管理的的標(biāo)志。 第一章 緒論1.1數(shù)數(shù)據(jù)庫(kù)管管理系統(tǒng)統(tǒng)數(shù)據(jù)庫(kù)管管理系統(tǒng)統(tǒng)（DBBMS）是是指數(shù)據(jù)據(jù)庫(kù)系統(tǒng)統(tǒng)中管理理數(shù)據(jù)的的軟件系系統(tǒng)。DDBMSS是數(shù)據(jù)據(jù)庫(kù)系統(tǒng)統(tǒng)的核心心組成部部分。對(duì)對(duì)數(shù)據(jù)庫(kù)庫(kù)的一切切操作，包包括定義義、更新新及各種種控制,都是通通過DBBMS進(jìn)進(jìn)行的。DDBMSS總是基基于某種種數(shù)據(jù)模模型，可可以把DDBMSS看成是是某種數(shù)數(shù)據(jù)模型型在計(jì)算算機(jī)系統(tǒng)統(tǒng)上的具具體實(shí)現(xiàn)現(xiàn)。根據(jù)據(jù)數(shù)據(jù)模模型的不不同，DDBMS

10、S可以分分成層次次型、網(wǎng)網(wǎng)狀型、關(guān)關(guān)系型、面面向?qū)ο笙笮偷?。MMSsqqlseervee20000就是是一種關(guān)關(guān)系型數(shù)數(shù)據(jù)庫(kù)管管理系統(tǒng)統(tǒng)。關(guān)系模型型主要是是用二維維表格結(jié)結(jié)構(gòu)表達(dá)達(dá)實(shí)體集集，用外外鍵表示示實(shí)體間間聯(lián)系。關(guān)關(guān)系模型型是由若若干個(gè)關(guān)關(guān)系模式式組成的的集合。關(guān)關(guān)系模式式相當(dāng)于于前面提提到的記記錄類型型，每個(gè)個(gè)關(guān)系實(shí)實(shí)際上是是一張二二維表格格。關(guān)系系模型和和層次、網(wǎng)網(wǎng)狀模型型的最大大判別是是用關(guān)鍵鍵碼而不不是用指指針導(dǎo)航航數(shù)據(jù)，表表格簡(jiǎn)單單用戶易易懂，編編程時(shí)并并不涉及及存儲(chǔ)結(jié)結(jié)構(gòu)，訪訪問技術(shù)術(shù)等細(xì)節(jié)節(jié)。SQQL語(yǔ)言言是關(guān)系系型數(shù)據(jù)據(jù)庫(kù)的標(biāo)標(biāo)準(zhǔn)化語(yǔ)語(yǔ)言，已已得到了了廣泛的的應(yīng)用。1.2

11、員員工工資資管理系系統(tǒng) 企業(yè)工資資管理是是一項(xiàng)瑣瑣碎、復(fù)復(fù)雜而又又十分細(xì)細(xì)致的工工作，一一般不允允許發(fā)生生差錯(cuò)。最最初的工工資統(tǒng)計(jì)計(jì)和發(fā)放放都是使使用人工工方式處處理，工工作量大大的時(shí)候候，出現(xiàn)現(xiàn)錯(cuò)誤的的機(jī)率也也隨之升升高，不不僅花費(fèi)費(fèi)財(cái)務(wù)人人員大量量的時(shí)間間，而且且往往由由于抄寫寫不慎，或或者由于于計(jì)算的的疏忽，出出現(xiàn)工資資發(fā)放錯(cuò)錯(cuò)誤的現(xiàn)現(xiàn)象。同同時(shí)工資資的發(fā)放放具有較較強(qiáng)的時(shí)時(shí)間限制制，必須須嚴(yán)格按按照單位位規(guī)定的的時(shí)間完完成計(jì)算算和發(fā)放放工作。正正是企業(yè)業(yè)工資管管理的這這種重復(fù)復(fù)性、規(guī)規(guī)律性、時(shí)時(shí)間性，使使得企業(yè)業(yè)工資管管理計(jì)算算機(jī)化成成為可能能。企業(yè)業(yè)工資管管理系統(tǒng)統(tǒng)就是使使用電腦腦代

12、替大大量的人人工統(tǒng)計(jì)計(jì)和計(jì)算算，完成成眾多企企業(yè)工資資信息的的處理，同同時(shí)使用用電腦還還可以安安全地、完完整地保保存大量量的企業(yè)業(yè)工資記記錄。1.3開開發(fā)工具具微軟公司司的Viisuaal BBasiic 66.0是是Winndowws應(yīng)用用程序開開發(fā)工具具，是目目前最為為廣泛的的、易學(xué)學(xué)易用的的面向?qū)?duì)象的開開發(fā)工具具。Viisuaal BBasiic提供供了大量量的控件件，這些些控件可可用于設(shè)設(shè)計(jì)界面面和實(shí)現(xiàn)現(xiàn)各種功功能，減減少了編編程人員員的工作作量，也也簡(jiǎn)化了了界面設(shè)設(shè)計(jì)過程程，從而而有效的的提高了了應(yīng)用程程序的運(yùn)運(yùn)行效率率和可靠靠性。因因此，本本系統(tǒng)使使用MSS Viisuaal B

13、Basiic 66.0開開發(fā)。第二章 員工工工資管理理系統(tǒng)設(shè)設(shè)計(jì)分析析2.1應(yīng)應(yīng)用需求求與分析析基本信息息的添加加、修改改、刪除除和查詢?cè)??；颈拘畔?xiàng)目目類型信信息，項(xiàng)項(xiàng)目狀態(tài)態(tài)信息，模模塊狀態(tài)態(tài)信息和和缺陷級(jí)級(jí)別信息息等。 此功能為為項(xiàng)目組組管理和和軟件項(xiàng)項(xiàng)目管理理模塊提提供數(shù)據(jù)據(jù)。項(xiàng)目組信信息的添添加、修修改、刪刪除和查查詢。項(xiàng)項(xiàng)目組信信息包括括收員工工信息和和角色信信息。軟件項(xiàng)目目管理模模塊包括括項(xiàng)目基基本信息息管理、軟軟件模塊塊管理和和軟件缺缺陷管理理等功能能2.2系系統(tǒng)模塊塊劃分開發(fā)這個(gè)個(gè)系統(tǒng)的的目的就就是幫助助企業(yè)的的財(cái)務(wù)主主管部門門提高工工作效率率，實(shí)現(xiàn)現(xiàn)企業(yè)工工資信息息

14、管理的的系統(tǒng)化化、規(guī)范范化和自自動(dòng)化。能能夠和認(rèn)認(rèn)識(shí)管理理系統(tǒng)、考考勤管理理系統(tǒng)相相結(jié)合，真真正實(shí)現(xiàn)現(xiàn)企業(yè)高高效、科科學(xué)、現(xiàn)現(xiàn)代化的的員工管管理。系系統(tǒng)最終終實(shí)現(xiàn)的的主要功功能如下下。企業(yè)工工資信息息設(shè)置部部分：包包括設(shè)置置員工的的基本工工資和其其他項(xiàng)目目的金額額，如獎(jiǎng)獎(jiǎng)金等。企業(yè)工工資信息息管理部部分：包包括統(tǒng)計(jì)計(jì)出勤、計(jì)計(jì)算工資資、查詢?cè)児べY和和導(dǎo)出工工資表。系統(tǒng)部部分：包包括添加加用戶和和修改密密碼。2.3系系統(tǒng)數(shù)據(jù)據(jù)庫(kù)設(shè)計(jì)計(jì)數(shù)據(jù)庫(kù)是是信息管管理系統(tǒng)統(tǒng)的后臺(tái)臺(tái)，存儲(chǔ)儲(chǔ)著所有有的信息息，在信信息管理理系統(tǒng)中中有著很很重要的的地位。數(shù)數(shù)據(jù)庫(kù)設(shè)設(shè)計(jì)的好好與壞，直直接影響響到這個(gè)個(gè)系統(tǒng)的的運(yùn)行效

15、效率。良良好的數(shù)數(shù)據(jù)庫(kù)設(shè)設(shè)計(jì)，可可以提高高數(shù)據(jù)信信息的存存儲(chǔ)效率率，確保保數(shù)據(jù)信信息的完完整性和和一致性性。針對(duì)企業(yè)業(yè)工資信信息管理理系統(tǒng)的的需求，通通過對(duì)員員工工資資計(jì)算過過程的內(nèi)內(nèi)容分析析，為本本系統(tǒng)設(shè)設(shè)計(jì)如下下的數(shù)據(jù)據(jù)項(xiàng)和數(shù)數(shù)據(jù)結(jié)構(gòu)構(gòu)：基本工工資信息息：包括括工資級(jí)級(jí)別和工工資金額額。崗位工工資信息息：包括括工資級(jí)級(jí)別和工工資金額額。工資信信息：包包括員工工編號(hào)、基基本工資資、崗位位工資、水水電費(fèi)、實(shí)實(shí)發(fā)金額額。部門信信息：包包括部門門編號(hào)、部部門名稱稱、部門門負(fù)責(zé)人人、部門門人數(shù)。工資統(tǒng)統(tǒng)計(jì)信息息：包括括員工編編號(hào)、姓姓名、出出生年月月、所屬屬部門、文文化程度度、職稱稱。用戶信信息：包

16、包括用戶戶名、密密碼和權(quán)權(quán)限。員工信息息表員工編號(hào)號(hào)charr (88)主鍵，不不允許重重復(fù)姓名charr (88)性別charr (22)出生年月月dateetimme所屬部門門charr(4)外鍵文化程度度charr(4)職稱charr (112)部門信息息部門編號(hào)號(hào)charr(4)主鍵,不不允許重重復(fù)部門名稱稱charr(200)部門負(fù)責(zé)責(zé)人charr(8)部門人數(shù)數(shù)int基本工資資工資級(jí)別別charr (22)主鍵,不不允許重重復(fù)工資金額額numeericc(8, 2)崗位工資資工資級(jí)別別charr (22)主鍵,不不允許重重復(fù)工資金額額numeericc(8, 2)工資信息息員工編號(hào)

17、號(hào)charr (88)主鍵,不不允許重重復(fù)； 外鍵基本工資資numeericc(8, 2)崗位工資資numeericc(8, 2)水電費(fèi)numeericc(8, 2)實(shí)發(fā)金額額numeericc(8, 2)用戶表用戶名charr (88)主鍵,不不允許重重復(fù)密碼charr (220)權(quán)限charr (220)E-R圖圖： 第三三章：企企業(yè)工資資管理系系統(tǒng)應(yīng)用用程序設(shè)設(shè)計(jì)31操操作流程程圖初始登入入用戶:admmin 密碼為為:addminn用戶登入錄入口令是否正確？進(jìn)入工資管理主界面職員管理工資項(xiàng)目/工資數(shù)據(jù)錄入/工資報(bào)表用戶管理數(shù)據(jù)備份/恢復(fù)結(jié)束當(dāng)月工資32 “登錄模模塊”詳細(xì)設(shè)設(shè)計(jì) 登錄錄

18、模塊的的詳細(xì)設(shè)設(shè)計(jì)主要要是用戶戶登錄的的一個(gè)界界面，判判斷登錄錄的用戶戶是管理理員還是是普通用用戶，進(jìn)進(jìn)入后將將面對(duì)的的是主界界面，從從而進(jìn)行行相關(guān)的的操作。 登錄的的界面主主要由用用戶名和和密碼的的信息，還還有一些些標(biāo)題設(shè)設(shè)置，確確定和取取消的按按鈕組成成。通過過標(biāo)題可可以知道道此系統(tǒng)統(tǒng)的大概概內(nèi)容，由由此，登登錄界面面的設(shè)計(jì)計(jì)完成。 窗體及核核心代碼碼：Privvatee Suub ccmd_canncell_Cllickk() teext_keyy.Teext = cmmo_uuserr.Teext = 請(qǐng)選擇擇 Unnloaad MMeEnd SubbPrivvatee Suub cc

19、md_ok_Cliick() Diim ttry_timmes As Strringg Diim ssql As Strringg Diim rrst As ADOODB.Reccorddsett trry_ttimees = 0If (Triim(ttxt_keyy.Teext) = ) Thhen MssgBoox 請(qǐng)輸入入密碼, vvbOKKOnlly + vbbExcclammatiion, 提提示Elsee sqll = seelecct * frrom 用戶表表 whheree 用戶戶名= & Trrim(cmoo_usser.Texxt) & Sett rsst = Exxecu

20、uteSSQL(sqll, ) Iff Trrim(rstt.Fiieldds(11) = TTrimm(txxt_kkey.Texxt) Theen Iff Trrim(rstt.Fiieldds(22) 管理理員 Theen frrm_mmainn.xiitonng.EEnabbledd = Fallse 在這這里設(shè)計(jì)計(jì)非管理理員用戶戶的權(quán)限限，這里里我假設(shè)設(shè)讓非管管理員用用戶不能能用菜單單中的系統(tǒng) frrm_mmainn.shhezhhi.EEnabbledd = Fallse frrm_mmainn.xiinxiiweiihu.Enaableed = Faalsee Ennd IIf

21、rstt.Cllosee UseerNaame = TTrimm(cmmo_uuserr.Teext) frmm_maain.Shoow Unlloadd Mee Elsse MsggBoxx 密密碼不正正確，請(qǐng)請(qǐng)重新輸輸入, vbbOKOOnlyy + vbEExcllamaatioon, 警告告 txtt_keey.SSetFFocuus txtt_keey.TTextt = tryy_tiimess = tryy_tiimess + 1 Exiit SSub 在這這里若密密碼錯(cuò)了了應(yīng)該跳跳出該過過程，否否則下面面的語(yǔ)句句還會(huì)執(zhí)執(zhí)行，這這不是你你想要的的 Endd Iff trry_tti

22、mees = trry_ttimees + 1 個(gè)人人認(rèn)為密密碼輸入入錯(cuò)了才才加一，你你這樣的的話，用用戶名錯(cuò)錯(cuò)了也會(huì)會(huì)加一，當(dāng)當(dāng)然你這這里用戶戶名不會(huì)會(huì)錯(cuò)是吧吧，改得得多余了了 Iff trry_ttimees = 3 Theen Unnloaad MMe Ennd IIfEnd IfEnd SubbPrivvatee Suub FFormm_Looad() DDim i AAs IInteegerr DDim sqll Ass Sttrinng DDim rstt Ass ADDODBB.Reecorrdseet ssql = sellectt 用戶戶名 ffromm 用戶戶表 SSet

23、rstt = ExeecutteSQQL(ssql, ) FFor i = 1 To rstt.ReecorrdCoountt ccmo_useer.AAddIItemm (rrst.Fieeldss(0) rrst.MovveNeext NNextt iEnd Subb主窗體：Priivatte SSub bummenxxinxxi_CClicck()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )pow

24、eer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_bummenxxinxxi.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub gganggweiigonngzii_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordss

25、etsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_ganngweeigoongzzi.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub jjibeen_CClicck(

26、)Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_jibben.ShoowUnlooad MeEnd I

27、fEnd IfEnd SubbPrivvatee Suub yyongghusshannchuu_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TT

28、rimm(poowerr) = 管管理員 Thhenfrm_tiaanjiiayuushaanchhu.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub yyongghuttiannjiaa_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 T

29、ThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_tiaanjiiayuushaanchhu.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub FFormm_Looad() DDim i AAs IInteegerr DDim sqll Ass Sttrinng DDim rstt Ass ADDODBB.Reecorrdseet ssql = sellectt 權(quán)限限 frrom 用戶表

30、表 SSet rstt = ExeecutteSQQL(ssql, ) FFor i = 1 To rstt.ReecorrdCoountt rrst.MovveNeext NNextt i33 “主窗體體”模塊詳詳細(xì)設(shè)計(jì)計(jì)在這個(gè)項(xiàng)項(xiàng)目中，選選擇使用用多文檔檔界面。使使用這個(gè)個(gè)窗體的的好處是是可以使使程序更更加有條條理。對(duì)對(duì)于一個(gè)個(gè)多任務(wù)務(wù)的應(yīng)用用程序，使使用多文文檔窗體體還可以以減少占占用的系系統(tǒng)資源源。主窗體設(shè)設(shè)計(jì)的界界面是用用菜單編編輯器做做的，主主要由系系統(tǒng)、工工資信息息設(shè)置、工工資信息息管理和和關(guān)于這這四個(gè)大大模塊組組成。主主窗體是是進(jìn)行相相關(guān)操作作的主界界面。在在這幾個(gè)個(gè)里，管管理

31、員有有所有的的權(quán)利進(jìn)進(jìn)行各種種操作。主窗體及及核心代代碼：Privvatee Suub bbumeenxiinxii_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告

32、ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_bummenxxinxxi.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub gganggweiigonngzii_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員

33、 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_ganngweeigoongzzi.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub jjibeen_CClicck()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQ

34、QL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_jibben.ShoowUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub yyongghusshannchuu_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RReco

35、ordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_tiaanjiiayuushaanchhu.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub yyonggh

36、uttiannjiaa_Cllickk()Dim sqll Ass SttrinngDim rstt Ass Neew AADODDB.RRecoordssetsql = sellectt * froom 用用戶表 Set rstt = ExeecutteSQQL(ssql, )poweer = rsst.FFiellds(2)If TTrimm(poowerr) 管理員員 TThennMsgBBox 您無(wú)無(wú)權(quán)進(jìn)行行該操作作！, vbbOKOOnlyy + vbEExcllamaatioon, 警告告ElseeIf TTrimm(poowerr) = 管管理員 Thhenfrm_tiaanji

37、iayuushaanchhu.SShowwUnlooad MeEnd IfEnd IfEnd SubbPrivvatee Suub FFormm_Looad() DDim i AAs IInteegerr DDim sqll Ass Sttrinng DDim rstt Ass ADDODBB.Reecorrdseet ssql = sellectt 權(quán)限限 frrom 用戶表表 SSet rstt = ExeecutteSQQL(ssql, ) FFor i = 1 To rstt.ReecorrdCoountt rrst.MovveNeext NNextt iEnd Subb34 各項(xiàng)子子

38、模塊詳詳細(xì)設(shè)計(jì)計(jì)3.41添加加用戶與與刪除選擇“系系統(tǒng)”“添加用用戶與刪刪除”菜單，在在添加用用戶的窗窗體里,輸入新新的用戶戶名稱和和密碼后后，單擊擊“添加”按鈕，系系統(tǒng)將會(huì)會(huì)添加新新的用戶戶。在窗窗體里輸輸入用戶戶名稱和和密碼，單單擊“刪除”按鈕，系系統(tǒng)將會(huì)會(huì)刪除原原來(lái)用戶戶。Privvatee Suub ccmd_addduseer_CClicck()Dim newwrstt Ass ADDODBB.ReecorrdseetDim sqll Ass Sttrinngsql = inssertt innto 用戶表表 vaaluees( & & Triim(ttxt_useernaame.T

39、exxt) & , _ & & Trrim(txtt_paasswwordd.Teext) & , _ & & Trrim(txtt_poowerr) & & )Set newwrstt = exeecutte_ssql(sqll)sql = sellectt * froom 用用戶表Set newwrstt = sellectt_sqql(ssql)Set DattaGrrid11.DaataSSourrce = nnewrrstEnd SubbPrivvatee Suub ccmd_canncell_Cllickk()Unlooad MeEnd SubbPrivvatee Suub ccm

40、d_delletee_Cllickk()Dim sqll Ass Sttrinngsql = sellectt * froom 用用戶表If ttxt_useernaame Theen SSet objjrs = EExeccuteeSQLL(sqql, ) SSet DattaGrrid11.DaataSSourrce = oobjrrs 刷新網(wǎng)網(wǎng)格，顯顯示操作作后的結(jié)結(jié)果 EEnd If If objjrs.ReccorddCouunt = 00 Thhen MsggBoxx 庫(kù)庫(kù)中沒有有記錄! Exiit SSub Endd Iff If objjrs.ReccorddCouunt 0

41、TThenn If MsggBoxx(真真的要?jiǎng)h刪除該級(jí)級(jí)用戶信信息嗎?, vbYYesNNo + vbbQueestiion, 警警告) = vbYYes Theen obbjrss.Deelette MssgBoox 刪除成成功!, vvbInnforrmattionn, 提示 Ennd IIf Endd IffEnd SubbPrivvatee Suub FFormm_Looad()Dim newwrstt Ass ADDODBB.ReecorrdseetDim sqll Ass Sttrinngsql = sellectt * froom 用用戶表Set newwrstt = sell

42、ectt_sqql(ssql)Set DattaGrrid11.DaataSSourrce = nnewrrstEnd Subb3.42 修修改用戶戶選擇“系系統(tǒng)”-“修改用用戶”菜單，在在窗體里里輸入新新的用戶戶名稱和和用戶權(quán)權(quán)限，單單擊“修改”按鈕，系系統(tǒng)將會(huì)會(huì)修改原原來(lái)用戶戶信息。Privvatee Suub ccmd_addduseer_CClicck()Dim newwrstt Ass ADDODBB.ReecorrdseetDim sqll Ass Sttrinngsql = inssertt innto 用戶表表 vaaluees( & & Triim(ttxt_useernaa

43、me.Texxt) & , _ & & Trrim(txtt_paasswwordd.Teext) & , _ & & Trrim(txtt_poowerr) & & )Set newwrstt = exeecutte_ssql(sqll)sql = sellectt * froom 用用戶表Set newwrstt = sellectt_sqql(ssql)Set DattaGrrid11.DaataSSourrce = nnewrrstEnd SubbPrivvatee Suub ccmd_canncell_Cllickk()Unlooad MeEnd SubbPrivvatee Suub

44、 ccmd_delletee_Cllickk()Dim sqll Ass Sttrinngsql = sellectt * froom 用用戶表If ttxt_useernaame Theen SSet objjrs = EExeccuteeSQLL(sqql, ) SSet DattaGrrid11.DaataSSourrce = oobjrrs 刷新網(wǎng)網(wǎng)格，顯顯示操作作后的結(jié)結(jié)果 EEnd If If objjrs.ReccorddCouunt = 00 Thhen MsggBoxx 庫(kù)庫(kù)中沒有有記錄! Exiit SSub Endd Iff If objjrs.ReccorddCouun

45、t 0 TThenn If MsggBoxx(真真的要?jiǎng)h刪除該級(jí)級(jí)用戶信信息嗎?, vbYYesNNo + vbbQueestiion, 警警告) = vbYYes Theen obbjrss.Deelette MssgBoox 刪除成成功!, vvbInnforrmattionn, 提示 Ennd IIf Endd IffEnd SubbPrivvatee Suub FFormm_Looad()Dim newwrstt Ass ADDODBB.ReecorrdseetDim sqll Ass Sttrinngsql = sellectt * froom 用用戶表Set newwrstt =

46、sellectt_sqql(ssql)Set DattaGrrid11.DaataSSourrce = nnewrrstEnd Subb3.4.3數(shù)據(jù)據(jù)庫(kù)備份份和恢復(fù)復(fù)選擇“系系統(tǒng)”-“數(shù)據(jù)庫(kù)庫(kù)備份和和恢復(fù)”菜單，在在位置文文本框中中輸入備備份或恢恢復(fù)的文文件所在在位置，單單擊“備份”或“恢復(fù)”按鈕，數(shù)數(shù)據(jù)庫(kù)將將備份或或恢復(fù)。Optiion ExppliccitPrivvatee Suub ccmd_reccoveery_Cliick()If ccnMood.SStatte = addStaateOOpenn Thhen cnMMod.Cloose 如果果已連接接，關(guān)掉掉寬End If cnM

47、Mod.Opeen driiverr=ssql serrverr;sservver=HZ;uidd=saa;pwwd=hheweeiliing;dattabaase=massterr 建建一個(gè)連連接用來(lái)來(lái)獲得要要還原數(shù)數(shù)據(jù)庫(kù)的的進(jìn)程標(biāo)標(biāo)識(shí)符（sspidd）Dim rs As Neww ADDODBB.Reecorrdseet 該記記錄集保保存進(jìn)程程ID以以備操作作 rs.Opeen sellectt sppid froom ssyspproccessses wheere dbiid=ddb_iid(工資管管理系統(tǒng)統(tǒng)), ccnMood, adOOpennDynnamiic, adLLockkP

48、esssimmisttic解釋一一下，這這句話是是為了將將有關(guān)“工資管管理系統(tǒng)統(tǒng)”所有服服務(wù)進(jìn)程程ID查查詢出來(lái)來(lái)db_id是是SQLL中的一一個(gè)函數(shù)數(shù)具體語(yǔ)語(yǔ)法你自自己看它它的幫助助文件哦哦，這里里就不贅贅述了If rrs.EEOF = FFalsse TThenn rs.MovveFiirstt Do Whiile rs.EOFF = Truue 掃掃描并關(guān)關(guān)閉有關(guān)關(guān)“工資管管理系統(tǒng)統(tǒng)”的服務(wù)務(wù)進(jìn)程 cnnModd.Exxecuute (kkilll & rss.Fiieldds(00) killl 也也是SQQL的方方法“殺”與doos下的的killl類似似啊，是是吧，呵呵呵自己己看看幫

49、幫助文件件很詳盡盡的 rss.MooveNNextt LooopEnd If CD.Fillterr = 所有有文件（*.*）|*.*|備份份文件(*.bbak)|*.bakk CD.IniitDiir = Appp.PPathh Texxt1.Texxt = CDD.FiileNNamee CD.ShoowOppenDim Msttr AAs SStriing Msttr = 恢恢復(fù)主要要數(shù)據(jù)庫(kù)庫(kù)？數(shù)據(jù)據(jù)恢復(fù)操操作將會(huì)會(huì)覆蓋以以前的所所有數(shù)據(jù)據(jù)并且覆覆蓋后無(wú)無(wú)法恢復(fù)復(fù)，您確確定要進(jìn)進(jìn)行恢復(fù)復(fù)操作嗎嗎?If MMsgBBox(Msttr, vbYYesNNo + vbbQueestiion,

50、操操作提示示) = vvbYees TThennOn EErroor GGoToo ree Labbel11.Caaptiion = 正在恢恢復(fù)，請(qǐng)請(qǐng)稍候 cnMMod.BegginTTranns 開始始一個(gè)事事件 cnMMod.Exeecutte (reestoore dattabaase 工資管管理系統(tǒng)統(tǒng) ffromm diisk= & CCD.FFileeNamme & wiith repplacce) SSQL語(yǔ)語(yǔ)句要是是不會(huì)用用，查看看幫助文文件 cnMMod.CommmittTraans 執(zhí)行行 Labbel11.Caaptiion = 恢復(fù)成成功 MsggBoxx 恢恢復(fù)成功功,

51、 vbOOKOnnly + vvbInnforrmattionn, 提示 Exiit SSubre: cnMMod.RolllbaackTTranns 回回滾（不不執(zhí)行） Labbel11.Caaptiion = 恢復(fù)失失敗 MsggBoxx 恢恢復(fù)失敗敗, vbOOKOnnly + vvbInnforrmattionn, 提示End IfEnd SubbPrivvatee Suub ccmd_bacck_CClicck()下面是是備份的的代碼，處處理的比比較粗糙糙，你自自己優(yōu)化化了，呵呵呵，相相信你能能看懂的的，我就就不注釋釋了If ccnMood.SStatte = addStaateOO

52、penn Thhen cnMMod.ClooseEnd If CD.Fillterr = 所有有文件（*.*）|*.*|備份份文件(*.bbak)|*.bakk CD.IniitDiir = Appp.PPathh CD.ShoowSaave txtt_weeizhhi = CDD.FiileNNamee cnMMod.Opeen driiverr=ssql serrverr;sservver=HZ;uidd=saa;pwwd=hheweeiliing;dattabaase=工資管管理系統(tǒng)統(tǒng)On EErroor GGoToo baack cnMMod.BegginTTranns cnMMod.

53、Exeecutte (baackuup ddataabasse 工工資管理理系統(tǒng) to dissk= & CDD.FiileNNamee & ) cnMMod.CommmittTraans MsggBoxx 成成功地備備份到 & CD.FilleNaame & 下, vbbOKOOnlyy + vbIInfoormaatioon, 操作作提示 cnMMod.Cloose Exiit SSubbackk: cnMMod.RolllbaackTTranns MsggBoxx 備備份失敗敗, vbOOKOnnly + vvbInnforrmattionn, 提示 cnnModd.ClloseeEnd

54、 Subb到這里里就告一一段落了了，是不不是很簡(jiǎn)簡(jiǎn)單呢，當(dāng)當(dāng)然這里里有很多多不足，你你自己完完善吧Privvatee Suub FFormm_Looad()End Subb3.4.4退出出選擇“系系統(tǒng)”-“退出”菜單，單單擊則推推出主菜菜單界面面。3.4.5基本本工資選擇“設(shè)設(shè)置”-“基本工工資”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來(lái)來(lái)實(shí)現(xiàn)相相應(yīng)功能能。Dim objjrs As ADOODB.ReccorddsettDim msgg_sqql AAs SStriingPrivvatee Suub ccmd_addd_Cllickk()If CCombbo_llevee

55、l.TTextt Thhen SSet objjrs = EExeccuteeSQLL(iinseert intto 基基本工資資 vaaluees( + Strr(Coomboo_leevell.Teext) + , + (TTextt_paay.TTextt) + ), mssg_ssql) 插入符符合條件件的工資資信息 SSet objjrs = EExeccuteeSQLL(sseleect * ffromm 基本本工資, mmsg_sqll) SSet DattaGrrid11.DaataSSourrce = oobjrrs 刷新網(wǎng)網(wǎng)格，顯顯示操作作后的結(jié)結(jié)果 Coomboo_lee

56、vell.SeetFoocuss Coomboo_leevell.Teext = TTextt_paay.TTextt = EEnd IfEnd SubbPrivvatee Suub ccmd_canncell_Cllickk()Unlooad MeEnd SubbPrivvatee Suub ccmd_delletee_Cllickk() If objjrs.ReccorddCouunt = 00 Thhen MsggBoxx 庫(kù)庫(kù)中沒有有記錄! Exiit SSub Endd Iff If objjrs.ReccorddCouunt 0 TThenn If MsggBoxx(真真的要?jiǎng)h刪除

57、該級(jí)級(jí)別工資資信息嗎嗎?, vbbYessNo + vvbQuuesttionn, 警告) = vbbYess Thhen obbjrss.Deelette MssgBoox 刪除成成功!, vvbInnforrmattionn, 提示 Coomboo_leevell.SeetFoocuss Coomboo_leevell.Teext = Teext_payy.Teext = Ennd IIf Endd IffEnd SubbPrivvatee Suub FFormm_Looad()Set objjrs = EExeccuteeSQLL(sseleect * ffromm 基本本工資, mms

58、g_sqll)Set DattaGrrid11.DaataSSourrce = oobjrrsEnd SubbPrivvatee Suub TTextt_paay_LLosttFoccus()If VVal(Texxt_ppay.Texxt) = 1100000 TThenn MMsgBBox 數(shù)據(jù)據(jù)非法 TTextt_paay.TTextt = TTextt_paay.SSetFFocuusEnd IfEnd Subb3.4.6崗位位工資選擇“設(shè)設(shè)置”-“崗位工工資”菜單，可可以單擊擊“添加”，“刪除”，“修改”，“取消”按鈕來(lái)來(lái)實(shí)現(xiàn)相相應(yīng)功能能。Dim objjrs As ADOODB.R

59、eccorddsettDim msgg_sqql AAs SStriingPrivvatee Suub ccmd_addd_Cllickk()If CCombbo_lleveel.TTextt Thhen SSet objjrs = EExeccuteeSQLL(iinseert intto 崗崗位工資資 vaaluees( + Strr(Coomboo_leevell.Teext) + , + (TTextt_paay.TTextt) + ), mssg_ssql) 插入符符合條件件的工資資信息 SSet objjrs = EExeccuteeSQLL(sseleect * ffromm 崗

60、位位工資, mmsg_sqll) SSet DattaGrrid11.DaataSSourrce = oobjrrs 刷新網(wǎng)網(wǎng)格，顯顯示操作作后的結(jié)結(jié)果 Coomboo_leevell.SeetFoocuss Coomboo_leevell.Teext = Teext_payy.Teext = EEnd IfEnd SubbPrivvatee Suub ccmd_canncell_Cllickk()Unlooad MeEnd SubbPrivvatee Suub ccmd_delletee_Cllickk() If objjrs.ReccorddCouunt = 00 Thhen MsggBo