人事人力资源管理信息系统课程设计.doc

《人事人力资源管理信息系统课程设计.doc》由会员分享，可在线阅读，更多相关《人事人力资源管理信息系统课程设计.doc（38页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、 目 录 1 引言1 2 系统调查及可行性研究3 初步调查3 可行性研究6 3 系统分析8 3.1 业务流程分析8 3.2 数据流程分析8 数据字典11 4 系统设计194.1 功能结构设计194.2 数据库设计194.3 代码设计28 4.4 输入输出设计29 4.5系统配置设计30 5 结束语38参考文献47 附录48 第 页1 引言随着计算机技术飞速发展，计算机在各种单位机构管理中应用普及，管理信息系统开发在强调管理、强调信息现代社会中也显得越来越重要。因此，利用计算机支持单位高效率地完成人事管理日常事务，是适应现代各种单位机构制度要求、推动各种单位机构人事管理走向科学化、规范化必要条件

2、。在当今信息社会，随着信息不断增长与企业对信息要求，信息管理技术随之出现。企业人事管理信息系统是一个现代化企业在竞争中立于不败之地必要部分，它能够为查询人事信息提供充足信息与快捷查询手段1。一直以来使用传统人工方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差，另外时间一长，将产生大量文件与数据,这对于查找、更新与维护都带来了不少困难，而且容易丢失。自20世纪50年代将计算机引入数据处理以来，历经管理信息系统发展各个阶段。一方面是信息技术应用迅猛发展，另一方面，许多管理信息系统在耗费了大量人力、物力、财力之后夭折了，或者根本没有实现原系统开发目标，而把计算机用作了打字机。这是长

3、期以来困惑人们一大问题2。现在人们日益深刻认识到，把信息技术应用及应用环境分离是办不到。管理信息系统根本不仅是技术系统，而且是社会系统。使用计算机对企业人事信息进行管理，具有手工管理所无法比拟优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业人事管理效率,也是企业科学化、正规化管理，及世界接轨重要条件3。因此，开发一个代替手工操作新型计算机管理信息系统对保定隆达铝业来说刻不容缓，这也是本课题由来。本论文就是以为前台与ACCESS 2003为后台等软件作为开发工具，以各种单位机构为对象，开发一个从某种程度上能满足中小型机构对人事信息管理要求

4、“人事管理系统”。本系统具有数据管理与企业事务管理功能。使用该系统，可以方便地进行系统管理，基础数据管理，人事档案管理，考勤管理，数据库管理，并且带有备忘录功能，还能够快捷地查询公司员工情况，方便企业高层领导对该企业人力资源现状有个比较全面认识，也方便他们管理与人员调动，可辅助企业领导决策科学化，从而大大减少了工作量，提高了工作效率。本课题是辅助企业管理系统，拟采用开发平台为Windows平台，系统所采用开发工具为与ACCESS 2003。2 系统调查及可行性研究在系统开发前期对系统进行可行性分析是十分必要一个环节，这对于保证资源合理使用，避免浪费是十分必要，也是项目一旦开始以后能顺利进行必要

5、保证。信息系统建设是一项投资大，时间长复杂工程 ，可行性研究更为必要，也更复杂，更困难。“可行性”是指在当前情况下，企业研制这个信息系统是否有必要，是否具备必要条件。可行性含义不仅包括可能性，还包括必要性，合理性4。随着科技日新月异发展，网络更加成熟，以及企业规模扩大，越来越多企业对自己员工情况也开始使用计算机进行自动化管理5。河北威远生物化工股份也正需要一个这样人事管理信息系统，因此，开发一个操作方便、功能适合管理系统，提高威远生化管理效率已成为当务之急。经过调查我了解到河北威远生物化工股份组织机构图如图2.1所示：图2.1 河北威远生物化工股份组织机构图目前，该公司在人事管理方面主要还是手

6、工操作为主，不仅办公效率低，容易出错，而且还需要很多专门人员从事这项工作。这对于公司来讲无益于长远发展，为了改善这方面管理，该公司需要引进一套人事管理系统。人事管理系统是一个面向企业人事人员，为其提供服务综合信息管理系统。人事人员通过本系统完成相关日常工作，这些工作也是平常较为繁重工作。公司人事基础数据信息、人员个人档案信息、系统管理以及考勤管理与数据库管理等情况都记录在人事系统里进行管理。可行性是指在当前组织内外具体条件下，这个信息系统开发是否具备必要资源及其它条件。可行性，是指在当前情况下，设计开发这个系统是否有必要，是否具备必要条件，它不仅包括必要性，还包括合理性。系统可行性分析，是针对

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

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

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

10、工作方便，后台操作快截明了，操作人员可以在短时间内完全掌握维护技术。2. 经济可行性1）资金可得性由于系统开发并不复杂，操作起来也比较简单，只需一些基本编辑软件，另外具备网络中心一些资源优势，因此开发费用较低。2）经济合理性由于该系统用于企业工作大部分信息发布与传递工作，不仅能够节省大量人工信息传递任务，提高了工作效率，更加有利于整个企业各部门之间无纸化办公推广。2.4 社会可行性网络安全技术不断提升，网络管理人事在实际运用中越来越被企业或个人所接受（这些都可以在实际生活中找到材料与数据。），并且在不断提升与表现它在实际企业活动中经济价值，这个经济价值也是当前企业所期望看到。人事管理工作覆盖面

11、广,涉及到机构设置、人员调配、员工培训、考核、奖惩、工资福利待遇等多个方面。人事管理活动中产生大量数据与信息,如:各级机构层次构建,职工自然状况,职称、职务变动情况,考核培训结果,专业技术工作及主要业绩以及针对这些数据进行各类统计报表制作与综合分析等。对如此多数据、信息管理、开发及运用,都必须在规范化与标准化基础上实现,借助于网络化管理手段能够满足这些要求。3 系统分析业务流程分析是对业务功能分析进一步细化。业务流程分析目是：形成合理、科学业务流程。根据人力资源管理业务流程特点，绘制其业务流程图如下：有关部门人事管理信息系统工资查询单人员变动单人员查询单人员变动单人员资料工资单管理员一般用户数

12、据流程分析就是把数据在现行系统内部流动情况抽象出来，舍去了具体组织机构、信息载体、处理工作等物理组成，单纯从数据流动过程来考察实际业务数据处理模式。数据流程分析主要包括对信息流动、变换、存贮等分析。其目是要发现与解决数据流动中问题。根据人力资源管理业务数据流动特点，绘制其数据流程图如下：有关部门数据存档 工资基本表登记处理登记成立一般用户管理员管理员管理员基础档案表登记处理登记成立人员变动表登记处理登记成立数据字典是关于数据信息集合，也就是对数据流图中包含所有元素定义集合。为了对设计了传统中各个元素作出详细说明，有必要建立数据字典。数据字典主要内容是对数据流程图中数据项，数据结构，数据流，处理

13、逻辑，数据存储与外部实体等六个方面进行具体定义。1）数据项名称： 用户名简述：用户名字，没有重复，可以唯一标识每一用户类型：文本长度：502）数据项名称：用户密码简述：用户密码，用来证验登陆用户是否合法。类型：文本长度：503）数据项名称：是否管理员简述：描述是否系统管理员类型：是/否取值范围：真/假1）数据结构名称：用户名与密码信息 组成：用户名，密码，是否管理员2)数据结构名称：民族档案设置组成：民族编号，民族名称3）数据结构名称：职工类型设置组成：职工类型编号，职工类型名称4）数据结构名称：文化程度设置组成：文化程度编号，文化程度名称。5）数据结构名称：政治面貌设置组成：政治面貌编号，政

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

15、人事信息系统模块 。主要由以下几个功能模块组成。具体实现步骤为：1) 系统E-R图用户设置民族档案案文化程度政治面貌职称类别工资类别部门类别职工类型职务类别用户名职务名称密码职务编号民族编号民族名称文化程度编号编号文化程度名称工资类别编号工资类别名称2) 系统功能模块图企业人事管理系统档案操作帮助登录用户管理关于系统基础档案工资管理系统管理用户管理数据管理密码修改系统帮助公司信息单位设置系统参数数据备份数据还原3) 系统图管理员P1后台管理D1管理信息表D2基础数据表D3人员基本表D4工资基本表D7人员详细表P2前台管理一般访问者D5人员查询表D6工资查询表4) 系统流程图用户登录查询管理员工

16、基本信息，工资管理，人员调动档案操作 Y N查看公司信息，单位设置，系统参数设置系统设置 YN登录用户权限管理，密码修改用户管理 Y N数据管理数据备份，数据还原 Y N帮助系统使用帮助，关于系统信息YN退出数据库在一个信息管理系统中占有非常主要地位，数据库结构设计好坏，将直接对应用系统效率以及实现效果产生影响，合理数据库机构设计可以提高数据库存储效率，保证数据完整与一致,同时也有利于程序实现。设计数据库时应考虑到用户各方面需求，包括现有以及将来可能增加需求。同时，也要考虑到由于用户错误数据操作所可能产生问题，以及解决此类问题办法。用户需求表达在各种信息提供、保存、更新与查询上。这就要求数据库

17、系统能够充分满足以上要求，根据系统用户需求，结合数据库自身条件与一般信息管理系统需求，利用Access数据库设计企业人事信息管理系统所需数据库项与数据结构如下：1） 基础档案表2） 参数设置表3） 部门设置表4） 个人简历表5） 个人荣誉表6） 家庭信息表7） 工资发放表8） 工资管理表9） 公司信息表10） 系统用户表4.3 代码设计代码是代表事物名称，属性，状态等符号，为了便于计算机处理，一般用数字，字母或它们组合来表示。本系统需设计代码是员工工号，根据公司员工人数与人员特点，决定选用顺序码编制员工工号。具体设计如下：员工工号由工作单位识别码（公司代码、部门代码），个人信息识别码 (入司年

18、码、入司月码、入司序号)共10位数字构成，其排列顺序为：工作单位识别码个人信息识别码公司代码部门代码入司年码入司月码入司序号XXXXXXXXXX其中“工作单位识别码”是各子公司各部门在全集团内唯一标识符，由四位数字组成。前两位数字是“公司代码”，后两位是“部门代码”。而“个人信息识别码”由六位数字组成，前两位是“入司年码”、中间两位是 “入司年码”、后两位位是“入司序号”。4.4 输入输出设计系统设计过程与系统实施过程恰好相反，并不是从输入设计到输出设计，而是从输出设计到输入设计，这是因为输出设计直接与用户需求相联系，设计出发点应该是保证输出方便地为用户服务，正确地反映用户所需要有用信息。1）

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

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

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

22、后扩充时要考虑， 另外，还要考虑数据输入格式，主要要求如下:输人格式应保证输入精度。 输人格式应尽量减少填写量，便于填写，便于校对。同意规格与代码，按标准格式输入。简化与减轻输入负担。 例如在键盘输入过程中，应保证画面大小与屏幕大小相一致，各种凭证输入应考虑输入格式与凭证格式相一致。数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检验。输人数据检验是保证输入数据正确重要措施。通过多种措施，对全部输人数据设想其可能出现差错，对之进行校验，对校验中查到有错数据，考虑修改及补救办法。数据校验办法有两类：静态检验(人工复核)与动态检验(计算机程序检验)。在本系统中，进行输入数据检验

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

24、高位是不是空格或数字等。字符检验：检查全部由字母组成数据(如姓名)中是否出现非字母字符，或检查该数据长度与格式是否符合规定。对于检查出输人数据错误，应该以恰当形式报告出来，或打印错误报告，或实时提出错误警示与修改提示等，帮助用户尽快正确输入数据。4.5 系统配置设计 多种多样计算机技术产品为信息系统建设提供了极大灵活性，使我们可以根据应用需要选用不同生产商性能各异软硬件产品，但同时员工系统设计工作带来了新困难，那就是面对众多厂家生产产品如何做出最明智选择。本系统主要设计依据是：1） 系统吞吐量2） 系统响应时间3） 系统可靠性4） 系统处理方式5） 地域范围6） 数据管理方式根据以上六大依据，

25、本系统最低计算机硬件配置为：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以上，Access 2003,Visual Basic 6.0 中文版另外，其他系统配置根据自身公司需要进行选择。5 结束语本文介绍采用VB结合Access数据库开发企业人事管理信息系统，提供了用户权限管

26、理、人事档案查询、添加、删除、数据导人导出、工资管理以及数据库备份与恢复等功能，操作简单明了，及Access与Excel联合办公紧密，方便人事管理部门进行人事档案查询与管理，可大大提高工作效率，将会使企业人事管理工作步人崭新台阶。本统在实际使用过程中还有很多可以完善地方，譬如各种人事档案数据汇总、统计能与数据报表制作等。不足是，由于系统所采用数据库为Access，虽使用起来比较方便，但网络化程度还不高且只能用于中小型企业。总之，该程序可以满足目前人事管理需求，随着人事管理工作规范化、信息化、网络化发展趋势，其应用将会越来越广泛。参 考 文 献1. 黄梯云管理信息系统高等教育出版社，20092.

27、 郑阿齐.Visual Basic 实用教程.电子工业出版社，20043. 黎连业.管理信息系统设计及实施.清华大学出版社，19984. 张晓黎.Visual Basic+SQL Server数据库应用系统开发及实例.人民邮电出版社，20035. 张德.人力资源开发与管理.清华大学出版社，19956. 许树柏.实用决策方法层次分析原理.天津大学出版社，19987. 秦寿康.综合评价原理与应用.电子工业出版社，2000.38. 彭运芳.人力资源开发层次分析模型.系统工程，2004（第22卷，第4期：7173）9. 张林.企业业绩评价战略沟通功能研究.天津大学学报（社会学版），2004（第6卷，

28、第2期：146149）10.单薇.利用模糊综合评价实现企业水平量化分析.数学实践与认识，2002（第32卷，第2期：206210）11.陈捷.绩效评估研究新进展.南京师范大学（社会科学版），2003（第3期：8185）12.符志明，李汉玲.绩效评价体系研究.系统工程及电子技术，2001（第9期：2325）13.清华大学学报（自然科学版），2004（第44卷，第4期：466469）附录 部分程序代码1 系统登录Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA

29、= &H2Private Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As

30、LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer 声明变量Private Sub cmdDL_Click()If Mebo1.Text = Then MsgBox 请选择登陆用户！, 48, 错误提示 Exit SubEnd IfCall OpenConnSQL = select *

31、from 系统用户表 where Czy= & Mebo1.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 Unload Me Else MsgBox 密码错误！, 48, 错误提示 End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivat

32、e Sub Form_Initialize()Call InitCommonControls XP效果End SubPrivate Sub Form_Load()Me.Shape1 = Me 外边框Dim Ret As Long Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20Call OpenConnSQL = select czy from 系统用户表rs.Open SQL, cn,

33、 1, 1 Mebo1.AddItem rs!czy LoopCall CloseConnCall OpenConnSQL = select 公司名称 from 公司信息rs.Open SQL, cn, 1, 1 If rs.RecordCount 0 Then gGsmc = rs!公司名称 Else gGsmc = 公司信息未知 End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 Then Timer1.Enabled = FalseExit SubEnd If SetLaye

34、redWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub2 基础档案查询Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex A

35、s Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlag

36、s As Long) As LongDim Alpha As Integer 声明变量Private Sub cmdDL_Click()If Mebo1.Text = Then MsgBox 请选择登陆用户！, 48, 错误提示 Exit SubEnd IfCall OpenConnSQL = select * from 系统用户表 where Czy= & Mebo1.Text & rs.Open SQL, cn, 1, 1 If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields(pass), , Trim(rs.Fields(pass) The

37、n gCzy = rs.Fields(czy) gCzyqx = rs.Fields(czyqx) Call CloseConn Unload Me Else MsgBox 密码错误！, 48, 错误提示 End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls XP效果End SubPrivate Sub Form_Load()Me.Shape1 = Me 外边框Dim Ret As Long Ret = GetWindowLong(Me.hWnd,

38、 GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20Call OpenConnSQL = select czy from 系统用户表rs.Open SQL, cn, 1, 1 Mebo1.AddItem rs!czy LoopCall CloseConnCall OpenConnSQL = select 公司名称 from 公司信息rs.Open SQL, cn, 1, 1 If rs.RecordCount 0 Then gGsmc = rs!

39、公司名称 Else gGsmc = 公司信息未知 End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 Then Timer1.Enabled = FalseExit SubEnd If SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub3 用户管理Dim qx As String 权限Private Sub Check1_Click(Index As Integer)End SubPrivate Sub cm

40、dBC_Click() 保存按钮 If Trim(Me.txtCZY.Text) = Then MsgBox 登陆名不能为空！, 48, 提示 Exit Sub End IfIf Me.cmdBC.Caption = 新增 Then 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!czy = Trim(Me.txtCZY.Text

41、) rs!pass = zhuan(123456) For i = 0 To 5 qx = qx & Me.Check1(i).Value Next rs!czyqx = qx Call CloseConn qx = MsgBox 操作员添加成功，初始密码为123456，请注意修改！, 64, 提示 Me.txtCZY.Enabled = True Me.cmdSC.Enabled = FalseElse Call OpenConn SQL = select * from 系统用户表 where czy= & Me.txtCZY.Text & rs.Open SQL, cn, 3, 3 For

42、 i = 0 To 5 qx = qx & Me.Check1(i).Value Next rs!czyqx = qx Call CloseConn qx = 清空变量 MsgBox 保存成功！, 64, 提示 Me.cmdBC.Caption = 新增 Me.txtCZY.Enabled = True Me.cmdSC.Enabled = FalseEnd If Call addLIST Me.txtCZY.Text = For i = 0 To 5 Me.Check1(i).Value = 0 NextEnd SubPrivate Sub cmdSC_Click()If Me.txtCZY

43、.Text = Then MsgBox 请选择要删除操作员！, 48, 提示 Exit SubEnd IfIf Me.List1.ListCount = 1 Then MsgBox 只有一个操作员了，不能再删除！, 48, 提示 Exit SubEnd IfCall OpenConncn.Execute (delete * from 系统用户表 where czy= & Me.List1.Text & )Call CloseConnCall addLIST 刷新列表Me.txtCZY.Text = Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseMe.cmdBC.Caption = 新增For i = 0 To 5Me.Check1(i)