[管理学]管理信息系统课程设计 -工资管理信息系统

[管理学]管理信息系统课程设计 -工资管理信息系统 辽 宁 工 业 大 学 管理信息系统设计课程设计报告() 目: 工资管理系统的与设计 院(系): 软件学院 专业班级: 软件工程114 学 号: 111301107 学生姓名: 安凯辰 指导教师: 谷宝华 教师职称: 副教授 起止时间: 2012.5.28--2012.6.8 课程设计(论文)任务及评语 院(系):软件学院 教研室:软件教研室 学 号 111301107 学生姓名 专业班级 软件工程114 安凯辰 课程设计 (论文)工资管理系统的分析与设计 题目 管理信息系统课程设计作为独立的教学环节，是电子商务专业集中实践性环节 系列之一，是学习完《管理信息系统》课程并进行完专业实习后进行的一次全面的 综合练习。 任务:采用结构化的系统开发方法，应用具体的计算机语言(VB)和数据库(SQL) 等技术，按照软件工程的思想，开发一个实用的中小型管理信息系统，完成工资管课理系统的分析设计实施工作，实现该系统完成工资管理系统的登陆信息，人事档案程 设信息，工资信息，修改信息，工资信息，财务管理还有查询和打印等功能，并结合计分析设计过程，撰写系统设计说明书(课设报告)。 ) 论1(根据课程设计时间选择适当规模大小的设计课题。采用专业实习的调研内容文 )作为课程设计选题。 任2(根据合理的进度安排，按照系统开发的流程及方法，踏实地开展课程设计活务 动。 3(课程设计过程中，根据选题的具体需求，在开发各环节中撰写相关的技术文 档，最后提交详细的课程设计报告。 4(开发出可以运行的管理信息系统，通过上机运行检查。 5(设计说明书要求文档齐备，步骤全整，流程正确，说明详细，具有可操作性。 指 导 教 师 评 语 及 成 绩 目 录 第一章 系统分析 ....................................................... 1 1.1 建立新系统的必要性...................................................................................................................... 1 1.2 现行系统存在的主要问题.............................................................................................................. 1 1.3 业务流程分析 ................................................................................................................................. 1 1.4数据流程图 ...................................................................................................................................... 2 1.5 数据字典 ......................................................................................................................................... 3 第二章 系统设计 ....................................................... 4 2.1 新系统功能设计 ............................................................................................................................. 4 2.2代码设计 .......................................................................................................................................... 4 2.3 系统运行环境与数据库设计 .......................................................................................................... 4 第三章 系统实施 ...................................................... 8 3.1数据库的实现 .................................................................................................................................. 8 3.2 用户界面的实现 ............................................................................................................................. 9 3.3 与VB的连接 ................................................................................................................................. 15 第四章 课设总结 ...................................................... 16 参考文献 ............................................................. 17 附录、部分主要模块的程序代码 ......................................... 18 第一章 系统分析 系统需求分析主要任务是调查现行系统存在的问题，弄清用户对新系统的要求，提出可行的，为管理层决策提供依据。 系统分析(又称逻辑设计)是财务工资管理系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。 新系统的逻辑模型由系统数据流程图、概况表、数据字典、逻辑表达式及有关说明组成。最后要完成系统分析报告(也称为系统逻辑设计说明书)。系统逻辑模型就像在根据需要建设一座学校前，按照学校教育的层次(初等、中等、高等)、规模、投资、地理环境、技术水平等条件的要求和约束，先由建筑设计院进行设计，保证学校建成后的各种功能得以实现，之后才能进行工程设计和施工一样。在系统设计阶段要做认真、细致的分析、研究工作，避免新系统在功能上存在先天不足或缺陷。 因为新系统模型是建立在对现行系统的分析及要求的基础上的，所以系统调查工作要进行得深入、细致、全面。用户可以对新系统的逻辑模型提出意见，双方经过讨论、修改，最后达成共识，并完成系统分析报告(系统逻辑设计说明书)，经有关领导审批通过之后，转入系统设计(又称系统物理设计)阶段。 1.1 建立新系统的必要性 从人力资源的角度来讲，人们已经产生一种共识，那就是“人力资源是企业最珍贵的资产”。现在，人力资源不仅是企业最珍贵的资产，而且应该是唯一“动态的资产”。 一个企业，无论是土地，还是设备，还是流动资金，他们的实质都是静态资产。人们认为财务管理首要的是讲“管好钱”。其实钱是属于静态资产，钱是不会跑的，它又没有长脚。如果说钱会跑，是因为有人去动他，所以不是钱的问题，仍然是人的问题。钱是不能主动创造价值的，即使是被投资于很好的项目，也是人做的决定，也是由人在那里管理。所以，唯有人的行为才是动态的;只有人的行为才能创造价值。 通过计算机管理人事档案，日常办公，实现无纸化办公，通过工时计算，统计出各项数据，分析出生产现状和员工的工作表现，通过强大的查询和索检高效的索检出数据，提高办事效率。 1.2 现行系统存在的主要问题 成功的人事工资系统不仅仅是先进信息技术的应用，更需要兼顾人力资源管理的实际需求，实现企业人力资源管理业务流程的优化和先进人力资源管理方法的应用。在这个新经济时代，对于人力资源管理实施者(人力资源经理和直线经理)而言，人事工资管理的实质已经从"HR工作效率的改进"(将工作做得更好)转变为"HR工作质量的提高"(做更有效的工作)，这其中，应用一个成功人事工资系统是关键。一个成功的人事工资系统，可以把员工和企业紧密结合，提高企业人力资源管理服务的质量，并为企业的经营决策提供有力、快捷的支持，最终实现人力资源管理工作从事务性到战略性的提升。 1.3 业务流程分析 通过对工资管理业务的实际调查分析，弄清了该工资管理工作的业务流程和管理功能，系统的业务流程。 1 主菜单 基础信息 统计和查询 其他 添编删更查统用退 加 辑 除 新 询 计 户出 管 理 财务工资的分析 根据实际情况，我们使用ADO控件少量代价快速地构造一个可执行的软件系统 模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对 系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部 满足，此时模块也发展成为最终产品了。 1.4数据流程图 员工登记 员工基本信 息管理 员工基本信息奖惩考核 管理 考勤管理 员工基本信 息管理 员工工资设考勤信息管理 置 计发员工工 资 员工当月工资 2 1.5 数据字典 数据字典是对数据流程图中的各个元素作出详细的说明，是对数据流程图中的数据项、数据结构、数据流、处理逻辑、数据存储和外部实体等。 数据项 编号:222 密码:222 简述:工资用户登录 3 第二章 系统设计 系统设计就是已确定软件系统的总体结构，给出系统中各个组成模块的功能和模块间的联系。系统设计阶段包括总体设计和详细设计。考虑如何实现这个软件系统，直到对系统中的每个模块给出足够的过程性描述。通过适当的设计方法，实现用户对本软件各项功能的要求。这个阶段的主要目的是将系统分析阶段所提出的反映了用户信息需求的系统逻辑方案转换成可以实施的基于计算机与通信系统的物理(技术)方案。其主要任务是从财务工资管理系统的总体目标出发，根据系统分析阶段的逻辑功能的要求，并考虑到经济、技术和运行环境等方面的条件，确定系统的总体结构和系统各组成部分的技术方案，合理选择计算机和通信的软硬件设备，提出系统的实施计划，确保总体目标的实现。 2.1 新系统功能设计 新系统的功能设计是以原系统业务流程和数据流程为依据。为此新系统的功能划分为数据录入、数据查询、报表输出和代码维护四项。 2.2代码设计 代码就是用来一表征客观事物的实体类别，依据属性的一个或一组易于计算机识别和处理的特定符号或记号。它可以是字符、数字、某些特殊符号或他们的组合。 为方便系统的使用与维护，本系统对一些基本数据项的代码格式的进行规范化，举例说明如下。 1) 对于关系模式“建账”中的主键为账号，在本系统中，账号代码采用二位数 字的顺序码表示。 顺序号为:01，02，03。 2)对于关系模式“建账主关系”中的主建账序号，建账序号代码为: 例如，200606280001 表示:2006年06月28日第一次建账。 2.3 系统运行环境与数据库设计 设计原则 1、数据录入和处理的准确性和实时性 数据的输入是否准确是数据处理的前提，错误的输入会导致系统输出的不正确和不可用，从而使系统的工作失去意义。数据的输入来源是手工输入。手工输入要通过系统界面上的安排系统具有容错性，并且对操作人员要进行系统的培训。 在系统中，数据的输入往往是大量的，因此系统要有一定的处理能力，以保证迅速的处理数据。 2、数据的一致性与完整性 由于系统的数据是共享的，在不同的设备类别中，设备是共享数据，所以如何保证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进行严格的约束。 对于输入的数据，要为其定义完整性规则，如果不能符合完整性约束，系统应该拒绝该数据。 3、据的共享与独立性 整个设备发布系统的数据是共享的。然而，从系统开发的角度上看，共享会给设计和调试带来困难。因此，应该提供灵活的配置，使各个分系统能够独立运行，而通 4 过人工干预的手段进行系统数据的交换。这样，也能提供系统的强壮性。 2.4 输入/输出设计 在系统的输入输出设计上遵循的是既满足用户需求又方便用户使用的原则。输入/输出界面的确定都与用户反复沟通，直到用户满意为止。 输入界面的设计不仅考虑数据输入窗口的屏幕格式，而且考虑如何使输入数据的错误率尽可能的小，为此在程序中加入了对输入数据的校验和判断等功能 5 E-R图 人事表 婚姻状况 个人简历 联系电 话 编号 年龄 部门 人事表 身份证号码 姓名 工作年数 职级 文化程家庭住址 度 工资表 事假 病假 应发 保险 福利 其他 工资表 补贴 姓名 奖金 基本工 工龄工资 浮动工资 资 员工奖惩表 员工奖惩 表 备注 姓名 原因 奖励金额 日期 惩罚金 额 6 员工考勤表 员工考勤表 备注 姓名 日期 状态 企业信息 企业信息 企业名称 网站 成立时间 电话 e_mile 传真 实体的关系 员工工资 员工奖惩 员工信息 部门 N:1 员工登记离职 N:1 员工考勤信息 7 第三章 系统实施 3.1数据库的实现 财务工资管理系统涉及到以上关系，在对数据代码设计后，再按照数据字典中 的数据元素说明，确定每个数据的类型和长度，从而使每个关系对应一个关系数据 文件。在本文4.2章节中所述的关系模式，在数据库中分别8张数据库表进行实现。 在数据库中的对应表结构详见表3.1 – 表3.8 表3.1人事表 字 段 名 数 据 类 型 数 据 长 度 编号 文本型(char) 50 姓名 文本型(char) 50 年龄 文本型(char) 50 部门 文本型(char) 50 职级 文本型(char) 50 婚姻状况 文本型(char) 50 文化程度 文本型(char) 50 工作年数 文本型(char) 50 联系电话 文本型(char) 50 个人简历 备用型(char) 100 家庭住址 文本型(char) 50 身份证号码 文本型(char) 50 表3.2工资表 字 段 名 数 据 类 型 数 据 长 度 姓名 文本型(char) 50 基本工资 货币型 50 浮动工资 货币型 50 工龄工资 货币型 100 奖金 货币型 10 补贴 货币型 10 福利 货币型 10 应发 货币型 10 病假 货币型 10 事假 货币型 10 保险 货币型 10 其他 货币型 10 实发 货币型 10 表3.3用户表 字 段 名 数 据 类 型 数 据 长 度 用户名 文本型(char) 50 密码 文本型(char) 50 8 表3.4职工奖惩表 字 段 名 数 据 类 型 数 据 长 度 ID 数值型(int) 10 姓名 文本型(char) 50 奖励金额 文本型(char) 50 惩罚金额 文本型(char) 50 状态 文本型(char) 50 日期 日期型 原因 文本型(char) 50 备注 文本型(char) 50 表3.5职工考勤表: 字 段 名 数 据 类 型 数 据 长 度 ID 数值型(int) 10 姓名 文本型(char) 50 状态 文本型(char) 50 日期 日期型 备注 文本型(char) 50 表3.6企业设置表 字 段 名 数 据 类 型 数 据 长 度 企业名称 文本型(char) 10 电话 文本型(char) 50 传真 文本型(char) 50 e_mile 文本型(char) 50 成立时间 文本型(char) 50 网站 文本型(char) 表3.7学历表: 字 段 名 数 据 类 型 数 据 长 度 学历 文本型(char) 10 表3.8职位表: 字 段 名 数 据 类 型 数 据 长 度 职位 文本型(char) 10 3.2 用户界面的实现 1.登陆界面 人们越来越关心计算机应用系统的人机界面，对于用户来讲，人机界面的就是 系统本身。由于本系统的最终用户是企业单位的仓库管理员、仓管员，而非计算机 专业人员，因此用户界面必须符合他们的使用习惯，满足用户的需求。本系统采用 了菜单式设计，以使用鼠标及键盘操作为主。 系统具体实现:各个模块的实现 9 登陆界面图 登陆界面:检测用户名和密码。 方法:使用ADO连接数据库，通过IF THEN判断是否拥护正确 在命令按钮单击写下连接数据库USER表的判断语句， 在工程引用ADO2.0。 在命令按钮单击写下连接数据库USER表的判断语句 Private Sub Command1_Click() denlu_name = Text1.Text denlu_pass = Text2.Text Dim mycn As New ADODB.Connection Dim myrs As New ADODB.Recordset Set myrs = New ADODB.Recordset mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;" myrs.Open "SELECT * FROM [user] where (user.user)='" + denlu_name + "';", mycn, adOpenKeyset, adLockOptimistic If myrs.BOF = True And myrs.EOF = True Then MsgBox "查无此人", , "登陆信息" Else If myrs("pass") = denlu_pass Then '''''''''''''''''''''''''''''''''''''''''' MsgBox "ok", , "登陆信息" Form2.Show Unload Me ''''''''''''''''''''''''''''''''''''''''''''''''''' Else MsgBox "密码不正确", , "登陆信息" End If 目的是USER表没有该用户，将无法使用本程序如果系统检测到用户名与密码正确， 10 则进入下面界面如图: 用户登录成功界面 如果系统检测到用户名与密码正确，则进入对应的子系统。 2. 主界面 具体实现见图 下面列出的主界面图 登陆成功主界面图 功能选择模块:，进入主界面后可以进行功能的选择 主界面包含几方面的内容,以下一一介绍各个模块的实现: 1基本信息:作用是查看基本的人事信息 员工基本信息录入界面图 通过ADO控件连接到数据库的RS表，通过SQL语句 “SELECT rs.编号, rs.姓名, rs.年龄, rs.部门, rs.职级, rs.婚姻状况, rs.文 化程度, rs.工作年数, rs.联系电话, rs.家庭住址, rs.身份证号码 FROM rs;“ 筛选出全部 11 用TEXT控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性 设为可写。 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 2 工资管理录入，编辑，修改，查询，计算，统计 工资管理录入界面图 通过ADO控件连接到数据库的表工资 用控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 3 企业部门管理录入，编辑，修改，作用是设定可以进入数据库的人员，同时设定 部门。 12 企业部门管理录入图 通过ADO控件连接到数据库的BUMEN表，通过SQL语句 筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各 列显示出数据库的各列。属性设为可写。 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 4 日常管理 考勤加班出差管理图 分为考勤加班出差管理，奖惩考核和员工培训。 13 通过这三个指标的考核确定人员的表现好坏。确定人员的待遇 使用的语句 筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各 列显示出数据库的各列。属性设为可写。 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 6 各种信息的查询 工资查询图 这里就列出组合查询源代码进行说明: Private Sub Command6_Click() ss2 = Text2.Text 设定4个变量 ss3 = Text3.Text ss4 = Text4.Text ss5 = Text5.Text Adodc1.RecordSource = "SELECT * FROM RS where " + ss2 + "='" + ss4 + "' and " + ss3 + "='" + ss5 + "'" Adodc1.Refresh 字段1=变量SS1 值=SS2 字段2=变量SS3 值=SS4 End Sub 7 系统数据的安全保密，设定系统用户 通过ADO控件连接到数据库的USER表，通过SQL语句 “SELECT user.user, user.pass FROM [user];”筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设 11 为可写。 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew 添加记录 End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete 删除记录 End Sub 8、 退出系统模块:退出系统返回WIDNOWS界面。 一个命令即可 Private Sub e_Click() End 9 打印报表。 打印报表图 3.3 与VB的连接 Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种: ?通过使用Visual Basic的 ADO控件。 ?通过使用由Visual Basic提供的专用的直接与数据库相连的接口 运行环境: 硬件接口:支持一般PII或更高档微机、笔记本电脑。 服务器:根据应用的规模，服务器可采用各种专用的服务器。 数据库软件:根据操作系统平台选择ACCESS 2000以上版本的数据库 软件接口:运行与WINDOWS95/98/Me/2000/NT，切具有WIN32 API的操作系统上。 15 第四章 课设总结 课程设计是一个重要的环节，也是检验自己二年来学习成果的重要方法之一。只有认真的、全心全意的为毕业设计付出，才能把握好这个环节，为未来的发展打下一定的基础。 通过这次课程设计，在老师的指导下，我初步掌握了用VB开发软件的方法，我在进行设计软件时遇到了一些困难，于是我在老师的提示下，查资料，上网和网友进行探讨。在此再次感谢指导老师对我的悉心指导与帮助。由于时间仓促，这个软件肯定还有不完善的地方，不足之处恳请各位老师提出批评改进意见。我相信本次毕业设计我为本系统搭下了一个框架，以后我一定在此基础上不断完善它. 本系统通过自己的努力，经过试用证明，系统基本满足人事工资管理方面的需要。实现了人事管理、工资管理、代码维护、等功能，给企业人事管理带来很多方便，在界面上立求做到美观、在操作方面尽量做到满足用户使用习惯。但由于自己水平有限，加上时间有限，还存在很多不足: 1. 目前采用的是单机版，已经不大适应发展趋势。 2. 财务工资管理功能都不够强大，只能满足暂时需要，工资报表打印功能尚 不够全面完善，不能实现动态报表。 3. 无错误处理模块、帮助系统、用户操作权限管理。 我想在以后的工作和学习中继续完善此系统，把该有的功能尽量实现，使系统真正能为企业服务，强大系统的功能。使系统慢慢过渡为B/S体系统结构，满足中小企业人事工资管理的要求。 16 参考文献 [1] 刘炳文. VISUAL BASIC程序设计. 北京:机械工业出版社，2004 [2] 鲁荣江，王立丰. VISUAL BASIC项目案例导航. 北京:科学出版社，2002 [3] 王珊，陈红. 数据库系统原理教程. 北京:清华大学出版社，1998 [4]王兴晶，赵万军等.Visual Basic 软件项目开发实例. 北京:电子工业出版社，2004 [5]刘瑞新，李树东，万朝阳.Visual Basic 程序设计教程. 北京:电子工业出版社，2000 [6]Hector Garcia-Molina,Jeffery D.Vllman, Jennifer Widom. DATABASE SYSTEM IMPLEMENTATION.北京:机械工业出版社，2002 17 附录、部分主要模块的程序代码 一(登陆界面 登陆界面图 Private Sub Command1_Click() mname = Text1.Text pass = Text2.Text Dim mycn As New ADODB.Connection Dim myrs As New ADODB.Recordset Set myrs = New ADODB.Recordset mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;" myrs.Open "SELECT * FROM [user] where (user.user)='" + mname + "';", mycn, adOpenKeyset, adLockOptimistic If myrs.BOF = True And myrs.EOF = True Then MsgBox "查无此人", , "登陆信息" Else If myrs("pass") = pass Then '''''''''''''''''''''''''''''''''''''''''' MsgBox "ok", , "登陆信息" If myrs("jb") = "管理员" Then jb = myrs("jb") End If MDIForm1.Show Unload Me ''''''''''''''''''''''''''''''''''''''''''''''''''' Else MsgBox "密码不正确", , "登陆信息" 18 End If End If End Sub Private Sub Form_DblClick() MsgBox "hello" End Sub Private Sub Form_Load() Dim mname As String Dim pass As String End Sub 二(主界面 主界面图 Private Sub a1_Click() Form9.Show End Sub Private Sub a2_Click() Form4.Show End Sub Private Sub a3_Click() frmTreeview.Show End Sub Private Sub b1_Click() Form10.Show End Sub Private Sub b2_Click() Form5.Show End Sub Private Sub c1_Click() Form6.Show End Sub Private Sub c2_Click() Form11.Show End Sub Private Sub c3_Click() Form23.Show End Sub Private Sub c4_Click() Form17.Show End Sub Private Sub d1_Click() Form12.Show End Sub Private Sub d2_Click() Form7.Show End Sub Private Sub e1_Click() Form8.Show End Sub Private Sub e2_Click() Form13.Show End Sub Private Sub f1_Click() DataReport1.Show End Sub Private Sub f2_Click() DataReport2.Show End Sub Private Sub f3_Click() Form26.Show End Sub Private Sub g_Click() If jb <> "管理员" Then MsgBox "您不是管理员" Else Form3.Show End If End Sub Private Sub h_Click() End End Sub Private Sub MDIForm_Load() Label1.Caption = "欢迎您:" & mname End Sub Private Sub u1_Click() Form16.Show End Sub Private Sub u2_Click() Form18.Show End Sub Private Sub u3_Click() Form25.Show End Sub Private Sub x1_Click() Form2.Show End Sub Private Sub x2_Click() Form15.Show End Sub Private Sub x3_Click() Form16.Show End Sub Private Sub y1_Click() Form14.Show End Sub Private Sub z1_Click() Form19.Show End Sub Private Sub z2_Click() Form20.Show End Sub Private Sub z3_Click() Form21.Show End Sub Private Sub z4_Click() Form22.Show End Sub Private Sub z8_Click() If jb <> "管理员" Then MsgBox "您不是管理员" Else Form24.Show End If End Sub 三(功能模块 1.系统设置 ---用户管理: Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub --企业信息: Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Update End Sub --考勤状态 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub --部门 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub --职位 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub --学历 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub --管理员设置密码 Private Sub Command1_Click() Adodc1.Recordset.Update End Sub 2.人事档案信息 --添加信息 人事档案图 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Recordset.Save End Sub --修改信息 Private Sub Command1_Click() On Error Resume Next Adodc2.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc2.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc2.Recordset.Update End Sub Private Sub DataList1_Click() ss = DataList1.Text Adodc2.RecordSource = "SELECT * FROM rs where 部门='" + ss + "'" Adodc2.Refresh Adodc3.RecordSource = "SELECT * FROM bumen where 部门='" + ss + "'" Adodc3.Refresh End Sub 3.工资信息 --添加信息 添加工资信息图 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub Command4_Click() On Error Resume Next Adodc1.Recordset.Save End Sub Private Sub DataCombo1_Change() bh = DataCombo1.Text Adodc3.RecordSource = "select * from rs where 编号 ='" + bh + "'" Adodc3.Refresh End Sub ,奖罚汇总 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub 4(财务管理 ,考勤加班出差管理 考勤加班出差管理图 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub DataCombo2_Change() bh = DataCombo2.Text Adodc4.RecordSource = "select * from rs where 编号 ='" + bh + "'" Adodc4.Refresh End Sub ,考核奖惩 Private Sub Command1_Click() On Error Resume Next Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() On Error Resume Next Adodc1.Refresh End Sub Private Sub DataCombo1_Change() bh = DataCombo1.Text Adodc3.RecordSource = "select * from rs where 编号 ='" + bh + "'" Adodc3.Refresh End Sub 5(查询 ,按部门查询 Private Sub DataList1_Click() ss = DataList1.Text Adodc2.RecordSource = "SELECT * FROM rs where 部门='" + ss + "'" Adodc2.Refresh Adodc3.RecordSource = "SELECT * FROM bumen where 部门='" + ss + "'" Adodc3.Refresh End Sub --组合查询人事信息 Private Sub Command1_Click() Adodc1.RecordSource = "SELECT * FROM rs" Adodc1.Refresh End Sub Private Sub Command2_Click() ss = Text1.Text ss = "%%" & ss & "%%" Adodc1.RecordSource = "SELECT * FROM rs where 姓名 like '" + ss + "'" Adodc1.Refresh End Sub Private Sub Command3_Click() ss = Text1.Text ss = "%%" & ss & "%%" Adodc1.RecordSource = "SELECT * FROM rs where 部门 like '" + ss + "'" Adodc1.Refresh End Sub Private Sub Command4_Click() ss = Text1.Text ss = "%%" & ss & "%%" Adodc1.RecordSource = "SELECT * FROM rs where 学历 like '" + ss + "'" Adodc1.Refresh End Sub Private Sub Command5_Click() ss = Text1.Text ss = "%%" & ss & "%%" Adodc1.RecordSource = "SELECT * FROM rs where 性别 like '" + ss + "'" Adodc1.Refresh End Sub Private Sub Command6_Click() ss2 = Text2.Text ss3 = Text3.Text ss4 = Text4.Text ss5 = Text5.Text ss4 = "%%" & ss4 & "%%" ss5 = "%%" & ss5 & "%%" Adodc1.RecordSource = "SELECT * FROM rs where " + ss2 + " like '" + ss4 + "' and " + ss3 + " like '" + ss5 + "'" Adodc1.Refresh End Sub Private Sub Command7_Click() Dim mycn As New ADODB.Connection '定义连接 Dim myrs As New ADODB.Recordset '定义记录集 Set myrs = New ADODB.Recordset mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;" myrs.Open "delete from rs_dy", mycn '删除原查询表的记录 myrs.Open "INSERT INTO rs_dy " & Adodc1.RecordSource, mycn, adOpenKeyset, adLockOptimistic '将查询过的记录放在query表 DataReport3.Show End Sub --查询工资 查询工资图 Private Sub Command1_Click() Adodc1.RecordSource = "SELECT * FROM gs_hj " Adodc1.Refresh End Sub Private Sub Command2_Click() ss = Text1.Text Adodc1.RecordSource = "SELECT * FROM gs_hj where 姓名='" + ss + "'" Adodc1.Refresh End Sub Private Sub Command3_Click() ss = Text1.Text Adodc1.RecordSource = "SELECT * FROM gs_hj where 部门='" + ss + "'" Adodc1.Refresh End Sub