员工工资管理系统1

1、VB+SQLserve2000课程设计报告员工工资管理系统姓名：班级：学号：指导教师：成绩：完成时间：2009-12-28完成地点：蚌埠学院摘要2第一章绪论31.1 数据库管理系统31.2 员工工资管理系统31.3 开发工具4第二章员工工资管理系统设计分析42.1 应用需求与分析42.2 系统模块划分42.3 系统数据库设计4第三章：企业工资管理系统应用程序设计631操作流程图632“登录模块”详细设计71.1.1 3“主窗体”模块详细设计111.1.2 4各项子模块详细设计141.1.3 1添加用户与删除141.1.4 2修改用户153.4.3 数据库备份和恢复173.4.4 退出203.4

2、.5 基本工资203.4.6 岗位工资223.4.7 部门管理243.4.8 员工管理263.4.9 发放工资273.4.10 按员工查询323.4.11 按部门查询33模块一：35模块二：35第五章：结束语36谢辞37参考文献：37摘要随着科学技术的不断发展,计算机科学日渐进步,其强大的功能耳闻目睹,它已进入人类社会的各个领域并发挥着越来越重要的作用。此职工考勤管理系统的实现利用了计算机的相关技术，满足了单位日常考勤管理的需求，使单位考勤过程更加快速、安全、高效的信息管理系统。本系统基于C/S模式，采用VisualBasic语言与MicrosoftSQL2005数据库开发完成，实现了系统管理

3、、职工信息管理、考勤管理与工资设置管理等功能。其中系统管理包括上下班时间设置和更改用户密码等模块；职工信息管理包括添加，删除，查询职工信息模块；考勤管理包括考勤和考勤查询模块；工资设置包括基本工资设置/修改和工资计算公式/修改报模块；工资管理模块包括出勤统计，查询工资等模块。本系统能基本满足用户在考勤管理方面的需求,界面友好,符合用户使用习惯,能实际地提高单位考勤管理的效率。第一章绪论1.1 数据库管理系统数据库管理系统（DBMS是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制，都是通过DBMSt行的。DBM珀、是基于某种数据

4、模型，可以把DBMST成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。MSsqlserve2000就是一种关系型数据库管理系统。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。SQL语言是关系型数据库的标准化语言，已得到了广泛的应用。1.2 员工考勤管理系统企业工资管理是一项琐碎、复杂而又十

5、分细致的工作，一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误的机率也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。正是企业工资管理的这种重复性、规律性、时间性，使得企业工资管理计算机化成为可能。企业工资管理系统就是使用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑还可以安全地、完整地保存大量的企业工资记录。1.3 开发工具微软公司的VisualBasic6.0是Windows应用程序开发工具，是

6、目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用MSVisualBasic6.0开发。第二章员工工资管理系统设计分析2.1 应用需求与分析基本信息的添加、修改、删除和查询。基本信息包括项目类型信息，项目状态信息，模块状态信息和缺陷级别信息等。此功能为项目组管理和软件项目管理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收员工信息和角色信息。软件项目管理模块包括项目基本信息管理、软件模块管理和软件缺

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

8、高数据信息的存储效率，确保数据信息的完整性和一致性。针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设计如下的数据项和数据结构： 基本工资信息：包括工资级别和工资金额。 岗位工资信息：包括工资级别和工资金额。 工资信息：包括员工编号、基本工资、岗位工资、水电费、实发金额。 部门信息：包括部门编号、部门名称、部门负责人、部门人数。 工资统计信息：包括员工编号、姓名、出生年月、所属部门、文化程度、职称。 用户信息：包括用户名、密码和权限。员工信息表员工编号char(8)主键，不允许重复姓名char(8)性别char(2)出生年月datetime所属部门char(4)外键c

9、har(4)职称char(12)部门信息部门编号char(4)主键，不允许重复部门名称char(20)部门负责人char(8)部门人数int基本工资工资级别char(2)主键，不允许重复工资金额numeric(8,2)岗位工资工资级别char(2)主键，不允许重复工资金额numeric(8,2)工资信息员工编号char(8)主键,不允许重复；外键基本工资numeric(8,2)岗位工资numeric(8,2)水电费numeric(8,2)实发金额numeric(8,2)用户表用户名char(8)主键，不允许重复密码char(20)权限char(20)E-R图：岗位工贫£工别工资金额基

10、本工资则工资躯别工资金领员工信息9员工褊号姓名性别出生年月所届部门文化程度职称工贲信息员工编号基出工资岗位工资水电费实发金额部仃信息部门瑞号部门名福部门负责人部门人数用户表9用户名密吗权限第三章：企业工资管理系统应用程序设计3.1操作流程图初始登入用户：admin密码为：admin3.2“登录模块”详细设计登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。窗体及核心代码：PrivateS

11、ubcmd_cancel_Click()txt_key.Text=""cmo_user.Text="请选择"UnloadMeEndSubPrivateSubcmd_ok_Click()Dimtry_timesAsStringDimsqlAsStringDimrstAsADODB.Recordsettry_times=0If(Trim(txt_key.Text)="")ThenMsgBox"请输入密码",vbOKOnly+vbExclamation,"提示"Elsesql="select

12、*from用户表where用户名='"&Trim(cmo_user.Text)&"'"Setrst=ExecuteSQL(sql,"")IfTrim(rst.Fields(1)=Trim(txt_key.Text)ThenIfTrim(rst.Fields(2)<>"管理员"Thenfrm_main.xitong.Enabled=False'在这里设计非管理员用户的权限，这里我假设让非管理员用户不能用菜单中的系统frm_main.shezhi.Enabled=Falsefr

13、m_main.xinxiweihu.Enabled=FalseEndIfrst.CloseUserName=Trim(cmo_user.Text)frm_main.ShowUnloadMeElseMsgBox"密码不正确，请重新输入",vbOKOnly+vbExclamation,"警告"txt_key.SetFocustxt_key.Text=""try_times=try_times+1ExitSub'在这里若密码错了应该跳出该过程，否则下面的语句还会执行，这不是你想要的EndIf'try_times=try_ti

14、mes+1'个人认为密码输入错了才加一，你这样的话，用户名错了也会加一，当然你这里用户名不会错是吧，改得多余了Iftry_times=3ThenUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select用户名from用户表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountcmo_user.AddItem(rst.Fields(0)rst.MoveN

15、extNextiEndSub主窗体：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"ElseIfTrim(power)="管理员"

16、Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"E

17、lseIfTrim(power)="管理员"Thenfrm_gangweigongzi.ShowUnloadMe警告警告EndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！"

18、,vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_jiben.ShowUnloadMeEndIfvbExclamation,"警告EndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"The

19、nMsgBox"您无权进行该操作！",vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfvbExclamation,"警告EndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)

20、IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubvbExclamation,"警告PrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select权PMfrom用户表Setrst=ExecuteSQL(s

21、ql,"")Fori=1Torst.RecordCountrst.MoveNextNexti3.3“主窗体”模块详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。主窗体及核心代码：一主窗体回区系统设置信息维护工资直询耨助打印PrivateSubbumenxinxi_Click()DimsqlAsString

22、DimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_bumenxinxi.ShowUnloadMevbExclamation,"警告EndIfEndIfEndSubPrivateSubga

23、ngweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_gangweigongzi.ShowUnloadMeEndIfEndIfEndS

24、ubvbExclamation,"警告PrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnlyElseIfTrim(power)="管理员"Thenfrm_jiben.Showvb

25、Exclamation,"警告警告警告UnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"

26、ElseIfTrim(power)="管理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"管理员"ThenMsgBox"您无权进行该操

27、作！",vbOKOnly+vbExclamation,"ElseIfTrim(power)="管理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select权限from用户表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountrst.MoveNextNext

28、iEndSub3. 4各项子模块详细设计3.4. 1添加用户与删除选择“系统”一>“添加用户与删除”菜单，在添加用户的窗体里，输入新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。在窗体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。PrivateSubcmd_adduser_Click()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用户表values("&"'"&Trim(txt_username.Text)&"&

29、#39;,"_&"'"&Trim(txt_password.Text)&"',"_&"'"&Trim(txt_power)&"'"&")"Setnewrst=execute_sql(sql)sql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSubPrivateSubcmd_c

30、ancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()DimsqlAsStringsql="select*from用户表"Iftxt_username<>""ThenSetobjrs=ExecuteSQL(sql,"")SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果EndIfIfobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.Reco

31、rdCount<>0ThenIfMsgBox("真的要删除该级用户信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndSubPrivateSubForm_Load()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*from用户表"Setnewrst=select_sql(sql)SetDa

32、taGrid1.DataSource=newrstEndSub3.42修改用户选择“系统”->“修改用户”菜单，在窗体里输入新的用户名称和用户权限，单击“修改”按钮，系统将会修改原来用户信息用尸名梭限PrivateSubcmd_adduser_Click()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用户表values("&""'&Trim(txt_username.Text)&"'&""'&

33、;Trim(txt_password.Text)&"'&"”'&Trim(txt_power)&""'&")"Setnewrst=execute_sql(sql)sql="select*from用户表”Setnewrst=select_sql(sql)SetDataGridl.DataSource=newrstEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()D

34、imsqlAsStringsql="select*from用户表"Iftxt_username<>""ThenSetobjrs=ExecuteSQL(sql,"")SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果EndIfIfobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("真的要删除该级用户信息吗?",v

35、bYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndSubPrivateSubForm_Load()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSub3.4.3数据库备份和恢复选择“系统”->“

36、数据库备份和恢复”菜单，在位置文本框中输入备份或恢复的文件所在位置，单击“备份”或“恢复”按钮，数据库将备份或数据库备份备份做复恢复。OptionExplicitPrivateSubcmd_recovery_Click（）IfcnMod.State=adStateOpenThencnMod.Close'如果已连接，关掉宽EndIfcnMod.Open"driver=sqlserver;server=HZ;uid=sa;pwd=heweiling;database=master"'建一个连接用来获得要还原数据库的进程标识符（spid）DimrsAsNewADO

37、DB.Recordset'该记录集保存进程ID以备操作rs.Open"selectspidfromsysprocesseswheredbid=db_id（'工资管理系统'）"，cnMod,adOpenDynamic,adLockPessimistic解释一下，这句话是为了将有关“工资管理系统”所有服务进程ID查询出来db_id是SQL中的一个函数具体语法你自己看它的帮助文件哦，这里就不赘述了Ifrs.EOF=FalseThenrs.MoveFirstDoWhilers.EOF=True'扫描并关闭有关“工资管理系统”的服务进程cnMod.Ex

38、ecute（"kill"&rs.Fields（0）'kill也是SQL的方法“杀”与dos下的kill类似啊，是吧，呵呵自己看看帮助文件很详尽的rs.MoveNextLoopEndIfCD.Filter="所有文件（*.*）|*.*|备份文件（*.bak）|*.bak”CD.InitDir=App.PathText1.Text=CD.FileNameCD.ShowOpenDimMstrAsStringMstr="恢复主要数据库？数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗?"IfMsgBox（Ms

39、tr,vbYesNo+vbQuestion,"操作提示"）=vbYesThenOnErrorGoToreLabell.Caption="正在恢复，请稍候”cnMod.BeginTrans'开始一个事件cnMod.Execute（"restoredatabase工资管理系统fromdisk='"&CD.FileName&"'withreplace"）'SQL语句要是不会用，查看帮助文件cnMod.CommitTrans'执行Label1.Caption="恢复成

40、功"MsgBox"恢复成功",vbOKOnly+vbInformation,"提示"ExitSubre:cnMod.RollbackTrans'回滚（不执行）Label1.Caption="恢复失败"MsgBox"恢复失败",vbOKOnly+vbInformation,"提示"EndIfEndSubPrivateSubcmd_back_Click（）'下面是备份的代码，处理的比较粗糙，你自己优化了，呵呵，相信你能看懂的，我就不注释了IfcnMod.State=adSt

41、ateOpenThencnMod.CloseEndIfCD.Filter="所有文件（*.*）|*.*|备份文件（*.bak）|*.bak"CD.InitDir=App.PathCD.ShowSavetxt_weizhi=CD.FileNamecnMod.Open"driver=sqlserver;server=HZ;uid=sa;pwd=heweiling;database=工资管理系统"OnErrorGoTobackcnMod.BeginTranscnMod.Execute（"backupdatabase工资管理系统todisk='

42、"&CD.FileName&"'"）cnMod.CommitTransMsgBox"成功地备份到"&CD.FileName&"下",vbOKOnly+vbInformation,"操作提示"cnMod.CloseExitSubback:cnMod.RollbackTransMsgBox"备份失败",vbOKOnly+vbInformation,"提示"cnMod.CloseEndSub到这里就告一段落了，是不是很简单呢，当然这

43、里有很多不足，你自己完善吧PrivateSubForm_Load()EndSub3.4.4退出选择“系统”->“退出”菜单，单击则推出主菜单界面喝主窗体匚Ifnx耒统设置信息维护工资查询帮助打印3.4.5基本工资选择“设置”->“基本工资”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。基本工皆DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL(&quo

44、t;insertinto基本工资values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)插入符合条件的工资信息Setobjrs=ExecuteSQL("select*from基本工资",msg_sql)SetDataGridl.DataSource=objrs刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubP

45、rivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("真的要删除该级别工资信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提

46、示"Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndIfEndSubPrivateSubForm_Load()Setobjrs=ExecuteSQL("select*from基本工资",msg_sql)SetDataGrid1.DataSource=objrsEndSubPrivateSubText_pay_LostFocus()IfVal(Text_pay.Text)<0OrVal(Text_pay.Text)>=10000ThenM

47、sgBox"数据非法"Text_pay.Text=""Text_pay.SetFocusEndIfEndSub3.4.6岗位工资选择“设置”->“岗位工资”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。Ft-siii el皴到 I-金新DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL("insertinto

48、岗位工资values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)插入符合条件的工资信息Setobjrs=ExecuteSQL("select*from岗位工资",msg_sql)SetDataGridl.DataSource=objrs刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubPrivateSubcmd

49、_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("真的要删除该级别工资信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"Combo

50、_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndIfEndSubPrivateSubForm_Load()Setobjrs=ExecuteSQL("select*from岗位工资",msg_sql)SetDataGrid1.DataSource=objrsEndSubPrivateSubText_pay_LostFocus()IfVal(Text_pay.Text)<0OrVal(Text_pay.Text)>=10000ThenMsgBox"数

51、据非法"Text_pay.Text=""Text_pay.SetFocusEndIfEndSub3.4.7 部门管理选择“信息维护”->“部门管理”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()Dimsqlbianhao,sqlmingcheng,sqlfuzeren,sqlrenshuAsStringsqlbianhao=cmo_bianhao.Textsqlmingcheng=cmo_mingc

52、heng.Textsqlfuzeren=txt_fuzeren.Textsqlrenshu=txt_renshu.TextIfcmo_bianhao.Text<>""Andcmo_mingcheng.Text<>""ThenIfMsgBox("确定添加吗？",vbYesNo+vbExclamation,"警告")=vbYesThenSetobjrs=ExecuteSQL("insertinto部门信息values("+""'+sqlbianha

53、o+""'+",'"+sqlmingcheng+"','"+sqlfuzeren+"','"+sqlrenshu+"')",msg_sql)Setobjrs=ExecuteSQL("select*from部门信息"，msg_sql)SetDataGridl.DataSource=objrsMsgBox"添加成功！",vbOKOnly+vbExclamation,"警告"EndIfE

54、ndIfEndSubPrivateSubcmd_alter_Click()IfTrim(cmo_bianhao.Text)=""OrTrim(cmo_mingcheng.Text)=""OrTrim(txt_fuzeren.Text)=""OrTrim(txt_renshu.Text)=""ThenMsgBox"请将修改后的信息填写完整！",vbOKOnly+vbExclamation,"警告"ElseIfMsgBox("确定修改吗？",vbYesNo+v

55、bExclamation,"警告")=vbYesThenSetrst=ExecuteSQL("update部门信息set部门名称='"&Trim(cmo_mingcheng.Text)&"'where部门编号='"&Trim(cmo_bianhao.Text)&""，,msg_sql)Setrst=ExecuteSQL("update部门信息set部门负责人='"&Trim(txt_fuzeren.Text)&&qu

56、ot;'where部门编号='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL("update部门信息set部门人数='"&Trim(txt_renshu.Text)&"'where部门编号='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL("select*from基部门信

57、息",msg_sql)SetDataGrid1.DataSource=objrsMsgBox"修改成功！",vbOKOnly+vbExclamation,"警告"cmo_bianhao.SetFocuscmo_bianhao.Text=""cmo_mingcheng.Text=""txt_fuzeren.Text=""txt_renshu.Text=""EndIfEndIfEndSubPrivateSubcmd_cancel_Click()frm_main.Show

58、UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ElseIfobjrs.RecordCount<>0ThenIfMsgBox("真的要删除该部门?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndIfEndSubPrivateSubFo

59、rm_Load()Setobjrs=ExecuteSQL("select*from部门信息",msg_sql)SetDataGrid1.DataSource=objrsEndSub3.4.8 员工管理选择“信息维护”->“员工管理”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。3.4.9 发放工资选择“信息维护”->“发放工资”菜单，单击“添加”或“修改”按钮则弹出“添加员工工资”菜单，单击“添加”或“修改”则可以实现添加员工工资或者修改员工工资事发放工黄员工暨运基本T资1000岗位T餐150C水电费1O0I案发窑时制QO002iooo

60、1500lOOi?400nos0041.0001DOO15001500LOOloo2400?4000510001500100£400Fi-amel痂m删除DimrstAsADODB.RecordsetDimsqlAsStringPrivateSubcmd_add_Click()frm_tianjiagongzi.ShowEndSubPrivateSubcmd_alter_Click()frm_tianjiagongzi.Show'txt_no.Enabled=Falsefrm_tianjiagongzi.Showfrm_tianjiagongzi.txt_bianhao.Te

61、xt=DataGrid1.Columns(0)'frm_addsalary.txt_name=DataGrid1.Columnsfrm_tianjiagongzi.cmo_jiben=DataGrid1.Columnsfrm_tianjiagongzi.cmo_gangwei=DataGrid1.Columns(2)frm_tianjiagongzi.txt_shuidian=DataGrid1.Columns(3)EndSubPrivateSubcmd_delete_Click()Ifrst.RecordCount<>0ThenIfMsgBox("确定删除该员工

62、的工资信息吗？",vbYesNo+vbQuestion,"警告")=vbYesThenrst.DeleteSetrst=ExecuteSQL("select*from工资信息",sql)SetDataGridl.DataSource=rstMsgBox"删除成功!",vbOKOnly+vbExclamation,"提示EndIfEndIfEndSubPrivateSubcmd_cancel_Click()frm_main.ShowUnloadMeEndSubPrivateSubForm_Load()Setrst=E

63、xecuteSQL("select*from工资信息"，sql)SetDataGridl.DataSource=rstEndSubDimrstAsADODB.RecordsetDimmsg_sqlAsStringDimjiben,gangwei,salaryAsDoubleDimaddsalarysqlAsStringPrivateSubcmd_alter_Click()DimupdatesqlAsStringtxt_bianhao.Enabled=FalseSetrst=ExecuteSQL("select*from员工信息where员工编号='"&Trim(txt_bianhao.Text)&"'",msg_sql)txt_xingming.Text=rst.Fields(0)Ifrst.RecordCount=0ThenMsgBox"请将修改后的信息填写完整！",vbOKOnly+vbExclamation,"警