员工工资管理系统(VBSQL)

1、VB+SSQLsservve20000课课程设计计报告员工工资资管理系系统姓 名：_班 级：_学 号：_指导教师师：_成 绩：_完成时间间：20009-12-28 完成地点点：蚌埠埠学院 TOC o 1-3 h u HYPERLINK l _Toc19359 摘 要要 PAGEREF _Toc19359 1 HYPERLINK l _Toc4783 第一章 绪论 PAGEREF _Toc4783 22 HYPERLINK l _Toc11814 1.1数数据库管管理系统统 PAGEREF _Toc11814 2 HYPERLINK l _Toc5310 1.2员员工工资资管理系系统 PAGER

2、EF _Toc5310 2 HYPERLINK l _Toc21803 1.3开开发工具具 PAGEREF _Toc21803 3 HYPERLINK l _Toc6580 第二章 员工工工资管理理系统设设计分析析 PAGEREF _Toc6580 3 HYPERLINK l _Toc21341 2.1应应用需求求与分析析 PAGEREF _Toc21341 3 HYPERLINK l _Toc1668 2.2系系统模块块划分 PAGEREF _Toc1668 33 HYPERLINK l _Toc10971 2.3系系统数据据库设计计 PAGEREF _Toc10971 4 HYPERLIN

3、K l _Toc10725 第三章：企业工工资管理理系统应应用程序序设计 PAGEREF _Toc10725 55 HYPERLINK l _Toc14408 31操操作流程程图 PAGEREF _Toc14408 5 HYPERLINK l _Toc15248 32 “登录模模块”详细设设计 PAGEREF _Toc15248 6 HYPERLINK l _Toc29586 33 “主窗体体”模块详详细设计计 PAGEREF _Toc29586 10 HYPERLINK l _Toc24171 34 各项子子模块详详细设计计 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数据据库备份份和恢复复 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 发发放工资资 PAGEREF _Toc6714 27 HYPERLINK l _Toc2946 3.4.10 按员员工查询询 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 第五章：结 束束 语 PAGEREF _Toc11010 336 HYPERLINK l _Toc26001 谢辞 PAGEREF _Toc26001 377 HYPERLINK l _Toc26736 参考文献献： PAGEREF _Toc26736 377摘 要要企业的工工资管理理是公司司管理的的一个重重要内容容。随着着企业人人员数量量增加，企企业的工工资管理理工作也也变

7、得越越来越复复杂。工工资管理理既涉及及到企业业劳动人人事的管管理，同同时也是是企业财财务管理理的重要要组成部部分。工工资管理理需要和和人事管管理相联联系，同同时连接接工时考考勤和医医疗保险险等等，来来生成企企业每个个职工的的基本工工资、津津贴、医医疗保险险、保险险费、实实际发放放工资等等。资金金是企业业生存的的主要元元素，资资金的流流动影响响到企业业的整体体运作，企企业员工工的工资资是企业业资金管管理的一一个重要要的组成成部分。早早期的工工资统计计和发放放都是使使用人工工方式处处理纸质质材料，不不仅花费费财务人人员大量量的时间间且不易易保存，往往往由于于个人的的因素抄抄写不慎慎或计算算疏忽，出

8、出现工资资发放错错误的现现象。早早期工资资管理多多采取纸纸质材料料和具有有较强的的时间限限制。基基于以上上原因，企企业工资资管理系系统使用用电脑安安全保存存、快速速计算、全全面统计计，实现现工资管管理的系系统化、规规范化、自自动化。企企业工资资管理系系统是典典型的信信息管理理系统（MMIS），前前台程序序开发工工具采用用微软的的VB66，后台台数据库库采用ssqlsservve20000数数据库。VVB6是是一种面面向对象象的开发发工具，具具有组件件丰富、语语言简单单、功能能强大的的优点。ssqlsservve20000数数据库具具有与VVB6无无缝连接接、操作作简单、易易于使用用的优点点。运

9、行行结果证证明，本本企业工工资管理理系统极极大提高高了工作作效率，节节省了人人力和物物力，最最终满足足企业财财务管理理、员工工工资发发放的需需要，同同时也成成为现代代化企业业管理的的标志。 第一章 绪论1.1数数据库管管理系统统数据库管管理系统统（DBBMS）是是指数据据库系统统中管理理数据的的软件系系统。DDBMSS是数据据库系统统的核心心组成部部分。对对数据库库的一切切操作，包包括定义义、更新新及各种种控制,都是通通过DBBMS进进行的。DDBMSS总是基基于某种种数据模模型，可可以把DDBMSS看成是是某种数数据模型型在计算算机系统统上的具具体实现现。根据据数据模模型的不不同，DDBMS

10、S可以分分成层次次型、网网状型、关关系型、面面向对象象型等。MMSsqqlseervee20000就是是一种关关系型数数据库管管理系统统。关系模型型主要是是用二维维表格结结构表达达实体集集，用外外键表示示实体间间联系。关关系模型型是由若若干个关关系模式式组成的的集合。关关系模式式相当于于前面提提到的记记录类型型，每个个关系实实际上是是一张二二维表格格。关系系模型和和层次、网网状模型型的最大大判别是是用关键键码而不不是用指指针导航航数据，表表格简单单用户易易懂，编编程时并并不涉及及存储结结构，访访问技术术等细节节。SQQL语言言是关系系型数据据库的标标准化语语言，已已得到了了广泛的的应用。1.2

11、员员工工资资管理系系统 企业工资资管理是是一项琐琐碎、复复杂而又又十分细细致的工工作，一一般不允允许发生生差错。最最初的工工资统计计和发放放都是使使用人工工方式处处理，工工作量大大的时候候，出现现错误的的机率也也随之升升高，不不仅花费费财务人人员大量量的时间间，而且且往往由由于抄写写不慎，或或者由于于计算的的疏忽，出出现工资资发放错错误的现现象。同同时工资资的发放放具有较较强的时时间限制制，必须须严格按按照单位位规定的的时间完完成计算算和发放放工作。正正是企业业工资管管理的这这种重复复性、规规律性、时时间性，使使得企业业工资管管理计算算机化成成为可能能。企业业工资管管理系统统就是使使用电脑脑代

12、替大大量的人人工统计计和计算算，完成成众多企企业工资资信息的的处理，同同时使用用电脑还还可以安安全地、完完整地保保存大量量的企业业工资记记录。1.3开开发工具具微软公司司的Viisuaal BBasiic 66.0是是Winndowws应用用程序开开发工具具，是目目前最为为广泛的的、易学学易用的的面向对对象的开开发工具具。Viisuaal BBasiic提供供了大量量的控件件，这些些控件可可用于设设计界面面和实现现各种功功能，减减少了编编程人员员的工作作量，也也简化了了界面设设计过程程，从而而有效的的提高了了应用程程序的运运行效率率和可靠靠性。因因此，本本系统使使用MSS Viisuaal B

13、Basiic 66.0开开发。第二章 员工工工资管理理系统设设计分析析2.1应应用需求求与分析析基本信息息的添加加、修改改、删除除和查询询。基本本信息包包括项目目类型信信息，项项目状态态信息，模模块状态态信息和和缺陷级级别信息息等。 此功能为为项目组组管理和和软件项项目管理理模块提提供数据据。项目组信信息的添添加、修修改、删删除和查查询。项项目组信信息包括括收员工工信息和和角色信信息。软件项目目管理模模块包括括项目基基本信息息管理、软软件模块块管理和和软件缺缺陷管理理等功能能2.2系系统模块块划分开发这个个系统的的目的就就是帮助助企业的的财务主主管部门门提高工工作效率率，实现现企业工工资信息息

14、管理的的系统化化、规范范化和自自动化。能能够和认认识管理理系统、考考勤管理理系统相相结合，真真正实现现企业高高效、科科学、现现代化的的员工管管理。系系统最终终实现的的主要功功能如下下。企业工工资信息息设置部部分：包包括设置置员工的的基本工工资和其其他项目目的金额额，如奖奖金等。企业工工资信息息管理部部分：包包括统计计出勤、计计算工资资、查询询工资和和导出工工资表。系统部部分：包包括添加加用户和和修改密密码。2.3系系统数据据库设计计数据库是是信息管管理系统统的后台台，存储储着所有有的信息息，在信信息管理理系统中中有着很很重要的的地位。数数据库设设计的好好与坏，直直接影响响到这个个系统的的运行效

15、效率。良良好的数数据库设设计，可可以提高高数据信信息的存存储效率率，确保保数据信信息的完完整性和和一致性性。针对企业业工资信信息管理理系统的的需求，通通过对员员工工资资计算过过程的内内容分析析，为本本系统设设计如下下的数据据项和数数据结构构：基本工工资信息息：包括括工资级级别和工工资金额额。岗位工工资信息息：包括括工资级级别和工工资金额额。工资信信息：包包括员工工编号、基基本工资资、岗位位工资、水水电费、实实发金额额。部门信信息：包包括部门门编号、部部门名称称、部门门负责人人、部门门人数。工资统统计信息息：包括括员工编编号、姓姓名、出出生年月月、所属属部门、文文化程度度、职称称。用户信信息：包

16、包括用户户名、密密码和权权限。员工信息息表员工编号号charr (88)主键，不不允许重重复姓名charr (88)性别charr (22)出生年月月dateetimme所属部门门charr(4)外键文化程度度charr(4)职称charr (112)部门信息息部门编号号charr(4)主键,不不允许重重复部门名称称charr(200)部门负责责人charr(8)部门人数数int基本工资资工资级别别charr (22)主键,不不允许重重复工资金额额numeericc(8, 2)岗位工资资工资级别别charr (22)主键,不不允许重重复工资金额额numeericc(8, 2)工资信息息员工编号

17、号charr (88)主键,不不允许重重复； 外键基本工资资numeericc(8, 2)岗位工资资numeericc(8, 2)水电费numeericc(8, 2)实发金额额numeericc(8, 2)用户表用户名charr (88)主键,不不允许重重复密码charr (220)权限charr (220)E-R图图： 第三三章：企企业工资资管理系系统应用用程序设设计31操操作流程程图初始登入入用户:admmin 密码为为:addminn用户登入录入口令是否正确？进入工资管理主界面职员管理工资项目/工资数据录入/工资报表用户管理数据备份/恢复结束当月工资32 “登录模模块”详细设设计 登录录

18、模块的的详细设设计主要要是用户户登录的的一个界界面，判判断登录录的用户户是管理理员还是是普通用用户，进进入后将将面对的的是主界界面，从从而进行行相关的的操作。 登录的的界面主主要由用用户名和和密码的的信息，还还有一些些标题设设置，确确定和取取消的按按钮组成成。通过过标题可可以知道道此系统统的大概概内容，由由此，登登录界面面的设计计完成。 窗体及核核心代码码：Privvatee Suub ccmd_canncell_Cllickk() teext_keyy.Teext = cmmo_uuserr.Teext = 请选择择 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 请输入入密码, 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 在这这里设计计非管理理员用户户的权限限，这里里我假设设让非管管理员用用户不能能用菜单单中的系统 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 密密码不正正确，请请重新输输入, vbbOKOOnlyy + vbEExcllamaatioon, 警告告 txtt_keey.SSetFFocuus txtt_keey.TTextt = tryy_tiimess = tryy_tiimess + 1 Exiit SSub 在这这里若密密码错了了应该跳跳出该过过程，否否则下面面的语句句还会执执行，这这不是你你想要的的 Endd Iff trry_tti

22、mees = trry_ttimees + 1 个人人认为密密码输入入错了才才加一，你你这样的的话，用用户名错错了也会会加一，当当然你这这里用户户名不会会错是吧吧，改得得多余了了 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 权限限 frrom 用户表

30、表 SSet rstt = ExeecutteSQQL(ssql, ) FFor i = 1 To rstt.ReecorrdCoountt rrst.MovveNeext NNextt i33 “主窗体体”模块详详细设计计在这个项项目中，选选择使用用多文档档界面。使使用这个个窗体的的好处是是可以使使程序更更加有条条理。对对于一个个多任务务的应用用程序，使使用多文文档窗体体还可以以减少占占用的系系统资源源。主窗体设设计的界界面是用用菜单编编辑器做做的，主主要由系系统、工工资信息息设置、工工资信息息管理和和关于这这四个大大模块组组成。主主窗体是是进行相相关操作作的主界界面。在在这几个个里，管管理

31、员有有所有的的权利进进行各种种操作。主窗体及及核心代代码：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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 您无无权进行行该操作作！, 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 权限限 frrom 用户表表 SSet rstt = ExeecutteSQQL(ssql, ) FFor i = 1 To rstt.ReecorrdCoountt rrst.MovveNeext NNextt iEnd Subb34 各项子子

38、模块详详细设计计3.41添加加用户与与删除选择“系系统”“添加用用户与删删除”菜单，在在添加用用户的窗窗体里,输入新新的用户户名称和和密码后后，单击击“添加”按钮，系系统将会会添加新新的用户户。在窗窗体里输输入用户户名称和和密码，单单击“删除”按钮，系系统将会会删除原原来用户户。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 刷新网网格，显显示操作作后的结结果 EEnd If If objjrs.ReccorddCouunt = 00 Thhen MsggBoxx 库库中没有有记录! Exiit SSub Endd Iff If objjrs.ReccorddCouunt 0

41、TThenn If MsggBoxx(真真的要删删除该级级用户信信息吗?, 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 修修改用户户选择“系系统”-“修改用用户”菜单，在在窗体里里输入新新的用户户名称和和用户权权限，单单击“修改”按钮，系系统将会会修改原原来用户户信息。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 刷新网网格，显显示操作作后的结结果 EEnd If If objjrs.ReccorddCouunt = 00 Thhen MsggBoxx 库库中没有有记录! Exiit SSub Endd Iff If objjrs.ReccorddCouun

45、t 0 TThenn If MsggBoxx(真真的要删删除该级级用户信信息吗?, 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数据据库备份份和恢复复选择“系系统”-“数据库库备份和和恢复”菜单，在在位置文文本框中中输入备备份或恢恢复的文文件所在在位置，单单击“备份”或“恢复”按钮，数数据库将将备份或或恢复。Optiion ExppliccitPrivvatee Suub ccmd_reccoveery_Cliick()If ccnMood.SStatte = addStaateOOpenn Thhen cnMMod.Cloose 如果果已连接接，关掉掉宽End If cnM

47、Mod.Opeen driiverr=ssql serrverr;sservver=HZ;uidd=saa;pwwd=hheweeiliing;dattabaase=massterr 建建一个连连接用来来获得要要还原数数据库的的进程标标识符（sspidd）Dim rs As Neww ADDODBB.Reecorrdseet 该记记录集保保存进程程ID以以备操作作 rs.Opeen sellectt sppid froom ssyspproccessses wheere dbiid=ddb_iid(工资管管理系统统), ccnMood, adOOpennDynnamiic, adLLockkP

48、esssimmisttic解释一一下，这这句话是是为了将将有关“工资管管理系统统”所有服服务进程程ID查查询出来来db_id是是SQLL中的一一个函数数具体语语法你自自己看它它的帮助助文件哦哦，这里里就不赘赘述了If rrs.EEOF = FFalsse TThenn rs.MovveFiirstt Do Whiile rs.EOFF = Truue 扫扫描并关关闭有关关“工资管管理系统统”的服务务进程 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 = 恢恢复主要要数据库库？数据据恢复操操作将会会覆盖以以前的所所有数据据并且覆覆盖后无无法恢复复，您确确定要进进行恢复复操作吗吗?If MMsgBBox(Msttr, vbYYesNNo + vbbQueestiion,

50、操操作提示示) = vvbYees TThennOn EErroor GGoToo ree Labbel11.Caaptiion = 正在恢恢复，请请稍候 cnMMod.BegginTTranns 开始始一个事事件 cnMMod.Exeecutte (reestoore dattabaase 工资管管理系统统 ffromm diisk= & CCD.FFileeNamme & wiith repplacce) SSQL语语句要是是不会用用，查看看帮助文文件 cnMMod.CommmittTraans 执行行 Labbel11.Caaptiion = 恢复成成功 MsggBoxx 恢恢复成功功,

51、 vbOOKOnnly + vvbInnforrmattionn, 提示 Exiit SSubre: cnMMod.RolllbaackTTranns 回回滚（不不执行） Labbel11.Caaptiion = 恢复失失败 MsggBoxx 恢恢复失败败, vbOOKOnnly + vvbInnforrmattionn, 提示End IfEnd SubbPrivvatee Suub ccmd_bacck_CClicck()下面是是备份的的代码，处处理的比比较粗糙糙，你自自己优化化了，呵呵呵，相相信你能能看懂的的，我就就不注释释了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=工资管管理系统统On EErroor GGoToo baack cnMMod.BegginTTranns cnMMod.

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

54、 Subb到这里里就告一一段落了了，是不不是很简简单呢，当当然这里里有很多多不足，你你自己完完善吧Privvatee Suub FFormm_Looad()End Subb3.4.4退出出选择“系系统”-“退出”菜单，单单击则推推出主菜菜单界面面。3.4.5基本本工资选择“设设置”-“基本工工资”菜单，可可以单击击“添加”，“删除”，“修改”，“取消”按钮来来实现相相应功能能。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 刷新网网格，显显示操作作后的结结果 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 库库中没有有记录! Exiit SSub Endd Iff If objjrs.ReccorddCouunt 0 TThenn If MsggBoxx(真真的要删删除

57、该级级别工资资信息吗吗?, 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 数据据非法 TTextt_paay.TTextt = TTextt_paay.SSetFFocuusEnd IfEnd Subb3.4.6岗位位工资选择“设设置”-“岗位工工资”菜单，可可以单击击“添加”，“删除”，“修改”，“取消”按钮来来实现相相应功能能。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 刷新网网格，显显示操作作后的结结果 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