基于VB人事管理系统毕业设计(含源文件)模板.doc

毕 业 设 计（论 文）题 目：人事管理系统作 者：指导老师：专 业：时 间：汉字题目：人事管理系统外文题目：PERSONNEL MANAGEMENT SYSTEM摘 要伴随计算机技术飞速发展，计算机在企业管理中应用普及，利用计算机实现企业人事管理势在必行。本系统结合企业实际人事管理制度，经过实际需求分析，采取功效强大Visual Basic6.0作为开发工具而开发出来单机版人事管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全要求出发，完成人事管理全过程，包含新进职员加入时人事档案建立、老职员转出、职位等变动引发职员信息修改、职员信息查询、统计等人事管理工作和新进员新增、老职员修改等管理工作。经过实际使用证实，本文所设计人事管理系统能够满足企业人事管理方面需要。关键词： 信息管理、人事管理、人事管理系统Abstract With the rapid development of computer technology, computers in business management applications to the popularization of the use of computer personnel management of enterprises is imperative. The combination of the actual system of personnel management system, after the actual demand analysis, a powerful development tools Visual Basic6.0 as developed as a stand-alone version of the personnel management system.The whole system from the simple, user-friendly, flexible, practical and security of the request, to complete the entire process of personnel management, including new staff joined the personnel file at the establishment, the old staff out of jobs arising from trade unions and other changes in information Changes, staff information, statistics and other personnel management, as well as new Members of the new and old employees revisions management. After that the actual use, the paper designed by the personnel management system to meet the personnel management of the companys needs.Key words: information management; personnel management; personnel management system目 录第一章 概述11、本课题起源12、本论文目标、内容及作者关键贡献1第二章 开好发工具选择2第三章 系统调研及可行性分析61、 系统调研62、 可靠性分析概述63、 技术可行性分析7第四章 系统分析81、系统需求分析92、数据步骤图9第五章 系统总体设计101、功效描述102、系统操作步骤图11第六章 系统具体设计121、数据库设计122、系统关键界面13第七章 系统测试161、测试举例162、测试项目173、测试方法18致 谢19参考文件19附录 原程序清单 20 第一章 概述1、 本课题起源伴随计算机技术飞速发展，计算机在企业管理中应用普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳感人事管理日常事务，是适应该代企业制度要求、推进企业劳感人事管理走向科学化、规范化必需条件；计算机管理所无法比拟优点检索快速、查找方便、可靠性高、存放量大、保密性好、寿命长、成本低等。这些优点能够极大地提升人事管理效率,也是企业科学化、正规化管理,和世界接轨关键条件。不一样企业含有不一样人事管理制度，这就决定了不一样企业需要不一样人事管理系统。2、本论文目标、内容及作者关键贡献(1)目标：现在市面上流行人事管理系统不少。不过，对于企、机关人事管理系统来说，不需要大型数据库系统。只需要一个操作方便，功效实用，能满足本中心对数据管理及需求系统。我们目标就是在于开发一个功效实用、操作方便，简单明了人事管理系统。(2)内容能够录入人事基础资料，在操作上能够完成诸如添加、修改、删除、按多种条件进行查询、新用户设置及密码修改等方面工作，基础满足人事日常业务需要。 (3)作者关键贡献本人独立完成了此课题研究和开发，包含调研、分析、设计、编码、测试、文档编写等内容。第二章 开发工具选择现在，市场上能够选购应用开发产品很多，流行也有数十种。现在在中国市场上最为流行、使用最多、最为优异可用作企业级开发工具产品有：Microsoft企业Visual BasicMicrosoft企业Visual CBorland企业Delphi 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所含有功效。第三章 系统调研及可行性分析31 系统调研正式开发管理信息系统之前进行调研是很必需，其必需性关键表现在以下多个方面。（1）明确用户要求，以依据调查结果进行可行性分析，确定系统开发是否可行。（2）提出新系统人员并不全部是系统研究人员，有些人对于其功效和处理数据方法没有明确认识。它们只是依据自己业务工作需要提出了要求，系统开发人员要对此进行具体调查和分析，确定用户要求能够经过现有计算机技术实现，确保开发管理信息系统功效和用户提出要求相吻合。（3）企业现行系统可能是手工系统，也可能是使用和计算机系统，不管是何种情况，全部要具体地调查现行系统中信息处理具体情况，系统内部功效结构，方便设计出一个合理、好新系统逻辑模型，为新系统设计工作打好基础，确保整个系统开发质量。总而言之，必需对现行系统进行具体调查，明确用户需求，确保开发新系统功效和用户要求相吻合，避免花费大量人力、物力、财力，新系统开发却失败悲剧发生。32 可行性分析概述可行性分析是在用户要求和系统调研基础上进行，对新系统开发从社会、技术、经济、管理等方面进行分析，并得出新系统开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最终完成可行性分析。可行性分析通常可定义为：可行性分析是在建设前期对工程项目标一个考察和判定，对拟议中项目进行全方面和综合技术、经济能力调查，判定它是否可行。(1)可行性分析阶段关键工作包含以下多个方面：新系统目标可行性分析：分析新系统目标是否符合企业现实状况和发展需要。社会可行性分析：社会可行性分析关键是指管理信息系统开发是否符合国家法律、下策，是否能够和社会大系统实现良好对接。技术可行性分析：技术可行性分析是依据新系统目标来衡量是否含有所需要技术，包含系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。经济可行性分析经济可行性分析关键是对开发新系统所投入资金和系统投入使用后所带来经济效益进行比较，确定新系统是否会给企业带来一定经济效益。管理可行性分析：管理可行性分析关键是分析企业现行管理体制和企业领导是否含有现代化管理意识和管理水平。33 技术可行性分析技术可行性分析关键包含四个方面：现在相关技术能否支持所开发新系统；新系统开发人员数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先依据新系统目标，考虑现在相关技术能否支持所开发新系统。这里讨论技术必需是已经普遍使用，而不是待研究或正在研究。（2）硬件资源：开发管理信息系统所需硬件资源包含以下两个方面：系统开发人员在管理信息系统开发过程中所需要计算机设备及其相关外部设备；管理信息系统开发成功投入使用后，使用单位所应含有计算机设备及其相关外围设备。对硬件资源进行可行性分析时关键考虑计算机主机内存、类型、功效、联网能力、安全保护方法和输入/输出设备，外存放器和联网数据通信设备配置、功效、效率等指标是否符合系统方案设计要求，同时还要考虑计算机性能/价格比。（3）软件资源软件资源可行性分析关键考虑以下几点是否满足用户要求：操作系统选择；编译系统选择；数据库管理系统选择；高级编程语言选择；汉字处理系统选择；应用软件包选择。本系统在开发前，和中心领导和相关操作人员亲密沟通，认真听取她们意见，并吸收她们主动见解，使本系统开发在相当大程度上含有一定优异性和合理性。第四章 系统分析41 系统需求分析系统分析是开发管理信息系统关键性阶段，是一个从不停认识和逐步细化过程，是下一阶段工作基础，是为下一阶段进行物理方案设计、处理“怎么做”提供依据，基关键性关键表现在“了解需求”和“表示需求”两方面。经过对现行系统具体调研，关键是从系统角度了解用户需要，确定新系统综合要求，并提出这些需求实现条件和需求应达成标准，也就是确定新系统要做什么，做到什么程度。这些需求包含：（1）功效需求。确定新系统应做什么，这是最关键需求。（2）性能需求。给出所开发新系统技术性能指标，包含存放容量限制、运行时间限制、安全保密性等。（3）环境需求。这是对系统运行和所处环境要求。比如，在硬件方面采取什么机型、有什么硬件设备等；在软件方面，采取什么支持系统运行系统软件（指操作系统、数据库管理系统）。（4）未来需求。这类要求是指现在不属于系统开发范围，但未来伴随外界环境改变和系统发展可能会提出要求。了解这类要求目标是在开发过程中，可对系统未来可能扩展和修改做准备。一旦需要时，就比较轻易进行补充和修改了。42 数据步骤图数据步骤图是描述系统逻辑模型关键工具，经过多个特定符号，能够综合地反应出信息在系统中使用、加工处理、传输、存放整体情况。数据步骤图是系统结构化分析行之有效工具，它抽象地描述了系统数据处理情况，但却无法表示各个处理具体内容，所以还要对数据步骤图中出现数据流和处理等做深入补充说明，这就是数据字典和变换逻辑说明。数据流图 人事主管职员基础信息工资管理假条信息档案管理管理员会计员 图4。1 系统数据流图第五章 系统总体设计5.1.功效描述:该信息管理系统能够在Windows Server平台上运行，开发工具采取Visual Basic语言开发。其工作步骤为：用户登录经过权限判定，一般用户不能浏览、阅读和查询信息，指定用户能够操作，能够进行信息录入、修改和删除操作。系统关键功效特点有:(1)系统登录表单该表单功效是在系统被访问之前，要对进入系统用户进行安全性检验，预防非法用户进行系统破坏数据及威胁系统安全，避免无须要损失。只有正当用户在输入正确密码后方可进入系统。(2)主界面在该界面窗口中，共有文件、数据、相关等全部系统功效，用户能够操作菜单方法快捷地使用系统。(3)更改密码：使用本表单能够方便地修改用户密码，以防密码泄露后对数据安全性造成威胁。5.2系统操作步骤图:错误信息系统主界面系统登录界面系统管理输入操作员及密码数据库检验密码错误密码正确功效界面功效处理图 5-1系统操作步骤图第六章 系统具体设计6.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否62 系统关键界面设计因为人事资料管理牵涉到个人隐私及企业密秘等多方面原因,所以一定要保密,并有专员管理,使用前身份确定就显得很关键,故在运行前要进行管理权限确定. 以预防她人无意或恶意篡改.(图 6-1) 图 6-1 主界面图其中记录表界面以下： 图 6-2 记录表界面密码修改: 图 6-3 密码修改界面登陆成功界面: 图 6-4登陆成功界面查询界面: 图 6-5 查询界面第七章 系统测试为了确保本系统能够正常运行，需要在公布以后做一次较全方面测试。现将具体操作及过程举例说明以下：71测试举例（1）.测试用户登陆是否成功：打开人事管理系统，在“用户名”里填入root，“密码”框里我们填入root作为用户登录密码。填写完成点击“确定”按钮，将会出现操作程序页面，即该用户已经登陆成功了。再运行程序，会有提醒页面出现：程序已经运行，不能再次装载！ （2）.测试其它用户是否能够登录：打开人事管理系统登录页面，输入任意密码，点击“登录”按钮。将出现密码犯错提醒页面。然后点“确定”返回人事管理系统登录页面。（3）.测试编辑功效是否成功：编辑功效：在登录成功以后，即可进入对应管理页面，点击“编辑”，即出现编辑页面，即能够修改和删除职员个人信息资料。最终保留。 （4）.测试查询功效是否成功：查询功效：在登录成功以后，点击“查询”，在弹出文本框，在里面输入想要查找资料，点击“查询”按钮，成功即可出现结果页面，页面内显示查询出来职员资料内容，表示测试成功。（5）.用户登出系统测试：在管理操作已全部完成，需要退出程序时候，在系统页面“系统设置”下拉菜单有一个“退出”选项，点击以后便可退出。也能够点“关闭”退出。（6）.测试密码更改：在以超级用户登录情况下，在程序中打密码设置，弹出文本框，显示用户列表。能够添加新一般用户，也能够删除和严禁一般用户使用程序。在以一般用户登陆情况下，打开密码设置选项，系统会提醒该用户为一般用户，只能够修改自己密码。经过以上各项测试，证实本系统完全能够正常运行，至此测试成功！72测试项目在MIS开发过程中采取了多个方法确保软件质量，不过实际开发过程中还是不可避免地会产生差错，系统中通常可能隐藏着错误和缺点，不经周密测试系统投入运行，将会造成难以想象后果，所以系统测试是MIS开发过程中为确保软件质量必需进行工作。大量统计资料表明，系统测试工作量往往占MIS开发总工作量40%以上。所以，我们必需重视测试工作。因为程序中隐藏缺点只在特定环境下才有可靠显露，系统缺点通常是因为对一些特定情况考虑不周造成。所以测试不是为了表明程序正确；成功测试也不是没有发觉错误测试。有意义软件测试应该是从“破坏”软件系统角度出发，精心设计最有能够暴露程序系统缺点测试方案。所以软件测试目标应该是以尽可能少代价和时间找出软件系统中潜在错误和缺点。从产品角度看，测试计划中测试项目包含软件结构中分系统层、子系统层、功效模块层、程序模块层中各类模块，从测试本身看，分为单元测试，组合测试，确定测试等。测试对象是随不一样阶段而异，最基础、最初测试是单元测试，后面组合测试、确定测试全部是以被测过模块作为测试对象。(1)单元测试：单元测试也称模块测试或程序测试，单元测试是对每个模块单独进行，验证模块接口和设计说明书是否一致，对模块全部关键处理路径进行测试且和预期结构进行对照，还要对全部错误处理路径进行测试。对源码进行审查，对照设计说明书，表态地检验源程序是否符合功效逻辑要求，是进行单元测试前关键工作工。单元测试通常是由程序员完成，也称程序调试。(2)组合测试组合测试也称集成测试或子系统测试，通常采取自顶向下测试和自底向上测试两种测试方法。组合测试对象是指已经经过单元测试模块，不是对零碎模块进行单个测试，而是用系统化方法装配和测试软件系统，是一个严格过程，必需认真地进行，其计划产生和单元模块测试完成日期要协调起来，这种测试应在系统目标机上进行，造成系统应用环境条件，除了开发部分项目责任人参与以外，还应该有对应系统用户参与，给评审员进行演示。(3)确定测试确定测试是对经过组合测试软件进行，这些软件已经存于系统目标设备介质上，确定测试目标是表明软件是能够工作，而且符合“软件需求说明书”中要求全部功效和性能要求。确定测试是根据这些要求定出“确定测试计划”进行。测试工作是由一个独立组织进行，而且测试要从用户角度出发。(4)系统测试系统测试是对整体性能测试，关键处理各子系统之间数据通信和数据共享问题和检测系统是否达成用户实际要求，系统测试依据是系统分析汇报。系统测试应在系统整个范围内进行，这种测试不只对软件进行，而是对组成系统硬、软件一起进行。系统测试和建构同时进行或略慢。系统测试需要确定从头到尾功效正常才算完成，应该尽可能避免系统测试延到项目末尾进行。(5)用户验收测试在系统测试完成后，进行用户验收测试，它是用户在实际应用环境中所进行真实数据测试。在具体测试中，通常应遵照以下标准：由程序设计者之外人进行测试；测试用例应由两部分组成：输入数据和预期输出结果；应选择不合理输入数据和非法输入测试；不仅要检验程序是否实现预期功效，还应检验程序是否做了不应该做工作；集中测试轻易犯错程序模块；对程序修改以后，必需重新进行测试。73测试方法通常来说，对程序测试有两种测试方法：假如已经知道了软件系统应含有功效，可经过测试来对每个功效是否全部能正常使用；假如知道程序内部工作过程，能够经过测试来检测程序内部是否根据规格说明书要求正常进行。前一个方法称为黑盒测试，后一个方法称为白盒子测试。黑盒测试又称为功效测试，白盒子测试又称为结构测试。经过多个月毕业设计，因为时间和任务性质关系，没有完全根据上述测试方法进行系统测试，但经过部分简单步骤测试，证实本系统含有相当程序稳定性。致 谢经过四个多月构思和设计，在指导老师精心指导和安排下，本系统已经设计完成。其使用功效基础符合企业在实际工作需要，含有一定实用性。不过因为时间比较仓促，加上本人软件设计经验不足。所以，在分析问题、处理问题时显得不够严密、完善，还需要在以后工作中不停地改善和完善。在这次毕业设计中，让我深深地表现到进行软件开发不是一件简单事情，它需要设计者含有全方面专业知识、缜密思维、严谨工作态度和较高分析问题、处理问题能力，而我在很多方面还有欠缺。最终，我要衷心感谢老师在我设计过程中给我极大帮助，使我能够立即、顺利地完成此次毕业设计。同时，也要感谢我老师和同学们及实习企业在本系统设计过程中给我支持和帮助。参考文件1王福成等：，清华大学出版社6月2郭振波编著： ， 人民邮电出版社3月3林永等编著： ， 人民邮电出版社11月4刘炳文等编著： ，清华大学出版社 7月附录 源程序清单Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click() If Cmbdegree.Text = 定制 Then FrmTable.Show Cmbdegree.ListIndex = 0 End IfEnd SubPrivate Sub Cmbdepart_Click() If Cmbdepart.Text = 定制 Then FrmTable.Show Cmbdepart.ListIndex = 0 End IfEnd 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