1、員工工資管理系統(tǒng)職職員資治理系統(tǒng)姓名：班級：學(xué)號：指導(dǎo)教師：成績：完成時刻：2009-12-28完成地點(diǎn)：蚌埠學(xué)院要3第一章緒論31.1 數(shù)據(jù)庫治理系統(tǒng)31.2 職職員資治理系統(tǒng)41.3 開發(fā)工具4第二章職職員資治理系統(tǒng)設(shè)計分析41.1 應(yīng)用需求與分析41.2 系統(tǒng)模塊劃分51.3 系統(tǒng)數(shù)據(jù)庫設(shè)計5第三章：企業(yè)工資治理系統(tǒng)應(yīng)用程序設(shè)計63 1操作流程圖64 2“登錄模塊”詳細(xì)設(shè)計75 3“主窗體”模塊詳細(xì)設(shè)計126 4各項子模塊詳細(xì)設(shè)計166.1 1添加用戶與刪除163.4 2修改用戶183.4.3 數(shù)據(jù)庫備份和復(fù)原203.4.4 退出223.4.5 差不多工資233.4.6 崗位工資243.

2、4.7 部門治理263.4.8 職員治理293.4.9 發(fā)放工資293.4.10 按職員查詢343.4.11 按部門查詢35模塊一：36模塊二：37第五章：結(jié)束語38謝辭39參考文獻(xiàn)：39摘要企業(yè)的工資治理是公司治理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資治理工作也變得越來越復(fù)雜。工資治理既涉及到企業(yè)勞動人事的治理，同時也是企業(yè)財務(wù)治理的重要組成部分。工資治理需要和人事治理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的差不多工資、津貼、醫(yī)療保險、保險費(fèi)、實(shí)際發(fā)放工資等。資金是企業(yè)生存的要緊元素，資金的流淌阻礙到企業(yè)的整體運(yùn)作，企業(yè)職員的工資是企業(yè)資金治理的一個重要的組成部

3、分。早期的工資統(tǒng)計和發(fā)放差不多上使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財務(wù)人員大量的時刻且不易儲存，往往由于個人的因素抄寫不慎或運(yùn)算疏忽，顯現(xiàn)工資發(fā)放錯誤的現(xiàn)象。早期工資治理多采取紙質(zhì)材料和具有較強(qiáng)的時刻限制?；谝陨暇壒剩髽I(yè)工資治理系統(tǒng)使用電腦安全儲存、快速運(yùn)算、全面統(tǒng)計，實(shí)現(xiàn)工資治理的系統(tǒng)化、規(guī)范化、自動化。企業(yè)工資治理系統(tǒng)是典型的信息治理系統(tǒng)（MIS），前臺程序開發(fā)工具采納微軟的VB6,后臺數(shù)據(jù)庫采納sqlserve2000數(shù)據(jù)庫。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。sqlserve2000數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點(diǎn)。運(yùn)行結(jié)果證

4、明，本企業(yè)工資治理系統(tǒng)極大提升了工作效率，節(jié)約了人力和物力，最終滿足企業(yè)財務(wù)治理、職職員資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)治理的標(biāo)志。第一章緒論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進(jìn)行的。DBMS總是基于某種數(shù)據(jù)模型，能夠把DBMS看成是某種數(shù)據(jù)模型在運(yùn)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。按照數(shù)據(jù)模型的不同，DBMS能夠分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。MSsqlserve2000確實(shí)是一種關(guān)系型數(shù)據(jù)庫治理系統(tǒng)。關(guān)系模型要緊是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，

5、用外鍵表示實(shí)體間聯(lián)系。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類型，每個關(guān)系實(shí)際上是一張二維表格。關(guān)系模型和層次、網(wǎng)狀模型的最大判不是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易明白，編程時并不涉及儲備結(jié)構(gòu)，訪咨詢技術(shù)等細(xì)節(jié)。SQL語言是關(guān)系型數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。1.2 職職員資治理系統(tǒng)企業(yè)工資治理是一項瑣碎、復(fù)雜而又十分細(xì)致的工作，一樣不承諾發(fā)生差錯。最初的工資統(tǒng)計和發(fā)放差不多上使用人工方式處理，工作量大的時候，顯現(xiàn)錯誤的機(jī)率也隨之升高，不僅花費(fèi)財務(wù)人員大量的時刻，而且往往由于抄寫不慎，或者由于運(yùn)算的疏忽，顯現(xiàn)工資發(fā)放錯誤的現(xiàn)象。同時工資的發(fā)放具

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

7、使用MSVisualBasic6.0開發(fā)。第二章職職員資治理系統(tǒng)設(shè)計分析2.1 應(yīng)用需求與分析差不多信息的添加、修改、刪除和查詢。差不多信息包括項目類型信息，項目狀態(tài)信息，模塊狀態(tài)信息和缺陷級不信息等。此功能為項目組治理和軟件項目治理模塊提供數(shù)據(jù)。項目組信息的添加、修改、刪除和查詢。項目組信息包括收職員信息和角色信息。軟件項目治理模塊包括項目差不多信息治理、軟件模塊治理和軟件缺陷治理等功能2.2 系統(tǒng)模塊劃分開發(fā)那個系統(tǒng)的目的確實(shí)是關(guān)心企業(yè)的財務(wù)主管部門提升工作效率，實(shí)現(xiàn)企業(yè)工資信息治理的系統(tǒng)化、規(guī)范化和自動化。能夠和認(rèn)識治理系統(tǒng)、考勤治理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科學(xué)、現(xiàn)代化的職員治理。

8、系統(tǒng)最終實(shí)現(xiàn)的要緊功能如下。 企業(yè)工資信息設(shè)置部分：包括設(shè)置職員的差不多工資和其他項目的金額，如獎金等。 企業(yè)工資信息治理部分：包括統(tǒng)計出勤、運(yùn)算工資、查詢工資和導(dǎo)出工資表。 系統(tǒng)部分：包括添加用戶和修改密碼。2.3 系統(tǒng)數(shù)據(jù)庫設(shè)計數(shù)據(jù)庫是信息治理系統(tǒng)的后臺，儲備著所有的信息，在信息治理系統(tǒng)中有著專門重要的地位。數(shù)據(jù)庫設(shè)計的好與壞，直截了當(dāng)阻礙到那個系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫設(shè)計，能夠提升數(shù)據(jù)信息的儲備效率，確保數(shù)據(jù)信息的完整性和一致性。針對企業(yè)工資信息治理系統(tǒng)的需求，通過對職職員資運(yùn)算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計如下的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)： 差不多工資信息：包括工資級不和工資金額。 崗位工資信

9、息：包括工資級不和工資金額。 工資信息：包括職員編號、差不多工資、崗位工資、水電費(fèi)、實(shí)發(fā)金額。 部門信息：包括部門編號、部門名稱、部門負(fù)責(zé)人、部門人數(shù)。 工資統(tǒng)計信息：包括職員編號、姓名、出生年月、所屬部門、文化程度、職稱用戶信息：包括用戶名、密碼和權(quán)限職員信息表職員編號Bl-性不出生年月char (8) char (8) char (2) datetime char (4) char (4) char (12)主鍵，不承諾重復(fù)外鍵部門信息部門人數(shù) 工資級不所屬部門 文化程度 職稱輸商班charchar(4)(20)char 1(8) int主鍵，不承諾重復(fù)差不多工資用戶表E-Rchar (2

10、)崗位工資工資信息第三章：企業(yè)工資治理系統(tǒng)應(yīng)用程序設(shè)計3.1操作流程圖初始登入用戶：admin密碼為:admin凡用戶登錄口回區(qū)用戶名3.2“登錄模塊”詳細(xì)設(shè)計雷同登錄模塊的詳細(xì)設(shè)計要緊是用戶登錄的一個界面,判定登錄的用戶是治理員依舊一般用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行有關(guān)的操作。登錄的界面要緊由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的招魂組成，通過標(biāo)題能夠明腳此系統(tǒng)的大致內(nèi)容，由此，登錄界面的設(shè)計完成。窗體及核心代碼：PrivateSubcmd_cancel_Click()text_key.Text=""cmo_user.Text="請選擇&qu

11、ot;UnloadMeEndSubPrivateSubcmd_ok_Click()Dimtry_timesAsStringDimsqlAsStringDimrstAsADODB.Recordsettry_times=0If(Trim(txt_key.Text)="")ThenMsgBox"請輸入密碼",vbOKOnly+vbExclamation,"提示"Elsesql="select*from用戶表where用戶名='"&Trim(cmo_user.Text)&"'&qu

12、ot;Setrst=ExecuteSQL(sql,"")IfTrim(rst.Fields(1)=Trim(txt_key.Text)ThenIfTrim(rst.Fields(2)<>"治理員"Thenfrm_main.xitong.Enabled=False'在那個地點(diǎn)設(shè)計非治理員用戶的權(quán)限，那個地點(diǎn)我假設(shè)讓非治理員用戶不能用菜單中的系統(tǒng)frm_main.shezhi.Enabled=Falsefrm_main.xinxiweihu.Enabled=FalseEndIfrst.CloseUserName=Trim(cmo_user

13、.Text)frm_main.ShowUnloadMeElseMsgBox"密碼不正確，請重新輸入",vbOKOnly+vbExclamation,"警告txt_key.SetFocustxt_key.Text=""try_times=try_times+1ExitSub'在那個地點(diǎn)若密碼錯了應(yīng)該跳出該過程，否則下面的語句還會執(zhí)行，這不是你想要的EndIf'try_times=try_times+1'個人認(rèn)為密碼輸入錯了才加一，你如此的話，用戶名錯了也會加一，因此你那個地點(diǎn)用戶名可不能錯是吧，改得余外了Iftry_tim

14、es=3ThenUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select用戶名from用戶表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountcmo_user.AddItem(rst.Fields(0)rst.MoveNextNextiEndSub主窗體：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAs

15、NewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigo

16、ngzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_gangweigongzi.ShowUnload

17、MeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"The

18、nfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfT

19、rim(power)="治理員"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！"

20、;,vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select權(quán)限from用戶表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountrst.MoveNextNexti33“主

21、窗體”模塊詳細(xì)設(shè)計是能夠使還能夠減信息設(shè)置、 的主界面。在那個項目中，選擇使用多文檔界面。使用那個窗體的好史程序更加有條理。關(guān)于一個多任務(wù)的應(yīng)用程序，使用多文檔窗體少占用的系統(tǒng)資源。主窗體設(shè)計的界面是用菜單編輯器做的，要緊由系統(tǒng)、工資工資信息治理和關(guān)于這四個大模塊組成。主窗體是進(jìn)行有關(guān)操作在這幾個里，治理員有所有的權(quán)益進(jìn)行各種操作。主窗體及核心代碼：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表”Setrst=ExecuteSQL(sql,"&qu

22、ot;)power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理員"Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from

23、用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_gangweigongzi.ShowUnloadMeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.R

24、ecordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()Dim

25、sqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIf

26、EndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用戶表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理員"ThenMsgBox"您無權(quán)進(jìn)行該操作！",vbOKOnly+vbExclamation,"警告ElseIfTrim(power)="治理員"Thenfrm

27、_tianjiayushanchu.ShowUnloadMeEndIfEndIf,演EndSubi-Frame1用尸名PrivateSubForm_Load()權(quán)限sql="select權(quán)限r(nóng)st.MoveNext佇二叱NextiEndSub3.4各項子模塊詳細(xì)設(shè)計：二1除3.4.1添加用戶與刪除Setrst=ExecutesDimiAsIntegerDimsqlAsStringDimrstAsADODB.ReFori=1Torst.RecorL選擇“系統(tǒng)”一>“添加用戶與刪除”菜單，在添加用戶的窗體里，輸入新的用戶名稱和密碼后，單擊“添加”按鈕，系統(tǒng)將會添加新的用戶。

28、1;窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會刪除原先用戶。&"'PrivateSubcmd_adduser_Click()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用戶表values("&"”'&Trim(txt_username.Text)&"'"&Trim(txt_password.Text)&"'&"”'&Trim(txt_po

29、wer)&&")"Setnewrst=execute_sql(sql)sql="select*from用戶表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()DimsqlAsStringsql="select*from用戶表"Iftxt_username<>""ThenSeto

30、bjrs=ExecuteSQL(sql,"")SetDataGrid1.DataSource=objrs'刷新網(wǎng)格，顯示操作后的結(jié)果EndIfIfobjrs.RecordCount=0ThenMsgBox"庫中沒有記錄!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("確實(shí)要刪除該級用戶信息嗎?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"刪除成功!",vbInfo

31、rmation,"提示"EndIfEndIfEndSubPrivateSubForm_Load()用戶表"sql(sql)DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*fromSetnewrst=selectSub修改2修改用戶SetDataGrid1.DataSource=newrstEndSub修改艇消342修改用戶選擇“系統(tǒng)”->“修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權(quán)限，單擊“修改”按鈕，系統(tǒng)將會修改原先用戶信息。PrivateSubcmd_adduser_Click()D

32、imnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用戶表values("&"”'&Trim(txt_username.Text)&"',"_&"'"&Trim(txt_password.Text)&"',"_&"”'&Trim(txt_power)&"'"&")"Setne

33、wrst=execute_sql(sql)sql="select*from用戶表”Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()DimsqlAsStringsql="select*from用戶表"Iftxt_username<>""ThenSetobjrs=ExecuteSQL(sql,"")SetD

34、ataGrid1.DataSource=objrs'刷新網(wǎng)格，顯示操作后的結(jié)果EndIfIfobjrs.RecordCount=0ThenMsgBox"庫中沒有記錄!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("確實(shí)要刪除該級用戶信息嗎?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"刪除成功!",vbInformation,"提示"EndIfEndIfEndSu

35、bPrivateSubForm_Load()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*from用戶表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEnd Sub備份核復(fù)3.4.3 數(shù)據(jù)庫備份和復(fù)原選擇“系統(tǒng)”，“數(shù)據(jù)庫備份和復(fù)原”菜單，在位置文本框目輸入備份或復(fù)原的文件所在位置，單擊“備份”或“復(fù)原”按鈕，數(shù)據(jù)庫工備份或復(fù)原。IOptionExplicitPrivateSubcmd_recovery_Click()IfcnMod.State=adS

36、tateOpenThencnMod.Close'如果已連接，關(guān)掉寬EndIfcnMod.Open"driver=sqlserver;server=HZ;uid=sa;pwd=heweiling;database=master"'建一個連接用來獲得要還原數(shù)據(jù)庫的進(jìn)程標(biāo)識符(spid)DimrsAsNewADODB.Recordset'該記錄集儲存進(jìn)程ID以備操作rs.Open"selectspidfromsysprocesseswheredbid=db_id('工資治理系統(tǒng)')"，cnMod,adOpenDynami

37、c,adLockPessimistic講明一下，這句話是為了將有關(guān)“工資治理系統(tǒng)”所有服務(wù)進(jìn)程ID查詢出來db_id是SQL中的一個函數(shù)具體語法你自己看它的關(guān)心文件哦，那個地點(diǎn)就不贅述了Ifrs.EOF=FalseThenrs.MoveFirstDoWhilers.EOF=True'掃描并關(guān)閉有關(guān)“工資治理系統(tǒng)”的服務(wù)進(jìn)程cnMod.Execute("kill"&rs.Fields(0)'kill也是SQL的方法“殺”與dos下的kill類似啊，是吧，呵呵自己看看關(guān)心文件專門詳盡的rs.MoveNextLoopEndIfCD.Filter="

38、;所有文件(*.*)|*.*|備份文件(*.bak)|*.bak"CD.InitDir=App.PathText1.Text=CD.FileNameCD.ShowOpenDimMstrAsStringMstr="復(fù)原要緊數(shù)據(jù)庫？數(shù)據(jù)復(fù)原操作將會覆蓋往常的所有數(shù)據(jù)同時覆蓋后無法復(fù)原，您確定要進(jìn)行復(fù)原操作嗎?"IfMsgBox(Mstr,vbYesNo+vbQuestion,"操作提示")=vbYesThenOnErrorGoToreLabell.Caption="正在復(fù)原，請稍候"cnMod.BeginTrans'開始

39、一個事件cnMod.Execute("restoredatabase工資治理系統(tǒng)fromdisk='"&CD.FileName&"'withreplace")'SQL語句要是可不能用，查看關(guān)心文件Label1.Caption="復(fù)原成功"MsgBox"復(fù)原成功",vbOKOnly+vbInformation,"提示"ExitSubre:cnMod.RollbackTrans'回滾(不執(zhí)行)Label1.Caption="復(fù)原失敗"

40、;MsgBox"復(fù)原失敗",vbOKOnly+vbInformation,"提示"EndIfEndSubPrivateSubcmd_back_Click()'下面是備份的代碼，處理的比較粗糙，你自己優(yōu)化了，呵呵，相信你能看明白的，我就不注釋了IfcnMod.State=adStateOpenThencnMod.CloseEndIfCD.Filter="所有文件（*）|*|備份文件（*bak）|*bak"CD.InitDir=App.PathCD.ShowSavetxt_weizhi=CD.FileNamecnMod.Open&

41、quot;driver=sqlserver;server=HZ;uid=sa;pwd=heweiling;database=E資治理系統(tǒng)”O(jiān)nErrorGoTobackcnMod.BeginTranscnMod.Execute（"backupdatabase工資治理系統(tǒng)todisk='"&CD.FileName&"”'）MsgBox”成功地備份到"&CD.FileName&"下"，vbOKOnly+vbInformation,"操作提示"cnMod.CloseExit

42、Sub"back:ur區(qū)系統(tǒng)設(shè)置信息維擰工資查詢幫助打印cnMod.RollbackTransMsgBox"備份失敗"，vbOKOnly+vbInformation,"提示"cnMod.CloseEndSub到那個地點(diǎn)就告一段落了，是不是專門簡單呢，因此那個地點(diǎn)有專門多不足，你自己完善吧PrivateSubForm_Load()EndSub3.4.4 退出選擇“系統(tǒng)”->“退出”菜單，單擊則推出主菜單界面。Fr«m»2刪除修改取消3.4.5 差不多工資選擇“設(shè)置”-> “差不多工資”菜單，能夠單擊“添加”“刪除”

43、，“修改，“取消按鈕來實(shí)現(xiàn)相應(yīng)功能。DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL("insertinto差不多工資values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)插入符合條件的工資信息Setobjrs=ExecuteSQL("select

44、*from差不多工資”，msg_sql)SetDataGridl.DataSource=objrs刷新網(wǎng)格，顯示操作后的結(jié)果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox”庫中沒有記錄！”ExitSubEndIfIfobjrs.RecordCount<>0Th

45、enIfMsgBox（"確實(shí)要刪除該級不工資信息嗎？"，vbYesNo+vbQuestion,"警告"）=vbYesThenobjrs.DeleteMsgBox”刪除成功!”,vbInformation,"提示"Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndIfEndSubPrivateSubForm_Load（）Setobjrs=ExecuteSQL（"select*from差不多工資",msg

46、_sql）Then力“修D(zhuǎn)imobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL("insertinto崗位工資values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)'插入符合條件的工資信息Setobjrs=ExecuteSQL("select*f

47、rom崗位工資",msg_sql)SetDataGrid1.DataSource=objrs'刷新網(wǎng)格，顯示操作后的結(jié)果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"庫中沒有記錄!"ExitSubEndIfIfobjrs.Recor

48、dCount<>0ThenIfMsgBox("確實(shí)要刪除該級不工資信息嗎？"，vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"刪除成功!",vbInformation,"提示"Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndIfEndSubPrivateSubForm_Load()Setobjrs=ExecuteSQL("

49、;select*from崗位工資",msg_sql)SetDataGrid1.DataSource=objrsEndSubPrivateSubText_pay_LostFocus()IfVal(Textpay.Text)<0OrVal(Textpay.Text)>=10000ThenDimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()Dimsqlbianhao,sqlmingcheng,sqlfuzeren,sqlrenshuAsStringsqlbianhao=cmo_bianhao.T

50、extsqlmingcheng=cmo_mingcheng.Textsqlfuzeren=txt_fuzeren.Textsqlrenshu=txt_renshu.TextIfcmo_bianhao.Text<>""Andcmo_mingcheng.Text<>""ThenIfMsgBox("確定添加嗎？",vbYesNo+vbExclamation,"警告")=vbYesThenSetobjrs=ExecuteSQL("insertinto部門信息values("+&q

51、uot;'"+sqlbianhao+"'"+",'"+sqlmingcheng+"','"+sqlfuzeren+"','"+sqlrenshu+"')",msg_sql)Setobjrs=ExecuteSQL("select*from部門信息",msg_sql)SetDataGrid1.DataSource=objrsMsgBox"添加成功！",vbOKOnly+vbExclama

52、tion,"警告"EndIfEndIfEndSubPrivateSubcmd_alter_Click()IfTrim(cmo_bianhao.Text)=""OrTrim(cmo_mingcheng.Text)=""OrTrim(txt_fuzeren.Text)=""OrTrim(txt_renshu.Text)=""ThenMsgBox"請將修改后的信息填寫完整！",vbOKOnly+vbExclamation,警告ElseIfMsgBox("確定修改嗎？&qu

53、ot;,vbYesNo+vbExclamation,"警告")=vbYesThenSetrst=ExecuteSQL("update部門信息set部門名稱='"&Trim(cmo_mingcheng.Text)&"'where部門編號='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL("update部門信息set部門負(fù)責(zé)人='"&Trim(txt_fuze

54、ren.Text)&"'where部門編號='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL("update部門信息set部門人數(shù)='"&Trim(txt_renshu.Text)&"'where部門編號='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL(&quo

55、t;select*from基部門信息",msg_sql)SetDataGrid1.DataSource=objrsMsgBox"修改成功！",vbOKOnly+vbExclamation,"警告"cmo_bianhao.SetFocuscmo_bianhao.Text=""cmo_mingcheng.Text=""txt_fuzeren.Text=""txt_renshu.Text=""EndIfEndIfEndSubPrivateSubcmd_cancel_Cli

56、ck()frm_main.ShowUnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"庫中沒有記錄!"ElseIfobjrs.RecordCount<>0ThenIfMsgBox("確實(shí)要刪除該部門?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"刪除成功!",vbInformation,"提示"EndIfEndIfEndIfE

57、ndSubPrivateSubForm_Load()性別2 SertaG基本T埼I崗忙T資耳響 Cc+cclique -水由甯 .卬口案定金源2400Set Da1 加仃.L>JiJJWQyj 2叼'由口奇0-IEnd Sub10001500laog40DE10001500100E4D0g10001500100|2400LE航發(fā)放工魂-> “職員治理”菜單，能夠單擊“添3.4.8職員治理'選擇“信息愛護(hù)”Tsgsqi)加”“刪除，“修改”，“取消”按鈕來實(shí)現(xiàn)相應(yīng)功能。Framei34口9發(fā)放工資冊瞪修改”選擇“信息愛護(hù)”，“發(fā)放工資”菜單，單擊“添加”或亞M彈出“添

58、加職職員資”菜單，單擊“添加”或“修改”則能包DimrstAsADODB.RecordsetDimsqlAsStringPrivateSubcmd_add_Click()frm_tianjiagongzi.ShowEndSubPrivateSubcmd_alter_Click()frm_tianjiagongzi.Show'txt_no.Enabled=Falsefrm_tianjiagongzi.Showfrm_tianjiagongzi.txt_bianhao.Text=DataGrid1.Columns(0)'frm_addsalary.txt_name=DataGrid

59、1.Columns(1)frm_tianjiagongzi.cmo_jiben=DataGrid1.Columns(1)frm_tianjiagongzi.cmo_gangwei=DataGrid1.Columns(2)frm_tianjiagongzi.txt_shuidian=DataGrid1.Columns(3)EndSubPrivateSubcmd_delete_Click()Ifrst.RecordCount<>0ThenIfMsgBox("確定刪除該職員的工資信息嗎？",vbYesNo+vbQuestion,"警告")=vbYe

60、sThenrst.DeleteSetrst=ExecuteSQL("select*from工資信息”，sql)SetDataGrid1.DataSource=rst澤“End 1f1二匚工MsgBox”刪除成功！"，vbOKOnly+vbExclamation,"提示"Im工膈*ndIf-EndSubPrivateSubcmd_cancel_Click()frm_main.ShowUnfOOdMe|TEndSubPrivateSubForm_Load()Setrst=ExecuteSQL("select*from工資信息”，sql)Set硒ta

61、Gridl.Dataqource=rstEndSubPramelL_港加口修改取消DimrstAsADODB.RecordsetDimmsg_sqlAsStringDimjiben,gangwei,salaryAsDoubleDimaddsalarysqlAsStringPrivateSubcmd_alter_Click()DimupdatesqlAsStringtxt_bianhao.Enabled=FalseSetrst=ExecuteSQL("select*from職員信息where職員編號='"&Trim(txt_bianhao.Text)&

62、"'",msg_sql)txt_xingming.Text=rst.Fields(0)Ifrst.RecordCount=0ThenMsgBox"請將修改后的信息填寫完整！",vbOKOnly+vbExclamation,警告ElseIfrst.RecordCount<>0ThenIfMsgBox("確定修改嗎？",vbYesNo+vbExclamation,"警告")=vbYesThenSetrst=ExecuteSQL("select*from差不多工資where工資級不='

63、;"&Trim(cmo_jiben.Text)&"'",msg_sql)jiben=rst.Fields(1)Setrst=ExecuteSQL("select*from崗位工資where工資級不='"&Trim(cmo_gangwei.Text)&"'",msg_sql)gangwei=rst.Fields(1)salary=jiben+gangwei-Trim(txt_shuidian.Text)updatesql="update工資信息set差不多工資=

64、"&jiben&","&"崗位工資="&gangwei&","&"水電費(fèi)="&"'"&Trim(txt_shuidian.Text)&"'"&","&"實(shí)發(fā)金額="&salary&"where職員編號='"&Trim(txt_bianhao.Text)&"'"Setrst=ExecuteSQL(updatesql,msg_sql)MsgBox"修改成功！",vbOKOnly+vbExclamation,"警告"UnloadM