《人事管理系统-计算机网络技术毕业论文.doc》由会员分享，可在线阅读，更多相关《人事管理系统-计算机网络技术毕业论文.doc（50页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 201 届毕业设计说明书 人事管理系统 系 、 部： 计算机与信息科学系 学生姓名： 李 学 强 指导教师： 李桂香 职称：教授 专 业： 计算机网络技术 班 级： 0902 完成时间： 2012-05-18 摘 要计算机技术的发展使其在社会各领域的应用越来越广泛，建立了自己的人事管理系统不仅有助于提高工作效率，也可以防止因使用相同的软件造成消息的泄露。为了在竞争日益激烈的人才供求的市场中求得成功的发展，企业决定采用计算机管理整个人事系统，以提高管理者的水平和员工的整体素质。我们设计这个人事管理系统的目的是在手工管理档案的基础上，利用计算机快捷、存储量大、查找简单等特点，实现了计算机管理档案
2、，力争做到系统的功能完善、界面友好、操作简单，除了满足用户当前的需求还为系统将来可能的发展留出余地。 本系统使用Visual Basic 6.0为开发工具，适合在Windows XP以及Windows 7平台下使用，对硬件环境要求不高。全文共分六章。完全按照软件工程的步骤来实现本系统的。即问题定义、可行性分析、需求分析、总体设计和详细设计。按照设计时的思路，一一进行阐述。关键词：人事档案；数据流图；数据字典；数据库；Visual Basic 6.0ABSTRACTDevelopment of computer technology in all areas of society more wi
3、dely, and set up their own personnel management system not only helps to improve work efficiency, caused by the disclosure of the message can also prevent the use of the same software. In order to achieve a successful development in the increasingly competitive talent market of supply and demand, th
4、e enterprise decided to use a computer to manage the entire personnel system to improve the overall quality of the level of managers and employees.We designed this personnel management system on the basis of the manual management of files, using computer fast, large memory capacity, find and simple,
5、 computer file, an effort to make the system fully functional, friendly interface, simple operation, In addition to meet the current needs of the user to leave room for the system and possible future development.The system using Visual Basic 6.0 development tools, suitable for use under Windows XP a
6、nd Windows 7 platform hardware environment, do not ask. Paper is divided into six chapters. In full accordance with the software engineering steps to implement this system. Problem definition, feasibility analysis, requirements analysis, the overall design and detailed design. Elaborated in accordan
7、ce with the design ideas, one by one. Key words: personnel files； data flow diagrams； data dictionary； database； the Visual Basic 6.0目 录摘 要2ABSTRACT21 开发背景61.1 课题的提出61.2 采用的体系结构71.3 开发方法71.4系统开发的目标71.5开发工具的选择82 需求与系统设计分析92.1 系统的功能需求92.2 初步调查92.3 可行性分析102.4数据字典112.5 系统功能设计112.6 代码设计122.7 数据库设计122.7.1
8、 数据库需求分析132.7.2 数据库结构的实现132.7.3 创建系统数据表格 manrecord132.7.4创建员工基本工资分配表pay142.8 用户活动流程152.9 E-R图表示概念模型163 模块设计实现203.1 界面的设计203.2系统功能模块设计203.3 企业人事信息系统的主窗体213.4 主窗口223.5员工档案模块233.6 员工考勤管理模块。253.7 员工评价263.8 员工调动模块273.9 工资管理模块283.10 登录294 系统实施304.1 程序设计和软件开发工具。305 系统测试315.1使用说明325.2功能测试325.3 测试方法365.4 测试结
9、果376 管理与维护37参考文献39致 谢40附 录：411 开发背景1.1 课题的提出企业人事管理信息系统是一个现代化的企业在竞争中立于不败之地的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段。一直以来使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差，另外时间一长，将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难，而且容易丢失。自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应用的迅猛发展，另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或者根本没有实现原定系统开发目
10、标，或者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困惑着人们的一大问题。现在人们日益深刻认识到，把信息技术应用与应用环境分离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。使用计算机对企业人事信息进行管理，具有着手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业人事管理的效率,也是企业的科学化、正规化管理，与世界接轨的重要条件。因此，开发一个代替手工操作的新型的计算机管理的信息系统对本公司来说刻不容缓，这也是本课题的由来。1.2 采用的体系结构本管理信息系统是基于CS模式结构的MIS
11、体系构建。Clients/Server结构（简称CS结构）是九十年代流行的信息系统结构，在CS结构下，应用系统被分为前台（客户机）和后台（服务器）两部分，其作用分别是：应用处理由客户机完成，数据访问和事务处理由服务器完成。这种方案实现了功能分布，即由客户机端提出查询请求（执行SQL语句），而服务器完成对数据库的查询任务，并把查询结果通过网络返回给客户机 CS模式响应速度快，网络通信负担小，适用于企业内部局域网，在企业内部的集中管理模式中发挥了重要作用。1.3 开发方法 本系统采用结构化生命周期法和快速原型法相结合的方法开发。1.4系统开发的目标本系统大致要做到以下几点：1)操作简便，节省大量人
12、力；2)可以方便的存储员工档案，安全、高效；3)可以迅速计算员工的各种工资费用；4)可以迅速查到所需信息，便于管理。企业要较好的管理其人事信息，就必须要建立完善、准确的原始记录。有关人事信息的原始凭证包括员工基本信息，工资记录、考勤记录、工作评价记录、员工基本信息记录等。1.5开发工具的选择本系统使用VB6.0作为前台设计和SQL Server 2000管理数据库。a 编程环境的选择：Visual BASIC是一种可编程的应用软件，其特点是具有生成功能，用户可方便的设计界面，是目前最为广泛的、易学易用的面向对象的开发工具。它提供给用户一种可以跨越多个软件平台的通用语言，还提供了大量的控件，这些
13、控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性，软件开发人员只要掌握一种核心的语言，而且看到的是相同的用户界面。实现本系统VB是一个相对较好的选择。b 关系型数据库的实现：SQL Server 2000 是Microsoft公司最新开发的大型关系数据库管理系统，具有非常大的关系数据库的创建、开发、设计及管理功能。与以前的版本相比，SQL Server 2000 彻底脱离的了 Sybase，它将数据库连接到 Internet，并通过Web浏览器显示数据操作，具有客户机服务器结构，并与Microsoft公司的其他产品及第三
14、方面产品具有良好的兼容性，能方便的实现无缝操作。此外，SQL Server 2000 还提供了对分布式事务处理的支持，并具有对开发工具的良好支持，能为大型数据库项目提供优秀的企业业绩解决方案。2 需求与系统设计分析2.1 系统的功能需求系统在操作要求方面对用户基本没有限制和约束，以提高软件的简洁性、易行性和实用性。此款软件是基于Visual Basic 6.0而开发的系统，对软件、硬件要求一般，须有能很好地运行Windows XP中文版和Visual Basic 6.0简体中文版的最低硬件环境要求;支撑软件有数据库软件即可。利用现有的技术力量基本可以满足开发系统的要求，实现此款软件的开发，且开
15、发人员的技术水平亦可完全胜任系统开发。2.2 初步调查1) 系统的外部环境。现行的人事管理系统有员工、车间、财务科、人事科、经理之间的工作联系，有各种表单、文件和资金的往来。2) 现行系统的概述。现行系统功能低下，管理水平落后，无人对整个流程负责，工作效率很低，安全性和可靠性也很差。3) 现行系统的重要作用。现行系统担负责管理公司的人事系统，它和公司的员工、各管理部门以及领导是通过频繁的表单和接触以及口头传达来联系的，它所掌握的信息和片面，不具有全局性。2.3 可行性分析可行性是指在当前组织内外的具体条件下，这个信息系统的开发是否具备必要的资源及其它条件。现对本系统的可行性分析如下：1）技术可
16、行性分析：MIS系统技术成熟、可靠，VB6.0开发与老版本兼容性好、SQL Server数据库管理高校稳定、灵活方便、适合现阶段业务规模发展的需要，技术上可行。2）济可行性分析：当前，各单位系统为适应新时期信息发展的需要，紧密注意信息新技术的发展。为加强管理，各单位实现了计算机企业人事管理信息系统管理。因此，系统的硬件资源已经完备，系统开发只需软件成本预算，开发费用大大降低。3）管理上的可行性管理人员已充分认识到使用人事管理信息系统对员工实现规范的计算机管理的重要性，用计算机管理企业人事信息能保证所需要的基础数据准，真实。2.4数据字典数据字典是在数据流程图之上进一步定义和描绘所有数据的一种工
17、具，是对数据流程图的一个补充说明，它清楚的定义与解释了数据流程图上未能表达的内容，同时它能够帮助分析员组织数据，是同用户交谈的极好工具。此外，数据字典记载着每个数据项的关键条目，从中可以检查出个数据元素的内容或漏掉的数据元素。数据字典是描述系统流程图中所有数据流、数据存储、处理功能等卡片的集合，其包括种条目：数据流、文件、数据项和加工。建立完善的数据字典是对所收集、整理数据的一种分析归档方式，为下一步建立数据库和处理数据作准备。2.5 系统功能设计系统开发的总体任务是实现企业人事信息关系的系统化、规范化和自动化，是在系统开发的总体任务的基础上完成的。对本系统的功能进行集中、分块，按照结构化程序
18、设计的要求,得到如下图所示的系统功能模块图。各模块实现的功能解释如下:1) 有关企业员工各种信息的输入，包括员工基本信息、所在部门、工作信息和工作简历等。2) 员工各种信息的查询。3)员工各种信息的修改。4) 考勤信息的输入等。5) 考勤信息的查询。6) 员工工作评价信息的输入。7)员工工作评价信息的查询。8)员工工作评价信息的修改。9) 员工工资信息的输入10)员工工资信息的查询。11)员工工作信息修改等。2.6 代码设计代码是一组有序的数字或字母的排列，是代表客观存在的实体或属性的符号，代码设计就是给系统中某些实体及其属性于相应的编码。这些编码主要是为了对实体的表示、助记和方便检索。代码结
19、构的类型有：顺序码、区间码、助记码。2.7 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生的影响。合理的数据库结构时既可以提高数据存储的效率,保证数据的完整和一致.另外，合理的数据库结构将非常有利于程序的实现。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。2.7.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查
20、有企业人事信息需求的基础上，将得到如下图所示的本系统所处理的数据流程。2.7.2 数据库结构的实现经过前面的需求分析和概念结构设计以后，得到是数据库的逻辑结构。现在就可以在SQL Server 2000数据库系统中实现该逻辑结构。这是利用SQL Server 2000数据库系统中实现该逻辑结构。2.7.3 创建系统数据表格 manrecord表1 系统数据表格2.7.4创建员工基本工资分配表pay表2 工资分配表2.8 用户活动流程系统根据用户权限限制用户活动范围。管理员进入后台设置用户的权限信息，进行人事档案、部门信息和职务信息的维护。员工进入前台，进行人事档案和人事查询检索。图1 数据流程
21、图2.9 E-R图表示概念模型管理员实体的E-R图图 2 管理员实体E-R图企业员工E-R图图3 企业员工基本信息表部门实体E-R图图4部门实体图员工调动实体E-R图图5 员工调动图员工考勤实体E-R图图6 考勤表系统整体的基本的E-R图图7 系统部分图3 模块设计实现3.1 界面的设计本系统的用户界面设计采用Visual BASIC 6.0，他最大的优点是可视性，每个对象都以图形方式显示在界面上，我们不必建立每个对象的程序代码，只需用工具画在界面上。现将本系统的几个主要界面介绍一下。3.2系统功能模块设计按照上述功能进行集中、分块，按照结构化的程序设计的要求，得到如下的企业人事信息管理系统功
22、能模块图：图8 功能模块图3.3 企业人事信息系统的主窗体 这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个在这个窗体上添加所需的控件，创建好的窗体如图所示：图9控件下面对主窗体各选项实现的功能作具体介绍：1)系统设置：该项包括添加用户、修改密码、部门管理、重新登录、系统锁定、退出窗口。2）员工档案包括四个菜单项：添加员工信息、修改员工信息、删除员工信息、员工信息查询。员工基本信息的数据项有员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原工作单位、备注等。
23、3)考勤管理包括四个菜单项：添加考勤信息、修改考勤信息、删除考勤信息、员工考勤查询。包括的数据项有员工所在部门、员工姓名、出勤时间、工序时间、旷工时间、请假时间、早退时间、迟到时间、加班时间、出差时间等。4)工作评价包括四个菜单项：添加工作评价信息、修改工作评价信息、删除工作评价信息、员工工作评价查询。包括的数据项有员工所在部门、员工姓名、员工所在部门、工作业绩、工作态度、业务水平、备注等。5)工资管理包括三个菜单项：计发员工工资信息、修改员工工资信息、员工工资信息查询。包括数据项有员工所在部门、员工姓名、底薪、补贴、奖金、加班、住房补贴、房租、养老金、医疗保险、住房公积金、所得税、实发工资等
24、。6)关于：显示关于信息。3.4 主窗口图10主窗口该窗体实现的是对菜单的编辑，主菜单有系统、员工基本信息、员工考勤管理、员工工作评价管理。下面的子菜单分别实现的是对这些主菜单的具体数据的添加、修改、删除和查询。：3.5员工档案模块创建好的窗体如下所示：图11 员工档案下面对本窗体实现的功能作具体介绍：该窗体分四个部分，左上边实现的是输入员工的基本信息，右上边实现的是输入员工的基本作信息，下边是工作简历，最下边是其它信息。员工的基本信息的数据项有：姓名、部门、性别、生日、籍贯、学历、专业。工作信息的数据项有建参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、职称时间、入党时间。工作简历
25、包含的数据项有：原身份、原职务、原工作单位。其它信息的数据项是：备注，用于输入有关员工的其他备用说明。3.6 员工考勤管理模块。创建好的窗体如下所示：图12基本考勤现将员工考勤窗体介绍一下：基本信息栏可输入员工信息、本月基本信息、调整工资。员工基本信息栏包括部门和姓名；本月基本信息包括考勤年月、本月天数、工休天数和应出勤天数。3.7 员工评价窗口如下：图13员工评价该窗口包括对员工平时工作状况进行输入，如：业绩，态度，水平。3.8 员工调动模块图14员工调动此窗口记录公司内部人员调动记录，包括时间，部门及调动的原因。3.9 工资管理模块创建好的窗体如下所示：图15工资管理该窗体的功能有输入员工
26、的信息、基本工资、代扣项目和工资总计。员工信息栏的数据项是：部门和姓名；基本信息数据栏的数据项是底薪、补贴、奖金、扣考核、房贴和房租；代扣项目栏的数据项有：养老金、医疗保险、住房公积金；工资小计栏的数据项有稅前小计、所得税、实发工资和计发时间。3.10 登录图 16登录界面 为确保资料的安全性，增加的了口令登录，管理员名称： Administrator 口令：admin，以下为流程图：图17 流程图4 系统实施4.1 程序设计和软件开发工具。随着计算机应用水平的提高，软件越来越复杂，同时硬件价格不断下降，软件费用在整个应用系统中所占的比重急剧上升，从而使人们对程序设计的要求发生了变化。在过去的
27、小程序设计中，主要强调程序的正确性和效率，但对于大型程序，人们则倾向于首先强调程序的可维护性、可靠性和可理解性，然后才是效率。目前衡量程序设计质量的指标要求一般有以下几个方面：1)可靠性系统运行的可靠性是衡量系统质量的首要指标。它有两方面的含义：一方面是指系统的安全可靠性，如数据存取、通讯、操作权限等的安全可靠性；另一方面是指程序运行的可靠性。2)实用性实用性是指从用户的角度来审查系统的功能实用、灵活、方便。实用性是系统实施后投入运行的重要保证。3)规范性规范性是指系统功能的划分、书写的格式、变量的命名等都有统一的规范。文档的规范化是今后程序的阅读、修改、维护以及相互交流所必须做到的。4)可读
28、性可读性是指设计的程序结构和命令语句清晰，使其他人容易看懂。可读性是今后维护和修改程序的基础，对于大型的系统软件开发尤为重要，没有可读性的程序就无法修改与维护，也就没有生命力。5)可维护性可维护性是指系统程序的各个组成部分是相互独立的，没有牵一发而动全身的连锁反应。可维护性是和规范性、可读性等指标密切相关的。5 系统测试系统测试是在假定系统中有错误的前提下进行的，通过测试来尽可能地发现在系统分、系统设计和系统实施中存在的错误，也就是系统测试的目的是为了发现和解决系统中可能存在的错误。测试包括对系统的基本功能、系统的效率、系统的可靠性和可操作性等问题所进行的测试。系统测试的目的体现在系统调试的各
29、个步骤中。程序测试，是为了发现程序设计中错误。也就是说，越是早期的错误，往往越是到最后才能发现。所以要非常重视早期的系统分析、系统设计工作，决不能草率行事，不然一旦出现错误，将使系统的开发工作大量返工，造成工期的延误和人力资源的浪费。5.1使用说明企业人事管理系统中的文件应用分为系统管理员和前台管理两类。通过登录界面，验证成功，则系统根据用户权限来分配管理员进入管理界面，而前台进入前台操作界面。管理员单击“添加”，则出现空白输入框，输入员工信息，单击“确定”，出现“数据保存成功”对话框成功添加信息。单击“编辑”，则出现该用户的原始信息，修改要修改的数据。单击“删除”，则弹出“数据修改成功”对话
30、框删除完成。单击“确定”，显示所有的人事档案，单击“添加”则进入编辑界面，可填写人事档案详细信息，添加人事档案。单击“退出登录”则退出系统前台单击“确定”超链接，出现检索窗口，可根据姓名检索，也可再具体填入编号或部门、职务进行更精确的查找。在查询后的人事档案信息列表中单击姓名可查看详细的人事档案信息。5.2功能测试系统运行界面 图21 管理员登陆界面 图22前台管理登陆 图23前台查看员工情况 图24 管理员信息管理表 图25 管理员信息插入界面 图26 前台管理单独查看某个员工界面5.3 测试方法 a.正确性测试正确性测试的目的是验证程序本身的正确性，检查程序能否从正确的输入而得到正确的结果
31、，是否产生了不该出现的结果。此过程可完成测试的大部分工作。在测试时，根据程序的内部逻辑设计，检查程序中的逻辑通路是否按预定的要求正确地工作 b.容错性测试容错性测试是检查软件在异常条件下的行为。容错性好的软件能确保系统不发生无法意料的事故。比较简单的容错性测试通常构造一些不合理的输入来引诱软件出错，例如：（1）输入错误的数据类型 （2）输入定义域之外的数值c. 易用性测试一般认为，如果用户不翻阅手册就能使用软件，那么表明这个软件具有较好的易用性。本系统的功能、性能及其他特征与用户的要求基本一致.5.4 测试结果 达到预期的结果。6 管理与维护企业人事信息管理系统正式投入运行以后，为了让MIS长
32、期高效的工作，必须加强对MIS日常管理。我们把系统交付使用后的变更等工作成为软件维护。MIS运行的日常管理决不仅仅是机房环境和设施的管理，更主要的是对系统每天运行情况、数据输入和输出情况以及系统的安全性与完备性及时如实的记录和处置。这些工作主要有： 系统运行的日常维护。包括数据收集、数据整理、数据录入、及处理结果的整理与分发。此外，还包括简单的硬件管理和设施管理。系统运行情况的记录。整个系统运行情况的记录能够反映出系统在大多数情况下的状态和工作效率，对于系统性能的评价与改进具有重要的参考价值。因此，对MIS的运行情况一定要及时、准确、完整地记录下来。除了记录正常情况外，还要记录意外情况发生的时
33、间、原因与处理结果。记录MIS运行情况是一件细致而又繁琐的工作，从系统开始投入运行就要抓好。系统维护维护是系统生存期的一个重要阶段，也是持续时间最长，工作量最大的一个阶段。因为在软件的使用过程中，用户往往会发现一些在开发时期没有发现的错误；随着环境的变化，用户可能对原来的软件产品提出修改的要求，往往会对原来的软件在性能和功能上提出一些新的要求。所以说软件在交付使用后，还必须做好维护工作，使软件将更加完善，能适应新的环境和要求，延长使用时寿命。 程序的维护。程序维护指根据需求变化后硬件环境的变化对程序进行部分或全部修改。修改时应充分利用原程序，需改后要填写程序修改登记表。并在程序变更通知书上写明
34、新老程序的不同之处。数据文件的维护。数据文件的维护有许多是不定期的，必须在现场要求的时间内维护好。维护是一般使用开发商提供的文件维护程序，也可自行编制专用的文件维护程序。代码的维护。代码的维护应由代码管理小组进行。变更代码应经过详细讨论，确定之后应用书面写清、贯彻。代码维护的困难往往不在代码本身的变更，而在于新代码的贯彻。为此，除了成立专门的代码管理小组外，各业务部门要指定专人进行代码管理，通过他们贯彻使用代码。这样做的目的是要明确管理职责，有助于防止和订正错误。参考文献1 安 忠.管理信息系统实用教程.北京：中国铁道出版社， 2001.62 黄梯云.管理信息系统.北京：清华大学出版社，200
35、4.123 周绪,管丽.SQL Server2000 中文版入门与提高.北京：清华大学出版社， 2003.064 刘炳文,许蔓舒. Visual BASIC 程序设计教程.北京：清华大学出版社，2006.5.85 刘韬，骆娟.Visual Basic 6.0数据库系统开发时例导航.北京：人民邮电出版社，2003.116 丁宝康，董健全.数据库实用教程.北京：清华大学出版社，2001.7 萨师煊，王珊. 数据库系统概论. 第二版. 北京：高等教育出版社，2000.28 刘金岭，冯万利. 张有东主编.数据库原理及应用. 北京：清华大学出版社. 2009.7.9 网上搜索的一些关于数据库VB的资料致
36、 谢经过一个多月的设计和开发，这套管理系统已基本结束。在本次毕业设计中，首先我要感谢李桂香老师，我从指导老师李桂香老师身上学到了很多东西，李老师认真负责的工作态度、严谨治学的精神和深厚的理论水平都使我受益匪浅。无论在理论上还是在实践中，她都给予我很大的帮助，这对于我以后的工作和学习都有一种巨大的帮助。再次我要谢谢对我毕业设计有过帮助的同学和老师们，你们给予我的建议和帮助使我能更快更好的完成这次毕业设计当我回顾做毕业设计的这段时间，我发现自己收获了很多，也成长了很多，懂得了如何去学习以前未曾学过的新思维新方法，懂得了如何去多方位地查找资料，完善和创新一些旧的思维方式，懂得了如何同老师和同学交流和
37、协作 相信这次毕业设计的体验将成为今后我们更多更广学习中的奠基石。今后的工作中，我一定要充分运用自己所学知识，并在工作中不断学习和完善，充分发挥知识的作用，为祖国的腾飞和发展贡献自己的力量。附 录：主界面源代码：Option ExplicitAPI函数定义Private Declare Function HtmlHelpA Lib hhctrl.ocx (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As Long) As LongConst HH_DISPLAY_
38、TOPIC = &H0Const HH_DISPLAY_INDEX = &H2Const HH_HELP_CONTEXT = &HFConst HH_DISPLAY_SEARCH = &H3Const HH_DISPLAY_TEXT_POPUP = &HEPrivate Sub CmdTool_Click(Index As Integer)Select Case Index Case 1 Call mnuAdduser_Click Case 2 Call mnuReLogin_Click Case 3 Call mnuExit_Click Case 5 Call mnuAddRecord_Cl
39、ick Case 6 PopupMenu mnuQueryInfo /弹出菜单 Case 8 Call mnuSystemHelp_Click Case 9 Call mnuSysKey_Click Case 10 PopupMenu mnuReportEnd SelectEnd SubPrivate Sub CmdTool_DropDownClick(Index As Integer)Select Case Index Case 6 PopupMenu mnuQueryInfo /弹出菜单 Case 10 PopupMenu mnuReportEnd SelectEnd SubPrivate
40、 Sub MDIForm_Load()WinXPMain.InitSubClassingStaBar.Panels(1).Text = 今天是： & Format(Date, dddddd) /MDI窗体加载时给状态栏赋值StaBar.Panels(2).Text = 当前用户： & UserNameStaBar.Panels(3).Text = 用户权限： & GroupStaBar.Panels(4).Text = 登录时间： & Time()End SubPrivate Sub mnuAboutAuthor_Click()frmAbout.ShowEnd SubPrivate Sub m
41、nuAddCheck_Click()FrmCheck.ShowEnd SubPrivate Sub mnuAddComment_Click()FrmWorkComment.ShowEnd SubPrivate Sub mnuAddMove_Click()FrmMoveInfo.ShowEnd SubPrivate Sub mnuAddRecord_Click()FrmRecord.ShowEnd SubPrivate Sub mnuAdduser_Click()FrmAddUsers.ShowEnd SubPrivate Sub mnuCheckR_Click()DataRepCheck.Sh
42、owEnd SubPrivate Sub mnuCheckReport_Click()mnuCheckR_ClickEnd SubPrivate Sub mnuClose_Click()On Error GoTo ErrUnload /错误捕捉 Unload Me.ActiveForm /关闭活动窗体Exit SubErrUnload:MsgBox 当前没有活动窗体, , 关闭窗口End SubPrivate Sub mnuCommentR_Click()DataRepWorkComment.ShowEnd SubPrivate Sub mnuDeleteCheck_Click()FrmChe
43、ck.ShowEnd SubPrivate Sub mnuDeleteComment_Click()FrmWorkComment.ShowEnd SubPrivate Sub mnuDeleteMove_Click()FrmModifyMove.ShowEnd SubPrivate Sub mnuDeleteRecord_Click()FrmRecord.ShowEnd SubPrivate Sub mnuDeptManage_Click()FrmDeptManage.ShowEnd SubPrivate Sub mnuExit_Click()If MsgBox(确定要退出系统吗？, vbIn
44、formation + vbYesNo, 退出系统) = vbYes Then End 退出系统End IfEnd SubPrivate Sub mnuFindCheck_Click()mnuQueryCheck_ClickEnd SubPrivate Sub mnuFindComment_Click()mnuQueryComment_ClickEnd SubPrivate Sub mnuFindMove_Click()mnuQueryMove_ClickEnd SubPrivate Sub mnuFindPay_Click()mnuQueryPay_ClickEnd SubPrivate Sub mnuFindRecord_Click()mnuQueryRecord_ClickEnd SubPrivate Sub mnuModifyCheck_Click()FrmCheck.ShowEnd SubPrivate Sub mnuModifyComment_Click()FrmWorkComment.ShowEnd SubPrivate Sub mnuModifyMove_Click()FrmModifyMove.ShowEnd SubPrivate Sub mnuModifyPWD_Click()FrmModifyPassW