[毕业设计精品]人事管理信息系统设计与实现 VB

1、目录 1 引言 . 2 系统调查与可行性研究 . 2.1 初步调查. 2.2 可行性研究. 2.3 社会可行性 . 3 系统分析 . 3.1 业务流程分析. 3.2 数据流程分析. 3.3 数据字典. 4 系统设计 . 4.1 功能结构设计. 4.2 数据库设计. 4.3 代码设计 . 4.4 输入输出设计 . 4.5 系统配置设计 . 5 结束语 . 致 谢 . 参考文献 . 附录： 部分程序代码 1 引言引言 随着计算机技术的飞速发展，计算机在各种单位机构管理中应用的普及，管 理信息系统的开发在强调管理、强调信息的现代社会中也显得越来越重要。因此， 利用计算机支持单位高效率地完成人事管理的

2、日常事务，是适应现代各种单位机 构制度要求、推动各种单位机构人事管理走向科学化、规范化的必要条件。 在当今的信息社会，随着信息的不断增长和企业对信息的要求，信息管理技 术随之出现。企业人事管理信息系统是一个现代化的企业在竞争中立于不败之地 的必要部分，它能够为查询人事信息提供充足的信息和快捷的查询手段1。一直 以来使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率 低、保密性差，另外时间一长，将产生大量的文件和数据,这对于查找、更新和维 护都带来了不少的困难，而且容易丢失。自 20 世纪 50 年代将计算机引入数据处 理以来，历经管理信息系统发展的各个阶段。一方面是信息技术应

3、用的迅猛发展， 另一方面，许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了，或 者根本没有实现原系统的开发目标，而把计算机用作了打字机。这是长期以来困 惑人们的一大问题2。现在人们日益深刻认识到，把信息技术应用与应用环境分 离是办不到的。管理信息系统根本不仅是技术系统，而且是社会系统。 使用计算机对企业人事信息进行管理，具有手工管理所无法比拟的优点。例 如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。 这些优点能够极大地提高企业人事管理的效率,也是企业的科学化、正规化管理， 与世界接轨的重要条件3。 因此，开发一个代替手工操作的新型的计算机管理的信息系统对保定隆

4、达铝 业有限公司来说刻不容缓，这也是本课题的由来。 本论文就是以 visual basic 6.0 为前台和 access 2003 为后台等软件作为 开发工具，以各种单位机构为对象，开发一个从某种程度上能满足中小型机构对 人事信息管理的要求的“人事管理系统” 。本系统具有数据管理和企业事务管理功 能。使用该系统，可以方便地进行系统管理，基础数据管理，人事档案管理，考 勤管理，数据库管理，并且带有备忘录功能，还能够快捷地查询公司员工的情况， 方便企业高层领导对该企业人力资源的现状有个比较全面的认识，也方便他们的 管理和人员调动，可辅助企业领导决策科学化，从而大大减少了工作量，提高了 工作效率。

5、本课题是辅助企业管理的系统，拟采用的开发平台为 windows 平台， 系统所采用的开发工具为 visual basic 6.0 和 access 2003。 2 系统调查与可行性研究系统调查与可行性研究 在系统的开发前期对系统进行可行性分析是十分必要的一个环节，这对于保 证资源的合理使用，避免浪费是十分必要的，也是项目一旦开始以后能顺利进行 的必要保证。信息系统的建设是一项投资大，时间长的复杂工程 ，可行性研究更 为必要，也更复杂，更困难。 “可行性”是指在当前情况下，企业研制这个信息系 统是否有必要，是否具备必要的条件。可行性的含义不仅包括可能性，还包括必 要性，合理性4。 2.1 初步调

6、查 随着科技日新月异的发展，网络的更加成熟，以及企业规模的扩大，越来越 多的企业对自己员工的情况也开始使用计算机进行自动化的管理5。河北威远生 物化工股份有限公司也正需要一个这样的人事管理信息系统，因此，开发一个操 作方便、功能适合的管理系统，提高威远生化的管理效率已成为当务之急。 经过调查我了解到河北威远生物化工股份有限公司的组织机构图如图 2.1 所 示： 图 2.1 河北威远生物化工股份有限公司组织机构图 目前，该公司在人事管理方面主要还是手工操作为主，不仅办公效率低，容 易出错，而且还需要很多的专门人员从事这项工作。这对于公司来讲无益于长远 的发展，为了改善这方面的管理，该公司需要引进

7、一套人事管理系统。 人事管理系统是一个面向企业人事人员，为其提供服务的综合信息管理系统。 人事人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。 公司人事基础数据信息、人员的个人档案信息、系统管理以及考勤管理和数据库 管理等情况都记录在人事系统里进行管理。 2.2 可行性研究 可行性是指在当前组织内外的具体条件下，这个信息系统的开发是否具备必 要的资源及其它条件。可行性，是指在当前情况下，设计开发这个系统是否有必 要，是否具备必要的条件，它不仅包括必要性，还包括合理性。系统的可行性分 析，是针对设计一个系统，它的设计是否存在内外部的必要条件，包括技术上、 经济上、人力资源以及组

8、织管理上的必要条件，同时还要分析在目前条件下是否 有必要设计这样一个系统。 随着计算机技术、网络技术和信息技术的发展，越来越多地改善着现代人的 观念。办公自动化系统是计算机技术和网络迅速发展的一个办公应用解决方案， 它的主要目的是实现信息交流和信息共享，提供协同工作的手段，提高办公的效 率，让人们从繁琐的有纸办公中解脱出来。目前，国内人事信息管理系统的开发 技术基本成熟；主要原因在于人事信息管理系统本身具有业务清晰、数据处理规 范等许多优点，为其实现计算机信息化提供了必要的优越条件；加上近十年来计 算机技术的飞跃发展，以及国内各应用单位的高度重视，人事信息管理系统在国 内基本上已进入了普及应用

9、的阶段。国内近 90%以上的应用计算机及开发管理信 息系统的公司和单位均开发并运行了人事信息管理系统，其他没有和正准备开发 计算机应用或开发管理系统的公司和单位，也把人事信息管理系统作为其应用与 开发的首要目标。加上国家劳动主管部门及国内计算机应用开发商的共同努力， 国内目前已有多种通用的人事信息管理系统软件供应用单位选择使用，而且还有 多种人事信息管理系统开发通用工具供用户开发自己的人事信息管理系统。应该 说，人事信息管理系统的开发与应用在国内已进入相对成熟期。 为解决这一问题，企业在更新硬件的同时，根据实际状况，设计出这款企业 人事管理系统。这款企业人事管理系统主要有 5 个功能部分组成，

10、分别是： 1） 系统管理功能 2） 员工信息管理功能 3） 工资管理功能 4） 数据管理功能 5） 用户管理功能 主要实现企业人事信息的管理查看，员工调动管理，以及员工薪资管理等功 能。 经过分析，我们选用微软公司的 visual basic 6.0 和 access 2003 作为开发 工具，利用其提供的各种面向对象的开发工具，开发了这套企业人事信息管理系 统。首先,在短时间内建立系统应用原型；然后，对初始原型系统进行需求迭代， 根据需求不断修正和改进，直到形成用户满意的可行系统。 .1 技术可行性技术可行性 1） 硬件、软件 要求不高，目前市场上的一般计算机软硬件资源均能满

11、足系统开发要求。其 中运用的主要软件有 photoshop,acdsee 等，数据库采用 access 2003。 2） 维护操作 工作方便，后台操作快截明了，操作人员可以在短时间内完全掌握维护技术。 .2 经济可行性经济可行性 1）资金可得性 由于系统开发并不复杂，操作起来也比较简单，只需一些基本的编辑软件，另外 具备网络中心的一些资源优势，因此开发费用较低。 2）经济合理性 由于该系统用于企业工作的大部分信息发布和传递工作，不仅能够节省大量的人 工信息传递任务，提高了工作效率，更加有利于整个企业各部门之间的无纸化办 公的推广。 2.3 社会可行性 网络安全技术的不断提升，网

12、络管理人事在实际运用中越来越被企业或个人 所接受（这些都可以在实际生活中找到材料和数据。 ） ，并且在不断的提升和表现 它在实际企业活动中的经济价值，这个经济价值也是当前的企业所期望看到的。 人事管理工作覆盖面广,涉及到机构设置、人员调配、员工培训、考核、奖惩、工 资福利待遇等多个方面。人事管理活动中产生的大量数据和信息,如:各级机构的 层次构建,职工的自然状况,职称、职务变动情况,考核培训结果,专业技术工作及 主要业绩以及针对这些数据进行的各类统计报表的制作和综合分析等。对如此多 的数据、信息的管理、开发及运用,都必须在规范化和标准化的基础上实现,借助 于网络化管理手段能够满足这些要求。 3

13、 系统分析系统分析 3.1 业务流程分析 业务流程分析是对业务功能分析的进一步细化。业务流程分析的目的是：形 成合理、科学的业务流程。根据人力资源管理业务的流程特点，绘制其业务流程 图如图 3.1： 有关部 门 人事管理信息系统 工资查询单 人员变动单人员查询单 人员变动单 人员资料工资单 管理员 一般用 户 图 3.1 业务流程图 3.2 数据流程分析 数据流程分析就是把数据在现行系统内部的流动情况抽象出来，舍去了具体 组织机构、信息载体、处理工作等物理组成，单纯从数据流动过程来考察实际业 务的数据处理模式。数据流程分析主要包括对信息的流动、变换、存贮等的分析 。其目的是要发现和解决数据流动

14、中的问题。根据人力资源管理业务数据流动的 特点，绘制其数据流程图如图 3.2： 有关 部门 数据存档 工资基本表 登记处理 登记成立 一般 用户 管理 员 管理 员 管理 员 基础档案表 登记处理 登记成立 人员变动表 登记处理 登记成立 图 3.2 数据流程图 3.3 数据字典 数据字典是关于数据的信息的集合，也就是对数据流图中包含的所有元素的 定义的集合。为了对设计了传统中的各个元素作出详细的说明，有必要建立数据 字典。数据字典的主要内容是对数据流程图中的数据项，数据结构，数据流，处 理逻辑，数据存储和外部实体等六个方面进行具体的定义。 .1 数据项数据项 1）数据项名称：

15、 用户名 简述：用户的名字，没有重复，可以唯一标识每一用户 类型：文本 长度：50 2）数据项名称：用户密码 简述：用户的密码，用来证验登陆的用户是否合法。 类型：文本 长度：50 3）数据项名称：是否管理员 简述：描述是否系统管理员 类型：是/否 取值范围：真/假 .2 数据结构数据结构 1）数据结构名称：用户名和密码信息 组成：用户名，密码，是否管理员 2)数据结构名称：民族档案设置 组成：民族编号，民族名称 3）数据结构名称：职工类型设置 组成：职工类型编号，职工类型名称 4）数据结构名称：文化程度设置 组成：文化程度编号，文化程度名称。 5）数据结构名称：政治面貌设置

16、组成：政治面貌编号，政治面貌名称 6）数据结构名称：部门类别设置 组成：部门类别编号，部门类别名称 7）数据结构名称：工资类型设置 组成：工资类型编号，工资类型名称 8）数据结构名称：职称类别设置 组成：职称类别编号，职称类别名称。 9）数据结构名称：职务类别设置 组成：职务类别编号，职务类别名称 10）数据结构名称：职工信息 组成：职工编号，职工性别，职工年龄，民族，婚姻状况，家庭电话，电子邮箱， 手机，籍贯，地址，毕业学校，职称，入职时间，职称类别，部门类别，职务类 别。 11）数据结构名称：职工的家庭成员 组成：编号，员工号，成员姓名，关系，出生日期，工作单位，担任职务，政治 面貌 4

17、系统设计系统设计 4.1 功能结构设计 根据系统的总体要求及设计思想，结合上面的分析，设计得出的人事信息系 统模块 。主要由以下几个功能模块组成。 具体实现步骤为： 1) 系统 e-r 图如图 4.1。 用户 设置 民族档案 案 文化程度政治面貌 职称类别 工资类别 部门类别 职工类型 职务类别 用户名 职务名称 密码 职务编号 民族编号民族名称 文化程度编号 编号 文化程度名称工资类别编号工资类别名称 图 4.1 系统 e-r 图 2) 系统功能模块图如图 4.2。 企业人事管理系统 档案操作帮助 登 录 用 户 管 理 关 于 系 统 基 础 档 案 工 资 管 理 系统管理用户管理数据管

18、理 密 码 修 改 系 统 帮 助 公 司 信 息 单 位 设 置 系 统 参 数 数 据 备 份 数 据 还 原 图 4.2 系统功能模块图 3) 系统图如图 4.3。 管理员 p1 后台 管理 d1 管理信息表 d2 基础数据表 d3 人员基本表d4 工资基本表d7 人员详细表 p2 前台 管理 一般访问者 d5 人员查询表 d6 工资查询表 图 4.3 系统图 4) 系统流程图如图 4.5。 y y n y y n y y n y y n y y n 图 4.5 系统流程图 用户登录 查询管理员工基本信息，工 资管理，人员调动 档案操作 系统设置 查看公司信息，单位设置， 系统参数设置

19、用户管理 登录用户权限管理，密码修 改 数据管理 数据备份，数据还原 帮助 系统使用帮助，关于系统信 息 退出 4.2 数据库设计 数据库在一个信息管理系统中占有非常主要的地位，数据库结构设计的好坏， 将直接对应用系统的效率以及实现的效果产生影响，合理的数据库机构设计可以 提高数据库存储的效率，保证数据的完整和一致,同时也有利于程序的实现。 设计数据库时应考虑到用户各方面的需求，包括现有的以及将来的可能增加 的需求。同时，也要考虑到由于用户错误的数据操作所可能产生的问题，以及解 决此类问题的办法。 用户的需求体现在各种信息的提供、保存、更新和查询上。这就要求数据库 系统能够充分满足以上要求，根

20、据系统用户的需求，结合数据库自身的条件和一 般的信息管理系统的需求，利用 access 数据库设计企业人事信息管理系统所需的 数据库项和数据结构如下： 1）基础档案表如表 4-1。 表 4-1 基础档案表 2）参数设置表如表 4-2。 表 4-2 参数设置表 3）部门设置表如表 4-3。 表 4-3 参数设置表 4）个人简历表如表 4-4。 表 4-4 个人简历表 5）个人荣誉表如表 4-5。 表 4-5 个人荣誉表 6）家庭信息表如表 4-6。 家庭信息表如表 4-6 家庭信息表如表 4-6 7）工资发放表如表 4-7。 表 4-7 工资发放表 8）工资管理表如表 4-8。 表 4-8 工资

21、管理表 9）公司信息表如表 4-9。 表 4-9 公司信息表 10）系统用户表如表 4-10。 表 4-10 系统用户表 4.3 代码设计 代码是代表事物名称，属性，状态等的符号，为了便于计算机处理，一般用 数字，字母或它们的组合来表示。本系统需设计的代码是员工工号，根据公司员 工人数和人员特点，决定选用顺序码编制员工工号。具体设计如下： 员工工号由工作单位识别码（公司代码、部门代码） ，个人信息识别码 (入司 年码、入司月码、入司序号)共 10 位数字构成，其排列顺序为： 工作单位识别码个人信息识别码 公司代码部门代码入司年码入司月码入司序号 xxxxxxxxxx 其中“工作单位识别码”是各

22、子公司各部门在全集团内唯一标识符，由四位数字组成。前 两位数字是“公司代码”，后两位是“部门代码”。而“个人信息识别码”由六位数字组成，前两位 是“入司年码”、中间两位是 “入司年码”、后两位位是“入司序号”。 4.4 输入输出设计 系统设计的过程和系统实施的过程恰好相反，并不是从输入设计到输出设计， 而是从输出设计到输入设计，这是因为输出设计直接和用户需求相联系，设计的 出发点应该是保证输出方便地为用户服务，正确地反映用户所需要的有用信息。 1）输出设计 输出设计的主要目的是满足用户和管理者对数据和信息的要求。输出设计要考虑 的主要内容有： 输出信息名：该输出信息的名称。 输出功能：该输出信

23、息起什么作用。 输出周期：多长时间输出一次。 输出期限：每次输出的期限 。 输出媒体：输出信息记录媒体名称。 输出方式：批输出还是实时输出。 输出用纸：专用纸或通用纸。 传递方式：邮递、电话、传真、电子邮件或人工传递。 使用后的处理：保存、销毁或上缴。 输出用文字：英文、汉字、汉语拼音。 输出信息校验：检验输出信息的正确性，包括确定校验内容、检验方法和校验 后的处理。 保密要求：有或无。 输出项目名称：构成输出信息的每个数据项。 本系统中所选用的输出方式有三种：查询显示输出、报表打印输出和图形显 示输出。查询显示输出的信息主要是各种查询结果，这是一种实时性要求很高的 输出，输出设备是显示器。报

24、表打印输出的信息主要是各种报表形式的数据信息， 如工资发放信息，上级部门要求上缴的统计数字等。图形显示输出具有前两者所 无法比拟的优越性，它直观，可比，易于理解，结论明显。 例如图 4.6 显示输出： 4.6 职工工资 excel 表 2）输入设计 在计算机信息系统中，输入数据的正确性决定着整个系统质量的好坏。若输 人数据缺精确性和适时性，即使计算和处理十分正确，也不可能得到可靠的输出 信息。最佳的信息系统始于最佳的输入系统。根据输出信息的要求，输入设计要 考虑的主要内容如下: 输入信息名：该输入信息的名称。 输入功能：该输入信息起什么作用。 输入周期：多长时间输入一次。 输入期限；每次输入的

25、期限。 输入媒体：输入信息记录媒体名称。 输入方式：批输入还是实时输入。 收集方式：原始记录如何收集。 原始信息名：与本输入对应的用户原始凭证。 输入项目名：构成输入信息的每个数据项名称。 输入用文字：英文、汉字或汉语拼音。 本系统采用的输入方式主要是键盘输入，便于查询和检索系统。因此，友好 的输入界面变得非常重要，必须保证用户在输入时方便、安全、高效。例如新增 职工信息输入如图 4.7： 图 4.7 新增职工信息输入图 随着信息技术的发展和各种新概念不断地引入管理(如电子化管理等)，简单 的键盘输入必将不能适应快节奏的运营方式。因此有必要引进先进的技术手段， 使系统实现联机输入，将数据信息以

26、报文的形式从各用户终端送到处理中心。 这是系统今后扩充时要考虑的， 另外，还要考虑数据输入格式，主要要求如下: 输人格式应保证输入精度。 输人格式应尽量减少填写量，便于填写，便于校对。 同意规格和代码，按标准格式输入。 简化和减轻输入负担。 例如在键盘输入过程中，应保证画面大小和屏幕大小相一致，各种凭证的输入应 考虑输入格式和凭证格式相一致。 数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检 验。输人数据检验是保证输入数据正确的重要措施。通过多种措施，对全部输人 数据设想其可能出现的差错，对之进行校验，对校验中查到的有错数据，考虑修 改及补救办法。数据校验的办法有两类：静

27、态检验(人工复核)和动态检验(计算机 程序检验)。 在本系统中，进行输入数据检验的具体做法要求如下： (1)严格复核制度，未经复核的凭证、单据不得上机录入。 (2)重复校验，经过复核的数据、凭证还应经另外的输人人员进行检验。 (3)人工静态检验，在输入的同时，由、计算机显示输入的数据，然后与原始单据 进行对比，查找错误。 (4)程序检验，根据输入的数据类型、格式、逻辑性等进行检验，具体内容包括： 数字检验：检查数字项目内容中是否出现非数字数据。 界限检验：检查数据项目是否超过规定的数据范围，如数据位数、数值范围等。 逻辑检验：检查数据的合理性、逻辑性是否符合要求(例如月份不会超过 12， 更不

28、会是负数)。 格式检验：检查数据记录中各数据项的位数和位置是否符合预先规定的格式。 例如工资定为 4 位整数、2 位小数，检查最高位是不是空格或数字等。 字符检验：检查全部由字母组成的数据(如姓名)中是否出现非字母字符，或检 查该数据长度和格式是否符合规定。 对于检查出的输人数据错误，应该以恰当的形式报告出来，或打印错误报告，或 实时提出错误警示和修改提示等，帮助用户尽快正确输入数据。 4.5 系统配置设计 多种多样的的计算机技术产品为信息系统的建设提供了极大的灵活性，使我 们可以根据应用的需要选用不同生产商的性能各异的软硬件产品，但同时员工系 统设计工作带来了新的困难，那就是面对众多厂家生产

29、的产品如何做出最明智的 选择。本系统的主要设计依据是： 1）系统的吞吐量 2）系统的响应时间 3）系统的可靠性 4）系统的处理方式 5）地域范围 6）数据管理方式 根据以上六大依据，本系统最低的计算机硬件配置为： 1ghz 32 位 (x86) 或 64 位 (x64) 处理器） 。 1 gb 系统内存。 directx 9 图形支持，wddm 驱动程序，至少 128 mb 图形内存，pixel shader 2.0 和 32 位/像素。 40 gb 硬盘容量，15 gb 可用空间。 dvd-rom 驱动器。 音频输出能力。 internet 访问能力。 软件配置为：windows 2000

30、以上，access 2003,visual basic 6.0 中文版 另外，其他系统配置根据自身公司的需要进行选择。 5 结束语结束语 本文介绍采用vb结合access数据库开发的企业人事管理信息系统，提供了用 户的权限管理、人事档案的查询、添加、删除、数据的导人导出、工资的管理以 及数据库的备份和恢复等功能，操作简单明了，与access和excel联合办公紧密， 方便人事管理部门进行人事档案查询和管理，可大大提高工作效率，将会使企业 的人事管理工作步人崭新的台阶。本统在实际的使用过程中还有很多可以完善的 地方，譬如各种人事档案数据的汇总、统计能和数据报表的制作等。不足的是， 由于系统所采用

31、的数据库为access，虽使用起来比较方便，但网络化程度还不高 且只能用于中小型企业。总之，该程序可以满足目前的人事管理的需求，随着人 事管理工作规范化、信息化、网络化的发展趋势，其应用将会越来越广泛。 致致 谢谢 在这次管理信息系统的课程设计中，曾遇到过不少问题，单靠我个人的努力， 很难按时完成该课程设计。在此，我衷心感谢我的指导老师王艳华。王艳华 老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我获益非浅。 另外，还要感谢学校领导、辅导员、各位同学对我们的关怀、帮助，为我们提供 了良好的设计环境以及各方面的支持。 参考文献参考文献 1 黄梯云管理信息系统高等教育出版社，2009

32、2 郑阿齐.visual basic 实用教程. 电子工业出版社 ，2004 3 张晓黎.visual basic+sql server 数据库应用系统开发与实例.人民邮电出版社， 2003 4 秦寿康.综合评价原理和应用.电子工业出版社，2000.3 5 彭运芳.人力资源开发的层次分析模型.系统工程，2004（第 22 卷，第 4 期： 7173） 6 张林.企业业绩评价的战略沟通功能研究.天津大学学报（社会学版）， 2004（第 6 卷， 第 2 期：146149） 7 单薇.利用模糊综合评价实现企业水平的量化分析.数学的实践和认识， 2002（第 32 卷，第 2 期：206210） 8

33、 陈捷.绩效评估研究的新进展.南京师范大学（社会科学版），2003（第 3 期： 8185） 9 李昕，刘连臣，吴澄.一种基于目标规划的 ahp 参数学习算法.清华大学学报 （自然科学版），2004（第 44 卷，第 4 期：466469） 附录：部分程序代码附录：部分程序代码 1 系统的登录 private const ws_ex_layered = &h80000 private const gwl_exstyle = (-20) private const lwa_alpha = &h2 private const lwa_colorkey = &h1 private declare f

34、unction getwindowlong lib user32 alias getwindowlonga (byval hwnd as long, byval nindex as long) as long private declare function setwindowlong lib user32 alias setwindowlonga (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long private declare function setlayeredwindowattribu

35、tes lib user32 (byval hwnd as long, byval crkey as long, byval balpha as byte, byval dwflags as long) as long dim alpha as integer 声明变量 private sub cmddl_click() if me.combo1.text = then msgbox 请选择登陆用户！, 48, 错误提示 exit sub end if call openconn sql = select * from 系统用户表 where czy= & me.combo1.text & r

36、s.open sql, cn, 1, 1 if zhuan(txtpass.text) = iif(trim(isnull(rs.fields(pass), , trim(rs.fields(pass) then gczy = rs.fields(czy) gczyqx = rs.fields(czyqx) call closeconn mdifrm.show unload me else msgbox 密码错误！, 48, 错误提示 end if end sub private sub cmdtc_click() end end sub private sub form_initialize

37、() call initcommoncontrols xp 效果 end sub private sub form_load() me.shape1.top = me.top 外边框 me.shape1.left = me.left me.shape1.width = me.scalewidth me.shape1.height = me.scaleheight - dim ret as long ret = getwindowlong(me.hwnd, gwl_exstyle) ret = ret or ws_ex_layered setwindowlong me.hwnd, gwl_exs

38、tyle, ret timer1.interval = 20 - call openconn sql = select czy from 系统用户表 rs.open sql, cn, 1, 1 do while not rs.eof me.combo1.additem rs!czy rs.movenext loop call closeconn call openconn sql = select 公司名称 from 公司信息 rs.open sql, cn, 1, 1 if rs.recordcount 0 then ggsmc = rs!公司名称 else ggsmc = 公司信息未知 e

39、nd if call closeconn end sub private sub timer1_timer() alpha = alpha + 5 if alpha 255 then timer1.enabled = false exit sub end if setlayeredwindowattributes me.hwnd, 0, alpha, lwa_alpha end sub 2 基础档案查询 private const ws_ex_layered = &h80000 private const gwl_exstyle = (-20) private const lwa_alpha

40、= &h2 private const lwa_colorkey = &h1 private declare function getwindowlong lib user32 alias getwindowlonga (byval hwnd as long, byval nindex as long) as long private declare function setwindowlong lib user32 alias setwindowlonga (byval hwnd as long, byval nindex as long, byval dwnewlong as long)

41、as long private declare function setlayeredwindowattributes lib user32 (byval hwnd as long, byval crkey as long, byval balpha as byte, byval dwflags as long) as long dim alpha as integer 声明变量 private sub cmddl_click() if me.combo1.text = then msgbox 请选择登陆用户！, 48, 错误提示 exit sub end if call openconn s

42、ql = select * from 系统用户表 where czy= & me.combo1.text & rs.open sql, cn, 1, 1 if zhuan(txtpass.text) = iif(trim(isnull(rs.fields(pass), , trim(rs.fields(pass) then gczy = rs.fields(czy) gczyqx = rs.fields(czyqx) call closeconn mdifrm.show unload me else msgbox 密码错误！, 48, 错误提示 end if end sub private s

43、ub cmdtc_click() end end sub private sub form_initialize() call initcommoncontrols xp 效果 end sub private sub form_load() me.shape1.top = me.top 外边框 me.shape1.left = me.left me.shape1.width = me.scalewidth me.shape1.height = me.scaleheight - dim ret as long ret = getwindowlong(me.hwnd, gwl_exstyle) r

44、et = ret or ws_ex_layered setwindowlong me.hwnd, gwl_exstyle, ret timer1.interval = 20 - call openconn sql = select czy from 系统用户表 rs.open sql, cn, 1, 1 do while not rs.eof me.combo1.additem rs!czy rs.movenext loop call closeconn call openconn sql = select 公司名称 from 公司信息 rs.open sql, cn, 1, 1 if rs.

45、recordcount 0 then ggsmc = rs!公司名称 else ggsmc = 公司信息未知 end if call closeconn end sub private sub timer1_timer() alpha = alpha + 5 if alpha 255 then timer1.enabled = false exit sub end if setlayeredwindowattributes me.hwnd, 0, alpha, lwa_alpha end sub 3 用户管理 dim qx as string 权限 private sub check1_cli

46、ck(index as integer) end sub private sub cmdbc_click() 保存按钮 if trim(me.txtczy.text) = then msgbox 登陆名不能为空！, 48, 提示 exit sub end if if me.cmdbc.caption = 新增 then for i = 0 to me.list1.listcount if trim(me.txtczy.text) = me.list1.list(i) then msgbox 该用户已经存在！, 48, 提示 exit sub end if next call openconn sql = select * from 系统用户表 rs.open sql, cn, 3, 3 rs.addnew rs!czy = trim(me.txtczy.text) rs!pass = zhuan(123456) for i = 0 to 5 qx = qx & me.check1(i).value next rs!czyqx = qx rs.update call closeconn qx = msgbox 操作员添加成功，初始密码为 123456，请注意修改！, 64, 提示