员工工资管理系统(VBSQL)概要

1、VB+SQLserve2000课程设计报告员工工资管理系统姓名：班级：学号：指导教师：成绩：完成时间：2009-12-28完成地点：蚌埠学院摘要1第一章绪论21.1数据库管理系统21.2员工工资管理系统 21.3开发工具3第二章员工工资管理系统设计分析 32.1应用需求与分析32.2系统模块划分32.3系统数据库设计4第三章：企业工资管理系统应用程序设计53. 1操作流程图53. 2登录模块”详细设计63. 3主窗体”模块详细设计103. 4各项子模块详细设计133.4. 1添加用户与删除133.4. 2修改用户153.4.3数据库备份和恢复17344退出203.4.5基本工资203.4.6岗

2、位工资223.4.7部门管理243.4.8员工管理263.4.9发放工资273.4.10按员工查询323.4.11按部门查询33模块一：35模块二：35第五章：结束语36谢辞37参考文献：37摘要企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理 工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重 要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企 业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要 元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重

3、要的组成 部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间 且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资 管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全 保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VB6,后台数据库采用 sqlserve2000数据库。VB6是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大 的优点。sqlserve2000 数据库具有与 VB6无缝连接、操作简单、易于

4、使用的优点。运行结果 证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管 理、员工工资发放的需要，同时也成为现代化企业管理的标志。第一章绪论1.1数据库管理系统数据库管理系统（DBMS是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定 义、更新及各种控制，都是通过DBM进行的。DBM总是基于某种数 据模型，可以把DBMSI成是某种数据模型在计算机系统上的具体实 现。根据数据模型的不同，DBM可以分成层次型、网状型、关系 型、面向对象型等。MSsqlserve2000就是一种关系型数据库管理系 统。关系模型主要是用二维

5、表格结构表达实体集，用外键表示实体间联 系。关系模型是由若干个关系模式组成的集合。关系模式相当于前 面提到的记录类型，每个关系实际上是一张二维表格。关系模型和 层次、网状模型的最大判别是用关键码而不是用指针导航数据，表 格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。SQL语言是关系型数据库的标准化语言，已得到了广泛的应用。1.2员工工资管理系统企业工资管理是一项琐碎、复杂而又十分细致的工作，一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误的机率 也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计 算的疏忽，出现工资发放错误的

6、现象。同时工资的发放具有较强的时间限制，必须 严格按照单位规定的时间完成计算和发放工作。正是企业工资管理的这种重复性、 规律性、时间性，使得企业工资管理计算机化成为可能。企业工资管理系统就是使 用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑 还可以安全地、完整地保存大量的企业工资记录。1.3开发工具微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少 了编程人员的工作量，也简化了界面设计过程，从而有效的提高了 应用

7、程序的运行效率和可靠性。因此，本系统使用MS VisualBasic 6.0 开发。第二章员工工资管理系统设计分析2.1应用需求与分析基本信息的添加、修改、删除和查询。基本信息包括项目类型信息，项目状态信息，模块状态信息和缺陷级别信息等。此功能为项目组管理和软件项目管理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收员工信息和角色信息。软件项目管理模块包括项目基本信息管理、软件模块管理和软件缺陷管理等功能2.2系统模块划分开发这个系统的目的就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管 理的系统化、规范化和自动化。能够和认识管理系统、考勤管理系统相结合，真正实现企

8、业高 效、科学、现代化的员工管理。系统最终实现的主要功能如下。企业工资信息设置部分：包括设置员工的基本工资和其他项目的金额，如奖金等。企业工资信息管理部分：包括统计出勤、计算工资、查询工资和导出工资表。系统部分：包括添加用户和修改密码。2.3系统数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地 位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数 据信息的存储效率，确保数据信息的完整性和一致性。针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设 计如下的数据项和数据结构：基本工资信息：包括工资级别和工

9、资金额。岗位工资信息：包括工资级别和工资金额。工资信息：包括员工编号、基本工资、岗位工资、水电费、实发金额。部门信息：包括部门编号、部门名称、部门负责人、部门人数。工资统计信息：包括员工编号、姓名、出生年月、所属部门、文化程度、职称。用户信息：包括用户名、密码和权限。员工信息表员工编号char (8主键，不允许重复姓名char (8性别char (2出生年月datetime所属部门char (4外键文化程度char (4职称char (12部门信息部门编号char (4主键，不允许重复部门名称char (20部门负责人char (8部门人数int基本工资工资级别char (2主键，不允许重复工

10、资金额nu meric (8, 2岗位工资工资级别char (2主键，不允许重复工资金额nu meric (8, 2工资信息员工编号char (8主键,不允许重复;基本工资nu meric (8, 2岗位工资nu meric (8, 2水电费nu meric (8, 2实发金额nu meric (8, 2用户表用户名char (8主键，不允许重复密码char (20权限char (20外键E-R 图：岗掘喪 卫|工芳锁削工魅廉二堆若出空耳冃 二 1嘶 部门佶具_f|詛能呈_ WCLSK_ mriffijiAwruw第三章：企业工资管理系统应用程序设计3. 1操作流程图初始登入用户：admin密

11、码为:admin结束当月工资3. 2 “登录模块”详细设计登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进 入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标 题可以知道此系统的大概内容，由此，登录界面的设计完成。窗体及核心代码:用戶老Private Sub cmd_ca ncel_Click(txt_key.Text =cmo_user.Text =请选择Un load MeEnd SubPrivate Sub cmd_ok_Click(Dim try_times As Stri ng

12、Dim sql As StringDim rst As ADODB.Recordsettry_times = 0If (Trim(txt_key.Text = The nMsgBox 请输入密码, vbOKOnly + vbExclamation,提示Elsesql = select * from 用户表 where 用户名=& Trim(cmo_user.Text & ”Set rst = ExecuteSQL(sql,If Trim(rst.Fields(1 = Trim(txt_key.Text ThenIf Trim(rst.Fields(2 管理员Thenfrm_mai n.xito

13、 ng.E nabled = False在这里设计非管理员用户的权限，这里我假设让非 管理员用户不能用菜单中的系统frm_ma in. shezhi.E nabled = Falsefrm_ma in .xi nxiweihu.E nabled = FalseEnd Ifrst.CloseUserName = Trim(cmo_user.Textfrm_mai n.ShowUn load MeElseMsgBox 密码不正确，请重新输入, vbOKOnly + vbExclamation,警告txt_key.SetFocustxt_key.Text =try_times = try_times

14、 + 1Exit Sub 在这里若密码错了应该跳出该过程，否则下面的语句还会执行，这不是你 想要的End If try_times = try_times + 1 个人认为密码输入错了才加一，你这样的话，用户名错了 也会加一，当然你这里用户名不会错是吧，改得多余了If try_times = 3 The nUn load MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As In tegerDim sql As StringDim rst As ADODB.Recordsetsql = select用户名from用户表Set rst = Exe

15、cuteSQL(sql,For i = 1 To rst.RecordCo untcmo_user.Addltem (rst.Fields(Orst.MoveNextNext iEnd Sub主窗体：Private Sub bume nxi nxi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbE

16、xclamation,警告ElseIf Trim(power =管理员Thenfrm_bume nxin xi.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub gan gweigo ngzi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamati

17、on,警告ElseIf Trim(power =管理员Thenfrm_ga ngweig on gzi.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamation,警告ElseIf Tr

18、im(power =管理员Thenfrm_j ibe n.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub yon ghusha nchu_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamation,警告ElseIf Trim(power =管理员

19、Thenfrm_tianjiayusha nchu.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub yon ghutianjia_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamation,警告ElseIf Trim(power =管理员Then

20、frm_tianjiayusha nchu.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As In tegerDim sql As StringDim rst As ADODB.Recordsetsql = select 权限 from 用户表Set rst = ExecuteSQL(sql,For i = 1 To rst.RecordCo untrst.MoveNextNext i3. 3 “主窗体”模块详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，

21、使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息 管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员 有所有的权利进行各种操作。主窗体及核心代码:Private Sub bume nxi nxi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！

22、 , vbOKOnly + vbExclamation,警告ElseIf Trim(power =管理员Thenfrm_bume nxin xi.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub gan gweigo ngzi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKO

23、nly + vbExclamation,警告ElseIf Trim(power =管理员Then frm_ga ngweig on gzi.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub jiben_Click(Dim sql As StringDim rst As New ADODB.Recordset sql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExcl

24、amation,警告ElseIf Trim(power =管理员Thenfrm_j ibe n.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub yon ghusha nchu_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamation,警告Els

25、eIf Trim(power =管理员Thenfrm_tianjiayusha nchu.ShowUn load MeEnd IfEnd IfPrivate Sub yon ghutianjia_Click(Dim sql As StringEnd SubDim rst As New ADODB.Recordset sql = select * from 用户表Set rst = ExecuteSQL(sql,power = rst.Fields(2If Trim(power 管理员ThenMsgBox 您无权进行该操作！ , vbOKOnly + vbExclamation,警告ElseIf

26、 Trim(power =管理员Thenfrm_tianjiayusha nchu.ShowUn load MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As In tegerDim sql As StringDim rst As ADODB.Recordsetsql = select 权限 from 用户表Set rst = ExecuteSQL(sql,For i = 1 To rst.RecordCo untrst.MoveNextNext i3. 4各项子模块详细设计3.4 . 1添加用户与删除,输入选择“系统”一 “添加用户与删除”

27、菜单，在添加用户的窗体里 新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。在窗 体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。Private Sub cmd_adduser_Click(Dim n ewrst As ADODB.RecordsetDim sql As Stringsql = insert into 用户表 values( & ” & Trim(txt_username.Text & ,& ” & Trim(txt_password.Text & , _& & Trim(txt_power & & Set n ewrst = execute_sql

28、(sqlsql = select * from 用户表Set n ewrst = select_sql(sqlSet DataGridl.DataSource = n ewrstEnd SubPrivate Sub cmd_ca ncel_Click(Un load MeEnd SubPrivate Sub cmd_delete_Click(Dim sql As Stringsql = select * from 用户表If txt_user name ThenSet objrs = ExecuteSQL(sql,Set DataGridl.DataSource = objrs刷新网格，显示操

29、作后的结果End IfIf objrs.RecordCo unt = 0 The nMsgBox 库中没有记录!Exit SubEnd IfIf objrs.RecordCo unt 0 The nIf MsgBox(真的要删除该级用户信息吗？, vbYesNo + vbQuestion,警告=vbYes The nobjrs.DeleteMsgBox 删除成功!, vbInformation,提示End IfEnd IfPrivate Sub Form_Load(End SubDim n ewrst As ADODB.RecordsetDim sql As Stringsql = selec

30、t * from 用户表Set n ewrst = select_sql(sqlSet DataGrid1.DataSource = n ewrstEnd Sub3.4 . 2修改用户选择“系统”- “修改用户”菜单，在窗体里输入新的用户名称和用户权限，单 击“修改”按钮，系统将会修改原来用户信息。Private Sub cmd_adduser_Click(Dim n ewrst As ADODB.RecordsetDim sql As Stringsql = insert into 用户表 values( & ” & Trim(txt_username.Text & ,& ” & Trim(

31、txt_password.Text & , _& & Trim(txt_power & & Set n ewrst = execute_sql(sqlsql = select * from 用户表Set n ewrst = select_sql(sqlSet DataGrid1.DataSource = n ewrstEnd SubPrivate Sub cmd_ca ncel_Click(Un load MeEnd SubPrivate Sub cmd_delete_Click(Dim sql As Stringsql = select * from 用户表If txt_user name

32、ThenSet objrs = ExecuteSQL(sql,Set DataGridl.DataSource = objrs刷新网格，显示操作后的结果End IfIf objrs.RecordCo unt = 0 The nMsgBox 库中没有记录!Exit SubEnd IfIf objrs.RecordCo unt 0 The nIf MsgBox(真的要删除该级用户信息吗？, vbYesNo + vbQuestion,警告=vbYes The n objrs.DeleteMsgBox 删除成功!, vbInformation,提示End IfEnd IfEnd SubPrivate

33、Sub Form_Load(Dim n ewrst As ADODB.RecordsetDim sql As Stringsql = select * from 用户表Set n ewrst = select_sql(sqlSet DataGridl.DataSource = n ewrstEnd Sub343数据库备份和恢复选择“系统”- “数据库备份和恢复”菜单，在位置文本框中输入备份或恢复的文件所在位置，单击“备份”或“恢复”按钮，数据库将备份或恢Optio n ExplicitPrivate Sub cmd_recovery_Click（If cnMod.State = adState

34、Ope n The ncnM od.Close 如果已连接，关掉宽End IfcnM od.Ope n driver=sql server;server=HZ;uid=sa;pwd=heweili ng;database=master建一个连接用来获得要还原数据库的进程标识符（spid）Dim rs As New ADODB.Recordset 该记录集保存进程ID以备操作rs.Open select spid from sysprocesses where dbid=db_i工资管理系统,cnMod, adOpe nDyn amic, adLockPessimistic解释一下，这句话是为了

35、将有关工资管理系统”所有服务进程ID查询出来db_id是SQL中的一个函数具体语法你自己看它的帮助文件哦，这里就不赘述了If rs.EOF = False The nrs.MoveFirstDo While rs.EOF = True 扫描并关闭有关 工资管理系统”的服务进程cnMod.Execute （kill & rs.Fields（O kill 也是 SQL 的方法 杀”与 dos下的 kill 类似啊，是吧，呵呵自己看看帮助文件很详尽的rs.MoveNextLoopEnd IfCD.Filter =所有文件（*.*）|*.*| 备份文件（*.bak|*.bakCD.In itDir =

36、 App.PathText1.Text = CD.FileNameCD.ShowOpe nDim Mstr As Stri ngMstr =恢复主要数据库？数据恢复操作将会覆盖以前的所有数据并且覆盖后无法 恢复，您确定要进行恢复操作吗?If MsgBox(Mstr, vbYesNo + vbQuestion,操作提示 ” =vbYes ThenOn Error GoTo reLabell.Caption =正在恢复，请稍候 cn Mod.Begi nTrans 开始一个事件cnMod.Execute （restore databas工资管理系统 from disk= & CD.FileName

37、 & with replace SQL语句要是不会用，查看帮助文件cn Mod.CommitTra ns 执行Label1.Caption =恢复成功MsgBox 恢复成功, vbOKOnly + vbInformation,提示Exit Subre:cn Mod.RollbackTra ns 回滚（不执行）Label1.Caption =恢复失败MsgBox 恢复失败, vbOKOnly + vbInformation,提示End IfEnd SubPrivate Sub cmd_back_Click（下面是备份的代码，处理的比较粗糙，你自己优化了，呵呵，相信你能看懂的， 我就不注释了If

38、cnMod.State = adStateOpe n The ncn Mod.CloseEnd IfCD.Filter =所有文件（*.*）|*.*| 备份文件（*.bak|*.bakCD.In itDir = App.PathCD.ShowSave txt weizhi = CD.FileName cnMod.Open driver=sql server;server=HZ;uid=sa;pwd=heweiling;database=X资管 理系统On Error GoTo backcnM od.Beg inTranscnMod.Execute (backup database资管理系统 t

39、o disk= & CD.FileName & ”cnM od.CommitTra nsMsgBox 成功地备份到& CD.FileName & 下, vbOKOnly + vbInformation,操作 提示cn Mod.CloseExit Subback:cn Mod.RollbackTra nsMsgBox 备份失败, vbOKOnly + vbInformation,提示cn Mod.CloseEnd Sub到这里就告一段落了，是不是很简单呢，当然这里有很多不足，你自己完善吧Private Sub Form_Load(End Sub344退出选择“系统”- “退出”菜单，单击则推出主

40、菜单界面345基本工资选择“设置”- “基本工资”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能Dim objrs As ADODB. RecordsetDim msg_sql As Stri ngPrivate Sub cmd_add_Click(If Combo_level.Text The nSet objrs = ExecuteSQL(insert into基本工资 values(” + Str(Combo_level.Text + , + (Text_pay.Text + , msg_sql插入符合条件的工资信息Set objrs = ExecuteSQL(s

41、elect * from 基本工资, msg_sqlSet DataGridl.DataSource = objrs刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text =Text_pay.Text =End IfEnd SubPrivate Sub cmd_ca ncel_Click(Un load MeEnd SubPrivate Sub cmd_delete_Click(If objrs.RecordCo unt = 0 The nMsgBox 库中没有记录!Exit SubEnd IfIf objrs.RecordCo unt 0 The

42、nIf MsgBox(真的要删除该级别工资信息吗 ？, vbYesNo + vbQuestion,警告=vbYes The nobjrs.DeleteMsgBox 删除成功!, vblnformation,提示Combo_level.SetFocusCombo_level.Text =Text_pay.Text =End IfEnd IfEnd SubPrivate Sub Form_Load(Set objrs = ExecuteSQL(select * from 基本工资, msg_sqlSet DataGridl.DataSource = objrsEnd SubPrivate Sub

43、Text_pay_LostFocus(If Val(Text_pay.Text = 10000 ThenMsgBox 数据非法Text_pay.Text =Text_pay.SetFocusEnd IfEnd Sub3.4.6岗位工资选择“设置”- “岗位工资”菜单，可以单击“添加”，“删除”，修改”，“取消”按钮来实现相应功能Dim objrs As ADODB. RecordsetDim msg_sql As Stri ngPrivate Sub cmd_add_Click(If Combo_level.Text The nSet objrs = ExecuteSQL(insert int

44、o岗位工资 values(” + Str(Combo_level.Text + , + (Text_pay.Text + , msg_sql插入符合条件的工资信息Set objrs = ExecuteSQL(select * from 岗位工资, msg_sqlSet DataGridl.DataSource = objrs刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text =IlliText_pay.Text =End IfEnd SubPrivate Sub cmd_ca ncel_Click(Un load MeEnd SubPrivate

45、 Sub cmd_delete_Click(If objrs.RecordCo unt = 0 The nMsgBox 库中没有记录!Exit SubEnd IfIf objrs.RecordCo unt 0 The nIf MsgBox(真的要删除该级别工资信息吗 ？, vbYesNo + vbQuestion,警告=vbYes The nobjrs.DeleteMsgBox 删除成功!, vbInformation,提示Combo_level.SetFocusCombo_level.Text =Text_pay.Text =End IfEnd IfEnd SubPrivate Sub Fo

46、rm_Load(Set objrs = ExecuteSQL(select * from 岗位工资, msg_sqlSet DataGridl.DataSource = objrsPrivate Sub Text_pay_LostFocus(End SubIf Val(Text_pay.Text = 10000 Then MsgBox 数据非法Text_pay.Text =Text_pay.SetFocusEnd IfEnd Sub347部门管理选择“信息维护”- “部门管理”菜单，可以单击“添加”，“删除”，“修改取消”按钮来实现相应功能Dim objrs As ADODB. Records

47、etDim msg_sql As Stri ngPrivate Sub cmd_add_Click(Dim sqlbia nhao, sql min gche ng, sqlfuzere n, sqlre nshu As String sqlbia nhao = cmo_bia nhao.Textsql min gche ng = cmo_m in gche ng.Textsqlfuzere n = txt_fuzere n. Text sqlre nshu = txt_ren shu.TextIf cmo_bia nhao.Text And cmo_m in gche ng.Text The

48、 nIf MsgBox(确定添加吗？ , vbYesNo + vbExclamation,警告=vbYes ThenSet objrs = ExecuteSQL(insert into部门信息 values(” + ” + sqlbianhao + ” + , + sql min gche ng + , + sqlfuzere n + , + sqlre nshu + , msg_sqlSet objrs = ExecuteSQL(select * from 部门信息，msg_sqlSet DataGridl.DataSource = objrsMsgBox 添加成功！ , vbOKOnly

49、+ vbExclamation,警告End IfEnd IfEnd SubPrivate Sub cmd_alter_Click(If Trim(cmo_bia nhao.Text = Or Trim(cmo_mi ngche ng.Text = Or Trim(txt_fuzere n. Text = Or Trim(txt_re nshu.Text = The nMsgBox 请将修改后的信息填写完整！, vbOKOnly + vbExclamation,警告ElseIf MsgBox(确定修改吗？ , vbYesNo + vbExclamation,警告” =vbYes ThenSet

50、rst = ExecuteSQL(update部门信息 set 部门名称=”& Trim(cmo_mingcheng.Text & where 部门编号=& Trim(cmo_bianhao.Text & ”, msg_sqlSet rst = ExecuteSQL(update部门信息 set 部门负责人=”& Trim(txt_fuzeren.Text & where 部门编号=& Trim(cmo_bianhao.Text & ”, msg_sqlSet rst = ExecuteSQL(update部门信息 set 部门人数=”& Trim(txt_renshu.Text & wher

51、e 咅部门编号 =& Trim(cmo_bia nhao.Text & ”, msg_sqlSet rst = ExecuteSQL(select * from 基部门信息，msg_sqlSet DataGridl.DataSource = objrsMsgBox 修改成功！ , vbOKOnly + vbExclamation,警告 cmo bianhao.SetFocus cmo_bia nhao.Text =cmo_m in gche ng.Text =txt_fuzere n. Text =txt_re nshu.Text =End IfEnd IfEnd SubPrivate Sub

52、 cmd_ca ncel_Click(frm_mai n.ShowUn load MeEnd SubPrivate Sub cmd_delete_Click(If objrs.RecordCo unt = 0 The nMsgBox 库中没有记录!ElseIf objrs.RecordCo unt 0 The nIf MsgBox(真的要删除该部门？，vbYesNo + vbQuestion,警告=vbYes Then objrs.DeleteMsgBox 删除成功!, vbInformation,提示End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load(Set objrs = ExecuteSQL(select * from 部门信息，msg_sqlSet DataGridl.DataSource = objrsEnd Sub348员工管理选择“信息维护”- “员工管理”菜单，可以单击“添加”，“删取消”按钮来实现相应功能除”，“修改349发放工资选择“信息维护”- “发放工资”菜单，单击“添加”或“修改”按钮工工资或者修改员工工资。则弹出“添加员工工资”菜单，单击“添加”或“修改”则可以实现添加员Dim rst As ADODB.RecordsetDim sql As S