员工工资管理系统(VB SQL)

1、VB+SQLserve2000课程设计报告员工工资管理系统姓 名： _班 级： _学 号： _指导教师： _成 绩：_完成时间：2009-12-28 完成地点：蚌埠学院 摘 要 1第一章 绪论 21.1数据库管理系统 21.2员工工资管理系统 21.3开发工具 3第二章 员工工资管理系统设计分析 32.1应用需求与分析 32.2系统模块划分 32.3系统数据库设计 4第三章：企业工资管理系统应用程序设计 531操作流程图 532 “登录模块”详细设计 633 “主窗体”模块详细设计 1034 各项子模块详细设计 133.41添加用户与删除 133.42 修改用户 15模块一： 35模块二： 3

2、5第五章：结 束 语 36谢辞 37参考文献： 37摘 要企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工

3、资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VB6，后台数据库采用sqlserve2000数据库。VB6是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。sqlserve2000数据库具有与VB6无缝连接、操作简单、易于使用的优点。运行结果证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志。 第一

4、章 绪论1.1数据库管理系统数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。MSsqlserve2000就是一种关系型数据库管理系统。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系实际上是一张二维表格。关系模型和层次、网状

5、模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。SQL语言是关系型数据库的标准化语言，已得到了广泛的应用。1.2员工工资管理系统 企业工资管理是一项琐碎、复杂而又十分细致的工作，一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误的机率也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。正是企业工资管理的这种重复性、规律性、时间性，使得企业工资管理计算机化成为可能。企业工资

6、管理系统就是使用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑还可以安全地、完整地保存大量的企业工资记录。1.3开发工具微软公司的Visual Basic 6.0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。因此，本系统使用MS Visual Basic 6.0开发。第二章 员工工资管理系统设计分析2.1应用需求与分析基本信息的添加、修改、删除和查询。基本信息包括项目

7、类型信息，项目状态信息，模块状态信息和缺陷级别信息等。 此功能为项目组管理和软件项目管理模块提供数据。项目组信息的添加、修改、删除和查询。项目组信息包括收员工信息和角色信息。软件项目管理模块包括项目基本信息管理、软件模块管理和软件缺陷管理等功能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主键,不允许重复工资金额numeric (8, 2岗位工资工资级别char (2主键,不允许重复工资金

10、额numeric (8, 2工资信息员工编号char (8主键,不允许重复； 外键基本工资numeric (8, 2岗位工资numeric (8, 2水电费numeric (8, 2实发金额numeric (8, 2用户表用户名char (8主键,不允许重复密码char (20权限char (20E-R图：第三章：企业工资管理系统应用程序设计31操作流程图初始登入用户:admin 密码为:admin结束当月工资32 “登录模块”详细设计登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，

11、还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。 窗体及核心代码：Private Sub cmd_cancel_Click(txt_key.Text = ""cmo_user.Text = "请选择"Unload MeEnd SubPrivate Sub cmd_ok_Click(Dim try_times As StringDim sql As StringDim rst As ADODB.Recordsettry_times = 0If (Trim(txt_key.Text = "&quo

12、t; ThenMsgBox "请输入密码", 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 <> "管理员&

13、quot; ThenEnd Ifrst.CloseUserName = Trim(cmo_user.Textfrm_main.ShowUnload MeElseMsgBox "密码不正确，请重新输入", vbOKOnly + vbExclamation, "警告"txt_key.SetFocustxt_key.Text = ""try_times = try_times + 1Exit Sub '在这里若密码错了应该跳出该过程，否则下面的语句还会执行，这不是你想要的End If'try_times = try_time

14、s + 1 '个人认为密码输入错了才加一，你这样的话，用户名错了也会加一，当然你这里用户名不会错是吧，改得多余了If try_times = 3 ThenUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As IntegerDim sql As StringDim rst As ADODB.Recordsetsql = "select 用户名 from 用户表 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountcmo_us

15、er.AddItem (rst.Fields(0rst.MoveNextNext iEnd Sub主窗体：Private Sub bumenxinxi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用户表 "Set rst = ExecuteSQL(sql, ""power = rst.Fields(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOK

16、Only + 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 用户表 "Set rst = ExecuteSQL(sql, ""power = rst.Fields(2If T

17、rim(power <> "管理员" ThenMsgBox "您无权进行该操作！", 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 用户表

18、"Set rst = ExecuteSQL(sql, ""power = rst.Fields(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_jiben.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghushanchu_Click(Dim sql A

19、s StringDim rst As New ADODB.Recordsetsql = "select * from 用户表 "Set rst = ExecuteSQL(sql, ""power = rst.Fields(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_tianjiayush

20、anchu.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(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExc

21、lamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As IntegerDim sql As StringDim rst As ADODB.Recordsetsql = "select 权限 from 用户表 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCoun

22、trst.MoveNextNext i33 “主窗体”模块详细设计在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。主窗体及核心代码：Private Sub bumenxinxi_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from

23、 用户表 "Set rst = ExecuteSQL(sql, ""power = rst.Fields(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_bumenxinxi.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub gangweigongzi_Click

24、(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 = "管理员" Thenfrm_g

25、angweigongzi.ShowUnload 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 + vbExcl

26、amation, "警告"ElseIf Trim(power = "管理员" Thenfrm_jiben.ShowUnload 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(2If Trim(power <>

27、 "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub yonghutianjia_Click(Dim sql As StringDim rst As New ADODB.Recordsetsql = "select * from 用户表 "S

28、et rst = ExecuteSQL(sql, ""power = rst.Fields(2If Trim(power <> "管理员" ThenMsgBox "您无权进行该操作！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(power = "管理员" Thenfrm_tianjiayushanchu.ShowUnload MeEnd IfEnd IfEnd SubPrivate Sub Form_Load(Dim i As Intege

29、rDim sql As StringDim rst As ADODB.Recordsetsql = "select 权限 from 用户表 "Set rst = ExecuteSQL(sql, ""For i = 1 To rst.RecordCountrst.MoveNextNext iEnd Sub34 各项子模块详细设计3.41添加用户与删除选择“系统”>“添加用户与删除”菜单，在添加用户的窗体里,输入新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。在窗体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。Privat

30、e Sub cmd_adduser_Click(Dim newrst As ADODB.RecordsetDim sql As Stringsql = "insert into 用户表 values(" & "'" & Trim(txt_username.Text & "'," _& "'" & Trim(txt_password.Text & "'," _& "'" &

31、Trim(txt_power & "'" & ""Set newrst = execute_sql(sqlsql = "select * from 用户表"Set newrst = select_sql(sqlSet DataGrid1.DataSource = newrstEnd SubPrivate Sub cmd_cancel_Click(Unload MeEnd SubPrivate Sub cmd_delete_Click(Dim sql As Stringsql = "select * f

32、rom 用户表"If txt_username <> "" ThenSet objrs = ExecuteSQL(sql, ""Set DataGrid1.DataSource = objrs'刷新网格，显示操作后的结果End IfIf objrs.RecordCount = 0 ThenMsgBox "库中没有记录!"Exit SubEnd IfIf objrs.RecordCount <> 0 ThenIf MsgBox("真的要删除该级用户信息吗?", vbYesNo

33、 + vbQuestion, "警告" = vbYes Thenobjrs.DeleteMsgBox "删除成功!", vbInformation, "提示"End IfEnd IfEnd SubPrivate Sub Form_Load(Dim newrst As ADODB.RecordsetDim sql As Stringsql = "select * from 用户表"Set newrst = select_sql(sqlSet DataGrid1.DataSource = newrstEnd Sub3.

34、42 修改用户选择“系统”->“修改用户”菜单，在窗体里输入新的用户名称和用户权限，单击“修改”按钮，系统将会修改原来用户信息。Private Sub cmd_adduser_Click(Dim newrst As ADODB.RecordsetDim sql As Stringsql = "insert into 用户表 values(" & "'" & Trim(txt_username.Text & "'," _& "'" & Trim(t

35、xt_password.Text & "'," _& "'" & Trim(txt_power & "'" & ""Set newrst = execute_sql(sqlsql = "select * from 用户表"Set newrst = select_sql(sqlSet DataGrid1.DataSource = newrstEnd SubPrivate Sub cmd_cancel_Click(Unload MeEn

36、d SubPrivate Sub cmd_delete_Click(Dim sql As Stringsql = "select * from 用户表"If txt_username <> "" ThenSet objrs = ExecuteSQL(sql, ""Set DataGrid1.DataSource = objrs'刷新网格，显示操作后的结果End IfIf objrs.RecordCount = 0 ThenMsgBox "库中没有记录!"Exit SubEnd IfIf objr

37、s.RecordCount <> 0 ThenIf MsgBox("真的要删除该级用户信息吗?", vbYesNo + vbQuestion, "警告" = vbYes Thenobjrs.DeleteMsgBox "删除成功!", vbInformation, "提示"End IfEnd IfEnd SubPrivate Sub Form_Load(Dim newrst As ADODB.RecordsetDim sql As Stringsql = "select * from 用户表&q

38、uot;Set newrst = select_sql(sqlSet DataGrid1.DataSource = newrstEnd Sub选择“系统”->“数据库备份和恢复”菜单，在位置文本框中输入备份或恢复的文件所在位置，单击“备份”或“恢复”按钮，数据库将备份或恢复。Option ExplicitPrivate Sub cmd_recovery_Click(If cnMod.State = adStateOpen ThencnMod.Close '如果已连接，关掉宽End IfcnMod.Open "driver=sql server;server=HZ;uid

39、=sa;pwd=heweiling;database=master" '建一个连接用来获得要还原数据库的进程标识符（spid）Dim rs As New ADODB.Recordset '该记录集保存进程ID以备操作rs.Open "select spid from sysprocesses where dbid=db_id('工资管理系统'", cnMod, adOpenDynamic, adLockPessimistic'解释一下，这句话是为了将有关“工资管理系统”所有服务进程ID查询出来db_id是SQL中的一个函数具

40、体语法你自己看它的帮助文件哦，这里就不赘述了If rs.EOF = False Thenrs.MoveFirstDo While rs.EOF = True '扫描并关闭有关“工资管理系统”的服务进程cnMod.Execute ("kill" & rs.Fields(0 'kill 也是SQL的方法“杀”与dos下的kill类似啊，是吧，呵呵自己看看帮助文件很详尽的rs.MoveNextLoopEnd IfCD.Filter = "所有文件（*.*）|*.*|备份文件(*.bak|*.bak"CD.InitDir = App.Pa

41、thText1.Text = CD.FileNameCD.ShowOpenDim Mstr As StringMstr = "恢复主要数据库？数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗?"If MsgBox(Mstr, vbYesNo + vbQuestion, "操作提示" = vbYes ThenOn Error GoTo reLabel1.Caption = "正在恢复，请稍候"cnMod.BeginTrans '开始一个事件cnMod.Execute ("restore da

42、tabase 工资管理系统 from disk='" & CD.FileName & "' with replace" 'SQL语句要是不会用，查看帮助文件cnMod.CommitTrans '执行Label1.Caption = "恢复成功"MsgBox "恢复成功", vbOKOnly + vbInformation, "提示"Exit Subre:cnMod.RollbackTrans '回滚（不执行）Label1.Caption = &quo

43、t;恢复失败"MsgBox "恢复失败", vbOKOnly + vbInformation, "提示"End IfEnd SubPrivate Sub cmd_back_Click('下面是备份的代码，处理的比较粗糙，你自己优化了，呵呵，相信你能看懂的，我就不注释了If cnMod.State = adStateOpen ThencnMod.CloseEnd IfCD.Filter = "所有文件（*.*）|*.*|备份文件(*.bak|*.bak"CD.InitDir = App.PathCD.ShowSavet

44、xt_weizhi = CD.FileNamecnMod.Open "driver=sql server;server=HZ;uid=sa;pwd=heweiling;database=工资管理系统"On Error GoTo backcnMod.BeginTranscnMod.Execute ("backup database 工资管理系统 to disk='" & CD.FileName & "'"cnMod.CommitTransMsgBox "成功地备份到" & CD

45、.FileName & "下", vbOKOnly + vbInformation, "操作提示"cnMod.CloseExit Subback:cnMod.RollbackTransMsgBox "备份失败", vbOKOnly + vbInformation, "提示"cnMod.CloseEnd Sub'到这里就告一段落了，是不是很简单呢，当然这里有很多不足，你自己完善吧Private Sub Form_Load(End Sub选择“系统”->“退出”菜单，单击则推出主菜单界面。选择“设

46、置”->“基本工资”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click(If Combo_level.Text <> "" ThenSet objrs = ExecuteSQL("insert into 基本工资 values(" + Str(Combo_level.Text + " ," + (Text_pay.Text + " &quo

47、t;, msg_sql'插入符合条件的工资信息Set objrs = ExecuteSQL("select * from 基本工资", msg_sqlSet DataGrid1.DataSource = objrs'刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text = ""Text_pay.Text = ""End IfEnd SubPrivate Sub cmd_cancel_Click(Unload MeEnd SubPrivate Sub cmd_delete_C

48、lick(If objrs.RecordCount = 0 ThenMsgBox "库中没有记录!"Exit SubEnd IfIf objrs.RecordCount <> 0 ThenIf MsgBox("真的要删除该级别工资信息吗?", vbYesNo + vbQuestion, "警告" = vbYes Thenobjrs.DeleteMsgBox "删除成功!", vbInformation, "提示"Combo_level.SetFocusCombo_level.Text

49、 = ""Text_pay.Text = ""End IfEnd IfEnd SubPrivate Sub Form_Load(Set objrs = ExecuteSQL("select * from 基本工资", msg_sqlSet DataGrid1.DataSource = objrsEnd SubPrivate Sub Text_pay_LostFocus(If Val(Text_pay.Text < 0 Or Val(Text_pay.Text >= 10000 ThenMsgBox "数据非法&q

50、uot;Text_pay.Text = ""Text_pay.SetFocusEnd IfEnd Sub岗位工资选择“设置”->“岗位工资”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click(If Combo_level.Text <> "" ThenSet objrs = ExecuteSQL("insert into 岗位工资 values("

51、+ Str(Combo_level.Text + " ," + (Text_pay.Text + " ", msg_sql'插入符合条件的工资信息Set objrs = ExecuteSQL("select * from 岗位工资", msg_sqlSet DataGrid1.DataSource = objrs'刷新网格，显示操作后的结果Combo_level.SetFocusCombo_level.Text = ""Text_pay.Text = ""End IfEnd Su

52、bPrivate Sub cmd_cancel_Click(Unload MeEnd SubPrivate Sub cmd_delete_Click(If objrs.RecordCount = 0 ThenMsgBox "库中没有记录!"Exit SubEnd IfIf objrs.RecordCount <> 0 ThenIf MsgBox("真的要删除该级别工资信息吗?", vbYesNo + vbQuestion, "警告" = vbYes Thenobjrs.DeleteMsgBox "删除成功!&qu

53、ot;, vbInformation, "提示"Combo_level.SetFocusCombo_level.Text = ""Text_pay.Text = ""End IfEnd IfEnd SubPrivate Sub Form_Load(Set objrs = ExecuteSQL("select * from 岗位工资", msg_sqlSet DataGrid1.DataSource = objrsEnd SubPrivate Sub Text_pay_LostFocus(If Val(Text_pa

54、y.Text < 0 Or Val(Text_pay.Text >= 10000 ThenMsgBox "数据非法"Text_pay.Text = ""Text_pay.SetFocusEnd IfEnd Sub选择“信息维护”->“部门管理”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。Dim objrs As ADODB.RecordsetDim msg_sql As StringPrivate Sub cmd_add_Click(Dim sqlbianhao, sqlmingcheng, sqlfuzer

55、en, sqlrenshu As Stringsqlbianhao = cmo_bianhao.Textsqlmingcheng = cmo_mingcheng.Textsqlfuzeren = txt_fuzeren.Textsqlrenshu = txt_renshu.TextIf cmo_bianhao.Text <> "" And cmo_mingcheng.Text <> "" ThenIf MsgBox("确定添加吗？", vbYesNo + vbExclamation, "警告"

56、; = vbYes ThenSet objrs = ExecuteSQL("insert into 部门信息 values(" + "'" + sqlbianhao + "'" + ",'" + sqlmingcheng + "' ,'" + sqlfuzeren + "' ,'" + sqlrenshu + "' ", msg_sqlSet objrs = ExecuteSQL("

57、select * from 部门信息", msg_sqlSet DataGrid1.DataSource = objrsMsgBox "添加成功！", vbOKOnly + vbExclamation, "警告"End IfEnd IfEnd SubPrivate Sub cmd_alter_Click(If Trim(cmo_bianhao.Text = "" Or Trim(cmo_mingcheng.Text = "" Or Trim(txt_fuzeren.Text = ""

58、Or Trim(txt_renshu.Text = "" ThenMsgBox "请将修改后的信息填写完整！", vbOKOnly + vbExclamation, "警告"ElseIf MsgBox("确定修改吗？", vbYesNo + vbExclamation, "警告" = vbYes ThenSet rst = ExecuteSQL("update 部门信息 set 部门名称='" & Trim(cmo_mingcheng.Text & &

59、quot;' where 部门编号 = '" & Trim(cmo_bianhao.Text & "'", msg_sqlSet rst = ExecuteSQL("update 部门信息 set 部门负责人='" & Trim(txt_fuzeren.Text & "' where 部门编号 = '" & Trim(cmo_bianhao.Text & "'", msg_sqlSet rst = Ex

60、ecuteSQL("update 部门信息 set 部门人数='" & Trim(txt_renshu.Text & "' where 部门编号 = '" & Trim(cmo_bianhao.Text & "'", msg_sqlSet rst = ExecuteSQL("select * from 基部门信息", msg_sqlSet DataGrid1.DataSource = objrsMsgBox "修改成功！", vbO

61、KOnly + vbExclamation, "警告"cmo_bianhao.SetFocuscmo_bianhao.Text = ""cmo_mingcheng.Text = ""txt_fuzeren.Text = ""txt_renshu.Text = ""End IfEnd IfEnd SubPrivate Sub cmd_cancel_Click(frm_main.ShowUnload MeEnd SubPrivate Sub cmd_delete_Click(If objrs.Rec

62、ordCount = 0 ThenMsgBox "库中没有记录!"ElseIf objrs.RecordCount <> 0 ThenIf MsgBox("真的要删除该部门?", vbYesNo + vbQuestion, "警告" = vbYes Thenobjrs.DeleteMsgBox "删除成功!", vbInformation, "提示"End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load(Set objrs = ExecuteSQ

63、L("select * from 部门信息", msg_sqlSet DataGrid1.DataSource = objrsEnd Sub选择“信息维护”->“员工管理”菜单，可以单击“添加”，“删除”，“修改”，“取消”按钮来实现相应功能。选择“信息维护”->“发放工资”菜单，单击“添加”或“修改”按钮则弹出“添加员工工资”菜单，单击“添加”或“修改”则可以实现添加员工工资或者修改员工工资。Dim rst As ADODB.RecordsetDim sql As StringPrivate Sub cmd_add_Click(frm_tianjiagongz

64、i.ShowEnd SubPrivate Sub cmd_alter_Click(frm_tianjiagongzi.Show'txt_no.Enabled = Falsefrm_tianjiagongzi.Show'frm_addsalary.txt_name = DataGrid1.Columns(1frm_tianjiagongzi.cmo_jiben = DataGrid1.Columns(1frm_tianjiagongzi.cmo_gangwei = DataGrid1.Columns(2frm_tianjiagongzi.txt_shuidian = DataGr

65、id1.Columns(3End SubPrivate Sub cmd_delete_Click(If rst.RecordCount <> 0 ThenIf MsgBox("确定删除该员工的工资信息吗？", vbYesNo + vbQuestion, "警告" = vbYes Thenrst.DeleteSet rst = ExecuteSQL("select * from 工资信息", sqlSet DataGrid1.DataSource = rstMsgBox "删除成功!", vbOKOnly + vbE