公司人事管理系统设计说明书.doc

毕业设计说明书人事管理系统的设计专业计算机应用与维护学生姓名班级学号指导教师完成日期53 / 57人事管理系统的设计摘要：近年来，随着企业彼此间的竞争日趋激烈，信息技术在企业的发展中占据着越来越重要的地位。企业的人事管理系统已成为企业经营中不可或缺的一部分，为管理者进行管理决策和进行各种经营活动提供了重要的依据，在人事管理过程中发挥了越来越重要的作用。南通龙威机械有限公司人事管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。该系统是使用微软公司的 Visual Basic6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先可在短时间内建立系统应用原型,然后,对初始原型系统进行需求分析,不断修正和改进, 其主要功能有：可以进行新新员工的增加，可以添加一个数据库项目，可以删除一个数据库项目，可以修改一个数据库项目，可以查询。 关键词：南通龙威机械有限公司人事管理系统；VB6.0；数据库目 录第一章 概述2第二章 系统开发工具的简介22.1 VB6.0开发工具的简介22.1.1 Visual Basic 语言的特点22.1.2 Visual Basic 系统几个在程序应用中的常用名词32.1.3Windows下的Visual Basic 编程环境简介42.2 Access2000数据库的特点和功能简介52.2.1数据库的概念52.2.2新建一个数据库52.2.3修改已建的数据库62.3、二者的结合（DBA）6第三章 系统需求分析63.1 系统开发背景63.2人事管理系统的需求分析63.3 数据流程的分析7第四章 系统总体规划84.1 系统功能分析84.2 系统操作流程图9第五章 系统的具体实现95.1 系统数据库设计95.2 系统模块设计125.3 系统的实现17第六章 结束语18主要参考文献19致谢20附录20人事管理系统的设计第一章 概述近年来，随着企业彼此间的竞争日趋激烈，信息技术在企业的发展中占据着越来越重要的地位。企业的人事管理系统已成为企业经营中不可或缺的一部分，为管理者进行管理决策和进行各种经营活动提供了重要的依据，在人事管理过程中发挥了越来越重要的作用。南通龙威机械有限公司人事管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。该系统是使用微软公司的 Visual Basic6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操 纵数据库的智能化对象,首先可在短时间内建立系统应用原型,然后,对初始原型系统进行需求分析,不断修正和改进, 其主要功能有：可以进行新新员工的增加，以添加一个数据库项目，可以删除一个数据库项目，可以修改一个数据库项目，可以查询。为保证用户的安全性，还设计了简捷方便的用户登陆和密码修改。本管理系统设计合理、界面美观、操作方便、运行稳定、功能完备，为进行现代化的档案管理工作起到了重要作用，具有较高的实用价值。第二章 系统开发工具的简介2.1 VB6.0开发工具的简介Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性、可扩展性和强有力的功能。Visual Basic应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。2.1.1 Visual Basic 语言的特点 在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic具有以下特点：（1）可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。（2）面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。（3）结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。（4）事件驱动编程Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。2.1.2 Visual Basic 系统几个在程序应用中的常用名词 Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：(1) 视窗（Form）视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。(2) 对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。(3) 属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。(4) 事件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。(5) 方法 (Method)方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。(6) 过程 (Procedure)过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。(7) 模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。 2.1.3Windows下的Visual Basic 编程环境简介(1) 面对对象的编程面向对象的设计方法 (OOP, Objected Programming) 从应用领域内的问题着手，以直观自然的方式描述客观世界的实体。Visual Basic 作为一种面向对象的编程方法，把程序和数据封装起来作为一个对象，并为每个对象赋予相应的属性。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，由 Visual Basic 自动生成对象的程序代码并封装起来。Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。(2) 实现菜单选项菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程序易于使用和维护，Visual Basic 也提供了强大的创建菜单功能是程序更加标准。本系统使用 Visual Basic 的菜单编辑器建立菜单或者修改已经存在的菜单，您也可以使用Visual Basic 的Application Wizard 来操作。(3)实现工具栏CoolBar控件与Office2000 中看到的CoolBar是类似的。CoolBar就是一个可以在窗体上浮动的工具，同时也是其他ActiveX的容器。通过在CoolBar中迁入其他空间你也可以向用户提供更好的灵活性和义用性。选择“工程”下拉菜单中的“部件”选项，显示“部件”对话框。在“控件”选项卡列表中选择“Microsoft Windows Common Controls 6.0”后工具相中增加改控件。本系统就用了Cool工具中的Statubar控件，在系统这一界面中，添加了状态栏，在第一个栏中，在样式这一栏中选择了文本，在第二个栏中，选择了系统日期，第三个栏中选择了系统时间，这样，任何时候操作本系统，都可以看到当前的时间和日期。2.2 Access2000数据库的特点和功能简介Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。2.2.1数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。2.2.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被子标识的字段到表中；3 标识主关键字字段；4 规范数据；5 标识指定字段的信息；2.2.3修改已建的数据库 数据库的修改分为；添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成。 2.3、二者的结合（DBA）微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系第三章 系统需求分析3.1 系统开发背景利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。3.2 南通龙威机械有限公司人事管理系统的需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断认识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”提供依据，最关键性主要体现在“理解需求”和“表达需求”两方面。通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：（1）功能需求。确定新系统应做什么，这是最主要的需求。（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。（4）未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。3.3 数据流程的分析数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据流程图： 人事主管员工基本信息会计员工资管理假条信息档案管理管理员 图： 系统数据流图第四章 系统总体规划4.1 系统功能分析该信息管理系统采用Visual Basic语言开发。其工作流程为：用户登录通过权限判断，普通用户不能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。系统的主要功能特点有:(1)系统登录表单该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查，防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失。只有合法的用户在输入正确的密码后方可进入系统。(2)主界面在该界面窗口中，共有文件、数据、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。(3)更改密码：使用本表单可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。4.2 系统操作流程图错误信息系统主界面系统登录界面系统管理输入操作员及密码数据库检查密码错误密码正确功能界面功能处理图4.2 系统操作流程图第五章 系统的具体实现5.1 系统数据库设计（1）职工信息数据表：字段字段名类型宽度小数位索引排序Nulls1职工编号数值型11否2姓名字符型20否3身份证号字符型18否4民族字符型10否5性别字符型4否6出生日期字符型20否7毕业学校字符型20否8学历字符型20否9部门字符型20否10职称字符型20否11上司字符型20否12电话字符型20否13EMAIL字符型20否14EDIT数值型11否15EDITTIME日期型8否16备注备注型50否（2）请假信息数据表：字段字段名类型宽度小数位索引排序Nulls1假条编号字符型6否2职工编号数值型11否3起始日期字符型20否4中止日期字符型20否5天数数值型6否6原由字符型50否7状态字符型20否8批准人字符型20否9EDIT数值型11否10EDITTIME日期型8否11备注备注型10否（3）员工工资数据表：字段字段名类型宽度小数位索引排序Nulls1工资编号字符型50否2职工编号数值型11否3年份数值型6否4月份数值型6否5基本工资数值型11否6加班工资数值型11否7交通补助数值型11否8总工资数值型11否9考勤扣除数值型11否10保险扣除数值型11否11扣税数值型11否12总扣除数值型11否13实际工资数值型11否14EDIT数值型11否15EDITTIME日期型8否16备注备注型10否5.2 系统模块设计因为人事资料管理牵涉到个人隐私及公司密秘等多方面因素,所以一定要保密,并有专人管理,使用前身份确认就显得非常重要,故在运行前要进行管理权限确认. 以防止他人无意或恶意篡改. 图5.1 主界面图操作说明：该系统初始的用户名是“root”和“any”，对应的密码分别是“root”和“any”。然后点击“确定”按扭，进入下面的主界面。其中登记表的界面如下：员工信息界面：操作说明： 先选中要进行操作的员工所在的列，然后点击“编辑”按扭，则会出现下面的编辑界面，此时就可以对被选中的员工的信息进行相应的编辑。如果点击“删除”按扭，则被选中行的员工的信息将被删除。员工信息编辑界面：假条信息界面：假条信息编辑界面：密码的修改: 操作说明： 在“旧密码”的文本框中输入旧密码， 在“新密码”的文本框中输入新密码， 在“再输一次”框中把新密码再输一次， 点击“确定”按扭，确认此次操作。查询界面:操作说明：先在“所有”、“男”和“女”三个字段中选一个自己想查询的字段。 在下拉菜单中选择自己想要查询的字段。 在第二个匹配符中选择“”或“=” 在第三文本框中输入相应要查询的内容 下面的操作和上面相同。版本信息：5.3 系统的实现Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：通过使用Visual Basic的 DATA控件。 通过使用由Visual Basic提供的专用的直接与数据库相连的接口第六章 结束语经过一个多月的设计和开发，该公司的人事管理系统基本开发完毕。其功能基本符合用户需求，能够完成员工基本信息的存储和查询，但不能进行各类相关报表的打印。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。 在张老师的指导下，我从无从下手到逐步了解，明确设计的思路，最终完成整个课题的设计。在此过程中，我通过到图书馆查资料，以及到技术交流网站进行交流和学习。逐步提高了自己的信息检索能力和自学的能力。主要参考文献1.王福成等：，清华大学出版社2002年6月2.郭振波编著： ， 人民邮电出版社2003年3月3.EricBrierley 主编 Visual Basic开发人员指南 机械工业出版社 1999年 4.林永等编著： ， 人民邮电出版社2002年11月5.刘韬 骆娟主编 Visual Basic6.0实效编程百例 人民邮电出版社 2002年6.李大友 主编 Visual Basic 程序设计 清华大学出版 2002年 7.何文俊 马杰. Visual Basic 6.0 编程实例精解M. 北京:北京希望电子出版社,2000年8.李长林 编著 Visual Basic串口通信技术与典型实例 清华大学出版社 2006年9.梁灿 赵艳铎 编著 Access数据库应用基础教程 清华大学出版社 2005 年10.刘炳文等编著： ，清华大学出版社 2000年7月致谢本系统能够顺利完成，非常感谢指导老师张老师。从选择课题开始，以及后面的任务书和开题报告的书写，课题的初步规划和实现，都离不开张老师的精心指导和大力支持。同时，也感谢和我一起合作完成本系统的其他同学。对于本人来说，通过这次毕业设计，是对自己在这三年学习的一个检验和老师认真教学的有力证明。在此，我对三年来辅导过我的各位任课老师深表感谢！附录Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If Cmbdegree.Text = 定制 Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End SubPrivate Sub Cmbdepart_Click() If Cmbdepart.Text = 定制 Then FrmTable.Show Cmbdepart.ListIndex = 0 End If End SubPrivate Sub CmdAddNew_Click() If CmdAddNew.Caption = 添加 Then CmdAddNew.Caption = 确认 CmdDel.Enabled = False CmdOK.Enabled = False DataA.ReadOnly = False For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i DataA.Recordset.AddNew Txt(0).Locked = False If FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text ElseIf FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now Else DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now End If Txt(0).SetFocus Else OK If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If For i = 1 To 12 If Txt(i).Text = Then Txt(i).Text = 0 DataA.Recordset.Fields(i) = 0 Next i If FrmMain.cutable = employee Then DataB.Recordset.FindFirst 职工编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 职员编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If ElseIf FrmMain.cutable = leave Then DataB.Recordset.FindFirst 假条编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 假条编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If Else For i = 4 To 10 If Not IsNumeric(Txt(i).Text) Then MsgBox not a number Txt(i).SetFocus Exit Sub End If Next i DataB.Recordset.FindFirst 工资编号= + Txt(0).Text If Not DataB.Recordset.NoMatch Then MsgBox 工资编号重复 Txt(0).Text = Txt(0).SetFocus Exit Sub End If End If DataA.Recordset.Update DataA.Recordset.MoveLast FrmMain.DataA.Refresh FrmMain.DataB.Refresh DataB.Refresh CmdAddNew.Caption = 添加 CmdDel.Enabled = True CmdOK.Enabled = True End If End SubPrivate Sub CmdCacel_Click() If CmdAddNew.Caption = 确认 Then DataA.Recordset.CancelUpdate End If FrmMain.Enabled = True FrmMain.SetFocus Unload Me FrmMain.DataA.Refresh If FrmMain.cutable = employee Then FrmMain.DBGA.Columns(性别).Button = True FrmMain.DBGA.Columns(学历).Button = True FrmMain.DBGA.Columns(部门).Button = TrueEnd IfEnd SubPrivate Sub CmdDel_Click() DataA.ReadOnly = False DataA.Recordset.Delete DataA.Recordset.MoveNext If DataA.Recordset.EOF Then DataA.Recordset.MoveLast End If FrmMain.DataA.RefreshEnd SubPrivate Sub cmdOK_Click() If Txt(0).Text = Then MsgBox 不可以为空 Txt(0).SetFocus Exit Sub End If Bupdata = False DataA.Recordset.Edit If FrmMain.cutable = leave Then DataA.Recordset.Fields(8) = frmLogin.EmploID DataA.Recordset.Fields(9) = Now ElseIf FrmMain.cutable = employee Then DataA.Recordset.Fields(13) = frmLogin.EmploID DataA.Recordset.Fields(14) = Now If Opsex(0) Then DataA.Recordset.Fields(4) = 男 Else DataA.Recordset.Fields(4) = 女 End If DataA.Recordset.Fields(7) = Cmbdegree.Text DataA.Recordset.Fields(8) = Cmbdepart.Text DataA.Recordset.Fields(13) = frmLogin.