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

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ù)庫(kù)管理系統(tǒng)21.2員工工資管理系統(tǒng)21.3開(kāi)發(fā)工具3第二章 員工工資管理系統(tǒng)設(shè)計(jì)分析32.1應(yīng)用需求與分析32.2系統(tǒng)模塊劃分32.3系統(tǒng)數(shù)據(jù)庫(kù)設(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ù)庫(kù)備份和恢復(fù)173.4.4退出203.4.5

2、基本工資203.4.6崗位工資223.4.7部門(mén)管理243.4.8員工管理263.4.9 發(fā)放工資273.4.10 按員工查詢323.4.11 按部門(mén)查詢33模塊一：35模塊二：35第五章：結(jié) 束 語(yǔ)36謝辭37參考文獻(xiàn)：37摘 要企業(yè)的工資管理是公司管理的一個(gè)重要內(nèi)容。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來(lái)越復(fù)雜。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。工資管理需要和人事管理相聯(lián)系，同時(shí)連接工時(shí)考勤和醫(yī)療保險(xiǎn)等等，來(lái)生成企業(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è)人的因素抄寫(xiě)不慎或計(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)程序開(kāi)發(fā)工具采用微軟的VB6，后臺(tái)數(shù)據(jù)庫(kù)采用sqlserve2000數(shù)據(jù)庫(kù)。VB6是一種面向?qū)ο蟮拈_(kāi)發(fā)工具，具有組件豐富、語(yǔ)言簡(jiǎn)單、功能強(qiáng)大的優(yōu)點(diǎn)。sqlserve2000數(shù)據(jù)庫(kù)具有與VB6無(wú)縫連接、操

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ù)庫(kù)管理系統(tǒng)數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的核心組成部分。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義、更新及各種控制,都是通過(guò)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ù)庫(kù)管理系統(tǒng)。關(guān)系模型主

5、要是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，用外鍵表示實(shí)體間聯(lián)系。關(guān)系模型是由若干個(gè)關(guān)系模式組成的集合。關(guān)系模式相當(dāng)于前面提到的記錄類(lèi)型，每個(gè)關(guān)系實(shí)際上是一張二維表格。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)單用戶易懂，編程時(shí)并不涉及存儲(chǔ)結(jié)構(gòu)，訪問(wèn)技術(shù)等細(xì)節(jié)。SQL語(yǔ)言是關(guān)系型數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)化語(yǔ)言，已得到了廣泛的應(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í)間，而且往往由于抄寫(xiě)不慎，或者由于計(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開(kāi)發(fā)工具微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開(kāi)發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效

7、率和可靠性。因此，本系統(tǒng)使用MS Visual Basic 6.0開(kāi)發(fā)。第二章 員工工資管理系統(tǒng)設(shè)計(jì)分析2.1應(yīng)用需求與分析基本信息的添加、修改、刪除和查詢?；拘畔?xiàng)目類(lèi)型信息，項(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)模塊劃分開(kāi)發(fā)這個(gè)系統(tǒng)的目的就是幫助企業(yè)的財(cái)務(wù)主管部門(mén)提高工作效率，實(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ù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)是信息管理系統(tǒng)的后臺(tái)，存儲(chǔ)著所有的信息，在信息管理系統(tǒng)中有著很重要的地位。數(shù)據(jù)庫(kù)設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。良好的數(shù)據(jù)庫(kù)設(shè)計(jì)，可以提高數(shù)據(jù)信息的存儲(chǔ)效率，確保數(shù)據(jù)信息的完整性和一致性。針對(duì)企業(yè)工資信息管理系統(tǒng)的需求，通過(guò)對(duì)員工工資計(jì)算過(guò)程的內(nèi)容分析，為本系統(tǒng)設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：·

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

10、稱char (20)部門(mén)負(fù)責(zé)人char (8)部門(mén)人數(shù)int基本工資工資級(jí)別char (2)主鍵,不允許重復(fù)工資金額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

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

12、quot;請(qǐng)選擇" 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 "請(qǐng)輸入密碼", 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è)計(jì)非管理員用戶的權(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 "密碼不正確，請(qǐng)重新輸入", vbOKOnly + vbExclamation, "警告" txt_key.SetFocus txt_key.Text = "" try_times = try_times + 1 Exit Sub '在這里若密碼錯(cuò)了應(yīng)該跳出該過(guò)程，否則下面的語(yǔ)句還會(huì)執(zhí)

15、行，這不是你想要的 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 = "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 "您無(wú)權(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 "您無(wú)權(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 "您無(wú)權(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 "您無(wú)權(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 "您無(wú)權(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è)計(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 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 "您無(wú)權(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、無(wú)權(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 "您無(wú)權(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 "您無(wú)權(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 "您無(wú)權(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 各項(xiàng)子模塊詳細(xì)設(shè)計(jì)3.41添加用戶與刪除選擇“系統(tǒng)”>“添加用戶與刪除”菜單，在添加用戶的窗體里,輸入新的用戶名稱和密碼后，單擊“添加”按鈕，系統(tǒng)將會(huì)添加新的用戶。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會(huì)刪除原來(lái)用戶。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 "庫(kù)中沒(méi)有記錄!" Exit Sub End If If objrs.RecordCount <> 0 Then If MsgBox("真的要?jiǎng)h除該級(jí)用戶信息嗎?", 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)將會(huì)修改原來(lái)用戶信息。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 "庫(kù)中沒(méi)有記錄!" Exit Sub End If If objrs.RecordCount <> 0 Then If MsgBox("真的要?jiǎng)h除該級(jí)用戶信息嗎?", 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ù)庫(kù)備份和恢復(fù)選擇“系統(tǒng)”->“數(shù)據(jù)庫(kù)備份和恢復(fù)”菜單，在位置文本框中

40、輸入備份或恢復(fù)的文件所在位置，單擊“備份”或“恢復(fù)”按鈕，數(shù)據(jù)庫(kù)將備份或恢復(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è)連接用來(lái)獲得要還原數(shù)據(jù)庫(kù)的進(jìn)程標(biāo)識(shí)符（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查詢出來(lái)db_id是SQL中的一個(gè)函數(shù)具體語(yǔ)法你自己看它的幫助文件哦，這里就不贅述了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類(lèi)似啊，是吧，呵呵自己看看幫助文件很詳盡的 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ù)庫(kù)？數(shù)據(jù)恢復(fù)操作將會(huì)覆

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

44、ace") 'SQL語(yǔ)句要是不會(huì)用，查看幫助文件 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'到這里就告一段落了，是不是很簡(jiǎn)單呢，當(dāng)然這里有很多不足，你自己完善吧Private Sub Form_Load()End Sub3.4.4退出選擇“系統(tǒng)”->“退出”菜單，單擊則推出主菜單界面。3.4.5基本工資選擇“設(shè)置”->“基本工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消

48、”按鈕來(lái)實(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

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 "庫(kù)中沒(méi)有記錄!" 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.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è)置”->“崗位工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來(lái)實(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 "庫(kù)中沒(méi)有記錄!" Exit Sub End If If objrs.RecordCount <> 0 Then If MsgBox("真的要?jiǎng)h除該級(jí)別工資信息嗎?", 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部門(mén)管理選擇“信息維護(hù)”->“部門(mén)管理”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來(lái)實(shí)現(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 部門(mén)信息 values(" + "'" + sqlbianhao + "'" + ",'" + sqlmingcheng + "' ,'" + sqlfuzeren + "' ,'" + sql

59、renshu + "' )", msg_sql) Set objrs = ExecuteSQL("select * from 部門(mén)信息", 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 "請(qǐng)將修改后的信息填寫(xiě)完整！", vbOKOnly + vbExclamation, "警告"ElseIf MsgBox("確定修改嗎？&quo