人事劳资管理信息系统设计毕业论文.doc

人事劳资管理信息系统设计毕业论文目 录第一章 引言51.1 背景介绍51.2 问题的提出51.3 研究的内容、目的、过程和方法6第二章 系统分析82.1 系统分析概述82.2 系统功能规划92.3 可行性分析10 2.4 现行业务流程描述122.5 处理过程设计122.6 系统规划152.7 系统数据流图172.8 系统建模（E-R图）182.9 数据字典20第三章 系统设计与实施213.1 VisualBasic 6.0及SQL2000数据库简介213.2 系统设计概述223.3 系统设计思路233.4 系统功能模块图233.5 代码设计243.6 数据库设计343.7 模块内部设计37第四章 系统测试、运行于维护394.1 系统测试394.2 系统运行与维护40结论 42致谢 43参考文献 44第一章 引言1.1 背景介绍在竞争越来越激烈的社会里，企业人事管理就越显示出其不可缺性，成为企业一个非常重要的模块。企业人事管理系统主要是用于员工个人相关信息的管理。使用人事管理系统，便于公司领导掌握人员的动向和人员的综合素质，及时调整人才的分配，使用计算机对人事劳资信息进行管理，具有检索迅速、查找方便、可靠性高、存储量大、保密性好、成本低等优点，能够极大地提高人事资源管理的效率，也是企业科学化、正规化管理的重要条件。设计一个企业人事信息管理系统，此系统要以人为中心，为企业提供全面的人事管理解决方案；(1) 为企业建立规范化、实时化人事管理机制；(2)提高企业人事管理的效率、节约相关的管理成本，增强人事管理的安全性；(3)满足企业管理层，人事业务操作层和全体员工的不同层次和不同方面的需要；(4)对企业将来的整体信息化建设提供必要的支持。1.2 问题的提出随着计算机技术的飞速发展，计算机在企业管理中的普及，利用计算机实现企业人事信息的管理势在必行。人事管理是现代企业管理工作中不可缺少的一部分，是适应现企业管理尺度的要求、推动企业劳动人事管理走向科学化、规范化的必要条件。只有人事管理规范了，才能在其他方面有更好的发展。为了适应现代企业或公司经营发展的需要，人事管理也从以前的手工管理逐渐被规范化的管理信息系统所代替。众所周知，当今社会为信息社会，世界已进入计算机信息管理激烈竞争的年代，因此，加强人事管理在单纯依靠以手工管理的方法，不仅需要耗用大量的人力、物力、财力，而且工作效率低，漏洞和错误众多，难以达到预期的目标，为了提高企业工作效率、保证企业人事管理质量、快速而且准确地为企业制定好的经营方针与决策，在有限的时间内完成工作任务及达到预期的目的，所以，开发企业人事信息管理系统是有必要的。由于管理系统的对象单一，仅对人事信息进行管理，且在对人事信息进行增减、修改、删除及统计操作时基本不涉及到计算过程，因此，这个管理系统比较适合采用数据库来设计。在计算机硬件和软件快速发展的今天，计算机硬件和软件已经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一改过去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建应用程序，极大地提高了编程效率。在本人所了解数据库系统中，因为学过VisualBasic 6.0，所以对VisualBasic 6.0及 SQL 2000数据库比较熟悉， VisualBasic 6.0中文版数据库开发的应用程序可以独立运行于windows平台，而且SQL 2000产生的数据库（表）适用范围广，因此决定采用VisualBasic 6.0中文版来完成人事信息管理系统的设计。1.3 研究的内容、目的、过程和方法1.3.1 研究的内容和目的本文研究的主要内容是公司人事信息管理系统的分析和设计过程，其目的在于为该系统的开发奠定坚实的理论基础。系统的成功开发将大大缓解人事管理的工作压力，这样，既能够提高人事管理工作的工作效率，又能在客观上促进企业的信息化发展。1.3.2 研究的过程从选题，调研，熟悉开发环境，实验关键技术，查找类似的相关系统的资料；系统需求分析，数据库结构设计，功能模块开发，功能模块测试，系统调试和系统试运行和修改。下面的流程图反映了本题的基本的思路和过程。在各阶段的时间安排上，选题和调研用了两周左右的时间；熟悉开发环境，实验关键技术，查找类似的相关系统的资料用了两周时间；系统需求分析用了一周的时间；数据库结构设计用了一周时间；功能模块开发和功能模块测试用了四周的时间；最后，系统调试和系统试运行和修改用了约三周的时间。完成全部工作大约用了近3个月的时间。系统任务描述框架如图1-1所示：图1-1 系统任务描述框架1.3.3 研究的方法 该系统的研究主要采用了结构化的系统分析与设计方法。该方法主要包括以下几个特点：（1） 预先明确用户需求，根据需求来设计信息系统（2） 自顶向下来设计或规划信息系统（3） 严格按阶段进行（4） 工作文档标准化和规范化（5） 运用系统的分解和综合技术，使复杂的系统简单化（6） 强调阶段成果的审定和检验1.3.4 系统开发框架1.3.4 系统开发框架：系统开发框架如图1-2所示：图1-2 系统开发框架第二章 系统分析软件工程采用的生命周期方法学就是要从时间的角度对软件开发和维护的复杂问题进行分解，把软件生命的漫长周期依次划分为若干个阶段，每个阶段都有相对独立的任务，然后逐步完成每个阶段的任务。本文所设计的人事、劳资管理信息系统也要按照这个来做。因此，首先要对人事信息管理系统进行需求分析。需求分析的任务不是具体解决问题，主要确定系统必须具备那些功能。在这个阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。2.1系统分析概述系统分析的任务是：对客观世界存在的事物或问题进行分析，并用科学的方法将其抽象为逻辑模型。系统模型分为逻辑模型和物理模型。逻辑模型主要确定系统做什么，而物理模型则主要解决怎样做的问题，前者是系统分析的主要任务，后者是系统设计的主要任务。系统分析的主要工作有：（1） 需求分析。包括需求的产生，数据需求，功能需求和非功能需求。（2） 可行性分析。（3） 现行业务流程分析。（4） 系统建模。包括功能建模和信息建模2.2 系统功能规划2.2.1 系统功能概况通过了解，现在不少单位人员较多而且人员的调动流通比较频繁，加上聘用的外面的人员较多，对他们也要建立信息档案进行管理，因此管理系统要有较好的增加人事信息、修改人事信息和删除人事信息的功能。作为人事信息管理系统查询功能是必不可少的。在几年的改革过程中，时常要对各种人事信息进行查询。在进行定员定额时要对各个部门的人员进行查询，在对职工的人员素质调查时，要对全体人员的文化程度和年龄结构进行查询。因此管理系统的查询功能要强大，不仅要支持单个查询，还要能进行复杂的多条件查询。在人事信息管理工作中，要经常了解各个部门的人员多少，知道男女人员的比例结构，各个年龄层次上人员的多少等等，都需要有统计人数的功能。任何单位对内部员工的人事管理，都要建立花名册，所谓的花名册就是要把单位所有人员的主要信息打印出来，装订成册，放入单位档案以便备查。因此在人事信息管理系统要具备打印花名册的功能。另外，人事信息管理系统里面包含了单位所有人员的信息，不是任何人都能查看的。所以要对管理系统设置密码限制。除了人事信息管理人员以外，还有比如单位主要领导等都有权利对人事信息进行查询，因此要对管理系统设置级别限制，不同级别的人员有不同的操作范围。人事管理系统一般有将本单位的人事库上报给上级单位的要求。现在是网络时代，系统最好有E-mail上报功能。2.2.2 系统功能分析在通过对人事管理人员的调查和对他们的了解，要求管理系统应具备以下功能：(1)由人事管理人员的条件决定，管理系统要有良好的人机界面。(2)要有简单方便的增加、修改、查询人事信息的功能。(3)要有快速准确的人事信息查询，并且要支持多条件的查询。(4)对操作人员的限制和多级别的控制，因此要有较好的权限管理(5)在相应的权限下，修改数据要方便简单，数据稳定性要好。(6)要有方便的退出功能，并对设计做一个简单的关于说明。(7)人事信息管理系统数据库的设计采用VisualBasic 6.0及SQL 2000。 需求分析阶段的工作结果是开发软件的重要基础，大量统计数字表明，软件系统中15%的错误起源于错误的需求。为了提高软件的质量，确保软件开发成功，降低软件的开发成本，一旦对目标系统提出一组要求之后，必须严格验证这些需求的正确性。一般来说，应从下面四个方面进行验证： (1)一致性 所有需求必须是一致的，任何一条需求不能和其他需互相矛盾。 (2)完整性 需求必须是完整的，规格说明书应该包括用户需要的每一个功能或性能。 (3)现实性 指定的需求应该是用现有的硬件技术和软件技术基础上可以实现。对硬件技术的进步可以做些预测，对软件技术的进步很难做些预测，只能从现有的技术水平出发判断需求的现实性。 (4)有效性 必须证明需求是正确有效的，确保能解决用户面对的问题。通过用户和设计者对上述需求分析所得到的管理系统功能的复查，并且对照上面几点要求进行验证，人事、劳资管理信息系统提出的基本满足需求分析验证的要求。2.3 可行性分析可行性研究的目的就是要用最小的代价在尽可能短的时间内确定问题是否能够解决。当然不能靠主观猜想而是要靠客观分析。必须分析几种主要的可能解法的利弊，从而判原定的系统目标和规模是否现实，系统完成后所能带来的效益是否大到值得去投资开发这个系统的程度。因此，可行性研究实质上是要进行依次大大地压缩简化了的系统分析和设计的过程，也就是在较高层次以较抽象的方式进行的系统分析和设计的过程。可行性研究主要从以下五个方面来进行。2.3.1 技术可行性 使用现有的技术能不能实现这个系统。由于本管理系统的对象单一，仅对本单位的人事信息进行管理，且在对人事信息进行增减、修改、删除及统计操作时基本不涉及到计算过程，因此，这个管理系统比较适合采用数据库来设计。在计算机硬件和软件快速发展的今天，计算机硬件和软件已经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一改过去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建应用程序，极大地提高了编程效率。在作者所了解数据库系统中，因为学过Visual Basic 6.0，对SQL 2000数据库比较熟悉，因此决定采用VisualBasic 6.0及SQL 2000来完成人事信息管理系统的设计。VisualBasic 6.0和SQL 2000共同完成人事信息管理系统，它提供了面向对象的编程技术，编写少量或不用编写程序代码就能快速地创建出功能强大的可视化应用程序，可简化数据库管理，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，用SQL 2000数据库开发的应用程序可以独立运行于windows平台， 而且SQL 2000产生的数据库（表）适用范围广。 2.3.2 经济可行性 这个系统的经济效益能不能超过它的开发成本。本人事信息管理系统是基于VisualBasic 6.0及SQL 2000基础上开发的小型数据库应用程序，不需要多少人力和物力就可以设计的。但本系统一旦投入使用，将大大减少人事信息管理人员的工作量，提高了工作效率，其经济效益是显儿易见的。2.3.3 操作可行性 系统的操作方式在这个用户组织内能不能行得通。在进行需求分析时，对用户组织进行调查，针对具体的情况，设计出适合这个用户组织的人机界面，使操作方式简单明了。2.3.4 人员的可行性本人事信息管理系统是用VisualBasic 6.0及SQL 2000设计的小型数据库应用程序，无须多少人员就可以设计成功的。通过对人事信息管理系统的可行性分析，所提出的功能是适合人事信息管理的，也完全可以实现的。2.4 现行业务流程描述根据人事管理工作的程序，现行业务流程如图2-2所示：图2-1 图例1图2-2 现行业务流程图2.5 处理过程设计 处理过程设计是指模块的处理流程或算法流程。为保证在系统实施阶段，能够编出良好的程序，在模块内部设计时采用了结构化的设计方法。本文中将用流程图表示处理过程。以下将就本系统的核心部分进行分析，并列出程序处理过程的流程图。2.5.1 系统登陆程序流程图系统登录程序如图2-3所示：图2-3 系统登陆程序流程图2.5.2 员工基本信息程序流程图员工基本信息程序如图2-4所示：图2-4 员工基本信息程序流程图2.5.3 员工考勤管理程序流程图员工基本信息程序如图2-5所示：图2-5 员工考勤管理程序流程图2.5.4 员工工作评价程序流程图员工工作评价程序如图2-6所示：图2-6 员工工作评价程序流程图2.5.5 员工工资管理程序流程图员工工资管理程序如图2-7所示：图2-7 员工总工资管理程序流程图2.6 系统规划通过上面的系统需求分析和可行性研究，基本确定了本管理系统的各个功能模块。人事信息管理系统是单位用来存储、查询及统计人员各种信息的，因此，它是个典型的数据库管理系统。主要由系统管理模块、员工基本信息模块、员工考勤管理模块、员工工作评价模块、员工工资管理模块、关于模块和程序封面模块等组成。2.6.1 系统管理模块该模块的主要作用是维护本人事管理系统的安全和退出的。为了保证系统的安全，在系统中设置了用户登陆密码，因此，在这个模块中设计了用户密码修改功能，同时为了系统维护管理员对整个系统进行管理，设计了增加用户、注销用户的功能。在设计中，将本系统的退出功能也放在这个模块中。2.6.2 员工基本信息模块该模块主要实现如下功能：（1） 添加员工基本信息（2） 修改员工基本信息（3） 删除员工基本信息（4） 查询员工基本信息2.6.3 员工考勤管理模块该模块主要实现如下功能：（1） 添加考勤信息（2） 修改考勤信息（3） 删除考勤信息（4） 考勤信息查询2.6.4 员工工作评价模块该模块主要实现如下功能：（1） 添加工作评价信息（2） 修改工作评价信息（3） 删除工作评价信息（4） 工作评价信息查询2.6.5 员工工资管理模块 该模块主要实现如下功能：（1） 计发员工工资信息（2） 修改员工工资信息（3） 员工总工资信息查询2.6.6 关于模块此模块的功能是对本人事管理系统作一个说明。说明本系统的性质、设计时间等等。2.6.7 程序封面模块此封面模块的功能一是为了美化本系统程序，二是为了在启动本系统时用作登陆表单。系统启动时首先打开封面模块，只有在封面模块中的用户登陆窗口中输入用户名和密码，经系统确认正确后才能使用本系统。2.7 系统数据流图根据人事信息管理系统的设计思路，将系统中的数据处理过程形象化，绘制成数据流程图，以便考察数据的处理模式。数据流程图简称DFD图是利用外部项，数据流，处理逻辑和数据存储四种基本成分及若干规则来描述系统逻辑模型的。（1）DFD图将使用以下的符号来表示四种基本元素。如图2-8所示：图2-8 图例2（2）人事信息管理系统的数据流图。如图2-9，图2-10，图2-11所示：图2-9系统数据流图图2-10系统数据流图图2-11系统数据流图2.8 系统建模（E-R图）系统信息建模主要用到的工具是E-R图。实体与实体间的关系E-R图如下图2-7所示：图2-12 系统E-R图实体与实体间的关系E-R图规划出的实体有：员工基本信息、员工考勤信息、员工工作评价信息、员工工资信息。各个实体具体的描述E-R图如图2-13，图2-14，图2-15，图2-16所示：图2-13 员工基本信息实体E-R图图2-14 员工考勤信息实体E-R图图2-15 员工工作评价信息实体E-R图图2-16 员工工资信息实体E-R图2.9 数据字典根据公司的人事信息管理系统的需求，通过对员工工作过程的内容和数据流分析，设计如下所示的数据向和数据结构。 针对公司人事信息管理系统的需求，通过对员工工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：员工基本信息：包括的数据项有员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参加工作时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原工作单位、备注等。员工考勤信息：包括的数据项有员工所在部门、员工姓名、出勤时间、公休时间、旷工时间、请假时间、早退时间、迟到时间、加班时间、出差时间等。员工工作评价信息：包括的数据项有员工姓名、员工所在部门、工作业绩、工作态度、业务水平、备注等。员工工资信息：包括的数据项有员工所在部门、员工姓名、底薪、补贴、奖金、加班、住房补贴、房租、养老金、医疗保险、住房公积金、所得税、实发工资等。第三章 系统设计与实施3.1 VisualBasic 6.0及SQL 2000数据库简介3.1.1 VisualBasic的发展 VisualBasic（简称VB）是美国Microsoft公司推出、专门针对32位Windows操作系统的程序设计语言。随着计算机的普及，当时PC机上操作系统也不断发展，Microsoft公司对其Baxic产品也做了许多方面的改进，推出了Quick Basic,并得到了广泛的好评。20世纪90年代初，由于Windows操作平台的逐渐流行，PC机的操作方式开始由命令型方式向图形用户界面(GUI,Graphical User Interface)方式转变。Microsoft公司凭借强大的技术支持，开始把Basic向可视化编程方向发展，于是就有了第一代的Visual Basic产品。虽然第一代的产品功能很少，但是他有跨时代的意义。随着Windows操作系统的不断成熟，Visual Basic产品有1.0版升级到3.0版，此时Visual Basic 已初具规模了，利用它可以快速的创建各种应用程序，包括非常流行的多媒体应用程序和各种图形操作界面。在1998年，Microsoft推出了Visual Basic 6.0 版本，这一版本得到了很大的扩充和增强。他还引入了使用部件编程的概念，实际上这是对面向对象编程思想的扩展。迄今为止，Visual Basic已经发展成为快速应用程序开发(RAD,Rapid Application Debelopment)工具的代表。3.1.2 VisualBasic特点Visual Basic是Windows平台上一个强大的开发工具，无论是初学者，还是专业人员都可以方便的使用它进行程序设计。Visual Basic提供的是真正的面向对象的可视化编程方法，开发人员只需少量代码就可以编者出具有标准Windows风格的程序，代码维护非常方便。使用Visual Basic语言，不但可以编制常规的应用程序，而且可以使用VB的脚本语言VBScript进行Web开发、使用嵌入式VB语言VB for Application（VBA）对一些流行软件进行二次开发，还可以设计ActiveX控件，用于Web或其他支持这一技术的程序中。Microsoft不断的把最新的技术融入Visual Basic中，无论是网络应用程序、多媒体软件还是数据库系统，使用Visual Basic都能够容易地实现。3.2 系统设计概述系统设计的任务是：在系统分析提出的逻辑模型的基础上科学合理地进行物理模型设计。系统设计的主要工作有：（1） 总体设计。包括系统技术构架，软件结构设计和系统流程设计。（2） 代码设计。（3） 数据库设计。（4） 输入/输出设计。从系统分析的逻辑模型设计到系统设计的物理模型设计是一个由抽象到具体的过程。经过系统设计，设计人员应能为程序开发人员提供完整，清楚的设计文档，并对设计规范中不清楚的地方做出解释。系统设计的原则包括：（1） 系统性系统是作为统一整体而存在的，因此，在系统设计中，要从整个系统的角度进行考虑，系统的代码要统一，设计规范要标准，传递语言要尽可能一致，对系统的数据采集要做到数出一处，全局共享，使一次输入得到多次利用。（2） 灵活性为保持系统的长久生命力，要求系统具有很强的环境适应性，为此，系统应具有较好的开放性和结构的可变性。在系统设计中，应尽量采用模块化结构，提高各模块的独立性，尽可能减少模块间的数据耦合，使各子系统间的数据依赖减至最低限度。这样，既便于模块的修改，又便于增加新的内容，提高系统适应环境变化的能力。（3） 可靠性可靠性是指系统抵御外界干扰的能力及受外界干扰时的恢复能力。一个成功的管理信息系统必须具有较高的可靠性，如安全保密性，检错及纠错能力，抗病毒能力等。（4） 经济性经济性指在满足系统需求的前提下，尽可能减少系统的开销。一方面，在硬件投资上不能盲目追求技术上的先进，而应以满足应用需要为前提；另一方面，系统设计中应尽量避免不必要的复杂化，各模块应尽量简洁，以便缩短处理流程，减少处理费用。3.3 系统设计思路 针对该系统功能的相对独立性的特点，将系统分成相对独立的几个子系统，独立的进行设计。各个子系统独立地完成其所在模块的服务功能，与其他子系统发生信息的传递很少。 系统设计的主要依据是系统分析阶段得到的系统功能模型，信息模型以及系统配置。系统设计采用的主要方法是结构设计方法，该方法自顶向下，逐步求精。采用先全局后局部，先总体后细节，先抽象后具体的过程，将系统设计成一个层次分明的模块化结构，使系统的结构清晰，具有可读性，可维护性，可修改性等特点。3.4 系统功能模块图系统功能模型，反映了系统功能或处理的详细内容及逻辑关系，并没有详细说明系统内部所有的信息结构的组织和相互关系。所以必须建立系统的信息模型。 深入分析后得知：数据是信息处理的核心，数据管理是系统建设的核心。建立系统信息模型的主要目标是提供一个数据的含义和相互关系的一致定义。从而用来集成，共享和管理数据的完整性。将具备以下特征：必须和系统基础结构相一致，并且真正覆盖所有应用范围。必须是可扩展的，可以在原定义数据不变的情况下再定义新的数据。系统功能模块如图3-1所示：图3-1 系统功能模块图3.5 代码设计3.5.1 代码的功能（1）它为事物提供一个概要而不含糊的认定，便于数据的存储和检索。代码缩短了事物的名称，无论是记录、记忆还是存储，都可以节省时间和空间。（2） 使用代码可以提高处理的效率和精度。按代码对事物进行排序，累计或按某种规定算法进行统计分析，可以十分迅速。（3） 代码提高了数据的全局一致性。这样，对同一事物，即使在不同的场合有不同的叫法，都可以通过编码统一起来，提高了系统的整体性，减少了因数据不一致而造成的错误。（4）代码是人和计算机的共同语言，是两者交换信息的工具。在手工处理系统中，许多数据早已使用代码。为了给尚无代码的数据项编码，为了统一和改进原有代码，使之适应计算机处理的要求，在建立新系统时，必须对整个系统进行代码设计。3.5.2 代码的设计原则合理的编码结构是信息处理系统是否具有生命力的一个重要因素，在代码设计时，应根据以下原则：（1） 设计的代码在逻辑上必须能满足用户的需要，在结构上应当与处理的方法相一致。（2） 一个代码应唯一标识它所代表的事物或属性。（3） 代码设计时，要预留足够的位置，以适应不断变化的需要。否则，在短时间内，随便改变编码结构对设计工作来说是一种严重浪费。一般来说，代码愈短，分类、准备、存储和传送的开销就愈低；代码愈长，对数据检索，统计分析和满足多样化的处理要求就愈好。（4） 代码要系统化，代码的编制应尽量标准化，尽量使代码结构对事物的表示具有实际意义，以便于理解及交流。（5） 要注意避免引起误解，不要使用易于混淆的字符。如：O，Z，I，S，V与0，2，1，5，U易混；不要把空格做作代码；要使用24小时制表示时间等。（6） 要注意尽量采用不易出错的代码结构，例如字母-字母-数字的结构，（如WW2）比字母-数字-字母的结构（如W2W）发生错误的机会要少一些。（7） 当代码长于4个字母或5个数字字符时，应分成小段。这样人们读写时不 易发生错误，如726-499-6135比7264996135易于记忆，并能更精确地记录下来。3.5.3 代码设计表表3-1 员工的ID代码设计表格说明:员工登记序号的前后顺序按照结果录入数据库的时间顺序排列举例:码0101002代表工程部序号为002的在职员工。3.5.4 关键源代码（1）用户登录界面Begin VB.Form frmLogin BorderStyle = 0 None Caption = 登录窗口 ClientHeight = 4470 ClientLeft = 2790 ClientTop = 3150 ClientWidth = 4560 LinkTopic = Form1 MaxButton = 0 False MinButton = 0 False ScaleHeight = 2641.023 ScaleMode = 0 User ScaleWidth = 4281.593 ShowInTaskbar = 0 False StartUpPosition = 2 人事信息管理系统 Begin VB.Frame Frame1 BackColor = &H00D8D7D5& Height = 3855 Left = 0 TabIndex = 0 Top = 600 Width = 4455 Begin VB.Frame Frame3 BackColor = &H00D8D7D5& Height = 1455 Left = 120 TabIndex = 3 Top = 2040 Width = 3975 Begin VB.CommandButton Cmd_Cancel Caption = 取消 Height = 615 Left = 2280 Style = 1 Graphical TabIndex = 9 Top = 480 Width = 1335 End Begin VB.CommandButton Cmd_OK BackColor = &H0080FF80& Caption = 确定 Height = 615 Left = 120 TabIndex = 8 Top = 480 Width = 1455 End End Begin VB.Frame Frame2 BackColor = &H00D8D7D5& Height = 1935 Left = 120 TabIndex = 1 Top = 120 Width = 3975 Begin VB.TextBox txtPwd Appearance = 0 Flat BackColor = &H00C0FFFF& Height = 495 IMEMode = 3 DISABLE Left = 1560 PasswordChar = * TabIndex = 7 Top = 1200 Width = 2055 End Begin VB.TextBox txtUser Appearance = 0 Flat BackColor = &H00C0FFFF& Height = 495 Left = 1560 TabIndex = 5 Top = 360 Width = 2055 End Begin VB.Label Label3 BackStyle = 0 Transparent Caption = 输入用户密码： Height = 375 Left = 240 TabIndex = 6 Top = 1320 Width = 1335 End Begin VB.Label Label1 BackStyle = 0 Transparent Caption = 输入用户姓名： Height = 375 Left = 240 TabIndex = 2 Top = 480 Width = 1455 End End End Begin VB.Image Image2 Height = 345 Left = 4200 Picture = frmLogin.frx:0000 Top = 0 Width = 345 End Begin VB.Label Label2 BackStyle = 0 Transparent Caption = 登 陆 系 统 BeginProperty Font Name = 宋体 Size = 12 Charset = 134 Weight = 700 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00FFFFFF& Height = 255 Left = 1440 TabIndex = 4 Top = 120 Width = 2055 End Begin VB.Image Image1 Height = 6975 Left = 0 Picture = frmLogin.frx:2300 Top = 0 Width = 6885 End End Attribute VB_Name = frmLogin Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public PasswordKey As String Public NameKey As String Public Try_times As Integer Private Sub Cmd_Cancel_Click() End End Sub Private Sub Cmd_Ok_Click() Dim tmpUser, tmpPwd As String Dim isexe As Boolean Dim rsusers As ADODB.Recordset tmpUser = Trim(txtUser.Text) tmpPwd = Trim(txtPwd.Text) UserName = tmpUser If MyUser.in_db(tmpUser, tmpPwd) True Then MsgBox 用户名或密码错误, 48, 提示 Else Unload Me Load frmMain frmMain.Show End If End Sub Private Sub Form_Load() txtUser.Text = admin txtPwd.Text = 0 End Sub Private Sub Image2_Click() Unload Me End Sub （2）部门查询BEGIN MultiUse = -1 True Persistable = 0 NotPersistable DataBindingBehavior = 0 vbNone DataSourceBehavior = 0 vbNone MTSTransactionMode = 0 NotAnMTSObject END Attribute VB_Name = Departments Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False 1 DepId 数字，长整型 部门编号，主键 2 DepName 文本，长度为50 部门名称，必填字段（是），允许空字符串（否） 3 Describes 文本，长度为255 部门职能描述，必填字段（否），允许空字符串（是） 4 UpperId 数字，长整型 上级部门编号，必填字段（是） Public DepId As Long Public DepName As String Public Describes As String Public UpperId As Long Public Sub Init() DepId = -1 DepName = Describes = -1 UpperId = -1 End Sub 删除Departments Public Sub Delete(ByVal TmpId As Long) SqlStmt = DELETE FROM Departments WHERE DepId= + Trim(Str(TmpId) SQLExt (SqlStmt) End Sub 读取当前部门记录 Public Sub GetInfo(ByVal TmpId As Long) Dim rs As New ADODB.Recordset 定义结果集对象 DepId = TmpId 使用SELECT语句读取指定部门数据 SqlStmt = SELECT * FROM Departments WHERE DepId= + Trim(Str(TmpId) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then DepName = Trim(rs.Fields(1) 部门名称 If IsNull(rs.Fields(2) Then Describes = Else Describes = Trim(rs.Fields(2) 部门描述 End If UpperId = rs.Fields(3) 上级编号 Else Init End If End Sub 根据部门编号，读取部门名称 Public Functio