论文样例人事、劳资管理信息系统设计

1、.PAGE ：.； PAGE 45人事、劳资管理信息系统设计摘 要随着时代的开展，计算机技术越来越深化各行各业，为宽广的用户提供了更为周到和便利的效力，在企业中，人事信息管理是非常重要的事情。所以需求开发一个简单的、易于操作的人事信息管理系统。人事管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端运用程序的开发两个方面。对于前者要求建立起数据一致性和完好性强、数据平安性好的数据库。而对于后者那么要求运用程序功能完备，易运用等特点。人事管理系统是对任务人员进展一致的管理，可以方便的进展录入，查询，修正，删除，退出。 结合本系统开发的特点，该系统采用SQLserv

2、er做后台数据库管理系统，同时选择了比较容易自学的、功能强大的 Visual Basic .作为开发工具，利用软件工程的思想和方法来设计。 本系统对员工的根本信息、考勤信息、工资信息等，进展了分类管理和统筹规划。采用了进入系统前验证用户身份的方法来加强对系统的平安性和严密性的管理，从而使得只需合法的用户才干进入本系统进展操作。【关键词】人事管理系统 根本信息 考勤信息 工资信息AbstractWith the development of the times, computer technology is becoming increasingly widely used in all wal

3、ks of life. Also, it supplies a more thoughtful and convenient services to a large number of users. In enterprises, the personnel information management is of great significance. Therefore, develop a simple, user-friendly personnel information management system is necessary.Personnel management syst

4、em is a typical management information system (MIS), including the establishment and maintenance of the background-database and front-end application development. To the former, the request for the data which is powerful in consistency and integrity, database which is good in security. For the latte

5、r, the request for the applications program which is integrity and easy to easy, Personnel management system can manage the staff and admit input, enquiries, modify, delete, and exit.Combining to the characteristics of the system development, that system made the choice to adopt SQLserver to the bac

6、kstage of the database management system. Also, it has chosen the easily self-taught but strongly-effect tool, Visual Basic ., as the system development tool. Meanwhile, I took the advantages of the thought and methods of the software engineering to accomplish that system.The system makes the classi

7、fication of each employees basic information, the checking on work attendance information and salary information, etc. Anyone cannot login into the system until the verification system works on. that greatly strengthens the safety and confidentiality of the system management. Thus, only the legal pe

8、rsons who are imposed of some certain priority have the feasibility to operate that system.【Key word】sPersonal management system; Basic information; Test frequently information; Wages information目 录第一章 引言. 背景引见. 问题的提出. 研讨的内容、目的、过程和方法第二章 系统分析. 系统分析概述. 系统功能规划. 可行性分析 . 现行业务流程描画. 处置过程设计. 系统规划. 系统数据流图. 系

9、统建模E-R图. 数据字典第三章 系统设计与实施. VisualBasic .及SQL数据库简介. 系统设计概述. 系统设计思绪. 系统功能模块图. 代码设计. 数据库设计. 模块内部设计第四章 系统测试、运转于维护. 系统测试. 系统运转与维护结论 致谢 参考文献 第一章 引言. 背景引见在竞争越来越猛烈的社会里，企业人事管理就越显示出其不可缺性，成为企业一个非常重要的模块。企业人事管理系统主要是用于员工个人相关信息的管理。运用人事管理系统，便于公司指点掌握人员的动向和人员的综合素质，及时调整人才的分配，运用计算机对人事劳资信息进展管理，具有检索迅速、查找方便、可靠性高、存储量大、严密性好、

10、本钱低等优点，可以极大地提高人事资源管理的效率，也是企业科学化、正规化管理的重要条件。设计一个企业人事信息管理系统，此系统要以人为中心，为企业提供全面的人事管理处理方案；为企业建立规范化、实时化人事管理机制；()提高企业人事管理的效率、节约相关的管理本钱，加强者事管理的平安性；()满足企业管理层，人事业务操作层和全体员工的不同层次和不同方面的需求；()对企业未来的整体信息化建立提供必要的支持。. 问题的提出随着计算机技术的飞速开展，计算机在企业管理中的普及，利用计算机实现企业人事信息的管理势在必行。人事管理是现代企业管理任务中不可短少的一部分，是顺应现企业管理尺度的要求、推进企业劳动人事管理走

11、向科学化、规范化的必要条件。只需人事管理规范了，才干在其他方面有更好的开展。为了顺应现代企业或公司运营开展的需求，人事管理也从以前的手工管理逐渐被规范化的管理信息系统所替代。众所周知，当今社会为信息社会，世界已进入计算机信息管理猛烈竞争的年代，因此，加强者事管理在单纯依托以手工管理的方法，不仅需求耗用大量的人力、物力、财力，而且任务效率低，破绽和错误众多，难以到达预期的目的，为了提高企业任务效率、保证企业人事管理质量、快速而且准确地为企业制定好的运营方针与决策，在有限的时间内完成任务义务及到达预期的目的，所以，开发企业人事信息管理系统是有必要的。由于管理系统的对象单一，仅对人事信息进展管理，且

12、在对人事信息进展增减、修正、删除及统计操作时根本不涉及到计算过程，因此，这个管理系统比较适宜采用数据库来设计。在计算机硬件和软件快速开展的今天，计算机硬件和软件曾经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一矫正去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建运用程序，极大地提高了编程效率。在本人所了解数据库系统中，由于学过VisualBasic .，所以对VisualBasic .及 SQL 数据库比较熟习， VisualBasic .中文版数据库开发的运用程序可以独立运转于windows平台，而且SQL 产生的数据库表适用范围广，因此决议采用Visu

13、alBasic .中文版来完成人事信息管理系统的设计。. 研讨的内容、目的、过程和方法. 研讨的内容和目的本文研讨的主要内容是公司人事信息管理系统的分析和设计过程，其目的在于为该系统的开发奠定坚实的实际根底。系统的胜利开发将大大缓解人事管理的任务压力，这样，既可以提高人事管理任务的任务效率，又能在客观上促进企业的信息化开展。. 研讨的过程从选题，调研，熟习开发环境，实验关键技术，查找类似的相关系统的资料；系统需求分析，数据库构造设计，功能模块开发，功能模块测试，系统调试和系统试运转和修正。下面的流程图反映了此题的根本的思绪和过程。在各阶段的时间安排上，选题和调研用了两周左右的时间；熟习开发环境

14、，实验关键技术，查找类似的相关系统的资料用了两周时间；系统需求分析用了一周的时间；数据库构造设计用了一周时间；功能模块开发和功能模块测试用了周围的时间；最后，系统调试和系统试运转和修正用了约三周的时间。完成全部任务大约用了近个月的时间。系统义务描画框架如图-所示：图- 系统义务描画框架. 研讨的方法 该系统的研讨主要采用了构造化的系统分析与设计方法。该方法主要包括以下几个特点：预先明确用户需求，根据需求来设计信息系统自顶向下来设计或规划信息系统严厉按阶段进展任务文档规范化和规范化运用系统的分解和综合技术，使复杂的系统简单化强调阶段成果的审定和检验. 系统开发框架. 系统开发框架：系统开发框架如

15、图-所示：图- 系统开发框架第二章 系统分析软件工程采用的生命周期方法学就是要从时间的角度对软件开发和维护的复杂问题进展分解，把软件生命的漫长周期依次划分为假设干个阶段，每个阶段都有相对独立的义务，然后逐渐完成每个阶段的义务。本文所设计的人事、劳资管理信息系统也要按照这个来做。因此，首先要对人事信息管理系统进展需求分析。需求分析的义务不是详细处理问题，主要确定系统必需具备那些功能。在这个阶段确定的系统逻辑模型是以后设计和实现目的系统的根底，因此必需准确完好地表达用户的要求。.系统分析概述系统分析的义务是：对客观世界存在的事物或问题进展分析，并用科学的方法将其笼统为逻辑模型。系统模型分为逻辑模型

16、和物理模型。逻辑模型主要确定系统做什么，而物理模型那么主要处理怎样做的问题，前者是系统分析的主要义务，后者是系统设计的主要义务。系统分析的主要任务有：需求分析。包括需求的产生，数据需求，功能需求和非功能需求。可行性分析。现行业务流程分析。系统建模。包括功能建模和信息建模. 系统功能规划. 系统功能概略经过了解，如今不少单位人员较多而且人员的调动流通比较频繁，加上聘用的外面的人员较多，对他们也要建立信息档案进展管理，因此管理系统要有较好的添加人事信息、修正人事信息和删除人事信息的功能。作为人事信息管理系统查询功能是必不可少的。在几年的改革过程中，时常要对各种人事信息进展查询。在进展定员定额时要对

17、各个部门的人员进展查询，在对职工的人员素质调查时，要对全体人员的文化程度和年龄构造进展查询。因此管理系统的查询功能要强大，不仅要支持单个查询，还要能进展复杂的多条件查询。在人事信息管理任务中，要经常了解各个部门的人员多少，知道男女人员的比例构造，各个年龄层次上人员的多少等等，都需求有统计人数的功能。任何单位对内部员工的人事管理，都要建立花名册，所谓的花名册就是要把单位一切人员的主要信息打印出来，装订成册，放入单位档案以便备查。因此在人事信息管理系统要具备打印花名册的功能。另外，人事信息管理系统里面包含了单位一切人员的信息，不是任何人都能查看的。所以要对管理系统设置密码限制。除了人事信息管理人员

18、以外，还有比如单位主要指点等都有权益对人事信息进展查询，因此要对管理系统设置级别限制，不同级别的人员有不同的操作范围。人事管理系统普通有将本单位的人事库上报给上级单位的要求。如今是网络时代，系统最好有上报功能。. 系统功能分析在经过对人事管理人员的调查和对他们的了解，要求管理系统应具备以下功能：()由人事管理人员的条件决议，管理系统要有良好的人机界面。()要有简一方便的添加、修正、查询人事信息的功能。()要有快速准确的人事信息查询，并且要支持多条件的查询。()对操作人员的限制和多级别的控制，因此要有较好的权限管理()在相应的权限下，修正数据要方便简单，数据稳定性要好。()要有方便的退出功能，并

19、对设计做一个简单的关于阐明。()人事信息管理系统数据库的设计采用VisualBasic .及SQL 。 需求分析阶段的任务结果是开发软件的重要根底，大量统计数字阐明，软件系统中%的错误来源于错误的需求。为了提高软件的质量，确保软件开发胜利，降低软件的开发本钱，一旦对目的系统提出一组要求之后，必需严厉验证这些需求的正确性。普通来说，应从下面四个方面进展验证： ()一致性 一切需求必需是一致的，任何一条需求不能和其他需相互矛盾。 ()完好性 需求必需是完好的，规格阐明书应该包括用户需求的每一个功能或性能。 ()现实性 指定的需求应该是用现有的硬件技术和软件技术根底上可以实现。对硬件技术的提高可以做

20、些预测，对软件技术的提高很难做些预测，只能从现有的技术程度出发判别需求的现实性。 ()有效性 必需证明需求是正确有效的，确保能处理用户面对的问题。经过用户和设计者对上述需求分析所得到的管理系统功能的复查，并且对照上面几点要求进展验证，人事、劳资管理信息系统提出的根本满足需求分析验证的要求。. 可行性分析可行性研讨的目的就是要用最小的代价在尽能够短的时间内确定问题能否可以处理。当然不能靠客观猜测而是要靠客观分析。必需分析几种主要的能够解法的利弊，从而判原定的系统目的和规模能否现实，系统完成后所能带来的效益能否大到值得去投资开发这个系统的程度。因此，可行性研讨本质上是要进展依次大大地紧缩简化了的系

21、统分析和设计的过程，也就是在较高层次以较笼统的方式进展的系统分析和设计的过程。可行性研讨主要从以下五个方面来进展。. 技术可行性 运用现有的技术能不能实现这个系统。由于本管理系统的对象单一，仅对本单位的人事信息进展管理，且在对人事信息进展增减、修正、删除及统计操作时根本不涉及到计算过程，因此，这个管理系统比较适宜采用数据库来设计。在计算机硬件和软件快速开展的今天，计算机硬件和软件曾经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一矫正去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建运用程序，极大地提高了编程效率。在作者所了解数据库系统中，由于学过Visual

22、 Basic .，对SQL 数据库比较熟习，因此决议采用VisualBasic .及SQL 来完成人事信息管理系统的设计。VisualBasic .和SQL 共同完成人事信息管理系统，它提供了面向对象的编程技术，编写少量或不用编写程序代码就能快速地创建出功能强大的可视化运用程序，可简化数据库管理，使开发运用程序这项艰苦的任务就象堆积木那样简一方便。另外，用SQL 数据库开发的运用程序可以独立运转于windows平台， 而且SQL 产生的数据库表适用范围广。 . 经济可行性 这个系统的经济效益能不能超越它的开发本钱。本人事信息管理系统是基于VisualBasic .及SQL 根底上开发的小型数据

23、库运用程序，不需求多少人力和物力就可以设计的。但本系一致旦投入运用，将大大减少人事信息管理人员的任务量，提高了任务效率，其经济效益是显儿易见的。. 操作可行性 系统的操作方式在这个用户组织内能不能行得通。在进展需求分析时，对用户组织进展调查，针对详细的情况，设计出适宜这个用户组织的人机界面，使操作方式简单明了。. 人员的可行性本人事信息管理系统是用VisualBasic .及SQL 设计的小型数据库运用程序，无须多少人员就可以设计胜利的。经过对人事信息管理系统的可行性分析，所提出的功能是适宜人事信息管理的，也完全可以实现的。. 现行业务流程描画根据人事管理任务的程序，现行业务流程如图-所示：图

24、- 图例ref SHAPE * MERGEFORMAT 图- 现行业务流程图. 处置过程设计 处置过程设计是指模块的处置流程或算法流程。为保证在系统实施阶段，可以编出良好的程序，在模块内部设计时采用了构造化的设计方法。本文中将用流程图表示处置过程。以下将就本系统的中心部分进展分析，并列出程序处置过程的流程图。系统登陆程序流程图系统登录程序如图-所示：ref SHAPE * MERGEFORMAT 图- 系统登陆程序流程图员工根本信息程序流程图员工根本信息程序如图-所示：图- 员工根本信息程序流程图员工考勤管理程序流程图员工根本信息程序如图-所示：ref SHAPE * MERGEFORMAT

25、图- 员工考勤管理程序流程图员工任务评价程序流程图员工任务评价程序如图-所示：ref SHAPE * MERGEFORMAT 图- 员工任务评价程序流程图员工工资管理程序流程图员工工资管理程序如图-所示：图- 员工总工资管理程序流程图 系统规划经过上面的系统需求分析和可行性研讨，根本确定了本管理系统的各个功能模块。人事信息管理系统是单位用来存储、查询及统计人员各种信息的，因此，它是个典型的数据库管理系统。主要由系统管理模块、员工根本信息模块、员工考勤管理模块、员工任务评价模块、员工工资管理模块、关于模块和程序封面模块等组成。. 系统管理模块该模块的主要作用是维护本人事管理系统的平安和退出的。为

26、了保证系统的平安，在系统中设置了用户登陆密码，因此，在这个模块中设计了用户密码修正功能，同时为了系统维护管理员对整个系统进展管理，设计了添加用户、注销用户的功能。在设计中，将本系统的退出功能也放在这个模块中。. 员工根本信息模块该模块主要实现如下功能：添加员工根本信息修正员工根本信息删除员工根本信息查询员工根本信息. 员工考勤管理模块该模块主要实现如下功能：添加考勤信息修正考勤信息删除考勤信息考勤信息查询. 员工任务评价模块该模块主要实现如下功能：添加任务评价信息修正任务评价信息删除任务评价信息任务评价信息查询. 员工工资管理模块 该模块主要实现如下功能：计发员工工资信息修正员工工资信息员工总

27、工资信息查询. 关于模块此模块的功能是对本人事管理系统作一个阐明。阐明本系统的性质、设计时间等等。. 程序封面模块此封面模块的功能一是为了美化本系统程序，二是为了在启动本系统时用作登陆表单。系统启动时首先翻开封面模块，只需在封面模块中的用户登陆窗口中输入用户名和密码，经系统确认正确后才干运用本系统。系统数据流图根据人事信息管理系统的设计思绪，将系统中的数据处置过程笼统化，绘制成数据流程图，以便调查数据的处置方式。数据流程图简称DFD图是利用外部项，数据流，处置逻辑和数据存储四种根本成分及假设干规那么来描画系统逻辑模型的。DFD图将运用以下的符号来表示四种根本元素。如图-所示：图- 图例人事信息

28、管理系统的数据流图。如图-，图-，图-所示：图-系统数据流图图-系统数据流图图-系统数据流图 系统建模E-R图系统信息建模主要用到的工具是E-R图。实体与实体间的关系E-R图如以下图-所示：图- 系统E-R图实体与实体间的关系E-R图规划出的实体有：员工根本信息、员工考勤信息、员工任务评价信息、员工工资信息。各个实体详细的描画E-R图如图-，图-，图-，图-所示：图- 员工根本信息实体E-R图图- 员工考勤信息实体E-R图图- 员工任务评价信息实体E-R图图- 员工工资信息实体E-R图 数据字典根据公司的人事信息管理系统的需求，经过对员工任务过程的内容和数据流分析，设计如下所示的数据向和数据构

29、造。 针对公司人事信息管理系统的需求，经过对员工任务过程的内容和数据流程分析，设计如下面所示的数据项和数据构造：员工根本信息：包括的数据项有员工编号、员工姓名、性别、出生日期、所在部门、籍贯、学历、专业、参与任务时间、进入公司时间、起薪时间、调入部门时间、职称、入党时间、档号、原身份、原职务、原任务单位、备注等。员工考勤信息：包括的数据项有员工所在部门、员工姓名、出勤时间、公休时间、旷工时间、请假时间、早退时间、迟到时间、加班时间、出差时间等。员工任务评价信息：包括的数据项有员工姓名、员工所在部门、任务业绩、任务态度、业务程度、备注等。员工工资信息：包括的数据项有员工所在部门、员工姓名、底薪、

30、补贴、奖金、加班、住房补贴、房租、养老金、医疗保险、住房公积金、所得税、实发工资等。第三章 系统设计与实施. VisualBasic .及SQL 数据库简介. VisualBasic的开展 VisualBasic简称VB是美国Microsoft公司推出、专门针对位Windows操作系统的程序设计言语。随着计算机的普及，当时PC机上操作系统也不断开展，Microsoft公司对其Baxic产品也做了许多方面的改良，推出了Quick Basic,并得到了广泛的好评。世纪年代初，由于Windows操作平台的逐渐流行，PC机的操作方式开场由命令型方式向图形用户界面(GUI,Graphical User

31、Interface)方式转变。Microsoft公司凭仗强大的技术支持，开场把Basic向可视化编程方向开展，于是就有了第一代的Visual Basic产品。虽然第一代的产品功能很少，但是他有跨时代的意义。随着Windows操作系统的不断成熟，Visual Basic产品有.版晋级到.版，此时Visual Basic 已初具规模了，利用它可以快速的创建各种运用程序，包括非常流行的多媒体运用程序和各种图形操作界面。在年，Microsoft推出了Visual Basic . 版本，这一版本得到了很大的扩展和加强。他还引入了运用部件编程的概念，实践上这是对面向对象编程思想的扩展。迄今为止，Visua

32、l Basic曾经开展成为快速运用程序开发(RAD,Rapid Application Debelopment)工具的代表。. VisualBasic特点Visual Basic是Windows平台上一个强大的开发工具，无论是初学者，还是专业人员都可以方便的运用它进展程序设计。Visual Basic提供的是真正的面向对象的可视化编程方法，开发人员只需少量代码就可以编者出具有规范Windows风格的程序，代码维护非常方便。运用Visual Basic言语，不但可以编制常规的运用程序，而且可以运用VB的脚本言语VBScript进展Web开发、运用嵌入式VB言语VB for Application

33、VBA对一些流行软件进展二次开发，还可以设计ActiveX控件，用于Web或其他支持这一技术的程序中。Microsoft不断的把最新的技术融入Visual Basic中，无论是网络运用程序、多媒体软件还是数据库系统，运用Visual Basic都可以容易地实现。. 系统设计概述系统设计的义务是：在系统分析提出的逻辑模型的根底上科学合理地进展物理模型设计。系统设计的主要任务有：总体设计。包括系统技术构架，软件构造设计和系统流程设计。代码设计。数据库设计。输入/输出设计。从系统分析的逻辑模型设计到系统设计的物理模型设计是一个由笼统到详细的过程。经过系统设计，设计人员应能为程序开发人员提供完好，清楚

34、的设计文档，并对设计规范中不清楚的地方做出解释。系统设计的原那么包括：系统性系统是作为一致整体而存在的，因此，在系统设计中，要从整个系统的角度进展思索，系统的代码要一致，设计规范要规范，传送言语要尽能够一致，对系统的数据采集要做到数出一处，全局共享，使一次输入得到多次利用。灵敏性为坚持系统的长久生命力，要求系统具有很强的环境顺应性，为此，系统应具有较好的开放性和构造的可变性。在系统设计中，应尽量采用模块化构造，提高各模块的独立性，尽能够减少模块间的数据耦合，使各子系统间的数据依赖减至最低限制。这样，既便于模块的修正，又便于添加新的内容，提高系统顺应环境变化的才干。可靠性可靠性是指系统抵御外界干

35、扰的才干及受外界干扰时的恢复才干。一个胜利的管理信息系统必需具有较高的可靠性，如平安严密性，检错及纠错才干，抗病毒才干等。经济性经济性指在满足系统需求的前提下，尽能够减少系统的开销。一方面，在硬件投资上不能盲目追求技术上的先进，而应以满足运用需求为前提；另一方面，系统设计中应尽量防止不用要的复杂化，各模块应尽量简约，以便缩短处置流程，减少处置费用。. 系统设计思绪 针对该系统功能的相对独立性的特点，将系统分成相对独立的几个子系统，独立的进展设计。各个子系统独立地完成其所在模块的效力功能，与其他子系统发生信息的传送很少。 系统设计的主要根据是系统分析阶段得到的系统功能模型，信息模型以及系统配置。

36、系统设计采用的主要方法是构造设计方法，该方法自顶向下，逐渐求精。采用先全局后部分，先总体后细节，先笼统后详细的过程，将系统设计成一个层次清楚的模块化构造，使系统的构造明晰，具有可读性，可维护性，可修正性等特点。. 系统功能模块图系统功能模型，反映了系统功能或处置的详细内容及逻辑关系，并没有详细阐明系统内部一切的信息构造的组织和相互关系。所以必需建立系统的信息模型。 深化分析后得知：数据是信息处置的中心，数据管理是系统建立的中心。建立系统信息模型的主要目的是提供一个数据的含义和相互关系的一致定义。从而用来集成，共享和管理数据的完好性。将具备以下特征：必需和系统根底构造相一致，并且真正覆盖一切运用

37、范围。必需是可扩展的，可以在原定义数据不变的情况下再定义新的数据。系统功能模块如图-所示：图- 系统功能模块图. 代码设计. 代码的功能它为事物提供一个概要而不模糊的认定，便于数据的存储和检索。代码缩短了事物的称号，无论是记录、记忆还是存储，都可以节省时间和空间。 运用代码可以提高处置的效率和精度。按代码对事物进展排序，累计或按某种规定算法进展统计分析，可以非常迅速。 代码提高了数据的全局一致性。这样，对同一事物，即使在不同的场一切不同的叫法，都可以经过编码一致同来，提高了系统的整体性，减少了因数据不一致而呵斥的错误。代码是人和计算机的共同言语，是两者交换信息的工具。在手工处置系统中，许多数据

38、早已运用代码。为了给尚无代码的数据项编码，为了一致和改良原有代码，使之顺应计算机处置的要求，在建立新系统时，必需对整个系统进展代码设计。. 代码的设计原那么合理的编码构造是信息处置系统能否具有生命力的一个重要要素，在代码设计时，应根据以下原那么： 设计的代码在逻辑上必需能满足用户的需求，在构造上该当与处置的方法相一致。 一个代码应独一标识它所代表的事物或属性。 代码设计时，要预留足够的位置，以顺应不断变化的需求。否那么，在短时间内，随意改动编码构造对设计任务来说是一种严重浪费。普通来说，代码愈短，分类、预备、存储和传送的开销就愈低；代码愈长，对数据检索，统计分析和满足多样化的处置要求就愈好。

39、代码要系统化，代码的编制应尽量规范化，尽量使代码构造对事物的表示具有实践意义，以便于了解及交流。 要留意防止引起误解，不要运用易于混淆的字符。如：O，Z，I，S，V与，U易混；不要把空格做作代码；要运用小时制表示时间等。 要留意尽量采用不易出错的代码构造，例如字母-字母-数字的构造，如WW比字母-数字-字母的构造如WW发生错误的时机要少一些。 当代码长于个字母或个数字字符时，应分成小段。这样人们读写时不 易发生错误，如-比易于记忆，并能更准确地记录下来。. 代码设计表表- 员工的ID代码设计表格阐明:员工登记序号的前后顺序按照结果录入数据库的时间顺序陈列举例:码代表工程部序号为的在职员工。 关

40、键源代码用户登录界面Begin VB.Form frmLogin BorderStyle = None Caption = 登录窗口 ClientHeight = ClientLeft = ClientTop = ClientWidth = LinkTopic = Form MaxButton = False MinButton = False ScaleHeight = . ScaleMode = User ScaleWidth = . ShowInTaskbar = False StartUpPosition = 人事信息管理系统 Begin VB.Frame Frame BackColo

41、r = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.Frame Frame BackColor = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.CommandButton Cmd_Cancel Caption = 取消 Height = Left = Style = Graphical TabIndex = Top = Width = End Begin VB.CommandButton Cmd_OK BackColor = &HFF& Caption =

42、 确定 Height = Left = TabIndex = Top = Width = End End Begin VB.Frame Frame BackColor = &HDDD& Height = Left = TabIndex = Top = Width = Begin VB.TextBox txtPwd Appearance = Flat BackColor = &HCFFFF& Height = IMEMode = DISABLE Left = PasswordChar = * TabIndex = Top = Width = End Begin VB.TextBox txtUse

43、r Appearance = Flat BackColor = &HCFFFF& Height = Left = TabIndex = Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 输入用户密码： Height = Left = TabIndex = Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 输入用户姓名： Height = Left = TabIndex = Top = Width = En

44、d End End Begin VB.Image Image Height = Left = Picture = frmLogin.frx: Top = Width = End Begin VB.Label Label BackStyle = Transparent Caption = 登 陆 系 统 BeginProperty Font Name = 宋体 Size = Charset = Weight = Underline = False Italic = False Strikethrough = False EndProperty ForeColor = &HFFFFFF& Heig

45、ht = Left = TabIndex = Top = Width = End Begin VB.Image Image Height = Left = Picture = frmLogin.frx: Top = Width = End End Attribute VB_Name = frmLogin Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Public PasswordK

46、ey 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 MyUs

47、er.in_db(tmpUser, tmpPwd) True Then MsgBox 用户名或密码错误, , 提示 Else Unload Me Load frmMain frmMain.Show End If End Sub Private Sub Form_Load() txtUser.Text = admin txtPwd.Text = End Sub Private Sub Image_Click() Unload Me End Sub 部门查询BEGIN MultiUse = - True Persistable = NotPersistable DataBindingBehavio

48、r = vbNone DataSourceBehavior = vbNone MTSTransactionMode = NotAnMTSObject END Attribute VB_Name = Departments Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False DepId 数字，长整型 部门编号，主键 DepName 文本，长度为 部门称号，必填字段是，允许空字符串否 Des

49、cribes 文本，长度为 部门职能描画，必填字段否，允许空字符串是 UpperId 数字，长整型 上级部门编号，必填字段是 Public DepId As Long Public DepName As String Public Describes As String Public UpperId As Long Public Sub Init() DepId = - DepName = Describes = - UpperId = - End Sub 删除Departments Public Sub Delete(ByVal TmpId As Long) SqlStmt = DELETE

50、 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.EO

51、F Then DepName = Trim(rs.Fields() 部门称号 If IsNull(rs.Fields() Then Describes = Else Describes = Trim(rs.Fields() 部门描画 End If UpperId = rs.Fields() 上级编号 Else Init End If End Sub 根据部门编号，读取部门称号 Public Function GetName(ByVal TmpId As Long) As String Dim rs As New ADODB.Recordset 定义结果集对象 运用SELECT语句读取指定部门称

52、号 SqlStmt = SELECT DepName FROM Departments WHERE DepId= _ + Trim(Str(TmpId) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then GetName = Trim(rs.Fields() Else GetName = End If End Function 前往新记录的编号，当前最大编号加 Public Function GetNewId() As Long Dim TmpId As Long Dim rs As New ADODB.Recordset 运用SELECT语句，读取最大

53、的编号 SqlStmt = SELECT Max(DepId) FROM Departments Set rs = QueryExt(SqlStmt) If rs.EOF Then GetNewId = Else GetNewId = rs.Fields() + End If End Function 判别指定的部门中能否存在员工记录 Public Function HaveEmp(ByVal TmpDepid As Long) As Boolean Dim rs As New ADODB.Recordset 运用SELECT语句在Employees表中读取DepId字段等于TmpDepid的

54、记录 SqlStmt = SELECT * FROM Employees WHERE DepId= + Trim(Str(TmpDepid) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then HaveEmp = True Else HaveEmp = False End If End Function 判别一个部门能否包含下级部门，在删除部门记录时运用 Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean Dim rs As New ADODB.Recordset SqlStmt =

55、SELECT DepId FROM Departments WHERE UpperId= _ + Trim(Str(TmpUpperId) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then HaveSon = True Else HaveSon = False End If End Function 判别部门称号能否存在 Public Function In_DB(ByVal DepName As String, _ ByVal DepUpper As Long) As Boolean Dim rs As New ADODB.Recordset Sql

56、Stmt = SELECT DepId FROM Departments WHERE DepName= + Trim(DepName) _ + and UpperId= + Trim(Str(DepUpper) Set rs = QueryExt(SqlStmt) If Not rs.EOF Then In_DB = True Else In_DB = False End If End Function Public Function Insert() As Long Dim DepId As Long 生成新的编号 DepId = GetNewId SqlStmt = INSERT INTO

57、 Departments VALUES( + Trim(Str(DepId) + , _ + Trim(DepName) + , + Trim(Describes) _ + , + Trim(Str(UpperId) + ) SQLExt (SqlStmt) Insert = DepId 前往记录编号 End Function 读取指定部门编号的一切下级部门信息 Public Sub Load_Departments_ByUpper(UpperId As Long) Dim i As Integer Dim rs As New ADODB.Recordset 初始化部门数组 Erase Arr

58、_DepName Erase Arr_DepDescribe Erase Arr_DepId ReDim Arr_DepName() ReDim Arr_DepDescribe() ReDim Arr_DepId() 设置SELECT语句 SqlStmt = SELECT DepId,DepName,Describes FROM Departments WHERE UpperId= _ + Trim(Str(UpperId) + ORDER BY DepId Set rs = QueryExt(SqlStmt) i = Do Until rs.EOF 读取部门编号 ReDim Preserve

59、 Arr_DepId(i + ) Arr_DepId(i) = rs.Fields() 读取部门称号 ReDim Preserve Arr_DepName(i + ) Arr_DepName(i) = Trim(rs.Fields() 读取部门描画 ReDim Preserve Arr_DepDescribe(i + ) If IsNull(rs.Fields() Then Arr_DepDescribe(i) = Else Arr_DepDescribe(i) = Trim(rs.Fields() End If rs.MoveNext i = i + Loop End Sub 更新数据 Pu

60、blic Sub Update(ByVal TmpId As Long) 设置UPDATE语句 SqlStmt = UPDATE Departments SET DepName= + Trim(DepName) _ + ,Describes= + Trim(Describes) _ + WHERE DepId= + Trim(Str(TmpId) SQLExt (SqlStmt) End Sub . 数据库设计数据库在一个信息管理系统中占有非常重要的位置，数据库构造设计的好坏将直接对运用系统的效率以及实现的效果产生影响。合理的数据库构造设计可以提高数据库存储的效率，保证数据的完好和一致。在系统