干部管理系统的设计与实现2.0.0.doc

编号： 0713307 毕 业 （学位） 论 文（2011届本科）题 目： 干部管理系统的设计与实现 系(部)院： 计算机系 专 业： 计算机科学与技术 作者姓名： 胡育 指导教师： 李晓霞 职称： 讲师 完成日期： 2010 年 12 月 25 日干部管理系统的设计与实现Design and Implementation of Cadres Management System 胡育Hu Yu摘 要干部管理是企事业单位管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业员工及干部的信息，成为企业管理中的一个大问题。社会在发展，用户的需求也在改变，如何把握住用户的需求是需要时间的，在这种情况下，开发一个干部管理系统就显得非常必要。采用面向对象的方法，综合运用数据库技术、程序设计技术，结合企业干部管理知识，以Visual Basic 6.0作为系统前台应用程序开发工具，Access作为后台数据库，通过Visual Basic 6.0中的Data控件使两者进行连接从而进行系统软件开发。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，本干部管理系统具有如下功能：基本信息的录入、修改、查询、删除模块，假条信息录入、修改、查询、删除模块，工资信息的录入，计算，查询，以及系统用户的设置以及系统的维护功能。为企业干部管理提供信息咨询，信息检索，信息存取等服务，基本上能够满足现代企业对干部管理的需要。本文系运用规范研究方法进行的专题研究。关键词:人事档案；档案管理；管理信息系统；Access；Visual Basic；数据库AbstractCadres management is one of the important content of the business unit management, with the progress of The Times, the enterprise also gradually become huge rise. How to manage enterprise staffs information becomes a big problem of the enterprise management. With the development of society, the users demand is also change, how to seize the demand of users is need time, and in this case, developing a cadre management system is much necessary.Using object-oriented method, the integrated using of database technology, program design technology, combining enterprise cadre management knowledge, and to Visual Basic 6.0 as system receptionist application development tools, the Access as backend database, through Visual Basic 6.0 Data controls enable both the connection and thus for the system software development. From the entire system to operate and friendly interface, flexible, practical, safe, based on the requirements of the cadres management system has the following functions: basic information recording, modifying, querying, deleting module, false information recording, modifying, querying, deleting module, salary information typing, calculation, inquiring the system, and user settings and system maintenance. For the enterprise cadre management consulting, information retrieval and information access service, basically can satisfy the modern enterprise of cadre managements needs. This article is use normative research methods to research projects.Keywords: Personnel file；file management；Management information system；Access；Visual Basic；database目 录第一章 引 言11.1 选题的背景和意义11.2 选题的应用现状11.3 选题要研究的主要内容2第二章 开发系统的相关技术42.1 Visual Basic 具有的特点42.1.1 可视化编程52.1.2 面向对象的程序设计52.1.3 结构化程序设计语言52.1.4 事件驱动编程机制62.2 Access的介绍62.3 访问数据库62.3.1 动态数据交换(DDE)72.3.2 对象的链接与嵌入(OLE)72.3.3 动态链接库(DLL)7第三章 系统设计83.1 系统调研83.2 可行性分析概述83.3 技术可行性分析93.4 系统需求分析10第四章 主要功能模块的实现124.1 功能描述124.1.1 系统的主要功能特点124.1.2 系统操作流程图134.2 数据库设计134.3 系统主要界面设计144.3.1 用户登录界面设计154.3.2 干部基本信息界面设计164.3.3 个人简历界面设计23第五章 系统测试275.1软件测试的目标275.2 测试举例275.3 测试方法28第六章 结束语29致谢30参考文献31第一章 引 言1.1 选题的背景和意义现代信息技术的发展，在改变着我们的生活方式的同时，也改变着我们的工作方式，使传统意义上的干部管理的形式和内涵都在发生着根本性的变化。在过去，一支笔和一张绘图桌，可能就是进行办公的全部工具。今天，电脑、扫描仪和打印机等，已基本取代了旧的办公用具。如今，干部管理己完全可以通过电脑进行，并在计算机辅助下准确快速地完成许多复杂的工作。这些都大大地缩短管理的时间。而今天，干部管理的内容己经转变为对更为广泛的系统价值的追求。信息管理，如今已是一个热门话题，它已为许多企业所采用。我认为，在现代化的进程中，引入现代管理的思想，建立一套可面向企事业单位人事的信息管理系统，也是十分必要的。本课题基于我国企业管理信息化建设现状，结合在实际工作中所遇到的问题和收获，对企业干部管理系统在设计开发等方面进行研究，重点研究系统开发中所采用的软硬件平台规范、数据库结构设计、开发工具的选择与使用，目的是从技术手段的角度阐述如何实现企业从传统经营管理模式向信息化管理模式转变的过程，以及干部管理系统在企业管理信息化中所起到的重要作用。本课题的开发主要是要花费相当多的人力和时间，虽然开发出来的软件可能离具体产生效益还有一定的距离。但是，出于通过毕业设计来丰富自己的专业知识，并从长远利益来考虑，本课题的设计开发还是具有相当大的经济可行性的。1.2 选题的应用现状目前，在国内外各大企事业单位中，干部管理系统的使用是非常广泛的。同时，有很多的软件开发商也开发了许多基于各种行业的企业干部管理学系统，其中有单机版的，也有C/S和B/S模式的。而不同的企业具有不同的干部管理制度，这就决定了不同的企业需要不同的干部管理系统。而且，企业管理信息量大、操作繁琐、传统的方式不再适应新的工作需要，开发研制适合企业的干部管理系统，使其具有整体性强、流程简单、操作方便、功能丰富和通用性强等特点，是加快企业人才管理工作办公自动化、信息资源化和管理科学化建设进程必要途径。因此建立适合企业的管理信息系统，是促进企业信息高速公路的发展，为企业的发展提供条件的重要课题。随着数据库技术和网络技术的发展，数据库的互连技术正成为世界计算机领域研究的热点，基于WEB的管理信息系统的研究正成为MIS研究的主流。与此同时，Internet的发展与普及，国内许多企业已经建成有自己的企业人力资源管理软件，为企业的快速运营提供了很大方便。但是对于有些中小企业来说，不需要大量的数据库，所以我们的目标是开发一个功能使用，操作简单的干部管理系统。1.3 选题要研究的主要内容能够录入人事干部的基本资料，在操作上能够完成诸如添加、修改、删除、按各种条件进行查询、新用户的设置及密码修改等方面的工作，基本满足人事日常业务的需要。管理信息系统是以数据库为中心的系统，因此在设计时应充分考虑数据库设计。数据库结构设计的好坏直接对应用系统的效率以及实现的效果产生影响，好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，系统具有较快的响应速度。在本系统中，数据库设计采用系统功能、开发工具、数据库技术三者相结合的方法进行设计。根据需求分析及数据库规范化理论，主要表格结构设计如下：输出模块信息管理模块输入模块查看模块基本信息维护信息维护干部管理主控模块图1-1 数据库表结构设计图(1) 干部基本情况表(职工号，姓名，性别，出生年月，民族，籍贯，政治面貌，加入时间，身份证号，部门编号，职务编号，任职时间，级别号，职称，评定时间)。其中，职工号为关键字，部门号、职称号、级别号为外部码。(2) 干部学历情况表(职工号，第一学历，第一学位，第一专业，毕业院校1，最后学历，最后学位，最后专业，毕业院校2)。其中，职工号为关键字，对应于干部情况表中职工号。因为社会在发展，用户的需求也在改变，如何把握住用户的需求是需要时间的，面向对象的方法有时也会忽略外在的与表层的要求，不仅仅是要获得关键的需求，其他更多的需求往往要等到用户在使用后才知道，然而等到用户使用是不现实的，作为原型开发模型中的原型也是收集用户需求，描述与解释需求的一类相当有效的方法与工具。第二章 开发系统的相关技术现在，市场上可以选购的应用开发产品很多，流行的也有数十种。在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的提高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间；相反，如果只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用。本设计我将采用面向对象的方法，综合运用数据库技术、程序设计技术，结合企业人事管理知识，以Visual Basic 6.0作为系统前台应用程序开发工具，Access作为后台数据库，通过Visual Basic 6.0中的Data控件使两者进行连接从而进行系统软件开发。2.1 Visual Basic 具有的特点Visual Basic 6.0是微软公司推出的可视化编成工具，它提供了非常简单、快捷的开发方法，无论是初学者还是专业开发人员，只要稍有语言基础就可以快速掌握并精通。Basic是Beginners All-purpose Symbolic Instruction Code(初学者通用符号指令代码)的缩写，它诞生于20世纪60年代初期，因其简单易学、使用方便。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：(1) 具有面向对象的可视化设计工具；(2) 事件驱动的编程机制；(3) 结构化的程序设计语言；(4) 提供了易学易用的应用程序集成开发环境；(5) 支持多种数据库系统的访问；(6) 高度可移植化的代码。2.1.1 可视化编程用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2.1.2 面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。2.1.3 结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。2.1.4 事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。2.2 Access的介绍Microsoft Access是比较流行的关系型数据库管理系统之一，其基本核心是Microsoft Jet数据库引擎，是一些关于某个特定主题或目的的信息集合。它的作用是用来存储，维护和检索数据。同时，提供VBA编程接口，可以为用户提供各种各样的编程功能。一个数据库对象是由若干表，查询，窗体，报表，宏和模块等对象及对象的集合组成的，这些集合的组合丰富和增强了Access数据库的功能。在Access中，所有的对象均保存在一个“.MDB”文件中，这给数据库的维护带来了很大的方便。选择Access作为后台数据库，是因为Access在许多数据管理的系统中已经非常广泛的使用，在数据流管理方面也是比较成熟的。同时Access相比较SQL作为后台数据库，在连接方面有更为简易的表现，选择Access作为后台数据库。2.3 访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如DBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。2.3.1 动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。2.3.2 对象的链接与嵌入(OLE) 对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。2.3.3 动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。第三章 系统设计3.1 系统调研正式开发管理信息系统之前进行调研是非常必要的，其必要性主要表现在以下几个方面:(1) 明确用户的要求，以根据调查结果进行可行性分析，确认系统的开发是否可行。(2) 提出新系统的人员并不都是系统研究人员，有些人对于其功能和处理数据的方法没有明确的认识。它们只是根据自己业务工作的需要提出了要求，系统开发人员要对此进行详细的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。(3) 企业的现行系统可能是手工系统，也可能是使用计算机的系统，无论是何种情况，都要详细地调查现行系统中信息处理的具体情况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行详细的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避免耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。3.2 可行性分析概述可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行,可行性分析阶段的主要工作包括以下几个方面：(1) 新系统目标可行性分析分析新系统的目标是否符合企业的现状和发展的需要。(2) 社会可行性分析社会可行性分析主要是指管理信息系统的开发是否符合国家法律、政策，是否能够与社会大系统实现良好的对接。(3) 技术可行性分析技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。(4) 经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认新系统是否会给企业带来一定的经济效益。(5) 管理可行性分析管理可行性分析主要是分析企业现行的管理体制和企业领导是否具有现代化的管理意识和管理水平。3.3 技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统，新系统开发人员的数量和水平，即人力资源、硬件和软件资源。(1) 技术支持首先根据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里讨论的技术必须是已经普遍使用的，而不是待研究的或正在研究的。(2)硬件资源开发管理信息系统所需的硬件资源包含以下方面：系统开发人员在管理信息系统的开发过程中所需要的计算机设备及其有关的外部设备；管理信息系统开发成功投入使用后，使用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网能力、安全保护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能/价格比。(3) 软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：操作系统的选择；编译系统的选择； 数据库管理系统的选择；高级编程语言的选择；汉字处理系统的选择；应用软件包的选择。本系统在开发前，与中心的领导和有关的操作人员密切沟通，认真听取他们的意见，并吸收他们的积极观点，使本系统的开发在相当大的程度上具有一定的先进性和合理性。3.4 系统需求分析(1) 系统的功能分析干部管理系统是一个典型的数据库开发应用程序，它由员工信息管理、工资管理、假条信息管理、系统用户管理等模块组成，具体规划如下：系统用户管理：对使用系统的用户进行管理，为他们分配一定的权限，使他们规范的使用系统。本系统的用户分为两类：管理员和一般用户。管理员可以对系统的各个模块进行添加，删除，修改，查询；而一般用户只能对各模块进行简单的查询，从而了解相关的信息。干部信息管理：干部信息管理包括对干部基本信息和情况的记录进行查询、添加、删除和修改。主要由管理员进行。干部工资管理：干部工资管理主要是对干部工资的综合的核算，建立合理、规范的企业工资核算制度，保障职工的合法权利。干部简历管理：干部简历管理是对干部的出勤进行管理，方便系统管理员对干部的管理，方便随时了解最新、最全面工作情况，从而合理的完成工作。(2) 系统功能结构系统功能结构图主要从功能的角度描述了系统的结构。干部管理的系统功能结构如图3-1所示：导入数据导出数据数据备份系统维护系统管理用户管理查询管理报表管理干部管理系统干部信息管理干部任免管理单位管理辅助功能 用户列表添加用户删除用户密码修改干部推荐任免统计打印审批表信息录入信息更新干部花名册信息查询打印履历表基本查询条件查询制定报表管理报表新建单位修改单位删除单位图3-1 系统功能结构图第四章 主要功能模块的实现4.1 功能描述该信息管理系统可以在Windows xp及以上平台运行，开发工具采用Visual Basic语言开发。其工作流程为：用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。4.1.1 系统的主要功能特点(1) 系统登录表单该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进入系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。(2) 主界面在该界面窗口中，共有文件、数据、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。图4-1 系统页面4.1.2 系统操作流程图用户登录（用户名及密码）数据库密码错误错误提示检查密码正确系统界面功能处理图4-2 系统操作流程图4.2 数据库设计干部管理系统的数据库采用Access，系统数据库的名称为“data”。数据库data中包含了11张数据表。下面分别给出数据表概要说明和主要数据表的结构。(1) 干部基本信息数据表：用于储存干部的基本信息。干部基本信息表见表1所示：表1 干部基本信息表字段字段名类型宽度Nulls1编号文本型10否2姓名文本型10否3籍贯文本型50否4住址文本型50否5邮编文本型6否6性别文本型1否7婚否文本型10否8健康状况文本型10否9政治面貌文本型10否10身份证号文本型18否11出生日期文本型10否12联系电话文本型20否13移动电话文本型20否14参加工作时间文本型10否(2) 个人简历表：存储干部的任职及个人简历相关信息。个人简历表见表2所示：表2 个人简历表字段字段名类型宽度Nulls1jlid自动编号6是2jzgid数值型11否3姓名文本型10否4开始时间文本型10否5结束时间文本型10否6所在单位文本型50否7职务文本型10否8证明人文本型10否9备注文本型10否(3) 用户信息表，用于储存用户信息。用户信息表见表3所示：表3 用户信息表字段名称数据类型长度用户名（主键）文本20密码文本204.3 系统主要界面设计系统主要界面是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示当前的操作员、当前系统的日期时间、干部及员工等信息，还可以通过菜单或窗体中的按钮来控制其他功能子窗体，并且为不同的操作员赋予相应的操作权限。4.3.1 用户登录界面设计用户登录页面：系统用户登录模块主要用于完成对登录系统的用户的验证，只有合法的用户才可以进入系统，不同的用户登陆后的权限是不一样的。运行用户登陆模块，如图4-3所示：图4-3 用户登录页面部分代码如下：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, cn, 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 Sub4.3.2 干部基本信息界面设计 把员工信息表作为主窗体的默认表，所示主窗体的运行结果也是员工信息表的运行结果。在员工信息表中可以对员工信息进行编辑，删除，查询和设置。界面如图4-4所示。图4-4 干部基本信息页面部分代码如下：Private Sub Form_Load()Me.Caption = gXtmcMe.Icon = MDIfrm.Icon 图标If newFlag 0 Then 如果为修改 Call OpenConn SQL = “select * from 基础档案表 where zgid=” & gXhcd rs.Open SQL, cn, 1, 1 For I = 0 To 31 Me.Text1(i).Text = rs.Fields(I + 1) Next Me.Text1(32).Text = rs!建档人 像片路径- If rs!像片 “” Then If Dir(App.Path & rs!像片) “” Then 判断像片是否存在 Me.Image1.Picture = LoadPicture(App.Path & rs!像片) phoPath = rs!像片 End If Else Me.Image1.Picture = LoadPicture(App.Path & “bg000.jpg”) phoPath = “” End If - Call CloseConn Me.Toolbar1.Buttons(1).Visible = False 新增按钮不可用 Me.Toolbar1.Buttons(3).Enabled = False Me.Toolbar1.Buttons(4).Enabled = FalseElse 如果为新增 Me.Text1(32).Text = gCzy Me.Toolbar1.Buttons(2).Visible = False 新增按钮不可用 Me.Toolbar1.Buttons(3).Enabled = False Me.Toolbar1.Buttons(4).Visible = FalseEnd If 初始化家庭成员列表-With Me.lvwJTCY.ColumnHeaders.Add = “职工姓名”.ColumnHeaders.Add = “成员姓名”.ColumnHeaders.Add = “关系”.ColumnHeaders.Add = “所在单位”.ColumnHeaders(1).Width = 2000.ColumnHeaders(2).Width = 2000.ColumnHeaders(3).Width = 2000.ColumnHeaders(4).Width = 4700End WithSQL1 = “select * from 家庭成员表 where czgid=” & gXhcdCall OpenConnrs.Open SQL1, cn, 1, 1Do While Not rs.EOFSet addlvwJTCY = Me.lvwJTCY.ListItems.Add(, , rs!职工姓名, , 1) addlvwJTCY.SubItems(1) = rs!成员姓名 addlvwJTCY.SubItems(2) = rs!关系 addlvwJTCY.SubItems(3) = rs!所在单位 rs.MoveNextLoopCall CloseConnEND- 初始化个人简历列表-With Me.lvwGRJL.ColumnHeaders.Add = “职工姓名”.ColumnHeaders.Add = “开始时间”.ColumnHeaders.Add = “结束时间”.ColumnHeaders.Add = “所在单位”.ColumnHeaders.Add = “职务”.ColumnHeaders.Add = “证明人”.ColumnHeaders(1).Width = 1500.ColumnHeaders(2).Width = 1500.ColumnHeaders(3).Width = 1500.ColumnHeaders(4).Width = 3200.ColumnHeaders(5).Width = 1500.ColumnHeaders(6).Width = 1500End WithSQL1 = “select * from 个人简历表 where jzgid=” & gXhcdCall OpenConnrs.Open SQL1, cn, 1, 1Do While Not rs.EOFSet addlvwGRJL = Me.lvwGRJL.ListItems.Add(, , rs!职工姓名, , 2) addlvwGRJL.SubItems(1) = rs!开始时间 addlvwGRJL.SubItems(2) = rs!结束时间 addlvwGRJL.SubItems(3) = rs!所在单位 addlvwGRJL.SubItems(4) = rs!职务 addlvwGRJL.SubItems(5) = rs!证明人 rs.MoveNextLoopCall CloseConnEND-初始所获荣誉列表-With Me.lvwSHRY.ColumnHeaders.Add = “职工姓名”.ColumnHeaders.Add = “获得时间”.ColumnHeaders.Add = “所获称号”.ColumnHeaders.Add = “颁发单位”.ColumnHeaders(1).Width = 2000.ColumnHeaders(2).Width = 2000.ColumnHeaders(3).Width = 2000.ColumnHeaders(4).Width = 4700End WithSQL1 = “select * from 个人荣誉表 where rzgid=” & gXhcdCall OpenConnrs.Open SQL1, cn, 1, 1Do While Not rs.EOFSet addlvwSHRY = Me.lvwSHRY.ListItems.Add(, , rs!职工姓名, , 3) addlvwSHRY.SubItems(1) = rs!获得时间 addlvwSHRY.SubItems(2) = rs!所获称号 addlvwSHRY.SubItems(3) = rs!颁发单位 rs.MoveNextLoopCall CloseConnEND-End SubPrivate Sub Form_Unload(Cancel As Integer)If sx = True Then frmJCDA.cmdSSSSSSX = True 刷新frmJCDA的listview sx = FalseEnd IfgXhcd = 0End SubPrivate Sub Image1_DblClick()If phoPath “” Then 双击以后用IE打开像片 Shell “explorer.exe “ & App.Path & phoPath & “”, vbNormalFocusEnd IfEnd SubPrivate Sub Text1_GotFocus(Index As Integer) text1失去焦点过程，combo运行过程Select Case IndexCase Is = 5 性别 tFlag = 5 Me.Combo1.Width = Me.Text1(5).Width Me.Combo1.Top = Me.Text1(5).Top Me.Combo1.Left = Me.Text1(5).Left Me.Combo1.Clear Me.Combo1.AddItem “男” Me.Combo1.AddItem “女” Me.Combo1.Visible = True Me.Combo1.SetFocus Case Is = 6 婚否 tFlag = 6 Me.Combo1.Width = Me.Text1(6).Width Me.Combo1.Top = Me.Text1(6).Top Me.Combo1.Left = Me.Text1(6).Left Me.Combo1.Clear Me.Combo1.AddItem “未婚” Me.Combo1.AddItem “已婚” Me.Combo1.Visible = True Me.Combo1.SetFocus Case Is = 8 民族 tFlag =