管理信息系统课程设计--工资管理信息系统.doc

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