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

目 录 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附录48 / 231 引言随着计算机技术的飞速发展,计算机在各种单位机构管理中应用的普与,管理信息系统的开发在强调管理、强调信息的现代社会中也显得越来越重要.因此,利用计算机支持单位高效率地完成人事管理的日常事务,是适应现代各种单位机构制度要求、推动各种单位机构人事管理走向科学化、规范化的必要条件.在当今的信息社会,随着信息的不断增长和企业对信息的要求,信息管理技术随之出现.企业人事管理信息系统是一个现代化的企业在竞争中立于不败之地的必要部分,它能够为查询人事信息提供充足的信息和快捷的查询手段1.一直以来使用传统人工的方式管理文件档案,这种管理方式存在着许多缺点,如：效率低、#性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难,而且容易丢失.自20世纪50年代将计算机引入数据处理以来,历经管理信息系统发展的各个阶段.一方面是信息技术应用的迅猛发展,另一方面,许多管理信息系统在耗费了大量的人力、物力、财力之后夭折了,或者根本没有实现原系统的开发目标,而把计算机用作了打字机.这是长期以来困惑人们的一大问题2.现在人们日益深刻认识到,把信息技术应用与应用环境分离是办不到的.管理信息系统根本不仅是技术系统,而且是社会系统.使用计算机对企业人事信息进行管理,具有手工管理所无法比拟的优点.例如：检索迅速、查找方便、可靠性高、存储量大、#性好、寿命长、成本低等.这些优点能够极大地提高企业人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件3.因此,开发一个代替手工操作的新型的计算机管理的信息系统对保定隆达铝业#来说刻不容缓,这也是本课题的由来.本论文就是以VISUAL BASIC 6.0为前台和ACCESS 2003为后台等软件作为开发工具,以各种单位机构为对象,开发一个从某种程度上能满足中小型机构对人事信息管理的要求的"人事管理系统".本系统具有数据管理和企业事务管理功能.使用该系统,可以方便地进行系统管理,基础数据管理,人事档案管理,考勤管理,数据库管理,并且带有备忘录功能,还能够快捷地查询公司员工的情况,方便企业高层领导对该企业人力资源的现状有个比较全面的认识,也方便他们的管理和人员调动,可辅助企业领导决策科学化,从而大大减少了工作量,提高了工作效率.本课题是辅助企业管理的系统,拟采用的开发平台为Windows平台,系统所采用的开发工具为VISUAL BASIC 6.0和ACCESS 2003.2 系统调查与可行性研究在系统的开发前期对系统进行可行性分析是十分必要的一个环节,这对于保证资源的合理使用,避免浪费是十分必要的,也是项目一旦开始以后能顺利进行的必要保证.信息系统的建设是一项投资大,时间长的复杂工程 ,可行性研究更为必要,也更复杂,更困难."可行性"是指在当前情况下,企业研制这个信息系统是否有必要,是否具备必要的条件.可行性的含义不仅包括可能性,还包括必要性,合理性4.2.1初步调查随着科技日新月异的发展,网络的更加成熟,以与企业规模的扩大,越来越多的企业对自己员工的情况也开始使用计算机进行自动化的管理5.#威远生物化工股份#也正需要一个这样的人事管理信息系统,因此,开发一个操作方便、功能适合的管理系统,提高威远生化的管理效率已成为当务之急.经过调查我了解到#威远生物化工股份#的组织机构图如图2.1所示：图2.1 #威远生物化工股份#组织机构图目前,该公司在人事管理方面主要还是手工操作为主,不仅办公效率低,容易出错,而且还需要很多的专门人员从事这项工作.这对于公司来讲无益于长远的发展,为了改善这方面的管理,该公司需要引进一套人事管理系统.人事管理系统是一个面向企业人事人员,为其提供服务的综合信息管理系统.人事人员通过本系统完成相关的日常工作,这些工作也是平常较为繁重的工作.公司人事基础数据信息、人员的个人档案信息、系统管理以与考勤管理和数据库管理等情况都记录在人事系统里进行管理.2.2可行性研究可行性是指在当前组织内外的具体条件下,这个信息系统的开发是否具备必要的资源与其它条件.可行性,是指在当前情况下,设计开发这个系统是否有必要,是否具备必要的条件,它不仅包括必要性,还包括合理性.系统的可行性分析,是针对设计一个系统,它的设计是否存在内外部的必要条件,包括技术上、经济上、人力资源以与组织管理上的必要条件,同时还要分析在目前条件下是否有必要设计这样一个系统.随着计算机技术、网络技术和信息技术的发展,越来越多地改善着现代人的观念.办公自动化系统是计算机技术和网络迅速发展的一个办公应用解决方案,它的主要目的是实现信息交流和信息共享,提供协同工作的手段,提高办公的效率,让人们从繁琐的有纸办公中解脱出来.目前,国内人事信息管理系统的开发技术基本成熟；主要原因在于人事信息管理系统本身具有业务清晰、数据处理规范等许多优点,为其实现计算机信息化提供了必要的优越条件；加上近十年来计算机技术的飞跃发展,以与国内各应用单位的高度重视,人事信息管理系统在国内基本上已进入了普与应用的阶段.国内近90%以上的应用计算机与开发管理信息系统的公司和单位均开发并运行了人事信息管理系统,其他没有和正准备开发计算机应用或开发管理系统的公司和单位,也把人事信息管理系统作为其应用与开发的首要目标.加上国家劳动主管部门与国内计算机应用开发商的共同努力,国内目前已有多种通用的人事信息管理系统软件供应用单位选择使用,而且还有多种人事信息管理系统开发通用工具供用户开发自己的人事信息管理系统.应该说,人事信息管理系统的开发与应用在国内已进入相对成熟期.为解决这一问题,企业在更新硬件的同时,根据实际状况,设计出这款企业人事管理系统.这款企业人事管理系统主要有5个功能部分组成,分别是：1） 系统管理功能2） 员工信息管理功能3） 工资管理功能4） 数据管理功能5） 用户管理功能主要实现企业人事信息的管理查看,员工调动管理,以与员工薪资管理等功能.经过分析,我们选用微软公司的VISUAL BASIC 6.0和ACCESS 2003作为开发工具,利用其提供的各种面向对象的开发工具,开发了这套企业人事信息管理系统.首先,在短时间内建立系统应用原型；然后,对初始原型系统进行需求迭代,根据需求不断修正和改进,直到形成用户满意的可行系统.2.2.1技术可行性1 硬件、软件要求不高,目前市场上的一般计算机软硬件资源均能满足系统开发要求.其中运用的主要软件有 photoshop,Acdsee等,数据库采用Access 2003.2 维护操作工作方便,后台操作快截明了,操作人员可以在短时间内完全掌握维护技术.2.2.2 经济可行性1资金可得性由于系统开发并不复杂,操作起来也比较简单,只需一些基本的编辑软件,另外具备网络中心的一些资源优势,因此开发费用较低.2经济合理性由于该系统用于企业工作的大部分信息发布和传递工作,不仅能够节省大量的人工信息传递任务,提高了工作效率,更加有利于整个企业各部门之间的无纸化办公的推广.2.4 社会可行性网络安全技术的不断提升,网络管理人事在实际运用中越来越被企业或个人所接受这些都可以在实际生活中找到材料和数据.,并且在不断的提升和表现它在实际企业活动中的经济价值,这个经济价值也是当前的企业所期望看到的.人事管理工作覆盖面广,涉与到机构设置、人员调配、员工培训、考核、奖惩、工资福利待遇等多个方面.人事管理活动中产生的大量数据和信息,如:各级机构的层次构建,职工的自然状况,职称、职务变动情况,考核培训结果,专业技术工作与主要业绩以与针对这些数据进行的各类统计报表的制作和综合分析等.对如此多的数据、信息的管理、开发与运用,都必须在规范化和标准化的基础上实现,借助于网络化管理手段能够满足这些要求.3 系统分析3.1业务流程分析业务流程分析是对业务功能分析的进一步细化.业务流程分析的目的是：形成合理、科学的业务流程.根据人力资源管理业务的流程特点,绘制其业务流程图如下：有关部门人事管理信息系统工资查询单人员变动单人员查询单人员变动单人员资料工资单管理员一般用户3.2数据流程分析数据流程分析就是把数据在现行系统内部的流动情况抽象出来,舍去了具体组织机构、信息载体、处理工作等物理组成,单纯从数据流动过程来考察实际业务的数据处理模式.数据流程分析主要包括对信息的流动、变换、存贮等的分析.其目的是要发现和解决数据流动中的问题.根据人力资源管理业务数据流动的特点,绘制其数据流程图如下：有关部门数据存档 工资基本表登记处理登记成立一般用户管理员管理员管理员基础档案表登记处理登记成立人员变动表登记处理登记成立3.3数据字典数据字典是关于数据的信息的集合,也就是对数据流图中包含的所有元素的定义的集合.为了对设计了传统中的各个元素作出详细的说明,有必要建立数据字典.数据字典的主要内容是对数据流程图中的数据项,数据结构,数据流,处理逻辑,数据存储和外部实体等六个方面进行具体的定义.3.3.1数据项1数据项名称： 用户名简述：用户的名字,没有重复,可以唯一标识每一用户类型：文本长度：502数据项名称：用户密码简述：用户的密码,用来证验登陆的用户是否合法.类型：文本长度：503数据项名称：是否管理员简述：描述是否系统管理员类型：是/否取值范围：真/假3.3.2数据结构1数据结构名称：用户名和密码信息 组成：用户名,密码,是否管理员2>数据结构名称：民族档案设置组成：民族编号,民族名称3数据结构名称：职工类型设置组成：职工类型编号,职工类型名称4数据结构名称：文化程度设置组成：文化程度编号,文化程度名称.5数据结构名称：政治面貌设置组成：政治面貌编号,政治面貌名称6数据结构名称：部门类别设置组成：部门类别编号,部门类别名称7数据结构名称：工资类型设置组成：工资类型编号,工资类型名称8数据结构名称：职称类别设置组成：职称类别编号,职称类别名称.9数据结构名称：职务类别设置组成：职务类别编号,职务类别名称10数据结构名称：职工信息组成：职工编号,职工性别,职工年龄,民族,婚姻状况,家庭 ,电子,手机,籍贯,地址,毕业学校,职称,入职时间,职称类别,部门类别,职务类别.11数据结构名称：职工的家庭成员组成：编号,员工号,成员#,关系,出生日期,工作单位,担任职务,政治面貌4 系统设计4.1功能结构设计根据系统的总体要求与设计思想,结合上面的分析,设计得出的人事信息系统模块 .主要由以下几个功能模块组成.具体实现步骤为：1> 系统E-R图用户设置民族档案案文化程度政治面貌职称类别工资类别部门类别职工类型职务类别用户名职务名称密码职务编号民族编号民族名称文化程度编号编号文化程度名称工资类别编号工资类别名称2> 系统功能模块图企业人事管理系统档案操作帮助登录用户管理关于系统基础档案工资管理系统管理用户管理数据管理密码修改系统帮助公司信息单位设置系统参数数据备份数据还原3> 系统图管理员P1后台管理D1管理信息表D2基础数据表D3人员基本表D4工资基本表D7人员详细表P2前台管理一般访问者D5人员查询表D6工资查询表4> 系统流程图用户登录查询管理员工基本信息,工资管理,人员调动档案操作Y N查看公司信息,单位设置,系统参数设置系统设置YN登录用户权限管理,密码修改用户管理Y N数据管理数据备份,数据还原Y N帮助系统使用帮助,关于系统信息YN退出4.2数据库设计数据库在一个信息管理系统中占有非常主要的地位,数据库结构设计的好坏,将直接对应用系统的效率以与实现的效果产生影响,合理的数据库机构设计可以提高数据库存储的效率,保证数据的完整和一致,同时也有利于程序的实现.设计数据库时应考虑到用户各方面的需求,包括现有的以与将来的可能增加的需求.同时,也要考虑到由于用户错误的数据操作所可能产生的问题,以与解决此类问题的办法.用户的需求体现在各种信息的提供、保存、更新和查询上.这就要求数据库系统能够充分满足以上要求,根据系统用户的需求,结合数据库自身的条件和一般的信息管理系统的需求,利用Access数据库设计企业人事信息管理系统所需的数据库项和数据结构如下：1） 基础档案表2） 参数设置表3） 部门设置表4） 个人简历表5） 个人荣誉表6） 家庭信息表7） 工资发放表8） 工资管理表9） 公司信息表10） 系统用户表4.3 代码设计代码是代表事物名称,属性,状态等的符号,为了便于计算机处理,一般用数字,字母或它们的组合来表示.本系统需设计的代码是员工工号,根据公司员工人数和人员特点,决定选用顺序码编制员工工号.具体设计如下：员工工号由工作单位识别码公司代码、部门代码,个人信息识别码 <入司年码、入司月码、入司序号>共10位数字构成,其排列顺序为：工作单位识别码个人信息识别码公司代码部门代码入司年码入司月码入司序号#其中"工作单位识别码"是各子公司各部门在全集团内唯一标识符,由四位数字组成.前两位数字是"公司代码",后两位是"部门代码".而"个人信息识别码"由六位数字组成,前两位是"入司年码"、中间两位是 "入司年码"、后两位位是"入司序号".4.4 输入输出设计系统设计的过程和系统实施的过程恰好相反,并不是从输入设计到输出设计,而是从输出设计到输入设计,这是因为输出设计直接和用户需求相联系,设计的出发点应该是保证输出方便地为用户服务,正确地反映用户所需要的有用信息.1输出设计输出设计的主要目的是满足用户和管理者对数据和信息的要求.输出设计要考虑的主要内容有： 输出信息名：该输出信息的名称.输出功能：该输出信息起什么作用.输出周期：多长时间输出一次.输出期限：每次输出的期限 .输出媒体：输出信息记录媒体名称. 输出方式：批输出还是实时输出.输出用纸：专用纸或通用纸.传递方式：邮递、 、 、电子或人工传递.使用后的处理：保存、销毁或上缴.输出用文字：英文、汉字、汉语拼音.输出信息校验：检验输出信息的正确性,包括确定校验内容、检验方法和校验后的处理.#要求：有或无.输出项目名称：构成输出信息的每个数据项.本系统中所选用的输出方式有三种：查询显示输出、报表打印输出和图形显示输出.查询显示输出的信息主要是各种查询结果,这是一种实时性要求很高的输出,输出设备是显示器.报表打印输出的信息主要是各种报表形式的数据信息,如工资发放信息,上级部门要求上缴的统计数字等.图形显示输出具有前两者所无法比拟的优越性,它直观,可比,易于理解,结论明显. 例如图形显示输出：职工工资Excel表2输入设计在计算机信息系统中,输入数据的正确性决定着整个系统质量的好坏.若输人数据缺精确性和适时性,即使计算和处理十分正确,也不可能得到可靠的输出信息.最佳的信息系统始于最佳的输入系统.根据输出信息的要求,输入设计要考虑的主要内容如下:输入信息名：该输入信息的名称.输入功能：该输入信息起什么作用.输入周期：多长时间输入一次.输入期限；每次输入的期限. 输入媒体：输入信息记录媒体名称.输入方式：批输入还是实时输入.收集方式：原始记录如何收集.原始信息名：与本输入对应的用户原始凭证.输入项目名：构成输入信息的每个数据项名称.输入用文字：英文、汉字或汉语拼音.本系统采用的输入方式主要是键盘输入,便于查询和检索系统.因此,友好的输入界面变得非常重要,必须保证用户在输入时方便、安全、高效.例如新增职工信息输入如下图：新增职工信息输入图随着信息技术的发展和各种新概念不断地引入管理<如电子化管理等>,简单的键盘输入必将不能适应快节奏的运营方式.因此有必要引进先进的技术手段,使系统实现联机输入,将数据信息以报文的形式从各用户终端送到处理中心.这是系统今后扩充时要考虑的, 另外,还要考虑数据输入格式,主要要求如下:输人格式应保证输入精度. 输人格式应尽量减少填写量,便于填写,便于校对.同意规格和代码,按标准格式输入.简化和减轻输入负担. 例如在键盘输入过程中,应保证画面大小和屏幕大小相一致,各种凭证的输入应考虑输入格式和凭证格式相一致.数据输入完成后,并不能马上就进入系统,还应对其进行检验,称为输人数据检验.输人数据检验是保证输入数据正确的重要措施.通过多种措施,对全部输人数据设想其可能出现的差错,对之进行校验,对校验中查到的有错数据,考虑修改与补救办法.数据校验的办法有两类：静态检验<人工复核>和动态检验<计算机程序检验>.在本系统中,进行输入数据检验的具体做法要求如下： <1>严格复核制度,未经复核的凭证、单据不得上机录入.<2>重复校验,经过复核的数据、凭证还应经另外的输人人员进行检验.<3>人工静态检验,在输入的同时,由、计算机显示输入的数据,然后与原始单据进行对比,查找错误. <4>程序检验,根据输入的数据类型、格式、逻辑性等进行检验,具体内容包括：数字检验：检查数字项目内容中是否出现非数字数据.界限检验：检查数据项目是否超过规定的数据范围,如数据位数、数值范围等.逻辑检验：检查数据的合理性、逻辑性是否符合要求<例如月份不会超过12,更不会是负数>.格式检验：检查数据记录中各数据项的位数和位置是否符合预先规定的格式.例如工资定为4位整数、2位小数,检查最高位是不是空格或数字等.字符检验：检查全部由字母组成的数据<如#>中是否出现非字母字符,或检查该数据长度和格式是否符合规定.对于检查出的输人数据错误,应该以恰当的形式报告出来,或打印错误报告,或实时提出错误警示和修改提示等,帮助用户尽快正确输入数据.4.5 系统配置设计 多种多样的的计算机技术产品为信息系统的建设提供了极大的灵活性,使我们可以根据应用的需要选用不同生产商的性能各异的软硬件产品,但同时员工系统设计工作带来了新的困难,那就是面对众多厂家生产的产品如何做出最明智的选择.本系统的主要设计依据是：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以上,Access 2003,Visual Basic 6.0 中文版另外,其他系统配置根据自身公司的需要进行选择.5 结束语本文介绍采用VB结合Access数据库开发的企业人事管理信息系统,提供了用户的权限管理、人事档案的查询、添加、删除、数据的导人导出、工资的管理以与数据库的备份和恢复等功能,操作简单明了,与Access和Excel联合办公紧密,方便人事管理部门进行人事档案查询和管理,可大大提高工作效率,将会使企业的人事管理工作步人崭新的台阶.本统在实际的使用过程中还有很多可以完善的地方,譬如各种人事档案数据的汇总、统计能和数据报表的制作等.不足的是,由于系统所采用的数据库为Access,虽使用起来比较方便,但网络化程度还不高且只能用于中小型企业.总之,该程序可以满足目前的人事管理的需求,随着人事管理工作规范化、信息化、网络化的发展趋势,其应用将会越来越广泛.参 考 文 献1. 黄梯云管理信息系统高等教育,20092. 郑阿齐.Visual Basic 实用教程. 电子工业 ,20043. 黎连业.管理信息系统设计与实施.清华大学,19984. 张晓黎.Visual Basic+SQL Server数据库应用系统开发与实例.人民邮电,20035. 张德.人力资源开发和管理.清华大学,19956. 许树柏.实用决策方法层次分析原理.#大学,19987. 秦寿康.综合评价原理和应用.电子工业,2000.38. 彭运芳.人力资源开发的层次分析模型.系统工程,2004第22卷,第4期：71739. 张林.企业业绩评价的战略沟通功能研究.#大学学报社会学版,2004第6卷,第2期：14614910. 单薇.利用模糊综合评价实现企业水平的量化分析.数学的实践和认识,2002第32卷,第2期：20621011. 陈捷.绩效评估研究的新进展.南京师范大学社会科学版,2003第3期：818512. 符志明,李汉玲.绩效评价体系研究.系统工程与电子技术,2001第9期：232513.李昕,刘连臣,吴澄.一种基于目标规划的AHP参数学习算法.清华大学学报自然科学版,2004第44卷,第4期：466469附录 部分程序代码1 系统的登录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 As 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 dwFlags As Long> As LongDim Alpha As Integer '声明变量Private Sub cmdDL_Click<>If Me.Combo1.Text = "" Then MsgBox "请选择登陆用户！", 48, "错误提示" Exit SubEnd IfCall OpenConnSQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'"rs.Open SQL, , 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 IfEnd SubPrivate Sub cmdTC_Click<>EndEnd SubPrivate Sub Form_Initialize<>Call InitCommonControls 'XP效果End SubPrivate Sub Form_Load<>Me.Shape1.Top = Me.Top '外边框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeight'-Dim Ret As Long Ret = GetWindowLong<Me.hWnd, GWL_EXSTYLE> Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20'-Call OpenConnSQL = "select czy from 系统用户表"rs.Open SQL, , 1, 1 Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNext LoopCall CloseConnCall OpenConnSQL = "select 公司名称 from 公司信息"rs.Open SQL, , 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 SetLayeredWindowAttributes 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 As 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 dwFlags As Long> As LongDim Alpha As Integer '声明变量Private Sub cmdDL_Click<>If Me.Combo1.Text = "" Then MsgBox "请选择登陆用户！", 48, "错误提示" Exit SubEnd IfCall OpenConnSQL = "select * from 系统用户表 where Czy='" & Me.Combo1.Text & "'"rs.Open SQL, , 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 IfEnd SubPrivate Sub cmdTC_Click<>EndEnd SubPrivate Sub Form_Initialize<>Call InitCommonControls 'XP效果End SubPrivate Sub Form_Load<>Me.Shape1.Top = Me.Top '外边框Me.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeight'-Dim Ret As Long Ret = GetWindowLong<Me.hWnd, GWL_EXSTYLE> Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret Timer1.Interval = 20'-Call OpenConnSQL = "select czy from 系统用户表"rs.Open SQL, , 1, 1 Do While Not rs.EOF Me.Combo1.AddItem rs!czy rs.MoveNext LoopCall CloseConnCall OpenConnSQL = "select 公司名称 from 公司信息"rs.Open SQL, , 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 SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub3 用户管理Dim qx As String '权限Private Sub Check1_Click<Index As Integer>End SubPrivate Sub cmdBC_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, , 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, "提示" Me.txtCZY.Enabled = True Me.cmdSC.Enabled = FalseElse Call OpenConn SQL = "select * from 系统用户表 where czy='" & Me.txtCZY.Text & "'" rs.Open SQL, , 3, 3 For i = 0 To 5