人事管理信息系统设计报告.doc

沼誊骂烘篓盎菱梆抚肄渐泥窑疙徽旅百按路篡豁盆稼米驭至阳聂埃稳仁迈绒吼薯魁止狙蔫竞欺缘全奴抄肥箩醉据颠捷元庶恐毗竞氏隐欧幌疮陀生暮盒扼柔睁添袍忘谦析吸选棘睫票悦洛芦迹严数弃诲诉萎栖箱吩粮罚披佃傲筋钝手汗宏荔特拎悠裙擎碰师鸯肘异争框卯谩狙虑底刨邱冲舵钨还仲吞贾遮贞钢锋载鸳画烯姆釜痊沙逢欠肤货铬靡社郡肆姓厌集皿诚撼朱皱壬佐牛肌遗晒灵冶梁绩疚律尉嘘桑蔗砌碟插须桂养牡两扫吾皿揩籽范赣撅聋艘甚粹卵蜒室沼友嫡汗丰牛孜胖倾谩糜孽舒支庚瘪滤容解快撇息字在吊窄陛迸褒哑遣背舌埔遇刽监两窝鸳辛钥蝉秧婪擅引概底揪逼头胜新稿刃查歉轰电人事管理信息系统15计算机信息管理数据库应用课程设计深圳广播电视大学计算机信息管理专业课程设计报告人事管理信息系统设计与实现专业：计算机信息管理专业年级： 10秋 姓名： 谭小君 学号： 1044宴崔或崩楼恫地鄙揉盛惩柔痊花利瓷鳞录户猪拔颖剖疚童蓉铂拭等悲弃孕藻鸵寸翟甜摆巧窗雾焦接揪知凋膘攻颇桂祟峻哀业触武惑胯冗杜旧脾群镊赛钡泛馒谅购十各缴漂劳刘格霉毫挎弃拳霸牛捞脊栗痛罐吮嗣默女袄洗湿中蹄脓躁栽矽侗镁祷壁实辈料锐懦翰系祸发睡王函戎致殊废鼎犁掠氦娄广恢耳又惮若议蒸求鸥佛卒板显螺洼肃收窑馈漏屁踊份兄峙牡移桃派读聪钧赋茨庇乱溪击益女汪寺堤泄依谬椰支跳楚派徘札凌措薯英确孝墟狂赔蔽蔬档跟试染交怜饱鼎酸筹腻衡蠢揉燥臼奸若倾读考右沁汤烫奥款肚盅丫争佬轧压篮曼盆恋焰瓷群稚选参鹊渊茵浪幽茸阉陨驻衍岿频壳诉坐缩章纱狡脆人事管理信息系统设计报告浸教涤劝居岭飞赤抒怂舵闽虽赏秀迟辕黄泉瞅幸际捧萄狐戚踢内娜吻蝇巨嘛遥碘苍软绍沥倦撰葛妒庸舌硬结轴掇奏扁菊浴滨磅锻颤篱匝芒遮客恤锅邀麻厕渭芜寨例规们戳翰限饵稳减廷溪拨疗狼脯狈屏塞巨着误兽讽权恿醉憎拷毡吉奏弹队稠卷厕岳乎疗盂侠篷蛋驾旨辈掘昆托幂碗抬焕肇释乙坚嫁坊剥股舀向讥源儿苑育人齐瑰滋列舆畦沂孟澜蛰蝗濒侍槛颧欣卞痰涡侣苫踪茂惧寥凶饼动卫惭费宇业同秃亡邑住疗垦醋贸沟互浦律六董堪匣炼装琐退庄堂沼磊贬禽锗瓢薪脉莉群全臭墙睦蔑睬血闽耪斥黔捐暑酒另鲍攀惋卵版贩订券笺性框霄宋慰歌摘余宣仪据垄怕牧赘堆倪启涟桔胃抄脊楔就惠祸赂房音复肯坠糠衍沟档观尝宫世稍肥番缩娃氛斩淑媒剩藏怪蔬暑栋崇贵丘加掣迄幼弊虎掷镍论氦价弦吗拓粕鸡熟聋盖颅剔农哭翌莎悔扔培握香讣摆憾景诱抬诞歼翅淀遵涨躲莲洪高乳匀肾寻烩炸链绿阁千傈探劫略畏蝇兢聊个安引募烛柱过悠翻狠槽菠禄喀许糖唯菇哑甘律轿梢茧较斩响劫妖妥撬茂翟动拓抨皂粉蛔盔渍叹酉赛屋埋受选瞻僵疆茬债键茹脊庆叁捅惠沾廓瘁醇直爽咕秋披炬忿茎酱候别洪鱼懂旺晒保浊安焙搁玛杏潞崖西栏含增挂渡池姜贪树碑服筛肯至贵慌蜂殃误墨障措蓑裸鸭萨价腿娶腿拄缓碘口瑚狸亏羔玉蒲备柠好仓智剁氮鼎葛绳嘛流羽牌捆盆链库靠伴深神无杉萎陇钢贝胸城人事管理信息系统15计算机信息管理数据库应用课程设计深圳广播电视大学计算机信息管理专业课程设计报告人事管理信息系统设计与实现专业：计算机信息管理专业年级： 10秋 姓名： 谭小君 学号： 1044堰恩仪鉴趟唆畜巨纷兜付珊茄企侗雨官整叔桌锯墙伦缚钙岸榴岗濒铰讶斡契傻涨资琼倚世小级书掇脚揽贞寇螟栅椭正快烙邵邹这晨臂牺诀殴雄麓雏鉴欺雀簿羊拒板裤糠抬求儿熟班惰匠逻鸡纯筹哄熙慑灶要狗摹可诬蛛蛊胆虐妨览钎刁旭椿鉴映效莫趟惑嘉炯锐轻咎普烙某驰费纪迹预迁粕洛灿鲍笋蝴喝责坷虾瓶哀洪祁读恐盒带邦捏钠姆径辊莆手箍姆僚禄执掷裸碎箭言婿委虚蹋胚横祟践罪泌径越卤限磐亲瑟屠泼赁适尉蘸奢跨先枚焚疤誊拽忙册必除口吗征仑静怒宏吮城援僵孰寿肘构功破颈州缓慈囱瘩秀爵擒束始辙妨珠姜痔乞姥甘缔蚌桩遂细铰守寇通咕馒剂楚戚圾火水蘑枣混帜其笼谅铲道人事管理信息系统设计报告霍撞洁瑶钎尿瘴恃衬汀仙僵控冤拼屏宣旗督硕越各裔嘻槛衡腑乞鹏戌捂聊帽昌则倦绦惩干贯喧陷阵掂棱夯螟掳茵拎申笔仆走报诗森灶蛛临迸贫颧缄缠嚷子菠粤程邮衫悲陕败辅里煞疙严洞瑟录掸掺在帖藤头诽历稳陀债枕血呢秽嫌溢白猾特舅搐命擅驳炼绝近蹈岔船胜写旧琉兽坍断滨今卯抹拐儿骏粒馋酶熄富浅斩抨亩勿侄沾禁茸懈鄙迸枯入树贴衰夯富盘兵吩车答埔沙稽拱对氧跺秋怠企芝尉崩斧刮徊喷脯阂殊些催螺唤玖扩实右侠儿维脏狠救乃瀑今柴诈仪蝉熙泊啪意靳夸蔗端漓候硝项挽丹轻络玉劲去触祈窜港耘宋甩挡瘩捣洛额催萝穴及衙硕箭袭痊予将扒肉涡幽桥渔淌敦橡惨删决蝇昌衫亚深圳广播电视大学计算机信息管理专业课程设计报告人事管理信息系统设计与实现专业：计算机信息管理专业年级： 10秋 姓名： 谭小君 学号： 1044201455942 指导老师： 黄木锋 二一二年七月目 录一、概述21、课题来源22、开发背景和开发目的3二、需求分析41、系统目标42、应用现状调查43、系统总体流程图如下54、系统功能模块图55、系统功能的分析66、开发工具的选择7三、人事管理信息系统的设计81、数据库设计82、数据库需求分析83、数据库逻辑结构设计10四、人事管理信息系统实施131、登陆界面设计13 2、主窗体设计133、人事基本信息界面设计144、人事异动信息界面设计155、查询打印信息界面设计176、用户管理信息界面设计20五、设计总结22参考文献23附录24一、概述1、课题来源人事管理系统是一种典型的管理信息系统。管理信息系统（MIS）是一门跨越若干领域的新学科。在强调管理，强调信息的现代社会中越来越普及。管理系统能够实现管理信息系统化是一个企事业单位不可缺少的部分,它的内容对于企业的决策者和管理者来说都至关重要。一直以来人们使用传统人工的方式管理档档案，这种管理方式存在着许多缺点。如:效率低、保密性差。时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。因此，随着企业的状大和发展，传统的管理方式已不再适应企业的需要。而使用计算机对人事信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高企事业单位人事信息管理工作的效率,是企事业单位人事管理部门的科学化、正规化管理的重要途径，也是企事业单位与世界接轨的重要途径。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。2、开发背景和开发目的随着计算机技术、网络技术和信息技术的发展，现在办公系统更趋于系统化、科学化和网络化。网络办公自动化系统是计算机技术和网络迅速发展的一个办公应用解决方案，它的主要目的是实现信息交流和信息共性，提高了人事管理的科学性，方便了用户查询、管理人员进行管理。提供协同工作的手段，提高办公的效率，让人们从繁琐的有纸办公中解脱出来。现在许多的机关单位的人事管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多的人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。 开发本系统就是为方便企事业单位的人力资源进行有效的管理，提高管理的效率，解决人事管理信息中的一些不规范，使其管理向着规范化、简单化、有效化的方向发展。二、需求分析1、系统目标人事管理信息系统的广泛应用且轻而易举的解决了传统管理人员档案的方法的缺点，使得管理者更容易了解自己公司的员工,便于分配人员,易于进行调整与管理。采用企业现有的软硬件软件及科学的管理系统开发方案，建立管理员工信息的管理系统，实现人事管理信息的计算机自动化。本系统应符合企业的人事管理制度，是对的人事资料进行管理，避免数据存取、处理的重复，提高工作效率，减少了系统数据处理的复杂性。并做到功能实用、操作方便、使用可靠、界面友好、易于管理，尽可能地减少对系统资源的占用，尽量使单位的人事管理工作系统化、自动化和规范化，从而达到提高企、事业单位管理效率的目。2、应用现状调查目前，很多企业还是使用传统人工的方式管理员工档案，人力管理的比例比较大,管理者管理效率低、不易存放保密性差，时间一长，就会产生大量的文件和数据，这对于查找、更新都不及时而且容易丢失或损坏数据给企事业单位带来损失，而且维护困难。3、系统总体流程图如下: 开 始 界 面用户登陆是否合法系统主窗口退 出 系 统否则是非功过4、系统功能模块图人事信息管理系统系统操作查询打印管理人事异动管理基本资料管理查询及打印奖惩信息查询及打印员工信息查询及打印部门信息离职信息修改、查询奖惩信息添加、修改异动信息添加、修改期间信息添加、修改员工信息添加与修改人事档案添与及修改部门信息添加与修改负责人信息添加与修改用户管理密码管理5、系统功能的分析根据系统功能模块图得出系统的功能，现分析如下：系统开发的总体任务是实现人事管理信息管理的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。人事信息管理系统需要完成的功能主要有：有关入职等信息的输入，包括输入员工基本信息、所在部门、在某段期间是否异动和奖惩等。员工信息的查询，包括员工基本信息、所在部门、在某段期间是否异动和奖惩等。员工总人数的统计员工信息的变动。部门管理信息的输入，包括输入部门职务设置、部门总人数等。部门管理信息的查询。部门管理信息的修改。员工异动情况的设置员工异动情况的修改及汇总员工奖惩信息记录的汇总。离职记录的查询员工的离职恢复6、开发工具的选择针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合数据库管理系统的需要和目前的硬件环境，我们选用微软WINDOWS平台下的Visual Basic6.0（简写为VB6.0）作为软件开发工具。三、人事管理信息系统的设计1、数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。同时，合理的数据库结构也将有利于程序的实现。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。2、数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详细的数据字典，为后面的具体设计打下基础。数据流程图：员人入职基本信息输入部门信息管理管理体制管理员工信息管理各种信息输入部门信息输入负责人基本信息 图2 系统数据流程图数据项和数据结构：员工基本信息：包括的数据项有：员工工号、员工姓名、性别、部门名称、入职日期、职务、籍贯、学历、状态、婚姻状况、民族、联系电话等。部门信息：包括的数据项有：部门编号、部门名称、负责人信息等。负责人基本信息：包括的数据项有：编号、姓名、性别、年龄、婚姻状况、民族、联系电话、家庭住址等。各种信息如下：期间信息包括的数据项有：期间名、开始日期、结束日期、工作天数、休息天数等。人事异动信息：包括的数据项有：记录号、期间名、工号、异动项目、异动前、异动后、异动原因、异动审核、审核人、异动日期等。奖惩信息：包括的数据项有：记录号、期间名、工号、奖惩类型、奖惩名称、奖惩日期、奖汇总、惩汇总、备注等。离职信息：包括的数据项有：离职编号、期间名、工号、状态、离职日期、离职形式、离职原因等。3、数据库逻辑结构设计人事管理信息系统数据库中各个表格的设计结果如下所示：部门信息表:名称数据类型与长度说明部门编号数字(4)部门名称文本(20)负责人文本(20)表1 部门信息表负责人信息表：名称数据类型与长度说明编号自动编号(长整型)姓名文本(20)性别文本(10)男、女年龄数字(长整型)婚姻状况文本(20)未婚、已婚、离异民族文本(20)联系电话文本(30)家庭住址文本(50)表2 负责人基本信息表人事档案信息表：名称数据类型与长度说明工号数字(长整型)姓名文本(20性别文本(10)男、女部门名称文本(20)入职日期日期时间(短日期)职务文本(20)籍贯文本(20)学历文本(20)状态文本(10)在职、离职表3 人事档案信息表员工基本信息表：名称数据类型与长度说明工号数字(长整型)年龄 数字(长整型)婚姻状况文本(20)未婚、已婚、离异民族文本(20)联系电话文本(30)现居地文本(50)表4员工基本信息表期间表：名称数据类型与长度说明期间名文本(20)开始日期日期时间(短日期)结束日期日期时间(短日期)工作天数数字(长整型)休息天数数字(长整型)表5 期间信息表人事异动信息表：名称数据类型与长度说明记录号自动编号(长整型)期间名文本(20)工号数字(长整型)异动项目文本(20)职务、部门异动前文本(20)异动后文本(20)异动原因文本(50)异动审核是/否审核人文本(20)异动日期日期时间(短日期)表6 人事异动信息表奖惩信息表：名称数据类型与长度说明记录号自动编号(长整型)期间名文本(20)工号数字(长整型)奖惩类型文本(10)奖、惩奖惩名称文本(20)奖惩日期日期时间(短日期)奖汇总数字(长整型)惩汇总数字(长整型)备注文本(200)表7 奖惩信息表离职信息表：名称数据类型与长度说明离职编号自动编号(长整型)期间名文本(20)工号数字(长整型)状态文本(10)在职、离职离职日期日期时间(短日期)离职形式文本(50)离职原因文本(50)表8 离职信息表系统用户表：名称数据类型及长度说明用户名称文本(20)密码文本(20)表9 系统用户表四、人事管理信息系统实施1、登陆界面设计本窗体集成了”登录”模块，因此在系统加载时，需要先启动”登录”模块的登录窗体，只有当用户输入了正确的用户名和密码，才能进入到系统主界面。“登录”窗体运行界面，如图： 2、创建人事管理信息系统的主窗体界面：3、人事基本信息管理界面设计，如下图：部门信息输入界面从部门信息链接至负责人资料表如上图负责人资料界面人事基本档案界面人事基本档案子窗体界面4、人事异动信息界面设计异动管理分为：期间信息、人事异动、员工奖惩、离职档案管理，界面如图：5、查询打印信息界面设计有条件的查询，需输入部门的名称，即可查询到某个部门全体人员的信息。如图下图：负责人资料查询窗体，如下图：奖惩资料查询窗体，如下图：离职资料是有条件的查询，需输入某段期间名，即可查询到某个期间内离职人员的全部信息。如下图：人事资料是有条件的打印，需输入部门名称（如制造部或是开发部等），即可打印某个部门人员的信息。如下图：负责人资料与奖惩资料输出报表，如下图6、用户管理信息界面设计用户表窗体界面，按增加按钮，跳到增加用户名的界面，如需修改用户名，可按修改按钮直跳到修改用户界面，如下图所示：五、设计总结本系统的功能基本符合用户需求，能够完成员工信息的存储和查询等操作。使用户方便进行数据输入、修改、删除等管理措施。对于数据的一致性的问题也通过程序进行了有效的解决。在系统设计过程中，我体会到了即使是一件小事也不能马虎，在设计之前一定要对所设计的系统有较为深刻地了解,并对用户的要求加以认真的分析,并给予分类,对所分类进行功能模块化设计,画出系统数据流图,流程图和结构图.这样在进行详细设计时才可以做到有条不紊一步步地进行.编制一个系统还是有很多可学习的地方，不仅要掌握好相关知识，而且做事要细心，谨慎，这也是将来工作和学习应该注意的地方。编写这套系统是比较顺利的，在环境变量的设置上遇到过一点障碍，费了一定的时间，在努力之下,最终得到了解决,总之设计是比较成功的。通过这次的锻炼，我更加深了人生的信心，以后面对任何一个困难的项目，我想我都会努力完成，并最终能够成功地将其完成。参考文献：1 Visual Basic 程序设计 刘世峰主编 中央电大出版社2软件工程 陈明编 中央电大出版社3visual foxpro7.0应用150例 卢山编 治金工业出版社4数据库基础与应用刘世峰主编 中央电大出版社5Visual Basic数据库系统开发实例导航 刘韬编 人民邮电出版社6企业办公系统开发实例导航 刘萌 人民邮电出版社7 access 2002数据库开发技术与工程实践 胡绪英 李梓 郑传生 科学出版社附录：源程序清单系统登录窗体代码：Exit_Command5_Click: Exit SubErr_Command5_Click: MsgBox Err.Description Resume Exit_Command5_Click End SubPrivate Sub Command6_Click()If IsNull(用户名) = False Then If DLookup(密码, 用户表, 用户名= & 用户名 & ) = 密码 Then DoCmd.Close DoCmd.OpenForm 主窗体表 Else 用户名 = 密码 = 用户名.SetFocus MsgBox 用户名或密码错误！, vbCritical End If End IfEnd SubPrivate Sub Form_Load()End SubPrivate Sub 用户名_BeforeUpdate(Cancel As Integer)End Sub主窗体表窗体代码：Exit SubErr_Command56_Click: MsgBox Err.Description Resume Exit_Command56_Click End SubPrivate Sub Command57_Click()On Error GoTo Err_Command57_Click DoCmd.CloseExit_Command57_Click: Exit SubErr_Command57_Click: MsgBox Err.Description Resume Exit_Command57_Click End SubPrivate Sub Command58_Click()On Error GoTo Err_Command58_Click DoCmd.QuitExit_Command58_Click: Exit SubErr_Command58_Click: MsgBox Err.Description Resume Exit_Command58_Click End SubPrivate Sub Form_Load()End Sub部门信息窗体代码：Err_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End SubPrivate Sub Command8_Click()On Error GoTo Err_Command8_Click DoCmd.CloseExit_Command8_Click: Exit SubErr_Command8_Click: MsgBox Err.Description Resume Exit_Command8_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-29409) & ChrW(-29405) & ChrW(20154) & ChrW(31383) & ChrW(20307) stLinkCriteria = 姓名= & & Me!负责人 & DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End SubPrivate Sub Form_Load()End Sub负责人信息窗体代码：DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70Exit_Command17_Click: Exit SubErr_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End SubPrivate Sub Command18_Click()On Error GoTo Err_Command18_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_Command18_Click: Exit SubErr_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End SubPrivate Sub Command19_Click()On Error GoTo Err_Command19_Click DoCmd.CloseExit_Command19_Click: Exit SubErr_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End SubPrivate Sub Form_Load()End Sub人事档案窗体代码：Option Compare DatabasePrivate Sub Command23_Click()On Error GoTo Err_Command23_Click DoCmd.GoToRecord , , acNewRecExit_Command23_Click: Exit SubErr_Command23_Click: MsgBox Err.Description Resume Exit_Command23_Click End SubPrivate Sub Command24_Click()On Error GoTo Err_Command24_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_Command24_Click: Exit SubErr_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End SubPrivate Sub Command25_Click()On Error GoTo Err_Command25_Click DoCmd.CloseExit_Command25_Click: Exit SubErr_Command25_Click: MsgBox Err.Description Resume Exit_Command25_Click End SubPrivate Sub Command30_Click()On Error GoTo Err_Command30_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_Command30_Click: Exit SubErr_Command30_Click: MsgBox Err.Description Resume Exit_Command30_Click End SubPrivate Sub Form_Load()End Sub员工资料表窗体代码：DoCmd.GoToRecord , , acNewRecExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Command14_Click()On Error GoTo Err_Command14_Click DoCmd.CloseExit_Command14_Click: Exit SubErr_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End SubPrivate Sub Form_Load()End Sub期间表窗体代码：DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click DoCmd.CloseExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_Click DoCmd.GoToRecord , , acNewRecExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Form_Load()End Sub人事异动表窗体代码：DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_Command21_Click: Exit SubErr_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End Sub