员工工资管理系统

74/74VB+SQLserve2000课程设计报告职职员资治理系统姓名：_________班级：________________学号：____________指导教师：____成绩：_____________________完成时刻：2009-12-28完成地点：蚌埠学院TOC\o"1-3"\h\u19359摘要 14783第一章绪论 2118141.1数据库治理系统 253101.2职职员资治理系统 2218031.3开发工具 36580第二章职职员资治理系统设计分析 3213412.1应用需求与分析 316682.2系统模块划分 3109712.3系统数据库设计 410725第三章：企业工资治理系统应用程序设计 5144083．1操作流程图 5152483．2“登录模块”详细设计 6295863．3“主窗体”模块详细设计 10241713．4各项子模块详细设计 1371563.4．1添加用户与删除 1312873.4．2修改用户 15207283.4.3数据库备份和恢复 17212743.4.4退出 20267493.4.5差不多工资 20112423.4.6岗位工资 2246303.4.7部门治理 24237273.4.8职员治理 2667143.4.9发放工资 2729463.4.10按职员查询 32297283.4.11按部门查询 335718模块一： 3510037模块二： 3511010第五章：结束语 3626001谢辞 3726736参考文献： 37摘要企业的工资治理是公司治理的一个重要内容。随着企业人员数量增加，企业的工资治理工作也变得越来越复杂。工资治理既涉及到企业劳动人事的治理，同时也是企业财务治理的重要组成部分。工资治理需要和人事治理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的差不多工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的要紧元素，资金的流淌阻碍到企业的整体运作，企业职员的工资是企业资金治理的一个重要的组成部分。早期的工资统计和发放差不多上使用人工方式处理纸质材料，不仅花费财务人员大量的时刻且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资治理多采取纸质材料和具有较强的时刻限制。基于以上缘故，企业工资治理系统使用电脑安全保存、快速计算、全面统计，实现工资治理的系统化、规范化、自动化。企业工资治理系统是典型的信息治理系统（MIS），前台程序开发工具采纳微软的VB6，后台数据库采纳sqlserve2000数据库。VB6是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。sqlserve2000数据库具有与VB6无缝连接、操作简单、易于使用的优点。运行结果证明，本企业工资治理系统极大提高了工作效率，节约了人力和物力，最终满足企业财务治理、职职员资发放的需要，同时也成为现代化企业治理的标志。第一章绪论1.1数据库治理系统数据库治理系统（DBMS）是指数据库系统中治理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种操纵,差不多上通过DBMS进行的。DBMS总是基于某种数据模型，能够把DBMS看成是某种数据模型在计算机系统上的具体实现。依照数据模型的不同，DBMS能够分成层次型、网状型、关系型、面向对象型等。MSsqlserve2000确实是一种关系型数据库治理系统。关系模型要紧是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判不是用关键码而不是用指针导航数据，表格简单用户易明白，编程时并不涉及存储结构，访问技术等细节。SQL语言是关系型数据库的标准化语言，已得到了广泛的应用。1.2职职员资治理系统企业工资治理是一项琐碎、复杂而又十分细致的工作，一般不同意发生差错。最初的工资统计和发放差不多上使用人工方式处理，工作量大的时候，出现错误的机率也随之升高，不仅花费财务人员大量的时刻，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的发放具有较强的时刻限制，必须严格按照单位规定的时刻完成计算和发放工作。正是企业工资治理的这种重复性、规律性、时刻性，使得企业工资治理计算机化成为可能。企业工资治理系统确实是使用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑还能够安全地、完整地保存大量的企业工资记录。1.3开发工具微软公司的VisualBasic6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用MSVisualBasic6.0开发。第二章职职员资治理系统设计分析2.1应用需求与分析差不多信息的添加、修改、删除和查询。差不多信息包括项目类型信息，项目状态信息，模块状态信息和缺陷级不信息等。此功能为项目组治理和软件项目治理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收职员信息和角色信息。软件项目治理模块包括项目差不多信息治理、软件模块治理和软件缺陷治理等功能2.2系统模块划分开发那个系统的目的确实是关心企业的财务主管部门提高工作效率，实现企业工资信息治理的系统化、规范化和自动化。能够和认识治理系统、考勤治理系统相结合，真正实现企业高效、科学、现代化的职员治理。系统最终实现的要紧功能如下。·企业工资信息设置部分：包括设置职员的差不多工资和其他项目的金额，如奖金等。·企业工资信息治理部分：包括统计出勤、计算工资、查询工资和导出工资表。·系统部分：包括添加用户和修改密码。2.3系统数据库设计数据库是信息治理系统的后台，存储着所有的信息，在信息治理系统中有着专门重要的地位。数据库设计的好与坏，直接阻碍到那个系统的运行效率。良好的数据库设计，能够提高数据信息的存储效率，确保数据信息的完整性和一致性。针对企业工资信息治理系统的需求，通过对职职员资计算过程的内容分析，为本系统设计如下的数据项和数据结构：·差不多工资信息：包括工资级不和工资金额。·岗位工资信息：包括工资级不和工资金额。·工资信息：包括职员编号、差不多工资、岗位工资、水电费、实发金额。·部门信息：包括部门编号、部门名称、部门负责人、部门人数。·工资统计信息：包括职员编号、姓名、出生年月、所属部门、文化程度、职称。·用户信息：包括用户名、密码和权限。职员信息表职员编号char(8)主键，不同意重复姓名char(8)性不char(2)出生年月datetime所属部门char(4)外键文化程度char(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图：第三章：企业工资治理系统应用程序设计3．1操作流程图初始登入用户:admin密码为:admin用户登入用户登入录入口令是否正确？进入工资治理主界面职员治理工资项目/工资数据录入/工资报表用户治理数据备份/恢复结束当月工资3．2“登录模块”详细设计登录模块的详细设计要紧是用户登录的一个界面，推断登录的用户是治理员依旧一般用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面要紧由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题能够明白此系统的大概内容，由此，登录界面的设计完成。窗体及核心代码：PrivateSubcmd_cancel_Click()text_key.Text=""cmo_user.Text="请选择"UnloadMeEndSubPrivateSubcmd_ok_Click()Dimtry_timesAsStringDimsqlAsStringDimrstAsADODB.Recordsettry_times=0If(Trim(txt_key.Text)="")ThenMsgBox"请输入密码",vbOKOnly+vbExclamation,"提示"Elsesql="select*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=Falsefrm_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_times+1'个人认为密码输入错了才加一，你如此的话，用户名错了也会加一，因此你那个地点用户名可不能错是吧，改得多余了Iftry_times=3ThenUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select用户名from用户表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountcmo_user.AddItem(rst.Fields(0))rst.MoveNextNextiEndSub主窗体：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_gangweigongzi.ShowUnloadMeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select权限from用户表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountrst.MoveNextNexti3．3“主窗体”模块详细设计在那个项目中，选择使用多文档界面。使用那个窗体的好处是能够使程序更加有条理。关于一个多任务的应用程序，使用多文档窗体还能够减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，要紧由系统、工资信息设置、工资信息治理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，治理员有所有的权利进行各种操作。主窗体及核心代码：PrivateSubbumenxinxi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_bumenxinxi.ShowUnloadMeEndIfEndIfEndSubPrivateSubgangweigongzi_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_gangweigongzi.ShowUnloadMeEndIfEndIfEndSubPrivateSubjiben_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_jiben.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghushanchu_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubyonghutianjia_Click()DimsqlAsStringDimrstAsNewADODB.Recordsetsql="select*from用户表"Setrst=ExecuteSQL(sql,"")power=rst.Fields(2)IfTrim(power)<>"治理员"ThenMsgBox"您无权进行该操作！",vbOKOnly+vbExclamation,"警告"ElseIfTrim(power)="治理员"Thenfrm_tianjiayushanchu.ShowUnloadMeEndIfEndIfEndSubPrivateSubForm_Load()DimiAsIntegerDimsqlAsStringDimrstAsADODB.Recordsetsql="select权限from用户表"Setrst=ExecuteSQL(sql,"")Fori=1Torst.RecordCountrst.MoveNextNextiEndSub3．4各项子模块详细设计3.4．1添加用户与删除选择“系统”—>“添加用户与删除”菜单，在添加用户的窗体里,输入新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。在窗体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。PrivateSubcmd_adduser_Click()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用户表values("&"'"&Trim(txt_username.Text)&"',"_&"'"&Trim(txt_password.Text)&"',"_&"'"&Trim(txt_power)&"'"&")"Setnewrst=execute_sql(sql)sql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()DimsqlAsStringsql="select*from用户表"Iftxt_username<>""ThenSetobjrs=ExecuteSQL(sql,"")SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果EndIfIfobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("确实要删除该级用户信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndSubPrivateSubForm_Load()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSub3.4．2修改用户选择“系统”->“修改用户”菜单，在窗体里输入新的用户名称和用户权限，单击“修改”按钮，系统将会修改原来用户信息。PrivateSubcmd_adduser_Click()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="insertinto用户表values("&"'"&Trim(txt_username.Text)&"',"_&"'"&Trim(txt_password.Text)&"',"_&"'"&Trim(txt_power)&"'"&")"Setnewrst=execute_sql(sql)sql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()DimsqlAsStringsql="select*from用户表"Iftxt_username<>""ThenSetobjrs=ExecuteSQL(sql,"")SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果EndIfIfobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("确实要删除该级用户信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndSubPrivateSubForm_Load()DimnewrstAsADODB.RecordsetDimsqlAsStringsql="select*from用户表"Setnewrst=select_sql(sql)SetDataGrid1.DataSource=newrstEndSub3.4.3数据库备份和恢复选择“系统”->“数据库备份和恢复”菜单，在位置文本框中输入备份或恢复的文件所在位置，单击“备份”或“恢复”按钮，数据库将备份或恢复。OptionExplicitPrivateSubcmd_recovery_Click()IfcnMod.State=adStateOpenThencnMod.Close'假如已连接，关掉宽EndIfcnMod.Open"driver={sqlserver};server=HZ;uid=sa;pwd=heweiling;database=master"'建一个连接用来获得要还原数据库的进程标识符（spid）DimrsAsNewADODB.Recordset'该记录集保存进程ID以备操作rs.Open"selectspidfromsysprocesseswheredbid=db_id('工资治理系统')",cnMod,adOpenDynamic,adLockPessimistic'解释一下，这句话是为了将有关“工资治理系统”所有服务进程ID查询出来db_id是SQL中的一个函数具体语法你自己看它的关心文件哦，那个地点就不赘述了Ifrs.EOF=FalseThenrs.MoveFirstDoWhilers.EOF=True'扫描并关闭有关“工资治理系统”的服务进程cnMod.Execute("kill"&rs.Fields(0))'kill也是SQL的方法“杀”与dos下的kill类似啊，是吧，呵呵自己看看关心文件专门详尽的rs.MoveNextLoopEndIfCD.Filter="所有文件（*.*）|*.*|备份文件(*.bak)|*.bak"CD.InitDir=App.PathText1.Text=CD.FileNameCD.ShowOpenDimMstrAsStringMstr="恢复要紧数据库？数据恢复操作将会覆盖往常的所有数据同时覆盖后无法恢复，您确定要进行恢复操作吗?"IfMsgBox(Mstr,vbYesNo+vbQuestion,"操作提示")=vbYesThenOnErrorGoToreLabel1.Caption="正在恢复，请稍候……"cnMod.BeginTrans'开始一个事件cnMod.Execute("restoredatabase工资治理系统fromdisk='"&CD.FileName&"'withreplace")'SQL语句要是可不能用，查看关心文件cnMod.CommitTrans'执行Label1.Caption="恢复成功"MsgBox"恢复成功",vbOKOnly+vbInformation,"提示"ExitSubre:cnMod.RollbackTrans'回滚（不执行）Label1.Caption="恢复失败"MsgBox"恢复失败",vbOKOnly+vbInformation,"提示"EndIfEndSubPrivateSubcmd_back_Click()'下面是备份的代码，处理的比较粗糙，你自己优化了，呵呵，相信你能看明白的，我就不注释了IfcnMod.State=adStateOpenThencnMod.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='"&CD.FileName&"'")cnMod.CommitTransMsgBox"成功地备份到"&CD.FileName&"下",vbOKOnly+vbInformation,"操作提示"cnMod.CloseExitSubback:cnMod.RollbackTransMsgBox"备份失败",vbOKOnly+vbInformation,"提示"cnMod.CloseEndSub'到那个地点就告一段落了，是不是专门简单呢，因此那个地点有专门多不足，你自己完善吧PrivateSubForm_Load()EndSub3.4.4退出选择“系统”->“退出”菜单，单击则推出主菜单界面。3.4.5差不多工资选择“设置”->“差不多工资”菜单，能够单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL("insertinto差不多工资values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)'插入符合条件的工资信息Setobjrs=ExecuteSQL("select*from差不多工资",msg_sql)SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("确实要删除该级不工资信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"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)>=10000ThenMsgBox"数据非法"Text_pay.Text=""Text_pay.SetFocusEndIfEndSub3.4.6岗位工资选择“设置”->“岗位工资”菜单，能够单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()IfCombo_level.Text<>""ThenSetobjrs=ExecuteSQL("insertinto岗位工资values("+Str(Combo_level.Text)+","+(Text_pay.Text)+")",msg_sql)'插入符合条件的工资信息Setobjrs=ExecuteSQL("select*from岗位工资",msg_sql)SetDataGrid1.DataSource=objrs'刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text=""Text_pay.Text=""EndIfEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ExitSubEndIfIfobjrs.RecordCount<>0ThenIfMsgBox("确实要删除该级不工资信息吗?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"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)>=10000ThenMsgBox"数据非法"Text_pay.Text=""Text_pay.SetFocusEndIfEndSub3.4.7部门治理选择“信息维护”->“部门治理”菜单，能够单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。DimobjrsAsADODB.RecordsetDimmsg_sqlAsStringPrivateSubcmd_add_Click()Dimsqlbianhao,sqlmingcheng,sqlfuzeren,sqlrenshuAsStringsqlbianhao=cmo_bianhao.Textsqlmingcheng=cmo_mingcheng.Textsqlfuzeren=txt_fuzeren.Textsqlrenshu=txt_renshu.TextIfcmo_bianhao.Text<>""Andcmo_mingcheng.Text<>""ThenIfMsgBox("确定添加吗？",vbYesNo+vbExclamation,"警告")=vbYesThenSetobjrs=ExecuteSQL("insertinto部门信息values("+"'"+sqlbianhao+"'"+",'"+sqlmingcheng+"','"+sqlfuzeren+"','"+sqlrenshu+"')",msg_sql)Setobjrs=ExecuteSQL("select*from部门信息",msg_sql)SetDataGrid1.DataSource=objrsMsgBox"添加成功！",vbOKOnly+vbExclamation,"警告"EndIfEndIfEndSubPrivateSubcmd_alter_Click()IfTrim(cmo_bianhao.Text)=""OrTrim(cmo_mingcheng.Text)=""OrTrim(txt_fuzeren.Text)=""OrTrim(txt_renshu.Text)=""ThenMsgBox"请将修改后的信息填写完整！",vbOKOnly+vbExclamation,"警告"ElseIfMsgBox("确定修改吗？",vbYesNo+vbExclamation,"警告")=vbYesThenSetrst=ExecuteSQL("update部门信息set部门名称='"&Trim(cmo_mingcheng.Text)&"'where部门编号='"&Trim(cmo_bianhao.Text)&"'",msg_sql)Setrst=ExecuteSQL("update部门信息set部门负责人='"&Trim(txt_fuzeren.Text)&"'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基部门信息",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.ShowUnloadMeEndSubPrivateSubcmd_delete_Click()Ifobjrs.RecordCount=0ThenMsgBox"库中没有记录!"ElseIfobjrs.RecordCount<>0ThenIfMsgBox("确实要删除该部门?",vbYesNo+vbQuestion,"警告")=vbYesThenobjrs.DeleteMsgBox"删除成功!",vbInformation,"提示"EndIfEndIfEndIfEndSubPrivateSubForm_Load()Setobjrs=ExecuteSQL("select*from部门信息",msg_sql)SetDataGrid1.DataSource=objrsEndSub3.4.8职员治理选择“信息维护”->“职员治理”菜单，能够单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。3.4.9发放工资选择“信息维护”->“发放工资”菜单，单击“添加”或“修改”按钮则弹出“添加职职员资”菜单，单击“添加”或“修改”则能够实现添加职职员资或者修改职职员资。DimrstAsADODB.RecordsetDimsqlAsStringPrivateSubcmd_add_Click()frm_tianjiagongzi.ShowEndSubPrivateSubcmd_alter_Click()frm_tianjiagongzi.Show'txt_no.Enabled=Falsefrm_tianjiagongzi.Showfrm_tianjiagongzi.txt_bianhao.Text=DataGrid1.Columns(0)'frm_addsalary.txt_name=DataGrid1.Columns(1)frm_tianjiagongzi.cmo_jiben=DataGrid1.Columns(1)frm_tianjiagongzi.cmo_gangwei=DataGrid1.Columns(2)frm_tianjiagongzi.txt_shuidian=DataGrid1.Columns(3)EndSubPrivateSubcmd_delete_Click()Ifrst.RecordCount<>0ThenIfMsgBox("确定删除该职员的工资信息吗？",vbYesNo+vbQuestion,"警告")=vbYesThenrst.DeleteSetrst=ExecuteSQL("select*from工资信息",sql)SetDataGrid1.DataSource=rstMsgBox"删除成功!",vbOKOnly+vbExclamation,"提示"EndIfEndIfEndSubPrivateSubcmd_cancel_Click()frm_main.ShowUnloadMeEndSubPrivateSubForm_Load()Setrst=ExecuteSQL("select*from工资信息",sql)SetDataGrid1.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,"警告"ElseIfrst.RecordCount<>0ThenIfMsgBox("确定修改吗？",vbYesNo+vbExclamation,"警告")=vbYesThenSetrst=ExecuteSQL("select*from差不多工资where工资级不='"&Trim(cmo_jiben.Text)&"'",msg_sql)jiben=rst.Fields(1)Setrst=ExecuteSQL("select*from岗位工资where工资级不='"&Trim(cmo_gangwei.Text)&"'",msg_sql)gangwei=rst.Fields(1)salary=jiben+gangwei-Trim(txt_shuidian.Text)updatesql="update工资信息set差不多工资="&jiben&","&"岗位工资="&gangwei&","&"水电费="&"'"&Trim(txt_shuidian.Text)&"'"&","&"实发金额="&salary&"where职员编号='"&Trim(txt_bianhao.Text)&"'"Setrst=ExecuteSQL(updatesql,msg_sql)MsgBox"修改成功！",vbOKOnly+vbExclamation,"警告"UnloadMeSetrst=ExecuteSQL("select*from工资信息",msg_sql)Setfrm_fafanggongzi.DataGrid1.DataSource=rsttxt_bianhao.Text=""txt_xingming.Text=""cmo_jiben.Text=""cmo_gangwei.Text=""txt_shuidian.Text=""EndIfEndIfEndIfEndSubPrivateSubcmd_cancel_Click()UnloadMeEndSubPrivateSubcmd_ok_Click()Setrst=ExecuteSQL("select*from差不多工资",msg_sql)Ifrst.RecordCount=0ThenMsgBox"请先录入差不多工资信息"ElseIfrst.RecordCount=0ThenMsgBox"请先录入岗位工资信息"ElseSetrst=ExecuteSQL("select*from差不多工资where工资级不='"&Trim(cmo_jiben.Text)&"'",msg_sql)jiben=rst.Fields(1)Setrst=ExecuteSQL("select*from岗位工资where工资级不='"&Trim(cmo_gangwei.Text)&"'",msg_sql)gangwei=rst.Fields(1)salary=jiben+gangwei-Trim(txt_shuidian.Text)addsalarysql="insertinto工资信息values('"&Trim(txt_bianhao.Text)&"','"&jiben&"','"&gangwei&"','"&Trim(txt_shuidian.Text)&"','"&salary&"')"Setrst=ExecuteSQL(addsalarysql,msg_sql)UnloadMeSetrst=ExecuteSQL("select*from工资信息",msg_sql)Setfrm_salary.DataGrid1.DataSource=rstEndIfEndIfEndSubPrivateSubForm_Load()Setrst=ExecuteSQL("select*from差不多工资",msg_sql)Fori=1Torst.RecordCountcmo_jiben.AddItem(rst.Fields(0))rst.MoveNextNextiSetrst=ExecuteSQL("select*from岗位工资",msg_sql)Fori=1Torst.RecordCountcmo_gangwei.AddItem(rst.Fields(0))rst.MoveNextNextiEndSubPrivateSubtxt_bianhao_LostFocus()Setrst=ExecuteSQL("select*from职员信息where职员编号='"&Trim(txt_bianhao.Text)&"'",msg_sql)Ifrst.RecordCount=0ThenMsgBox"无此人"txt_bianhao.SetFocustxt_bianaho.Text=""ExitSubEndIfSetrst=ExecuteSQL("select*from职员信息where职员编号='"&Trim(txt_bianhao.Text)&"'",msg_sql)txt_xingming.Text=rst.Fields(0)EndSub3.4.10按职员查询选择“工资查询”->“按职员查询”，输入职员编号和姓名，单击“查询”即可查看个人工资情况。Dimmsg_sqlAsStringDimobjrsAsADODB.RecordsetPrivateSubcmd_cancel_Click()frm_main.Showfrm_main.xitong.Enabled=False'在那个地点设计非治理员用户的权限，那个地点我假设让非治理员用户不能用菜单中的‘系统’frm_main.shezhi.Enabled=Falsefrm_main.xinxiweihu.Enabled=FalseUnloadMeEndSubPrivateSubcmd_search_Click()Setobjrs=ExecuteSQL("select*from工资信息where职员编号='"&Trim(txt_bianhao.Text)&"'",msg_sql)SetDataGrid1.DataSource=objrsEndSub3.4.11按部门查询选择“工资查询”->“按部门查询”，输入部门编号和名称，单击“查询”即可查看工资。Dimmsg_sqlAsStringDimobjrsAsADODB.RecordsetPrivateSubcmd_cancel_Click()frm_main.Showfrm_main.xitong.Enabled=False'在那个地点设计非治理员用户的权限，那个地点我假设让非治理员用户不能用菜单中的‘系统’frm_main.shezhi.Enabled=Falsefrm_main.xinxiweihu.Enabled=FalseUnloadMeEndSubPrivateSubcmd_search_Click()DimsearchsqlAsStringsearchsql="select工资信息.职员编号,姓名,差不多工资,岗位工资,水电费,实发金额from工资信息,部门信息,职员信息where职员信息.所属部门='"_&Trim(txt_bianhao.Text)&"'"_&"AND工资信息.职员编号=职员信息.职员编号AND部门信息.部门编号=职员信息.所属部门"Setobjrs=ExecuteSQL(searchsql,msg_sql)SetDataGrid1.DataSource=objrsEndSub模块一：PublicpowerAsStringPublictempuserAsStringPubliccnModAsNewADODB.ConnectionPublicUserNameAsStringPu