课程设计报告2011305010230 杨帆人事管理信息系统
- 格式:doc
- 大小:624.00 KB
- 文档页数:21
人事管理系统Java课程设计报告第一篇:人事管理系统Java课程设计报告湖南科技大学计算机科学与工程学院数据库课程设计报告题目:人事管理管理系统学号:1005030221 姓名:艾向兵指导教师:张黎完成时间:2012年1月4日组员:苏勇,成佳裕,艾向兵企业人事管理系统主要用于员工个人资料的录入,职务变动的记录和管理。
使用人事管理系统,便于公司领导掌握人员的动向,及时调整人才的分配 1.1系统功能需求分析人事管理系统主要有以下几项功能要求:.新员工资料的输入。
.自动分配员工编号,并且设置初始的用户密码:.人事变动的记载,包括岗位和部门的调整。
.员工信息的查询和修改,包括员工个人信息和密码 1.2 系统功能模块设计根据系统功能要求,可以将系统分解成几个模块来分别设计应用程序界面,如图,人事资源管理包括:新员工档案输入,人事变更,员工档案查询1.3 与其它系统的关系本关系是公司管理信息系统的基础部分,为其他子系统,如考勤管理系统,工资管理系统和员工培训系统,提供员工的基本信息。
同时为其他系统提供了员工登录的密码认证和权限分配。
1.4数据库设计数据库需求分析:员工信息:员工号,密码,权限,姓名,性别,生日,专业,通讯地址,电话,Email,当前状态,其他。
人事变动:记录号,员工,变动,详细描述部门设置:部门编号,名称员工变动代号表员工信息表员工职位代码表管理员登陆界面信息查询,修改,删除主界面查询单个员工的界面总结这次的课程设计,是在学习了Java以后通过阅读课本及在图书馆借阅相关书籍同严景、孟珍三人共同完成的。
在开发这个系统的过程中,碰到很多或大或小的问题,我们一起思考,一起努力,最后大部分都解决了,得到了现在的这个简单的人事管理系统。
在编制过程中,我们首先考虑到了界面的友好性,并在界面设计时不采用烦琐的细节,使界面简单、清晰,便于操作。
一开始我们是想做个登录界面,实现用户的登录权限管理,但试了几次都没有达到预期的效果,最后不得不放弃。
《管理信息系统》课程教案一、课程定位《管理信息系统》可作为职业技术院校计算机专业和管理类专业的教材, 也可作为自学用书或参考资料, 还可以作为管理信息系统开发者的参考书籍《管理信息系统》(MIS)是管理科学、系统科学、计算机科学和通讯技术等多学科综合发展起来的边缘性、综合性、系统性的学科, 它运用经济管理理论、信息理论、系统理论、计算机科学等学科的概念和方法, 融合提炼组成一套新的体系。
它既具有较深和较宽的理论基础, 又是一门实践性很强的学科。
二、课程总目标设立MIS的目的在于, 使学生对信息系统的理论和应用有较深刻的了解。
通过本课程的学习, 使学生认识到信息对企业管理的重要意义, 了解信息处理的各种方法和MIS 的各种形式, 掌握信息系统开发的正确方法, 具备一定的分析、设计和表达信息系统的能力。
三、重点、难点章节及内容(一)重点章节及内容第一章管理信息系统概述: MIS的概念、定义, MIS的结构及开发。
第二章管理信息系统技术基础:管理信息、信息生命周期、管理组织第三章管理信息系统的开发方法: 结构化系统开发方法、原型法、面向对象的开发方法。
第四章管理信息系统的战略规划总体规划:关键成功因素法、战略目标转化法、企业系统计划法。
第五章系统分析: 数据与数据流程分析, 功能/数据分析.第六章系统设计: 系统总体结构设计、系统详细设计(二)难点章节及内容第三章管理信息系统的开发方法: 结构化系统开发方法、原型法、面向对象的开发方法。
第四章管理信息系统的战略规划总体规划:关键成功因素法、战略目标转化法、企业系统计划法。
第五章系统分析: 数据与数据流程分析, 功能/数据分析.第六章系统设计: 系统总体结构设计、系统详细设计四、实践环节和内容总体设计(一)主要环节安排本课程教学的主要环节主要是以理论为主, 通过案例分析进行教学活动(二)内容总体设计课堂教学中的实践环节第一章管理信息系统概述: 主要以概念解释为主。
管理信息系统课程设计报告学生选课管理信息系统班级:会121姓名:方樱桃学号:129094237前言学生选课是高校教务管理工作的一部分,学生选课管理信息化是现代学校人力资源开发与管理的手段、主要介绍了学生选课管理系统的分析、设计及实现方法。
随着在校大学生人数不断的增加、开设的课程越来越丰富和多元化、教务系统数据量也不断上涨,以往随堂选课的方法易造成选课系统的盲目性和教务处处理数据的繁重性,为减轻教务处的工作,以及让每个学生选到自己所喜爱的科目。
考虑建立一个方便、快速、公平和符合学分制管理制度的选课平台和应用系统就显得至关重要了。
学生选课管理系统,在学生选课的规范管理、科学统计和快速查询方面具有较大的实用意义、它提高了信息的开放性,大大地改善了学生、教师对其最新信息查询的准确性。
它关于开展学生选课和信息查询的一种较为先进的选课模式,它关于发挥学生选择课程的自主性,提高学校课程管理效率等方面具有十分重要的作用的意义,同时具有其它技术手段无可比拟的优越性、结合学生选课管理的实际需要,完成了对学生选课管理系统的需求分析,可行性分析,总体设计,详细设计,编码以及测试与调试。
本次设计基于游览器/服务器结构网上选课系统的基本设计思想,简单介绍了系统各功能模块及数据库的设计,设计出登陆,选课,查询等一系列功能关键词:网上选课数据库管理系统选课目录第一章学生选课管理信息系统的系统分析·················································21、1学生选课管理信息系统的功能分析 (2)1、2学生选课管理信息系统设计的可行性分析··········································21、2。
辽宁工业大学管理信息系统设计课程设计报告(论文)题目:人事档案管理系统院(系): 软件学院专业班级:软件工程114班学号:111301108学生姓名:安凯辰指导教师:谷宝华教师职称:副教授起止时间:2012.5.28-2012.6.8课程设计(论文)任务及评语目录第1章系统分析 (1)1.1建立系统的必要性 (1)1.2业务流程分析 (1)1.3数据流程图 (2)1.4数据字典 (3)第2章系统设计 (5)2.1系统功能设计 (5)2.2代码设计 (5)2.3系统运行环境与数据库设计 (5)2.3.1 概念设计 (6)2.3.2 逻辑设计 (8)2.3.3 物理设计 (8)2.4输入/输出设计 (9)2.5功能模块设计 (11)第3章系统实施 (13)3.1测试策略 (13)3.2功能测试 (13)3.3性能测试 (13)3.4用户界面测试 (13)3.5测试结论 (14)第4章设计总结 (15)参考文献 (16)附录:主要代码 (17)第1章系统分析1.1建立系统的必要性人事档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发俩个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库。
而对于后者则要求应用程序完备,易用等特点。
人事档案管理系统就是其中的一个方面,因为随着时代与社会的发展,企业也渐渐地成长起来,如何管理好企业内部职工的信息,是企业管理的一个重大问题。
在这样的背景条件下,一个规范化、自动化的人事管理系统就显得非常的需要,在我看来,最初的人事管理,也都是靠人力来完成的。
需要专门的人员录入职工的各方面信息。
以便今后职工在工作完成后按时发放工资待遇及奖金福利等。
这便是我想做此系统的初衷。
分为几个方面:首先要录入员工信息,比如说员工的姓名,这样会自动给员工编号,接着录入工时数目,这样就能通过程序的功能自动计算出本月工资,输入销售量,便会显示出销售经理及推销员的工资,级别不同会导致薪酬不一样,实现本系统的人事的录入以及查看。
管理信息系统课程设计个人总结管理信息系统课程设计个人总结范文(通用11篇)总结是把一定阶段内的有关情况分析研究,做出有指导性的经验方法以及结论的书面材料,它可使零星的、肤浅的、表面的感性认知上升到全面的、系统的、本质的理性认识上来,因此我们要做好归纳,写好总结。
总结一般是怎么写的呢?下面是小编为大家收集的管理信息系统课程设计个人总结,仅供参考,欢迎大家阅读。
管理信息系统课程设计个人总结篇1本次课程设计持续了1个星期,时间非常紧张,我们的课题是企业人力资源管理系统,我们小组由7个人组成,需要完成企业人力资源管理系统子系统的开发、调试与运行,此外还要撰写课程设计报告。
我的工作主要是课程设计报告的整理兼撰写。
但实际上每个文档之间都有着联系,仅仅做自己分配到的部分是不够的,系统分为哪些模块以及各模块的功能都需要大家一起讨论确定,统一思路,否则文档无法衔接,课程设计无法完成。
人力资源的各大模块的工作各有侧重点,但是各大模块是不可分割的,就像生物链一样,任何一个环节的缺失都会影响整个系统的失衡。
HR工作是一个有机的整体,各个环节的工作都必须到位,同时要根据不同的情况,不断地调整工作的重点,才能保证人力资源管理保持良性运作,并支持企业战略目标的最终实现。
我们在分工编写文档前先在一起讨论确定了系统的主要模块和每个模块的功能,统一它们的名称,然后各自编写文档,发现应该添加新功能或原先的设计有问题时再一起讨论,统一修改,防止文档出现偏差。
通过大家的讨论,发现很多问题和没有想到的细节,在不断发现问题,不断改正错误、不断完善系统设计的过程中,我们对人力资源系统的理解和研究也越来越深入,也使我们认识到团队的力量。
课程设计需要使用很多建模和作图工具软件,例如Visio、rose,以及网页制作、图像处理软件,同时需要查阅资料和做一些必要的调研。
虽然平时上课这些软件的使用老师都讲过,考试也能通过,但当用这些软件和课本上的知识来独立地设计一个实际的系统时,很多问题就暴露出来了,比如什么时候要用E-R图、什么时候要用流程图,虽然这些图我们每个人都会画,但是这些图是用来描述什么的、作用是什么、什么时候需要使用这些图我们却不是很清楚。
信管人事管理系统课程设计课程设计设计题目:人事管理系统的设计与实现系别:XXXX系专业:XXXX年、班级: XX级XX班姓名:XXX学号:XXXXXXXXX指导老师:XXXX职称:XX日期: 2013.07.07目录前言 (3)第一章概述 (4)1.1 课题背景 (4)1.2 课题任务 (4)1.3 课题要求 (4)1.4 开发工具 (5)第二章设计简介及设计方案 (5)2.1 系统功能分析 (5)2.2 系统功能模块设计 (6)2.3 数据库功能分析 (5)第三章详细设计 (6)3.1 数据库设计 (6)3.2 详细编程 (8)第四章设计结果及分析 (11)4.1 设计结果 (11)4.2 设计结果分析 (15)总结 (16)第一章概述1.1 课题背景借助现代信息技术和管理理论,建立企业管理信息系统是当今社会的重要趋势。
党和政府根据知识经济时代的特点,对国民经济建设提出了“用信息化带动工业化”的指导思想。
对企业而言,全面开发和应用计算机管理信息系统就是近期不能回避的问题。
在企业管理中,人力资源是企业最宝贵的资源,也是企业的“生命线”,因此人事管理是企业的计算机管理信息系统重要组成部分。
而工资管理又是人力资源管理的重中之重。
实行电子化的工资管理,可以让人力资源管理人员从繁重琐碎的案头工作解脱出来,去完成更重要的工作。
工资管理信息系统的实现可以减轻比较繁琐的手工工资管理。
1.2 课题任务《数据库技术及应用》课程设计是我校信息管理与信息系统专业(本科)教学大纲要求的重要实践性环节之一,是学习完《数据库技术及应用》课程后进行的一次全面的综合练习。
其目的在于:配合《数据库技术及应用》课程的教学,使学生能巩固和加深对数据库基础理论和基本知识的理解;掌握使用数据库进行软件设计的基本思想和方法;提高学生运用数据库理论解决实际问题的能力;培养学生调查研究、查阅技术文献、资料、手册以及编写技术文献的能力。
1.3 开发工具Microsoft Office Access 2003第二章设计简介及设计方案2.1 系统功能分析系统开发的总体任务是实现员工信息关系的系统化、规范化和自动化。
中山大学南方学院《管理信息系统》课程设计报告题目:书店管理信息系统课程设计(参考)图书管理系统班级:姓名:学号:2016年12 月1 日目录第1章系统开发概述 ................................................................... 错误!未定义书签。
1.1 系统开发的需求分析 ...................................................... 错误!未定义书签。
1.2 必要性研究 ...................................................................... 错误!未定义书签。
1.3 可行性研究 ...................................................................... 错误!未定义书签。
1.3.1 经济可行性 ........................................................... 错误!未定义书签。
1.3.2 技术可行性 ........................................................... 错误!未定义书签。
1.3.3 管理可行性 ........................................................... 错误!未定义书签。
第2章系统分析 ........................................................................... 错误!未定义书签。
2.1 业务流程分析 .................................................................. 错误!未定义书签。
目录1.引言 (2)2.概要设计 (4)3.详细设计 (6)4. 调试与运行结果及存在的主要问题 (16)5. 课程设计小结…………………………………………………6. 参考文献……………………………………………………….1引言1.设计环境:设计环境具体有visual basic ,Microsoft SQL Server 2000.2.同组人员:完成该设计的人员为04- 3班的方靖和邝锐强。
3.具体分工:通过两人的讨论分析后一路完成该题目的需求分析,概念结构设计和逻辑结构的设计。
在具体实施阶段方靖主要负责登岸界面,各职工大体资料的界面设计及相应的连接数据库部份,实现数据库备份和还原部份和数据库数据的初始化。
邝锐强主要负责对各人员相关资料的删除,修改,增加部份的界面设计及相应的连接数据库部份,操作员管理和权限设置。
2概要设计1.系统需求分析:通过调查本地的企业,按照企业的具体情况设计企业人事管理系统。
主要功能有:①人事档案管理:户口状况、政治面貌、生理状况、合同管理等;②考勤加班出差管理;③人事变更:新进员工记录、员工离职记录、人事变更记录;④考核奖惩;⑤员工培训;⑥系统保护:如数据安全管理(含备份与恢复)、操作员管理、权限设置等;由以上可知可以具体设计五类人员:员工,保护部员工,领导,人事部领导和总裁,其中员工只能查询本人的大体资料:工号,姓名,性别,户籍情况,政治面貌,生理状况,合同,所属部门和自身的考勤考核奖励情况。
而保护部员工除可以完成普通员工的功能外还可以进行系统保护。
领导可以管理员工,包括增加删除本部门员工和修改员工资料。
人事部领导在领导的功能上增加了可以删除增加修改其他部门员工资料的功能,而总裁可以任意增加删除修改所有部门领导及员工的资料。
而对于所有人员均记录其大体资料和日常状况资料。
2.系统结构设计:由需求分析可以划出系统结构图,如下:3总裁人事部经理策划部经理物流部经理维护部经理员工员工员工员工3.功能模块设计:由以上分析可以划出功能模块设计图,如下:4详细设计1.系统数据库设计:通过需求分析设计后得出数据库设计的概念模型,其中包括两个实体,一个是人员表,一个是日常情况表。
管理信息系统课程设计报告管理系统一、建立系统的必要性在21世纪的科技时代,科学技术突飞猛进,计算机不仅是在科技上得到了应用,而且在生活中也是同样得到了广泛的应用。
如今,随着时间的变化,学校规模的扩大,有关学生成绩管理工作和所涉及到的数据量越来越大,越来越多,大多数学校不得不依靠增加人力、物力、财力来进行学生成绩的管理。
但是人工管理成绩档案存在着效率低,查询麻烦,可靠性不高,保密性低等缺陷。
因此开发出一个能够在各类学校通用的学生成绩管理系统是十分必要的。
开发一个学生成绩管理系统,采用计算机对成绩进行管理,进一步提高了办学效益和现代化水平。
为广大教师和学生提高工作效率,实现学生成绩信息管理工作流程的系统化、规范化和自动化。
一个高效的学生成绩管理系统可以存储历届学生的成绩,节省大量人力,迅速查询到所需信息,并且高效,安全,而学生也能更便捷的查看自己的成绩。
目前,据我们了解,南通大学的学生成绩管理系统还不够完善,学生只能通过查询系统查出自己的各科考试得分,而并不能从中得到更多的有效信息,如:成绩的排名情况、任课老师的情况、课程信息、师生互动等等。
因此,我们需要一个更加符合学生和老师要求的,更加人性化的学生成绩管理系统。
二、建立系统的可行性分析可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。
考虑到系统开发时间、资源等因素,在实际开发该计算机系统时,常常要为资源不足和交付日期难以完成而苦恼,因而需要慎重地尽可能早地估价研制课题的可行性。
可行性研究包括:经济可行性、技术可行性、管理可行性等等。
(一)经济上可行性:现在,计算机的价格已经十分低廉,性能却有了长足的进步。
而本系统的开发,为学校的工作效率带来了一个质的飞跃,为此主要表现有以下几个方面:第一,本系统的运行可以代替人工进行许多繁杂的劳动;第二,本系统的运行可以节省许多资源;第三,本系统的运行可以大大的提高学校的工作效率;第四,本系统可以使敏感文档更加安全,等等。
管理信息系统课程设计报告1信息系统分析与设计课程设计报告设计题目学生教材管理信息系统专业年级班级姓名2 信息系统的分析与设计课程设计任务书题目教材管理系统学生姓名学号专业班级设计内容与要求结合信息系统的分析与设计课程教学内容,分小组合作开发一小型管理信息系统。
任务1 系统规划系统的需求分析、流程再造(业务流程介绍the main operating after the teacher landed is Teaching material s inquiry.Obviously, this system is not complex, the main promble that solved is using keywords to database queries.7第1 章绪论1.1 选题背景目前由于教材的种类多、数量多,通过手工的方式对教材进行准确地分门别类、快速检索已经非常困难,大大降低了教材管理中心的工作效率。
但是,目前仍有很多学校教材科的管理工作依然停留在纸质记录的原始方式上。
教师书面提出需要使用的教材名,上交后由系领导审核,审核通过后,由教学秘书统计需要的数量,然后提交给教材科。
之后教材科还有大量的工作,统计各系各班级需要某种教材的数量,任课教师需要的数量,教材科需要的数量,然后进行订购。
领书的时候,要学生提供领书单才能领书,还要记得立刻做记录。
这样的操作过程不但繁琐,而且在这一系列的操作中,无论哪一步出了错误,对最终教学工作的正常进行都有很大的影响。
另一方面,随着软件技术的不断进步和信息化进程的不断发展,建立一个运行良好且方便使用的教材信息管理系统的技术条件已经非常成熟,且需要投入的资金也相对较低,具有很高的性价比。
由此可见,建立一个符合高校教材管理实际情况的信息管理系统软件是十分必要的。
这不仅能够提高高校教材管理中心的工作效率,而且也是高校向信息化管理方向发展所必须的。
1.2 选题来源及意义客户信息作为加油站信息管理中最主要的管理对象,客户信息管理系统就成了加油站信息化管理系统中不可缺少的部分,它的内容对于加油站的管理者说都至关重要。
人事管理信息系统由于信息化社会的飞速发展,人事管理系统已经成为每一个企业,政府部门以及其他机构组成中不可或缺的一部分。
人事管理系统是满足了公司对员工基本信息管理的需求,拥有人事管理系统,可以更加方便的进行人事的管理,操作简单方便,可以为员工节省大量时间,从而提高工作效率。
本节针对人事管理系统介绍使用VB开发数据库应用程序的基本方法。
本程序的记录虽然包含的信息量较少,但其功能与实现方法具有相当的普遍性和实用性。
1 系统设计1.1 系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。
系统功能分析是在系统开发的总体任务的基础上完成。
考虑系统的通用功能,本例子中人事管理信息系统需要完成功能主要有:(1).密码设置:每个管理员均可有自己的用户名和密码,可以防止非本系统人员进入系统。
(2).信息管理:可对职工信息进行更改,添加和删除,。
(3).信息查询:能够快速地进行员工基本信息各种组合的查询。
双击查询结果可对其进行更改。
(4).信息统计:饱含简单统计和自定义统计。
其中自定义统计可进行各种组合的统计。
(5).数据打印:对职工基本信息进行打印和导出。
11.2 系统功能模块设计对上述各项功能进行集中、分块,按照结构化程序设计的要求,得到如图1-2-1所示的系统功能模块图。
图1-2-1 系统功能模块图2 数据库设计数据库在一个信息管理系统中占有非常重要的地位,数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。
合理的数据库结构设计可以2提高数据存储的效率,保证数据的完整和一致。
在数据库中建立一个名为人事系统管理的数据库,其包含数据库表RSGL(职工表)和Yh(用户密码表),表的结构见表2-1与表2-2表2-2 用户密码表3 用户登陆界面执行“工程”菜单中的“添加窗体“命令,添加一个新的窗体。
在里面添加两个容器(frame1,Frame2),3个标签,两个文本框,两个命令按钮,一个数据控件(Data)。
用户登陆界面如图3-1所示。
3图3-1用户登录窗体设置各控件的属性如图3-24在通用段添加代码:Dim xchange As IntegerDim ychange As Integer窗体的load事件过程代码如下:Private Sub Form_Load()xchange = 100ychange =100End subPrivate Sub Command1_Click()‘======================================================‘判断用户输入的名称和口令是否合法‘首先判断输入的用户名是否存在,如果不存在,给出提示‘如果用户名存在,判断输入口令是否正确,如果错误,给出提示‘如果用户名和口令输入正确,卸载本窗体,‘否则,判断是否用完三次机会,并给出相应提示。
‘======================================================= Dim Isuser As Boolean ‘用户是否存在Dim pwd As StringDim Uname As StringStatic count As Integerpwd = Trim(Text2.Text) ‘记录输入口令次数Uname = Trim(Text1.Text)Isuser = False ‘比较用户名称和口令的正确与否Do While Not Data1.Recordse.EOFIf Uname = Data1.Recordset.Fields(0) Then‘当用户名和当前记录名称相同时的处理If pwd = Data1.Recordset.Fields("ypass") Then’如果口令输入正确,卸载本窗体Unload Memdifrm.ShowExit SubElseIf count < 2 Then ‘如果口令错误,给出提示信息MsgBox "口令错误,请重新输入"5Text2.Text = ""Text2.SetFocusEnd IfIsuser = True ‘标识为合法用户Exit DoEnd IfEnd IfData1.Recordset.MoveNext ‘移动到下一条记录Loopcount = count + 1 ‘输入口令次数加一If count = 3 Then ‘输入三次口令且错误,退出程序 MsgBox”非法用户,不能使用本系统”EndEnd IfIf Not IsUser Then ‘如果没有此用户,显示提示信息MsgBox "无此用户,请重新登录"Text1.Text = ""Text1.SetFocusEnd IfData1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()End ‘退出End Sub4 信息管理窗体信息管理窗体界面如图4-1所示。
(1)设计菜单6打开窗体编辑器,按表4-2所示对每一个菜单输入标题,名称和选择相应的快捷键。
当完成所有的输入工作后,菜单设计对话框如图4-3所示,单击“确定”按钮,就完成了菜单的编辑工作。
(2)为事件过程编写代码在菜单建立好之后,还需要编写相应的事件过程。
图4-1 系统界面7图4-3 菜单编辑器程序如下:Private Sub MNUDATA_click() '显示数据窗体Data.ShowEnd SubPrivate Sub MNUEXIT_click() '关闭退出系统ADORst.CloseDB.CloseUnload Mepic.ShowEnd SubPrivate Sub MNUPRINT_click() '显示报表DataEnvironment1.Connection1.ConnectionString = "RSGL.mdb"DataReport1.ShowEnd SubPrivate Sub MNUSRCH_click() '显示数据查询窗体Srch.Show8End SubPrivate Sub MNUTJ_click() '显示数据统计窗体Staticfrm.ShowEnd SubPrivate Sub txtj_click() '显示添加数据窗体pic.ShowEnd SubPrivate Sub yhgljm_click() '显示系统界面yhgl.ShowEnd SubPrivate Sub zzr_click() '显示制作人界面pic.ShowEnd Sub5 数据处理窗体数据处理窗体如图5-1所示。
在此窗体中可对职工的信息进行编辑修改和删除操作。
图5 -1职工信息处理窗体在通用段中定义职工信息9Sub showInfo()Text1.Text = ADORst.Fields("职工编号")Text2.Text = ADORst.Fields("职工姓名")Text3.Text = ADORst.Fields("职工年龄")Text4.Text = ADORst.Fields("职工性别")Text5.Text = ADORst.Fields("婚姻状况")Text6.Text = ADORst.Fields("工作时间")Text7.Text = ADORst.Fields("技术职称")Text8.Text = ADORst.Fields("所在部门")Text9.Text = ADORst.Fields("基本工资")End SubOption ExplicitDim mode As tringSub NoEdit()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueEnd SubPrivate Sub Command1_Click()mode = "add"Adodc1.Recordset.AddNewCall CaneEditEnd SubPrivate Sub Command2_Click()mode = "modify"Call CaneEditEnd SubPrivate Sub Command3_Click()Dim del As Integer'正在添加或修改的记录不能删除10If mode = "add" Or "modify" ThenMsgBox "不能删除”"Exit SubEnd Ifdel = MsgBox("确定删除吗?", vbOKCancel, "警告")If del <> 1 Then Exit Sub '单击取消按钮,不作任何处理Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCall NoEditmode = "view"End SubPrivate Sub Command4_Click()If mode = "add" Or mode = "modify" Then Adodc1.Recordset.UpdateUnload MeEnd SubPrivate Sub Command5_Click()If mode = "add" Or mode = "modify" ThenIf Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" ThenMsgBox "请输入所有要求的数据", , "输入错误"End IfCall NoEditmode = "view"End IfAdodc1.Recordset.MoveFirst'call showinfoCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SubPrivate Sub Command6_Click()If mode = "add" Or mode = "modify" Then11If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" ThenMsgBox "请输入所有数据", , "输入错误"Exit SubEnd IfCall NoEditmode = "view"End IfIf Not Adodc1.Recordset.EOF ThenAdodc1.Recordset.MovePreviousIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfElseAdodc1.Recordset.MoveFirstCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfCommand7.Enabled = TrueCommand8.Enabled = TrueEnd SubPrivate Sub Command7_Click()'===================================================================== '按下”下一个"按钮,判断是否"添加"或者“修改”状态'如果是不能有空数据,否则,提示错误并退出本程序'如果操作正确,则设置控件不可编辑'显示下一条记录,并进行相应处理。