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

1、VB+SQLserve2000課程設(shè)計報告員工工資管理系統(tǒng)姓 名： _班 級： _學(xué) 號： _指導(dǎo)教師： _成 績：_完成時間：2009-12-28 完成地點：蚌埠學(xué)院 摘 要1第一章 緒論21.1數(shù)據(jù)庫管理系統(tǒng)21.2員工工資管理系統(tǒng)21.3開發(fā)工具3第二章 員工工資管理系統(tǒng)設(shè)計分析32.1應(yīng)用需求與分析32.2系統(tǒng)模塊劃分32.3系統(tǒng)數(shù)據(jù)庫設(shè)計4第三章：企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計531操作流程圖532 “登錄模塊”詳細(xì)設(shè)計633 “主窗體”模塊詳細(xì)設(shè)計1034 各項子模塊詳細(xì)設(shè)計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è)的工資管理是公司管理的一個重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同時也是企業(yè)財務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運作，企業(yè)員工

3、的工資是企業(yè)資金管理的一個重要的組成部分。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。早期工資管理多采取紙質(zhì)材料和具有較強(qiáng)的時間限制?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(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)點。sqlserve2000數(shù)據(jù)庫具有與VB6無縫連接、操

4、作簡單、易于使用的優(yōu)點。運行結(jié)果證明，本企業(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ù)模型在計算機(jī)系統(tǒng)上的具體實現(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á)實體集，用外鍵表示實體間聯(lián)系。關(guān)系模型是由若干個關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類型，每個關(guān)系實際上是一張二維表格。關(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ī)率也隨之升高，不僅花費財務(wù)人員大量的時間，而且往往由于抄寫不慎，或者由于計算的疏忽，出現(xiàn)工資發(fā)放錯誤的

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

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

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

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

10、稱char (20)部門負(fù)責(zé)人char (8)部門人數(shù)int基本工資工資級別char (2)主鍵,不允許重復(fù)工資金額numeric (8, 2)崗位工資工資級別char (2)主鍵,不允許重復(fù)工資金額numeric (8, 2)工資信息員工編號char (8)主鍵,不允許重復(fù)； 外鍵基本工資numeric (8, 2)崗位工資numeric (8, 2)水電費numeric (8, 2)實發(fā)金額numeric (8, 2)用戶表用戶名char (8)主鍵,不允許重復(fù)密碼char (20)權(quán)限char (20)E-R圖： 第三章：企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計31操作流程圖初始登入用戶:admin

11、 密碼為:admin用戶登入錄入口令是否正確？進(jìn)入工資管理主界面職員管理工資項目/工資數(shù)據(jù)錄入/工資報表用戶管理數(shù)據(jù)備份/恢復(fù)結(jié)束當(dāng)月工資32 “登錄模塊”詳細(xì)設(shè)計 登錄模塊的詳細(xì)設(shè)計主要是用戶登錄的一個界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行相關(guān)的操作。 登錄的界面主要由用戶名和密碼的信息，還有一些標(biāo)題設(shè)置，確定和取消的按鈕組成。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計完成。 窗體及核心代碼：Private Sub cmd_cancel_Click() text_key.Text = "" cmo_user.Text = &

12、quot;請選擇" Unload MeEnd SubPrivate Sub cmd_ok_Click() Dim try_times As String Dim sql As String Dim rst As ADODB.Recordset try_times = 0If (Trim(txt_key.Text) = "") Then MsgBox "請輸入密碼", vbOKOnly + vbExclamation, "提示"Else sql = "select * from 用戶表 where 用戶名='

13、" & Trim(cmo_user.Text) & "'" Set rst = ExecuteSQL(sql, "") If Trim(rst.Fields(1) = Trim(txt_key.Text) Then If Trim(rst.Fields(2) <> "管理員" Then frm_main.xitong.Enabled = False '在這里設(shè)計非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的系統(tǒng) frm_main.shezhi.Enabled = Fal

14、se frm_main.xinxiweihu.Enabled = False End If rst.Close UserName = Trim(cmo_user.Text) frm_main.Show Unload Me Else MsgBox "密碼不正確，請重新輸入", vbOKOnly + vbExclamation, "警告" txt_key.SetFocus txt_key.Text = "" try_times = try_times + 1 Exit Sub '在這里若密碼錯了應(yīng)該跳出該過程，否則下面的語句還會執(zhí)

15、行，這不是你想要的 End If 'try_times = try_times + 1 '個人認(rèn)為密碼輸入錯了才加一，你這樣的話，用戶名錯了也會加一，當(dāng)然你這里用戶名不會錯是吧，改得多余了 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 = "select 用戶名 from 用戶表 " Set rst = ExecuteSQL(

16、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) &l

17、t;> "管理員" 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 用戶表 "

18、;Set rst = ExecuteSQL(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 A

19、s StringDim rst As New ADODB.Recordsetsql = "select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_jiben.S

20、howUnload 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)行該操作！", vbOKOnly + vbExclam

21、ation, "警告"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(p

22、ower) <> "管理員" 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 = "sel

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

24、ub bumenxinxi_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)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = &

25、quot;管理員" 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) <> "管理員" ThenMsgBox "您

26、無權(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

27、= 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 = &q

28、uot;select * from 用戶表 "Set rst = ExecuteSQL(sql, "")power = rst.Fields(2)If Trim(power) <> "管理員" ThenMsgBox "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power) = "管理員" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPriv

29、ate 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 "您無權(quán)進(jìn)行該操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(po

30、wer) = "管理員" 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 Next iEnd Sub3

31、4 各項子模塊詳細(xì)設(shè)計3.41添加用戶與刪除選擇“系統(tǒng)”>“添加用戶與刪除”菜單，在添加用戶的窗體里,輸入新的用戶名稱和密碼后，單擊“添加”按鈕，系統(tǒng)將會添加新的用戶。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會刪除原來用戶。Private Sub cmd_adduser_Click()Dim newrst As ADODB.RecordsetDim sql As Stringsql = "insert into 用戶表 values(" & "'" & Trim(txt_username.Text) &

32、"'," _ & "'" & Trim(txt_password.Text) & "'," _ & "'" & Trim(txt_power) & "'" & ")"Set newrst = execute_sql(sql)sql = "select * from 用戶表"Set newrst = select_sql(sql)Set DataGrid1.Dat

33、aSource = newrstEnd SubPrivate Sub cmd_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 ob

34、jrs.RecordCount = 0 Then MsgBox "庫中沒有記錄!" Exit Sub End If If objrs.RecordCount <> 0 Then If MsgBox("真的要刪除該級用戶信息嗎?", vbYesNo + vbQuestion, "警告") = vbYes Then objrs.Delete MsgBox "刪除成功!", vbInformation, "提示" End If End IfEnd SubPrivate Sub Form_L

35、oad()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)將會修改原來用戶信息。Private Sub cmd_adduser_Click()Dim newrst As ADODB.RecordsetDim sql As String

36、sql = "insert into 用戶表 values(" & "'" & Trim(txt_username.Text) & "'," _ & "'" & Trim(txt_password.Text) & "'," _ & "'" & Trim(txt_power) & "'" & ")"Set new

37、rst = 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 = "select * from 用戶表"If txt_username <> "" Then Set

38、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("真的要刪除該級用戶信息嗎?", vbYesNo + vbQuestion, "警告") = vbYes Then objrs

39、.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ù)選擇“系統(tǒng)”->“數(shù)據(jù)庫備份和恢復(fù)”菜單，在位置文本框中

40、輸入備份或恢復(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" '建一個連接用來獲得要還原數(shù)據(jù)庫的進(jìn)程標(biāo)識符（spid）Dim rs As New ADODB.Records

41、et '該記錄集保存進(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中的一個函數(shù)具體語法你自己看它的幫助文件哦，這里就不贅述了If rs.EOF = False Then rs.MoveFirst Do While rs.EOF = True '掃描并關(guān)閉有關(guān)“工資管

42、理系統(tǒng)”的服務(wù)進(jìn)程 cnMod.Execute ("kill" & rs.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ù)操作將會覆

43、蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復(fù)，您確定要進(jìn)行恢復(fù)操作嗎?"If MsgBox(Mstr, vbYesNo + vbQuestion, "操作提示") = vbYes ThenOn Error GoTo re Label1.Caption = "正在恢復(fù)，請稍候" cnMod.BeginTrans '開始一個事件 cnMod.Execute ("restore database 工資管理系統(tǒng) from disk='" & CD.FileName & "' with repl

44、ace") 'SQL語句要是不會用，查看幫助文件 cnMod.CommitTrans '執(zhí)行 Label1.Caption = "恢復(fù)成功" MsgBox "恢復(fù)成功", vbOKOnly + vbInformation, "提示" Exit Subre: cnMod.RollbackTrans '回滾（不執(zhí)行） Label1.Caption = "恢復(fù)失敗" MsgBox "恢復(fù)失敗", vbOKOnly + vbInformation, "提示&q

45、uot;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.FileName cnMod.Open "driver=sql server;server=

46、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, &qu

47、ot;操作提示" cnMod.Close Exit Subback: cnMod.RollbackTrans MsgBox "備份失敗", vbOKOnly + vbInformation, "提示" cnMod.CloseEnd Sub'到這里就告一段落了，是不是很簡單呢，當(dāng)然這里有很多不足，你自己完善吧Private Sub Form_Load()End Sub3.4.4退出選擇“系統(tǒng)”->“退出”菜單，單擊則推出主菜單界面。3.4.5基本工資選擇“設(shè)置”->“基本工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消

48、”按鈕來實現(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

49、 objrs = ExecuteSQL("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.Record

50、Count = 0 Then MsgBox "庫中沒有記錄!" Exit Sub End If If objrs.RecordCount <> 0 Then If MsgBox("真的要刪除該級別工資信息嗎?", vbYesNo + vbQuestion, "警告") = vbYes Then objrs.Delete MsgBox "刪除成功!", vbInformation, "提示" Combo_level.SetFocus Combo_level.Text = "&

51、quot; 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) < 0 Or Val(Text_pay.Text) >= 10000 Then MsgBox "數(shù)據(jù)非法&qu

52、ot; Text_pay.Text = "" Text_pay.SetFocus End IfEnd Sub3.4.6崗位工資選擇“設(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 崗位工資 value

53、s(" + 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 = &qu

54、ot;" 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.RecordCount <> 0 Then If MsgBox("真的要刪除該級別工資信息嗎?", vbYesNo + vbQuestion, "警告") = vbYes Then o

55、bjrs.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 = objrsEnd SubPriva

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

57、Sub cmd_add_Click()Dim sqlbianhao, sqlmingcheng, 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 Ms

58、gBox("確定添加嗎？", vbYesNo + vbExclamation, "警告") = vbYes Then Set objrs = ExecuteSQL("insert into 部門信息 values(" + "'" + sqlbianhao + "'" + ",'" + sqlmingcheng + "' ,'" + sqlfuzeren + "' ,'" + sql

59、renshu + "' )", 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) = "" ThenMsgBox "請將修改后的信息填寫完整！", vbOKOnly + vbExclamation, "警告"ElseIf MsgBox("確定修改嗎？&quo