计算机毕业论文--员工信息管理系统.doc

本文档系作者精心整理编辑，实用价值高。摘要 本文通过用VB6.0编写员工信息管理系统，利用软件工程原理，采用面向对象的编程方法，其开发主要包括后台数据库的建立和维护以及前端日应用程序的开发两个方面，实现了员工信息管理的自动化和信息化. 本文还简单介绍了VB6.0软件的界面及操作方法。简要介绍了窗体的制作过程，程序的编写，添加，最后的编译过程。并且叙述了作者在软件开发过程中的心得体会。 关键词：员工信息管理 数据库 统计 目录 第一章 引言 3 第二章 系统分析 4 2.1开发背景 4 2.2需求分析 4 2.3概要 5 2.4系统要求 5 第三章 开发方法 8 3.1系统开发方法概述 8 3.2 结构化生命周期法简介 8 3.3 快速原型法简介 9 3.4 本系统开发方法的选择 10 第四章 开发平台和工具 11 4.1开发平台的选择 11 4.2 开发工具的选择 11 4.2.1 开发语言介绍 11 第五章 系统规划和分析 12 5.1 系统的可行性分析 12 5.2 系统的详细调查 12 5.3 系统逻辑模型的提出 13 第六章 系统设计 13 6.1 系统流程图 16 6.2数据库设计 16 6.3系统主界面设计.19 6.4登陆窗体设计.19 6.5各主要模块设计 .19 6.5.1基础设置模块设计.24 6.5.2员工管理模块设计.27 6.5.3请假管理模块设计.29 6.5.4系统帮助模块设计.31 第七章 编译生成应用程序.37 设计小结.39 参考文献.40 第一章 引言 本软件使用Microsoft Basic 6.0进行编写。数据库技术的产生与发展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于20世纪60年代中期。这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的基本思想是对数据实行集中，统一，独立的管理，用户可以最大限度的共享数据资源。 数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。 数据库的特点：1.实现数据共享 2.实现数据独立3.减少了数据冗余度 4.避免了数据不一致性5.加强了对数据的保护。 数据库应用系统（DATABASE APPLICATION SYSTEMS DBAS） 1 管理信息系统 2 开放式信息服务系统 一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。 第二章 系统分析 2.1开发背景 随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高企业员工信息管理的水平，是当今社会所面临的一个课题。提高企业管理水平，必须全方位地提高企业管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高企业员工信息管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。员工管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。 2.2需求分析 利用计算机实现员工信息管理势在必行。对于企业来说，利用计算机支持企业高效率完成员工信息管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而员工信息管理是一项琐碎、复杂而又十分细致的工作，员工信息录入,员工信息管理,信息查询,请假等管理,一般不允许出错，如果实行手工操作,须手工填制大量的表格,这就会耗费工作人员大量的时间和精力，计算机进行这项工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企业管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。 2.3概要 Visual Basic是美国微软公司的第一个编程工具和系统开发的第一个产品，Visual Basic以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广大用户的偏爱。Visual Basic的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。 作为管理信息系统的开发，Visual Basic是一个非常理想选择。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 2.4系统要求 一、 硬件要求: 1 486/DX66Mhz以上CPU 2 内存16M以上(使用Windows NT需要32M以上内存) 3 硬盘容量1GB以上(典型安装需要128MB硬盘空间,完全安装须要147MB硬盘空间,外加Microsoft开发者文档67MB硬盘空间) 4 EGA以上分辨率的显示器. 5 一个CD-ROM驱动器 6 鼠标或其它定点设备 二、软件要求 1 操作系统应使用Microsoft Windows95及以上版本,或者使用Microsoft Windows NT3.51或者更高版本. 2 安装有IE4.0或以上版本的浏览器. 第三章 系统开发方法 3.1系统开发方法概述 建立一个管理信息系统，是一项复杂的软件工程的实施。近30多年来，软件工程发展成为新科学，至今已经成为IT产业的重要支柱。一开始，人们往往使用手工作坊式的软件开发方法，靠个人的力量编写各种小型程序；但是随着计算机硬件技术的飞速发展，计算机软件在各个领域中的作用日益突出，那种多年来被人们沿用的手工作坊式的开发方法，已经在软件产品的质量、成本及开发时间等方面无法满足需求。 3.2 结构化生命周期法简介 结构化生命周期法是一种传统的管理信息系统开发方法，其基本思想是把整个系统开发过程分成若干个阶段，每个阶段进行若干活动，每项活动应用一系列标准、规范、方法和技术，完成一个或多个任务，形成符合给定规范的产品。 采用结构化生命周期法开发管理信息系统时，应遵循的主要原则： （一）用户参与的原则 （二）“先逻辑后物理”的原则 （三）“自顶向下”的原则 （四）工作成果描述（主要指文档）标准化的原则 其具体开发步骤可分为以下四步： （一）系统规划 （二）系统开发 1、系统分析 .系统初步调查 .系统可行性研究 .现行系统的详细调查 .新系统逻辑方案的提出 2、系统设计 .系统总体结构设计 .系统总体功能设计 .系统总体物理结构设计 .系统详细设计 .数据库设计 .代码设计 .输入输出设计 3、系统实施 .程序设计 .系统测试 （三）系统的运行及维护 （四）系统评价 3.3 快速原型法简介 快速原型法是80年代发展起来的，旨在缩短开发周期，提高开发效率和用户对系统的满意程度。其基本思想是在系统开发的初期，尽快构造出系统的原型，使用户能及早地运行这个系统原型，通过使用它、熟悉它，受到启发并取得经验，然后对系统的目标和功能提出更精确、具体的要求，研制人员据此逐渐修改和完善原型，使它满足用户的需求，最后完成系统的开发。该方法大大提高了系统开发效率，弥补了结构化生命周期法开发时间长的缺陷。 通常采用原型法需以下四个阶段： （一）明确用户的基本要求 （二）研制系统的原型 （三）使用、评价系统原型 （四）修改和完善原型 3.4 本系统开发方法的选择 基于以上开发方法的优劣和本系统的实际情况，本系统总体上采用结构化生命周期法进行系统规则、系统分析和系统设计，但在系统实施阶段采用原型法。 第四章 开发平台和开发工具 开发平台的选择 考虑到本系统的性能要求，和现有的条件，我们选择了WINDOWS2000中文版作为开发、测试和运行的平台。因为WINDOWS操作系统是目前应用最广的操作系统，它以全新的图形界面，简单快捷的操作方式，支持多媒体功能等特点而成为软件发展的流行趋势，选用它作为开发平台，易于功能的扩展和软件升级。 4.2 开发工具的选择 针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合员工信息管理系统的需要和目前的硬件环境，我们选用微软WINDOWS平台下的Visual Basic 6.0（简写为VB6.0）作为软件开发工具。 4.2.1 开发语言介绍 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作做作企业级开发工具的产品有： Microsoft公司的Visual Basic Microsoft公司的Visual C Borland公司的Delphi Powersoft公司的PowerBulider Java等等 在目前市场上这些众多的程序开发工具中，有些强调编程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调编程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。 作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处： Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 总的来说，Visual Basic具有以下特点： 可视化编程： 用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。 面向对象的程序设计 4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。 结构化程序设计语言 Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。 Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。 事件驱动编程机制 Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。 在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。 访问数据库 Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。 Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。 动态数据交换(DDE) 利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。 对象的链接与嵌入(OLE) 对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。 动态链接库(DLL) Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能 2006-12-14 9:11:57IP: 保密stu60等级:职业侠客权限:普通用户积分:114金钱:117声望:60经验:59发帖数:60注册时间:2006-12-13 编辑 删除 引用 第2楼第五章 系统的规划与分析 5.1 系统的可行性分析 经济可行性分析 本系统开发简单但要耗去一定的时间，所用的开发工具和软件都差不多是免费的。而且，由于系统能够在未来较长的一段时期内稳定地发挥作用，这对于企业的办公自动化管理，节省企业的人力、物力资源等都有很大的帮助。由此可见在，开发此系统在经济上是完全可行的。 2.1.2 操作可行性分析 如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低.我的这套系统是利用自己的计算机加微软的集成开发环境Microsoft Visual Basic6.0作为软件的开发平台，使开发出来的系统有友好的用户界面、有良好的安全性设置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法,操作友好因此在操作上是可行的. 2.1.3 技术可行性分析 从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，VB 和Windows 2000 Server 以及Microsoft ACCESS 2000的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的非常友好、操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。所以技术实行起来相对会容易。 2.2 现有系统的分析 有关员工管理系统的软件市面上有不少，企业的员工也试用过一些，但总觉得不是很好用，不能完全满足我们的要求，所以都放弃用这些软件了，改为每次输入数据后，用手工更改数据库，随着企业的发展，员工数据量越来越大，用手工操作就很麻烦了，所以，迫切希望有一套完全适合企业员工信息管理应用的软件，以减轻公司员工的工作负担。 另一方面由于这类软件大多数是单机版的，现在也有不少是网络版的，但大部份都是在本地网络上运行的。而管理业务人员是在外面跑业务，想知道某员工的最新情况，都要打电话回公司问，这就造成很大的不便。因此系统的开发方向应当是面向网络版的员工信息管理系统开发.这点在今后的学习中将不断完善. 2.3 系统的安全性分析 安全系统的需求定义： 1） 系统提供用户登录功能（进行用户身份验证），并且用户名和用户编号是唯一的。用户在登录界面上填写任意的用户名和用户密码（中文或英文）；系统提供登录过程中的出错处理机制和操作成功处理机制。 2） 系统对非法用户具有警告功能，例：一用户表中不存在的用户企图登录系统，系统应该要求用户输入合法用户名和用户密码，并警告用户的操作。 5.2 系统的详细调查 我选择做员工信息管理系统的目标是：应用于某企业进行员工信息管理，使其拥有一个可操作的业务平台，提高员工管理水平，挖掘潜在资源（如客户资源，降低费用，节约成本等）。当然，如果稍加改动，也许还会适合其他行业使用。 具体为: 1、要用户界面要友好，使用方便，容错能力强，适应各种水平的用户。 2、系统安全性要高，需要有密码保护 3、能大量减少不必要的资源，善用现有资源来开发。 5.3系统逻辑模型的提出 为了实现管理信息系统的计算机化，仅仅用文字来描述信息的流动和存储还远远不够，还要进一步调查分析舍去物质流，抽象出信息流，绘制出数据流程图，并对各种数据的属性和各项处理功能进行详细分析。系统分析的主要成果是系统的逻辑模型。本系统主要是以数据流图、数据字典和E-R图为主要描述工具来勾画系统的概貌。 数据流图（DFD，data flow diagram）是描述数据处理过程的有力工具。数据流图从数据传递和加工的角度，以图形的方式刻画数据流从输入到输出的移动变换过程。 数据流图的基本图形元素有4种： 为了使数据流图便于在计算机上输入和输出，免去画曲线、斜线和圆的因难，现在将会用另一种比较合理及更清晰的方法进行分析。 5.3.1数据词典 数据词典（Data Dictionary ,DD）是结构化分析方法的另一个工具，它与数据流图配合，能清楚地表达数据处理的要求。数据流图给出系统组成及其内部各元素相互间的关系，但未说明数据元素的具体含意。数据词典的任务是对于数据流图中出现的所有命名元素，包括数据流、加工、数据文件，以及数据的源、汇点等，在数据词典中作为一个词条加以定义，使得每一个图形元素的名字都有一个确切的解释。 首先说明各符号的代表的意义： = 被定义为； + 与 ； （如，x = a + b ,表示x 由 a 和 b 组成） .|. 或 ； （如, x = a , b,x = a | b，表示x由a或由b组成） . 重复；（如，x = a,表示x由0个或多个a组成） 如列举用户登录模块的定义如下: 用户登录模块 用户登录的定义格式： 用户名 = 字母，数字 用户 = 管理员 密 码 = 字母，数字 用户验证表 =用户名+密码 另一种方式是以E-R图来描述数据之间的关联. 如系统用户表的E-R图如下: 系统用户表E-R图 2006-12-14 9:12:12IP:保密stu60等级:职业侠客权限:普通用户积分:114金钱:117声望:60经验:59发帖数:60注册时间:2006-12-13 编辑 删除 引用 第3楼第六章 系统的设计 6.1 系统流程图 6.2数据库的设计 通过对该系统的研究,将系统数据Employeemanage分为以下几个表.DepartList,Edulevel,Employees,JobList,LeavelList,LeavelStatus,LeavelType,MarrageStatus,OperatorList,Plitics,TitalList等几个表.各表的具体设计结构如下: DepartList表 Edulevel表: Employees表: JobList表: LeavelList表: LeavelStatus表 LeavelType表: MarrageStatus表: OperatorList表 Plitics表 TitalList表 6.3系统主界面的设计 其系统主界面设计运行效果图如下: 6.4 登录窗体的设计 其运行效果图如下: 其具体的设计如下: 新建一个窗体.在窗体上放上二个label控件,一个TextBox控件,一个Combo1控件,二个CommandButton控件.其属性的设置比较简单,请参照上面的窗体中的文字显视.我们具体分析一下确定按钮的源码,如下: Private Sub cmdOK_Click() Dim strSql As String strSql = Oper_ID = dcmbOperName.BoundText If Not (rctOperatorList.EOF And rctOperatorList.BOF) Then rctOperatorList.Find (strSql) If Not (rctOperatorList.EOF Or rctOperatorList.BOF) Then If Trim(rctOperatorList.Fields(Oper_Pass) = Trim(txtOperPass.Text) Then OperaterName = Trim(dcmbOperName.Text) 记录当前用户 frmMain.Show 显示主窗体 Unload Me Exit Sub Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已经登录三次都失败，系统关闭, vbInformation + vbOKOnly, 非法用户 Unload Me Exit Sub Else txtOperPass.SetFocus End If End If Else logintestCount = logintestCount + 1 If logintestCount = 3 Then MsgBox 您已经登录三次都失败，系统关闭, vbInformation + vbOKOnly, 非法用户 Unload Me Exit Sub Else txtOperPass.SetFocus End If End If Else MsgBox 数据库中没有操作用户数据, vbCritical + vbOKOnly, 系统错误 Unload Me Exit Sub End If End Sub 6.5各主要模块的设计 基础设置模块的设计 1.基础单元设置 其窗体的命令按钮源码实现如下: 增加按钮的源码: Private Sub tblTitel_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add flexTitel.Row = flexTitel.Rows - 1 移到最后一行 flexTitel.Col = 0 称到最后一行的第一列 flexTitel.RowSel = flexTitel.Rows - 1 选定一行 flexTitel.ColSel = flexTitel.Cols - 1 选定所有列 If flexTitel.Rows 7 Then flexTitel.TopRow = flexTitel.Rows - 7 End If tblTitel.Buttons(delete).Enabled = False tblTitel.Buttons(add).Enabled = False rctTitelList.AddNew flexTitel.Enabled = False txtTitelId.SetFocus 保存按钮的源码如下: Private Sub IniGrid(ByVal flexGrid As MSHFlexGrid) flexGrid.Clear With flexGrid .Cols = 3 .Rows = 2 .FixedCols = 0 .FixedRows = 1 .SelectionMode = flexSelectionByRow .TextMatrix(0, 1) = 编号 Select Case .Name Case flexDepart .TextMatrix(0, 2) = 部门名称 Case flexEdu .TextMatrix(0, 2) = 学历名称 Case flexJob .TextMatrix(0, 2) = 职务名称 Case flexTitel .TextMatrix(0, 2) = 职称名称 Case flexPli .TextMatrix(0, 2) = 政治面貌 Case flexLt .TextMatrix(0, 2) = 请假类型 Case flexLs .TextMatrix(0, 2) = 销假标志 Case flexMs .TextMatrix(0, 2) = 婚姻状况 End Select .ScrollBars = flexScrollBarVertical .GridLines = flexGridNone .GridLinesFixed = flexGridNone .AllowBigSelection = True .AllowUserResizing = flexResizeNone .ColWidth(0) = 1 .ColWidth(1) = 1000 .ColWidth(2) = 5410 .ColAlignment(1) = 3 .ColAlignment(2) = 0 .ColAlignmentFixed(1) = 3 .FillStyle = flexFillSingle .ScrollTrack = True .Row = 1 .Col = 0 .RowSel = 1 .ColSel = .Cols - 1 End With End Sub Private Sub showdata(ByVal Recordset As ADODB.Recordset, ByVal flexGrid As MSHFlexGrid) Dim i As Integer Dim j As Integer If Recordset.RecordCount 0 Then Recordset.MoveFirst With flexGrid.Row = 1 While Not Recordset.EOF .Rows = .Rows + 1 For i = 1 To Recordset.Fields.Count .Col = i If (.Row Mod 2) = 0 Then .CellBackColor = HF4D3A6 Else .CellBackColor = vbWhite End If .Text = Recordset.Fields(i - 1) Next i .Row = .Row + 1 Recordset.MoveNext Wend .Col = 1 .Row = 1 .Col = 0 .RowSel = 1 .ColSel = .Cols - 1 .Row = 1 End With End If End Sub Private Sub IniGridstyle() End Sub Private Sub GetRecordIdName(ByVal flex As MSHFlexGrid, lngRecordId As Variant, strRecordName As String) If flex.Row 0 Then If flex.TextMatrix(flex.Row, 1) Empty Then lngRecordId = flex.TextMatrix(flex.Row, 1) strRecordName = flex.TextMatrix(flex.Row, 2) Else lngRecordId = -1 strRecordName = Empty End If End If End Sub Private Sub Picture1_Click() End Sub Private Function SavetoRecords(ByVal rctSave As ADODB.Recordset, ByVal firstField_value As Variant, ByVal secondField_value As String) As Boolean On Error GoTo Save_Error rctSave.Fields(0).Value = firstField_value rctSave.Fields(1).Value = secondField_value rctSave.Update SavetoRecords = True Exit Function Save_Error: If Err.Number 0 Then rctSave.CancelUpdate SavetoRecords = False MsgBox 错误代码: Err.Number vbCrLf _ 错误描述: Err.De*ion, vbCritical + vbOKOnly, 保存记录失败 Else SavetoRecords = True End If End Function 删除按钮的代码描述: Public Function RecordDelete(ByVal rstDelete As ADODB.Recordset, ByVal strOption As Long) As Boolean If (rstDelete.EOF = True) Or (rstDelete.BOF = True) Then RecordDelete = False Exit Function End If On Error GoTo Delete_error rstDelete.Delete strOption rstDelete.Update RecordDelete = True rstDelete.Update Delete_error: If Err.Number 0 Then rstDelete.CancelUpdate RecordDelete = False MsgBox 错误代码: Err.Number vbCrLf _ 错误描述: Err.De*ion, vbCritical + vbOKOnly, 删除错误 Else RecordDelete = True rstDelete.Update End If End Function 操作员管理窗体运行如下: 其工具栏铵钮的设计参考基础单元设置 6.5.2 员工管理模块的设计 其员工管理窗体的运行界面如下: 增加记录源码分析如下: Private Sub tblEmployees_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case add rctEmployees.AddNew If flexEmployees.Rows 2 Then flexEmployees.Row = flexEmployees.Rows - 1 flexEmployees.Col = 0 fl