人事管理信息系统课程设计讲课稿

1、目录1 引言 . 12 系统调查与可行性研究 . 32.1 初步调查 . 32.2 可行性研究 . 63 系统分析 . 83.1 业务流程分析. 83.2 数据流程分析. 83.3 数据字典 . 114 系统设计 . 194.1 功能结构设计. 194.2 数据库设计 . 194.3 代码设计 . 284.4 输入输出设计. 294.5 系统配置设计 . 305 结 束 语 38参考文献 . 47附录 . 481 引言随着计算机技术的飞速发展，计算机在各种单位机构管理中应用的普及，管理信息 系统的开发在强调管理、强调信息的现代社会中也显得越来越重要。因此，利用计算机 支持单位高效率地完成人事管

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

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

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

5、了工作效率。本课题是辅助企业管理的系统，拟采用的开发平台为 Windows平台，系统所采用的开发工具为VISUAL BASIC 6.0和ACCESS 200。32系统调查与可行性研究在系统的开发前期对系统进行可行性分析是十分必要的一个环节，这对于保证资源的合理使用，避免浪费是十分必要的，也是项目一旦开始以后能顺利进行的必要保证。 信息系统的建设是一项投资大，时间长的复杂工程，可行性研究更为必要，也更复杂，更困难。“可行性”是指在当前情况下，企业研制这个信息系统是否有必要，是否具备 必要的条件。可行性的含义不仅包括可能性，还包括必要性，合理性。2.1初步调查随着科技日新月异的发展，网络的更加成熟

6、，以及企业规模的扩大，越来越多的企 业对自己员工的情况也开始使用计算机进行自动化的管理。河北威远生物化工股份有限公司也正需要一个这样的人事管理信息系统，因此，开发一个操作方便、功能适合的 管理系统，提高威远生化的管理效率已成为当务之急。经过调查我了解到河北威远生物化工股份有限公司的组织机构图如图2.1所示：参挖脫金司|研扯中也锻际中心中卍 右家几申捷 粧叩耶地血枭貳堆 郎加名斯妹地 lx1 LJi ur' Lii 河北竝述动物药业會限艺司北和申农尢坐物按术腔愉诉園仝可图2.1 河北威远生物化工股份有限公司组织机构图目前，该公司在人事管理方面主要还是手工操作为主，不仅办公效率低，容易出错

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

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

9、上近十年来计算机技术的飞跃发展，以及国内各应用单 位的高度重视，人事信息管理系统在国内基本上已进入了普及应用的阶段。国内近 90% 以上的应用计算机及开发管理信息系统的公司和单位均开发并运行了人事信息管理系 统，其他没有和正准备开发计算机应用或开发管理系统的公司和单位，也把人事信息管 理系统作为其应用与开发的首要目标。 加上国家劳动主管部门及国内计算机应用开发商 的共同努力，国内目前已有多种通用的人事信息管理系统软件供应用单位选择使用，而 且还有多种人事信息管理系统开发通用工具供用户开发自己的人事信息管理系统。 应该 说，人事信息管理系统的开发与应用在国内已进入相对成熟期。为解决这一问题，企业

10、在更新硬件的同时，根据实际状况，设计出这款企业人事管 理系统。这款企业人事管理系统主要有 5 个功能部分组成，分别是：1 ) 系统管理功能2 ) 员工信息管理功能3 ) 工资管理功能4 ) 数据管理功能5 ) 用户管理功能 主要实现企业人事信息的管理查看，员工调动管理，以及员工薪资管理等功能。 经过分析，我们选用微软公司的 VISUAL BASIC 6.0和 ACCESS 2003作为开发工具， 利用其提供的各种面向对象的开发工具，开发了这套企业人事信息管理系统。首先 , 在 短时间内建立系统应用原型；然后，对初始原型系统进行需求迭代，根据需求不断修正 和改进，直到形成用户满意的可行系统。2.

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

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

13、础上实现，借助于网络化管理手段能够满足这些要求。3系统分析3.1业务流程分析业务流程分析是对业务功能分析的进一步细化。业务流程分析的目的是：形成合理、科学的业务流程。根据人力资源管理业务的流程特点，绘制其业务流程图如下：人事管理信息系统人员变动单人员查询单工资查询单3.2数据流程分析数据流程分析就是把数据在现行系统内部的流动情况抽象出来，舍去了具体组织机构、 信息载体、处理工作等物理组成，单纯从数据流动过程来考察实际业务的数据处理模式 数据流程分析主要包括对信息的流动、变换、存贮等的分析。其目的是要发现和解决数 据流动中的问题。根据人力资源管理业务数据流动的特点，绘制其数据流程图如下： 精品文

14、档管理员管理员管理员有关雄昭档案表部门一般用户数据存档工资基本表登记处理基础档案表登记处理人员变动表 登记处理3.3数据字典数据字典是关于数据的信息的集合，也就是对数据流图中包含的所有元素的定义的集合。为了对设 计了传统中的各个元素作出详细的说明，有必要建立数据字典。数据字典的主要内容是对数据流程 图中的数据项，数据结构，数据流，处理逻辑，数据存储和外部实体等六个方面进行具体的定义。数据项1） 数据项名称：用户名简述：用户的名字，没有重复，可以唯一标识每一用户类型：文本长度：502）数据项名称：用户密码简述：用户的密码，用来证验登陆的用户是否合法。类型：文本长度：503）数据项名称：是否管理员

15、简述：描述是否系统管理员类型：是/否取值范围：真/假数据结构1）数据结构名称：用户名和密码信息组成：用户名，密码，是否管理员2）数据结构名称：民族档案设置组成：民族编号，民族名称3）数据结构名称：职工类型设置组成：职工类型编号，职工类型名称4）数据结构名称：文化程度设置组成：文化程度编号，文化程度名称。5）数据结构名称：政治面貌设置组成：政治面貌编号，政治面貌名称6）数据结构名称：部门类别设置组成：部门类别编号，部门类别名称7）数据结构名称：工资类型设置组成：工资类型编号，工资类型名称8）数据结构名称：职称类别设置 组成：职称类别编号，职称类别名称。9）数据结构名称：职务类别设置组成：职务类别

16、编号，职务类别名称10）数据结构名称：职工信息组成：职工编号，职工性别，职工年龄，民族，婚姻状况，家庭电话，电子邮箱，手机，籍贯，地 址，毕业学校，职称，入职时间，职称类别，部门类别，职务类别。11）数据结构名称：职工的家庭成员组成：编号，员工号，成员姓名，关系，出生日期，工作单位，担任职务，政治面貌4系统设计4.1功能结构设计根据系统的总体要求及设计思想，结合上面的分析，设计得出的人事信息系统模块主要由以下几个功能模块组成具体实现步骤为：2）系统功能模块图档案操作系统管理用户管理数据管理帮助关 于 系 统3）系统图D1管理信息表D2基础数据表P1后台 管理D3人员基本表D4工资基本表D7人员

17、详细表D5人员查询表般访问者P2前台 管理管理员D6工资查询表4）系统流程图用户登录4.2数据库设计数据库在一个信息管理系统中占有非常主要的地位，数据库结构设计的好坏，将直 接对应用系统的效率以及实现的效果产生影响， 合理的数据库机构设计可以提高数据库 存储的效率，保证数据的完整和一致，同时也有利于程序的实现。设计数据库时应考虑到用户各方面的需求，包括现有的以及将来的可能增加的需 求。同时，也要考虑到由于用户错误的数据操作所可能产生的问题，以及解决此类问题 的办法。用户的需求体现在各种信息的提供、保存、更新和查询上。这就要求数据库系统能够充分满足以上要求，根据系统用户的需求，结合数据库自身的条

18、件和一般的信息管理 系统的需求，利用Access数据库设计企业人事信息管理系统所需的数据库项和数据结 构如下：1）基础档案表字薛称数据类型Ld号名貫晦编姓籍号编动本本本自文文文职工功101050况症号期状面证日 址鋪别否廉族治份生 住邮性婚健民政身岀本本本本本本本本本 丈文丈丈文丈文丈丸职工类型单位 部门联系电话 移动电话参加工作时间 _入本单位时间 »曾经学历摄高学历本本本本本本本本本 瓦玄丈丈丈丈文丈艾5050202010102）参数设置表字段名称数毎类型目动編号项目值文本3）部门设置表字殷名称数据类型自动编号单位名称文本foot数字4）个人简历表字段名称数据荽型5)j乓id 职

19、工姓名开始时间结束时间 所在单位 职务 证明人号勿字本本本本本本 自数文文文文立文SI个人荣誉表字段名称rzgid 职工姓名枝得时间所获称号舷单位6）家庭信息表字段名称czgi d职工姓名 咸员姓名 关采所在单位7）工资发放表1字段名称fzcid姓名职务单位部门月度开尸银行银行帐号岗位工资补贴加班工资效益工资耳它应发养老金失业金医保金公积金房水电苴它应扣代扣税£ f£id记录人8）工资管理表数据类型号动字本本本恭 自数文文文文自动編号数字文本10文本10文本10文本50數范类型号动字本本本 自数文文文工资表吗id10105025号动字本本本 自数文文文工资表王£人

20、|110开尸银行 银行帐号 岗位工资 补贴加班工费 效益工资 茸它应发 养老金 失业金 医保金 公祝金 房水电 苴它应扣 代扣税本本币币币币 尤文货货货货币币币币币币币币 货货货货货货货货5025_ 吁段名称数曙裘型旦文本9）公司信息表公司地址文本邮政編码文本负责人文本联系电话文本移动电话文本10）系统用户表字綾名称数据类型自动褊号passCzyqK操作员权限4.3代码设计代码是代表事物名称，属性，状态等的符号，为了便于计算机处理，一般用数字，字母或它们的组合来表示。本系统需设计的代码是员工工号，根据公司员工人数和人员特点，决定选用顺序码编制员工工号。具体设计如下：员工工号由工作单位识别码（公

21、司代码、部门代码），个人信息识别码（入司年码、入司月码、入司序号）共10位数字构成，其排列顺序为：工作单位识别码个人信息识别码公司代码部门代码入司年码入司月码入司序号XXXXXXXXXX其中 工作单位识别码”是各子公司各部门在全集团内唯一标识符，由四位数字组成。前两位数 精品文档字是 “公司代码 ”，后两位是 “部门代码 ”。而 “个人信息识别码 ”由六位数字组成， 前两位是 “入司年码中间两位是 “入司年码 ”、后两位位是 “入司序号 ”。4.4 输入输出设计系统设计的过程和系统实施的过程恰好相反，并不是从输入设计到输出设计，而是 从输出设计到输入设计，这是因为输出设计直接和用户需求相联系，

22、设计的出发点应该 是保证输出方便地为用户服务，正确地反映用户所需要的有用信息。1）输出设计输出设计的主要目的是满足用户和管理者对数据和信息的要求。 输出设计要考虑的主要 内容有： 输出信息名：该输出信息的名称。 输出功能：该输出信息起什么作用。 输出周期：多长时间输出一次。 输出期限：每次输出的期限 。 输出媒体：输出信息记录媒体名称。 输出方式：批输出还是实时输出。 输出用纸：专用纸或通用纸。 传递方式：邮递、电话、传真、电子邮件或人工传递。 使用后的处理：保存、销毁或上缴。 输出用文字：英文、汉字、汉语拼音。输出信息校验：检验输出信息的正确性，包括确定校验内容、检验方法和校验后的处 理。保

23、密要求：有或无。输出项目名称：构成输出信息的每个数据项。本系统中所选用的输出方式有三种：查询显示输出、报表打印输出和图形显示输出。查询显示输出的信息主要是各种查询结果，这是一种实时性要求很高的输出，输出设备是显示器。报表打印输出的信息主要是各种报表形式的数据信息，如工资发放信息，上级部门要求上缴的统计数字等。图形显示输出具有前两者所无法比拟的优越性，它直观, 可比，易于理解，结论明显。例如图形显示输出：别职工工资Excel表2）输入设计在计算机信息系统中，输入数据的正确性决定着整个系统质量的好坏。若输人数据缺精 确性和适时性，即使计算和处理十分正确，也不可能得到可靠的输出信息。最佳的信息 系统

24、始于最佳的输入系统。根据输出信息的要求，输入设计要考虑的主要内容如下 输入信息名：该输入信息的名称。 输入功能：该输入信息起什么作用。 输入周期：多长时间输入一次。 输入期限；每次输入的期限。 输入媒体：输入信息记录媒体名称。 输入方式：批输入还是实时输入 精品文档 收集方式：原始记录如何收集。 原始信息名：与本输入对应的用户原始凭证。 输入项目名：构成输入信息的每个数据项名称。 输入用文字：英文、汉字或汉语拼音。本系统采用的输入方式主要是键盘输入，便于查询和检索系统。因此，友好的输入 界面变得非常重要，必须保证用户在输入时方便、安全、高效。例如新增职工信息输入 如下图：新增职工信息输入图随着

25、信息技术的发展和各种新概念不断地引入管理 （如电子化管理等），简单的键盘 输入必将不能适应快节奏的运营方式。因此有必要引进先进的技术手段，使系统实现联 机输入，将数据信息以报文的形式从各用户终端送到处理中心。这是系统今后扩充时 要考虑的，另外，还要考虑数据输入格式，主要要求如下： 输人格式应保证输入精度。 输人格式应尽量减少填写量，便于填写，便于校对。 同意规格和代码，按标准格式输入。 简化和减轻输入负担。例如在键盘输入过程中，应保证画面大小和屏幕大小相一致，各种凭证的输入应考虑输 入格式和凭证格式相一致。数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检验。输 人数据检验

26、是保证输入数据正确的重要措施。通过多种措施，对全部输人数据设想其可 能出现的差错，对之进行校验，对校验中查到的有错数据，考虑修改及补救办法。数据 校验的办法有两类：静态检验 (人工复核)和动态检验(计算机程序检验 )。在本系统中，进行输入数据检验的具体做法要求如下：(1) 严格复核制度，未经复核的凭证、单据不得上机录入。(2) 重复校验，经过复核的数据、凭证还应经另外的输人人员进行检验。(3) 人工静态检验，在输入的同时，由、计算机显示输入的数据，然后与原始单据进行 对比，查找错误。(4) 程序检验，根据输入的数据类型、格式、逻辑性等进行检验，具体内容包括： 数字检验：检查数字项目内容中是否出

27、现非数字数据。 界限检验：检查数据项目是否超过规定的数据范围，如数据位数、数值范围等。 逻辑检验：检查数据的合理性、逻辑性是否符合要求 (例如月份不会超过12,更不会 是负数 ) 。 格式检验：检查数据记录中各数据项的位数和位置是否符合预先规定的格式。例如工 资定为 4 位整数、 2 位小数，检查最高位是不是空格或数字等。 字符检验：检查全部由字母组成的数据(如姓名)中是否出现非字母字符，或检查该数 据长度和格式是否符合规定。对于检查出的输人数据错误，应该以恰当的形式报告出来，或打印错误报告，或实时提 出错误警示和修改提示等，帮助用户尽快正确输入数据。4.5 系统配置设计多种多样的的计算机技术

28、产品为信息系统的建设提供了极大的灵活性， 使我们可以 根据应用的需要选用不同生产商的性能各异的软硬件产品， 但同时员工系统设计工作带 来了新的困难，那就是面对众多厂家生产的产品如何做出最明智的选择。本系统的主要 设计依据是：1）系统的吞吐量2）系统的响应时间3）系统的可靠性4）系统的处理方式5）地域范围6）数据管理方式根据以上六大依据，本系统最低的计算机硬件配置为：1GHz 32 位 （x86） 或 64 位 （x64） 处理器 1）。1 GB 系统内存。DirectX 9图形支持，WDDMK动程序，至少128 MB图形内存2, Pixel Shader 2.0和32 位/ 像素。40 GB

29、硬盘容量， 15 GB 可用空间。DVD-ROM区动器3。音频输出能力。Internet 访问能力。软件配置为： windows 2000 以上， Access 2003,Visual Basic 6.0 中文版另外，其他系统配置根据自身公司的需要进行选择。5 结束语本文介绍采用VB吉合Access数据库开发的企业人事管理信息系统，提供了用户的权限管理、人事档案的查询、添加、删除、数据的导人导出、工资的管理以及数据库的备 份和恢复等功能，操作简单明了，与 Access和Excel联合办公紧密，方便人事管理部门 进行人事档案查询和管理，可大大提高工作效率，将会使企业的人事管理工作步人崭新 的台阶

30、。本统在实际的使用过程中还有很多可以完善的地方，譬如各种人事档案数据的 汇总、统计能和数据报表的制作等。不足的是，由于系统所采用的数据库为Access，虽使用起来比较方便，但网络化程度还不高且只能用于中小型企业。总之，该程序可以满 足目前的人事管理的需求，随着人事管理工作规范化、信息化、网络化的发展趋势，其 应用将会越来越广泛。参考文献1. 黄梯云管理信息系统高等教育出版社， 20092. 郑阿齐.Visual Basic实用教程.电子工业出版社,20043. 黎连业 .管理信息系统设计与实施 .清华大学出版社， 19984. 张晓黎.Visual Basic+SQL Server数据库应用系

31、统开发与实例.人民邮电出版社，20035. 张德.人力资源开发和管理 .清华大学出版社， 19956. 许树柏 .实用决策方法 层次分析原理 .天津大学出版社， 19987. 秦寿康 .综合评价原理和应用 .电子工业出版社， 2000.38. 彭运芳.人力资源开发的层次分析模型系统工程，2004 （第22卷，第4期：7173）9. 张林.企业业绩评价的战略沟通功能研究 .天津大学学报（社会学版）， 2004（第 6 卷， 第 2期： 146149）10. 单薇.利用模糊综合评价实现企业水平的量化分析.数学的实践和认识， 2002（第 32卷，第 2 期： 206 210）11. 陈捷.绩效评估

32、研究的新进展 .南京师范大学（社会科学版） ， 2003（第 3期： 8185）12. 符志明，李汉玲 .绩效评价体系研究 .系统工程与电子技术， 2001（第 9期： 2325）13. 李昕，刘连臣， 吴澄.一种基于目标规划的 AHP 参数学习算法 .清华大学学报（自然科 学版）， 2004（第 44 卷，第 4 期： 466 469）附录 部分程序代码1 系统的登录Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private

33、 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 nInd

34、ex 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 dwFlags As Long) As LongDim Alpha As Integer ' 声明变量Private Sub cmdDL_Click()If Me.Combo1.Text = ""

35、; ThenMsgBox " 请选择登陆用户！ ", 48, "错误提示 "Exit SubEnd IfCall OpenConnSQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'" rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"), "", Trim(rs.Fie

36、lds("pass") ThengCzy = rs.Fields("czy")gCzyqx = rs.Fields("czyqx")Call CloseConnMDIfrm.ShowUnload MeElseMsgBox " 密码错误！ ", 48, "错误提示 "End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls 'XP 效果End Su

37、bPrivate Sub Form_Load()Me.Shape1.Top = Me.Top ' 外边框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeightDim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20Call OpenCon

38、nSQL = "select czy from 系统用户表 " rs.Open SQL, cn, 1, 1Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNextLoopCall CloseConnCall OpenConnSQL = "select 公司名称 from 公司信息 "rs.Open SQL, cn, 1, 1If rs.RecordCount > 0 Then gGsmc = rs! 公司名称ElsegGsmc = "公司信息未知 "End IfCall C

39、loseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha > 255 ThenTimer1.Enabled = FalseExit SubEnd If精品文档SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHA End Sub2 基础档案查询Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Pr

40、ivate 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

41、 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 dwFlags As Long) As LongDim Alpha As Integer ' 声明变量Private Sub cmdDL_Click()If Me.Combo1.Text = "

42、" ThenMsgBox " 请选择登陆用户！ ", 48, "错误提示 "Exit SubEnd IfCall OpenConnSQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'"rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields("pass"), "", Trim(rs

43、.Fields("pass") Then gCzy = rs.Fields("czy") gCzyqx = rs.Fields("czyqx")Call CloseConnMDIfrm.ShowUnload MeElseMsgBox " 密码错误！ ", 48, "错误提示 "End IfEnd SubPrivate Sub cmdTC_Click() 精品文档EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls '

44、XP 效果End SubPrivate Sub Form_Load()Me.Shape1.Top = Me.Top ' 外边框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeightDim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)Ret = Ret Or WS_EX_LAYEREDSetWindowLong Me.hWnd, GWL_EXSTYLE, RetTimer1.Interval = 20Call

45、 OpenConnSQL = "select czy from 系统用户表 " rs.Open SQL, cn, 1, 1Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNextLoopCall CloseConnCall OpenConnSQL = "select 公司名称 from 公司信息 "rs.Open SQL, cn, 1, 1If rs.RecordCount > 0 Then gGsmc = rs! 公司名称ElsegGsmc = "公司信息未知 "End

46、IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5精品文档If Alpha > 255 ThenTimer1.Enabled = FalseExit SubEnd IfSetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub3 用户管理Dim qx As String ' 权限Private Sub Check1_Click(Index As Integer)End SubPrivate Sub cmdBC_Click() '

47、; 保存按钮If Trim(Me.txtCZY .Text) = "" ThenMsgBox " 登陆名不能为空！ ", 48, "提示" Exit SubEnd IfIf Me.cmdBC.Caption = " 新增 " ThenFor i = 0 If Trim(Me.txtCZY .Text) = Me.List1.List(i) Then MsgBox " 该用户已经存在！ ", 48, " 提示 " Exit SubEnd IfNextCall OpenConnS

48、QL = "select * from 系统用户表 "rs.Open SQL, cn, 3, 3rs.AddNewrs!czy = Trim(Me.txtCZY .Text) rs!pass = zhuan("123456") For i = 0 To 5qx = qx & Me.Check1(i).ValueNextrs!czyqx = qx精品文档rs.UpdateCall CloseConn qx = ""MsgBox " 操作员添加成功，初始密码为 123456，请注意修改！ ", 64, " 提示" Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseElseCall OpenConnSQL = "select * from 系统用户表 where czy='" & Me.txtCZY .Text & "'" rs.Open SQL, cn, 3, 3For i = 0 To 5qx = qx & Me.Check1(i).ValueNext rs!czyqx = qx rs.UpdateCall