員工工資管理系統(tǒng)(VB+SQL)

1、VB+SQLserve2000課程設(shè)計(jì)報(bào)告員工工資管理系統(tǒng)姓 名： _班 級(jí)： _學(xué) 號(hào)： _指導(dǎo)教師： _成 績(jī)：_完成時(shí)間：2009-12-28 完成地點(diǎn)：蚌埠學(xué)院 摘 要1第一章 緒論21.1數(shù)據(jù)庫管理系統(tǒng)21.2員工工資管理系統(tǒng)21.3開發(fā)工具3第二章 員工工資管理系統(tǒng)設(shè)計(jì)分析32.1應(yīng)用需求與分析32.2系統(tǒng)模塊劃分32.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)4第三章：企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計(jì)531操作流程圖532 “登錄模塊”詳細(xì)設(shè)計(jì)633 “主窗體”模塊詳細(xì)設(shè)計(jì)1034 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)133.41添加用戶與刪除133.42 修改用戶153.4.3數(shù)據(jù)庫備份和恢復(fù)173.4.4退出203.4.5

2、基本工資203.4.6崗位工資223.4.7部門管理243.4.8員工管理263.4.9 發(fā)放工資273.4.10 按員工查詢323.4.11 按部門查詢33模塊一：35模塊二：35第五章：結(jié) 束 語36謝辭37參考文獻(xiàn)：37摘 要企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來生成企業(yè)每個(gè)職工的基本工資、津貼、醫(yī)療保險(xiǎn)、保險(xiǎn)費(fèi)、實(shí)際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動(dòng)影響到企業(yè)的整體運(yùn)作，企業(yè)員工

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

4、作簡(jiǎn)單、易于使用的優(yōu)點(diǎn)。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(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)的核心組成部分。對(duì)數(shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進(jìn)行的。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。根據(jù)數(shù)據(jù)模型的不同，DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。MSsqlserve2000就是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。關(guān)系模型主

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

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

7、率和可靠性。因此，本系統(tǒng)使用MS Visual Basic 6.0開發(fā)。第二章 員工工資管理系統(tǒng)設(shè)計(jì)分析2.1應(yīng)用需求與分析基本信息的添加、修改、刪除和查詢?；拘畔?xiàng)目類型信息，項(xiàng)目狀態(tài)信息，模塊狀態(tài)信息和缺陷級(jí)別信息等。 此功能為項(xiàng)目組管理和軟件項(xiàng)目管理模塊提供數(shù)據(jù)。項(xiàng)目組信息的添加、修改、刪除和查詢。項(xiàng)目組信息包括收員工信息和角色信息。軟件項(xiàng)目管理模塊包括項(xiàng)目基本信息管理、軟件模塊管理和軟件缺陷管理等功能2.2系統(tǒng)模塊劃分開發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。能夠和認(rèn)識(shí)管理系統(tǒng)、考勤管理系統(tǒng)相結(jié)合，真正實(shí)現(xiàn)企業(yè)高效、科

8、學(xué)、現(xiàn)代化的員工管理。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎(jiǎng)金等。企業(yè)工資信息管理部分：包括統(tǒng)計(jì)出勤、計(jì)算工資、查詢工資和導(dǎo)出工資表。系統(tǒng)部分：包括添加用戶和修改密碼。2.3系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，確保數(shù)據(jù)信息的完整性和一致性。針對(duì)企業(yè)工資信息管理系統(tǒng)的需求，通過對(duì)員工工資計(jì)算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：基本工資信息：包括工資級(jí)別和工資金額。崗位工資信

9、息：包括工資級(jí)別和工資金額。工資信息：包括員工編號(hào)、基本工資、崗位工資、水電費(fèi)、實(shí)發(fā)金額。部門信息：包括部門編號(hào)、部門名稱、部門負(fù)責(zé)人、部門人數(shù)。工資統(tǒng)計(jì)信息：包括員工編號(hào)、姓名、出生年月、所屬部門、文化程度、職稱。用戶信息：包括用戶名、密碼和權(quán)限。員工信息表員工編號(hào)char (8)主鍵，不允許重復(fù)姓名char (8)性別char (2)出生年月datetime所屬部門char (4)外鍵文化程度char (4)職稱char (12)部門信息部門編號(hào)char (4)主鍵,不允許重復(fù)部門名稱char (20)部門負(fù)責(zé)人char (8)部門人數(shù)int基本工資工資級(jí)別char (2)主鍵,不允許重復(fù)

10、工資金額numeric (8, 2)崗位工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額numeric (8, 2)工資信息員工編號(hào)char (8)主鍵,不允許重復(fù)； 外鍵基本工資numeric (8, 2)崗位工資numeric (8, 2)水電費(fèi)numeric (8, 2)實(shí)發(fā)金額numeric (8, 2)用戶表用戶名char (8)主鍵,不允許重復(fù)密碼char (20)權(quán)限char (20)E-R圖： 第三章：企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計(jì)31操作流程圖初始登入用戶:admin 密碼為:admin用戶登入錄入口令是否正確？進(jìn)入工資管理主界面職員管理工資項(xiàng)目/工資數(shù)據(jù)錄入/工資報(bào)表用戶

11、管理數(shù)據(jù)備份/恢復(fù)結(jié)束當(dāng)月工資32 “登錄模塊”詳細(xì)設(shè)計(jì) 登錄模塊的詳細(xì)設(shè)計(jì)主要是用戶登錄的一個(gè)界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對(duì)的是主界面，從而進(jìn)行相關(guān)的操作。 登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。 窗體及核心代碼：Private Sub cmd_cancel_Click() txt_key.Text = cmo_user.Text = 請(qǐng)選擇 Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim try_times As Strin

12、g Dim sql As String Dim rst As ADODB.Recordset try_times = 0If (Trim(txt_key.Text) = ) Then MsgBox 請(qǐng)輸入密碼, vbOKOnly + vbExclamation, 提示Else sql = select * from 用戶表 where 用戶名= & Trim(cmo_user.Text) & Set rst = ExecuteSQL(sql, ) If Trim(rst.Fields(1) = Trim(txt_key.Text) Then If Trim(rst.Fields(2) 管理員

13、Then frm_main.xitong.Enabled = False 在這里設(shè)計(jì)非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的系統(tǒng) frm_main.shezhi.Enabled = False frm_main.xinxiweihu.Enabled = False End If rst.Close UserName = Trim(cmo_user.Text) frm_main.Show Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入, vbOKOnly + vbExclamation, 警告 txt_key.SetFocus txt_key.Text =

14、try_times = try_times + 1 Exit Sub 在這里若密碼錯(cuò)了應(yīng)該跳出該過程，否則下面的語句還會(huì)執(zhí)行，這不是你想要的 End If try_times = try_times + 1 個(gè)人認(rèn)為密碼輸入錯(cuò)了才加一，你這樣的話，用戶名錯(cuò)了也會(huì)加一，當(dāng)然你這里用戶名不會(huì)錯(cuò)是吧，改得多余了 If try_times = 3 Then Unload Me End IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As ADODB.Recordset sql = sel

15、ect 用戶名 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To rst.RecordCount cmo_user.AddItem (rst.Fields(0) rst.MoveNext Next iEnd Sub主窗體：Private Sub bumenxinxi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = rst.Fields(2)If Trim(power)

16、管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_bumenxinxi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員

17、 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_gangweigongzi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsg

18、Box 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_jiben.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghushanchu_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)

19、行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghutianjia_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您

20、無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As ADODB.Recordset sql = select 權(quán)限 from 用戶表 Set rst = ExecuteSQL(sql, ) For i = 1 To rst.RecordCount rst.MoveNext

21、 Next i33 “主窗體”模塊詳細(xì)設(shè)計(jì)在這個(gè)項(xiàng)目中，選擇使用多文檔界面。使用這個(gè)窗體的好處是可以使程序更加有條理。對(duì)于一個(gè)多任務(wù)的應(yīng)用程序，使用多文檔窗體還可以減少占用的系統(tǒng)資源。主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。主窗體是進(jìn)行相關(guān)操作的主界面。在這幾個(gè)里，管理員有所有的權(quán)利進(jìn)行各種操作。主窗體及核心代碼：Private Sub bumenxinxi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = Ex

22、ecuteSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_bumenxinxi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = Execu

23、teSQL(sql, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_gangweigongzi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sq

24、l, )power = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_jiben.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghushanchu_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )powe

25、r = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghutianjia_Click()Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用戶表 Set rst = ExecuteSQL(sql, )p

26、ower = rst.Fields(2)If Trim(power) 管理員 ThenMsgBox 您無權(quán)進(jìn)行該操作！, vbOKOnly + vbExclamation, 警告ElseIf Trim(power) = 管理員 Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load() Dim i As Integer Dim sql As String Dim rst As ADODB.Recordset sql = select 權(quán)限 from 用戶表 Set rst = ExecuteS

27、QL(sql, ) For i = 1 To rst.RecordCount rst.MoveNext Next iEnd Sub34 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)3.41添加用戶與刪除選擇“系統(tǒng)”“添加用戶與刪除”菜單，在添加用戶的窗體里,輸入新的用戶名稱和密碼后，單擊“添加”按鈕，系統(tǒng)將會(huì)添加新的用戶。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會(huì)刪除原來用戶。Private Sub cmd_adduser_Click()Dim newrst As ADODB.RecordsetDim sql As Stringsql = insert into 用戶表 values( & & Trim(t

28、xt_username.Text) & , _ & & Trim(txt_password.Text) & , _ & & Trim(txt_power) & & )Set newrst = execute_sql(sql)sql = select * from 用戶表Set newrst = select_sql(sql)Set DataGrid1.DataSource = newrstEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click()Dim sql As Stringsql

29、= select * from 用戶表If txt_username Then Set objrs = ExecuteSQL(sql, ) Set DataGrid1.DataSource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 End If If objrs.RecordCount = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If objrs.RecordCount 0 Then If MsgBox(真的要?jiǎng)h除該級(jí)用戶信息嗎?, vbYesNo + vbQuestion, 警告) = vbYes Then objrs.Delete MsgBox 刪除成

30、功!, vbInformation, 提示 End If End IfEnd SubPrivate Sub Form_Load()Dim newrst As ADODB.RecordsetDim sql As Stringsql = select * from 用戶表Set newrst = select_sql(sql)Set DataGrid1.DataSource = newrstEnd Sub3.42 修改用戶選擇“系統(tǒng)”-“修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權(quán)限，單擊“修改”按鈕，系統(tǒng)將會(huì)修改原來用戶信息。Private Sub cmd_adduser_Click()Di

31、m newrst As ADODB.RecordsetDim sql As Stringsql = insert into 用戶表 values( & & Trim(txt_username.Text) & , _ & & Trim(txt_password.Text) & , _ & & Trim(txt_power) & & )Set newrst = execute_sql(sql)sql = select * from 用戶表Set newrst = select_sql(sql)Set DataGrid1.DataSource = newrstEnd SubPrivate Sub c

32、md_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click()Dim sql As Stringsql = select * from 用戶表If txt_username Then Set objrs = ExecuteSQL(sql, ) Set DataGrid1.DataSource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 End If If objrs.RecordCount = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If objrs.RecordCount 0 Then If

33、MsgBox(真的要?jiǎng)h除該級(jí)用戶信息嗎?, vbYesNo + vbQuestion, 警告) = vbYes Then objrs.Delete MsgBox 刪除成功!, vbInformation, 提示 End If End IfEnd SubPrivate Sub Form_Load()Dim newrst As ADODB.RecordsetDim sql As Stringsql = select * from 用戶表Set newrst = select_sql(sql)Set DataGrid1.DataSource = newrstEnd Sub3.4.3數(shù)據(jù)庫備份和恢復(fù)選

34、擇“系統(tǒng)”-“數(shù)據(jù)庫備份和恢復(fù)”菜單，在位置文本框中輸入備份或恢復(fù)的文件所在位置，單擊“備份”或“恢復(fù)”按鈕，數(shù)據(jù)庫將備份或恢復(fù)。Option ExplicitPrivate Sub cmd_recovery_Click()If cnMod.State = adStateOpen Then cnMod.Close 如果已連接，關(guān)掉寬End If cnMod.Open driver=sql server;server=HZ;uid=sa;pwd=heweiling;database=master 建一個(gè)連接用來獲得要還原數(shù)據(jù)庫的進(jìn)程標(biāo)識(shí)符（spid）Dim rs As New ADODB.Rec

35、ordset 該記錄集保存進(jìn)程ID以備操作 rs.Open select spid from sysprocesses where dbid=db_id(工資管理系統(tǒng)), cnMod, adOpenDynamic, adLockPessimistic解釋一下，這句話是為了將有關(guān)“工資管理系統(tǒng)”所有服務(wù)進(jìn)程ID查詢出來db_id是SQL中的一個(gè)函數(shù)具體語法你自己看它的幫助文件哦，這里就不贅述了If rs.EOF = False Then rs.MoveFirst Do While rs.EOF = True 掃描并關(guān)閉有關(guān)“工資管理系統(tǒng)”的服務(wù)進(jìn)程 cnMod.Execute (kill & r

36、s.Fields(0) kill 也是SQL的方法“殺”與dos下的kill類似啊，是吧，呵呵自己看看幫助文件很詳盡的 rs.MoveNext LoopEnd If CD.Filter = 所有文件（*.*）|*.*|備份文件(*.bak)|*.bak CD.InitDir = App.Path Text1.Text = CD.FileName CD.ShowOpenDim Mstr As String Mstr = 恢復(fù)主要數(shù)據(jù)庫？數(shù)據(jù)恢復(fù)操作將會(huì)覆蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復(fù)，您確定要進(jìn)行恢復(fù)操作嗎?If MsgBox(Mstr, vbYesNo + vbQuestion, 操作提示

37、) = vbYes ThenOn Error GoTo re Label1.Caption = 正在恢復(fù)，請(qǐng)稍候 cnMod.BeginTrans 開始一個(gè)事件 cnMod.Execute (restore database 工資管理系統(tǒng) from disk= & CD.FileName & with replace) SQL語句要是不會(huì)用，查看幫助文件 cnMod.CommitTrans 執(zhí)行 Label1.Caption = 恢復(fù)成功 MsgBox 恢復(fù)成功, vbOKOnly + vbInformation, 提示 Exit Subre: cnMod.RollbackTrans 回滾（不

38、執(zhí)行） Label1.Caption = 恢復(fù)失敗 MsgBox 恢復(fù)失敗, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub cmd_back_Click()下面是備份的代碼，處理的比較粗糙，你自己優(yōu)化了，呵呵，相信你能看懂的，我就不注釋了If cnMod.State = adStateOpen Then cnMod.CloseEnd If CD.Filter = 所有文件（*.*）|*.*|備份文件(*.bak)|*.bak CD.InitDir = App.Path CD.ShowSave txt_weizhi = CD.FileN

39、ame cnMod.Open driver=sql server;server=HZ;uid=sa;pwd=heweiling;database=工資管理系統(tǒng)On Error GoTo back cnMod.BeginTrans cnMod.Execute (backup database 工資管理系統(tǒng) to disk= & CD.FileName & ) cnMod.CommitTrans MsgBox 成功地備份到 & CD.FileName & 下, vbOKOnly + vbInformation, 操作提示 cnMod.Close Exit Subback: cnMod.Rollba

40、ckTrans MsgBox 備份失敗, vbOKOnly + vbInformation, 提示 cnMod.CloseEnd Sub到這里就告一段落了，是不是很簡(jiǎn)單呢，當(dāng)然這里有很多不足，你自己完善吧Private Sub Form_Load()End Sub3.4.4退出選擇“系統(tǒng)”-“退出”菜單，單擊則推出主菜單界面。3.4.5基本工資選擇“設(shè)置”-“基本工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(shí)現(xiàn)相應(yīng)功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click()If

41、 Combo_level.Text Then Set objrs = ExecuteSQL(insert into 基本工資 values( + Str(Combo_level.Text) + , + (Text_pay.Text) + ), msg_sql) 插入符合條件的工資信息 Set objrs = ExecuteSQL(select * from 基本工資, msg_sql) Set DataGrid1.DataSource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 Combo_level.SetFocus Combo_level.Text = Text_pay.Text = En

42、d IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click() If objrs.RecordCount = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If objrs.RecordCount 0 Then If MsgBox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbYesNo + vbQuestion, 警告) = vbYes Then objrs.Delete MsgBox 刪除成功!, vbInformation, 提示 Combo_level.S

43、etFocus Combo_level.Text = Text_pay.Text = End If End IfEnd SubPrivate Sub Form_Load()Set objrs = ExecuteSQL(select * from 基本工資, msg_sql)Set DataGrid1.DataSource = objrsEnd SubPrivate Sub Text_pay_LostFocus()If Val(Text_pay.Text) = 10000 Then MsgBox 數(shù)據(jù)非法 Text_pay.Text = Text_pay.SetFocus End IfEnd S

44、ub3.4.6崗位工資選擇“設(shè)置”-“崗位工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(shí)現(xiàn)相應(yīng)功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click()If Combo_level.Text Then Set objrs = ExecuteSQL(insert into 崗位工資 values( + Str(Combo_level.Text) + , + (Text_pay.Text) + ), msg_sql) 插入符合條件的工資信息 Set objrs = Execute

45、SQL(select * from 崗位工資, msg_sql) Set DataGrid1.DataSource = objrs 刷新網(wǎng)格，顯示操作后的結(jié)果 Combo_level.SetFocus Combo_level.Text = Text_pay.Text = End IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click() If objrs.RecordCount = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If objrs.Reco

46、rdCount 0 Then If MsgBox(真的要?jiǎng)h除該級(jí)別工資信息嗎?, vbYesNo + vbQuestion, 警告) = vbYes Then objrs.Delete MsgBox 刪除成功!, vbInformation, 提示 Combo_level.SetFocus Combo_level.Text = Text_pay.Text = End If End IfEnd SubPrivate Sub Form_Load()Set objrs = ExecuteSQL(select * from 崗位工資, msg_sql)Set DataGrid1.DataSource

47、= objrsEnd SubPrivate Sub Text_pay_LostFocus()If Val(Text_pay.Text) = 10000 Then MsgBox 數(shù)據(jù)非法 Text_pay.Text = Text_pay.SetFocus End IfEnd Sub3.4.7部門管理選擇“信息維護(hù)”-“部門管理”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(shí)現(xiàn)相應(yīng)功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click()Dim sqlbianhao, sqlmingc

48、heng, sqlfuzeren, sqlrenshu As String sqlbianhao = cmo_bianhao.Text sqlmingcheng = cmo_mingcheng.Text sqlfuzeren = txt_fuzeren.Text sqlrenshu = txt_renshu.Text If cmo_bianhao.Text And cmo_mingcheng.Text Then If MsgBox(確定添加嗎？, vbYesNo + vbExclamation, 警告) = vbYes Then Set objrs = ExecuteSQL(insert in

49、to 部門信息 values( + + sqlbianhao + + , + sqlmingcheng + , + sqlfuzeren + , + sqlrenshu + ), msg_sql) Set objrs = ExecuteSQL(select * from 部門信息, msg_sql) Set DataGrid1.DataSource = objrs MsgBox 添加成功！, vbOKOnly + vbExclamation, 警告 End If End IfEnd SubPrivate Sub cmd_alter_Click()If Trim(cmo_bianhao.Text) = Or Trim(cmo_mingcheng.Text) = Or Trim(txt_fuzeren.Text) = Or Trim(txt_renshu.Text) = Then