管理信息系统实习报告.doc

中国计量学院经济与管理学院课程设计报告课程设计名称 宜兴有限公司生产管理系统 专 业 信息管理与信息系统 班 级 11信管2班 姓 名 方浩霖 学 号 1100702208 姓 名 朱文松 学 号 1100702215 指导教师 金芳芳 2014年 1 月 17 日目 录一、 概述 （ 1 ）1. 项目目设计的背景及意义（ 1 ）2. 可行性分析（ 2 ）二、系统分析 （ 2 ）1. 需求分析 （ 2） 1.1 用户需求 （ 2 ） 1.2 功能需求（ 2 ） 1.3 系统数据流图（ 3 ） 1.4 E-R图（ 4 ）2. 技术介绍（ 7 ） 2.1delphi7简介（ 7 ） 2.2SQL Server2005简介（ 7 ）三、系统设计 （ 9 ）1. 系统的运行环境（ 9 ） 1.1硬件环境（ 9 ） 1.2软件环境（ 9 ）2. 服务器端技术指标（ 9 ）3. 软件系统的整体结构（ 9 ）4. 系统的处理流程（ 10 ）5. 模块算法（ 10 ） 5.1基本资料录入管理（ 10 ） 5.2职工招聘管理6. 数据信息（ 13 ）6.1 数据库表（ 13 ）6.2 数据库表的说明（ 14 ）4、 系统实现（ 15 ）1. 系统实现（ 15 ）1.1用户登录模块的实现（ 15 ） 1.2员工的登录实现（ 16 ） 1.3管理人员的登录实现（ 16 ）1.4员工信息管理界面（ 18 ）1.5职工信息管理（ 19 ） 1.6产品信息管理（ 20 ）1.7模块的实现（ 21 ） 1.8基本资料录入模块的实现（ 23 ） 1.9管理情况模块的实现（ 23 ） 1.10表格打印的实现（ 26 ） 2、 系统测试（ 28 ）2.1系统测试平台简介（ 28 ）2.2系统测试的目的（ 28 ）2.3系统测试计划（ 28 ）2.4系统测试用例（ 29 ）2.5系统测试实施（ 32 ）5、 结束语（ 36 ）参考文献（ 36 ）附录（ 37 ）一、 概述 生产管理管理是所有工厂、公司、企事业单位所必须的，它包括人事档案的统计、查询、更新、打印输出等。如果这些工作由人工统计，则工作量很大，若公司人数有几万甚至几十万，人工统计将变得不可想象，用计算机统计可使人们从繁重的劳动中解脱出来，仅一些简单的操作便可及时、准确地获得需要的信息。企业生产管理系统是现代企事业单位管理人员、工资、日常考勤所必须拥有的信息化管理系统之一，它包括生产信息的增、删、改、查，人员调动、人员离职等。 本系统是为了使生产工作者从繁重的日常琐碎事务中解放出来，将更多地精力用于企业的生产管理和管理决策，保持企业的持续高效运营。 集中记录、监测和分析所有劳动力的技能和资格，提供决策分析。提高企业整体的科技含量与管理效率，加快企业的信息化建设。尽量采用现有软硬件环境，及先进的管理系统开发方案，提高系统开发水平和应用效果的目的；系统应符合企业管理的规定，满足日常管理的需要，并达到操作过程中的直观，方便，实用，安全等要求；系统采用模块化程序设计方法，这样既便于系统功能的各种组合，又便于未参与开发的技术维护人员补充，维护；系统应具备数据库维护功能，及时根据用户需求进行数据的添加，删除，修改等操作。1.1 项目设计的背景及意义随着计算机技术的飞速发展，计算机在系统管理中的应用越来越普及，利用计算机实现各个系统的管理显得越来越重要。对于一些大中型管理部门来说，利用计算机支持管理高效率完成管理的日常事务，是适应现代管理制度要求、推动管理走向科学化、规范化的必要条件；而生产管理是一项琐碎、复杂而又十分细致的工作，员工招聘、辞退、上岗流量之庞大一般不允许出错，如果没有一个良好的系统来对生产状况进行管理，这就会使用人单位的协调能力大大降低，如果利用计算机进行这些管理工作，不仅能够保证各种核算准确无误、快速记录，而且还可以利用计算机对有关的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时计算机具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高管理的效率,也是管理行业的科学化、正规化管理，与世界接轨的重要条件。基于以上的原因，有很多从事软件开发的人员，在试卷生成方面做了很大的研究。目前这一领域也以良好的发展姿态而不断进步，早期已经有了一些类似的系统，但经过软件开发人员不断的完善，大致形成了具备如下功能的系统：1.员工各种信息的输入，包括员工的基本信息、学历信息、婚姻状况信息、职称等。2.员工各种信息的修改；3.对于转出、辞职、辞退、退休员工信息的删除；4.按照一定的条件，查询、统计符合条件的员工信息；5.对查询、统计的结果打印输出。1.2 可行性分析可行性分析是通过对项目的主要内容和配套条件进行调查研究和分析比较，为项目决策提供依据。主要内容以全面、系统的分析为主要方法，经济效益为核心，围绕影响项目的各种因素，运用大量的数据资料对整个可行性研究提出综合分析评论，论证拟建项目是否可行。技术可行性：1、设备：该系统对所需的硬件设备，如PC机、打印机等的性能要求一般，现有设备的性能完全能够满足系统功能的要求；2、软件：本系统采用delphi7开发，SQL Server数据库作为后台数据库支持，利用其可视化的开发环境、丰富的空间资源，能快速开发出应用程序。因此，在技术上是可行的。操作可行性：本系统完全是在现有的知识水平上进行设计的，对一些操作的执行没有很大的难度。因此，在操作上是可行的。法律可行性：本系统的设计完全符合法律的各项规定。因此，在法律上是可行的。经济可行性：本系统作为一个课程实验设计，因此无需考虑此因素。管理可行性：为了提高酒店管理水平，管理人员能充分适应管理信息系统的要求，提高他们对餐饮管理信息系统的认识。因此，在管理上是可行的。 二、 系统分析 2.1需求分析 2.1.1用户需求 该系统主要是可以减轻工作人员的劳动强度，使餐饮消费的管理工作向一个新的层次迈进。用计算机管理餐饮的消费，此系统为餐饮管理的规范化，提高餐饮管理效率，增加收入，方便处理菜单、员工、台位等信息，极大减少错误的发生，避免无法估计的不必要的损失，大大提高了工作人员的工作效率。此系统提高餐饮消费的服务水平，节省大量的人力、物力和财力。 2.1.2功能需求（1） 系统管理的功能需求：管理员及其权限的设置和修改、系统维护向导、帮助功能（2） 基本管理的功能需求：员工信息的添加、删除、修改、查询，（3） 职工管理的功能需求：职工招聘管理、产品生产情况的各项操作要求 2.1.3系统数据流图 图2.1 生产管理系统顶层流程图 2.1.4 E-R图、用户登陆登陆密码用户名图2.4 用户E-R图产品表 产品表产品编号产品名图2.5 产品E-R图工厂表工厂编号工厂地址工厂名称 图2.6 工厂表E-R图生产表产品数量工厂编号产品编号图2.7 生产E-R图职工表工资职工号聘期姓名工厂编号技术等级图2.8 职工E-R图职工姓名职工号技术等级聘用n聘期工资1工厂厂名厂址工厂编号m生产数量n产品产品名产品号规格 职工（职工号，姓名，技术等级，工厂编号，聘期，工资）工厂（工厂编号，厂名，地址）产品（产品号，产品名，规格）生产（工厂编号，产品号，数量）2.2技术介绍2.2.1 delphi7简介 本系统采用的是delphi7进行开发设计。Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。Delphi是一个集成开发环境（IDE），使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。Delphi是基于Object Pascal语言的面象对象的开发工具，使用其集成开发环境可以快速地建立应用程序，即可开发本地类型的软件，又可开发客房/服务器类型的程序，并提供了丰富的数据库管理工具，在开发数据库应用程序方面具有独特的优势： 1、Delphi为 32位应用程序，因此其性台就像装上了涡轮引擎一样强劲有力，使用它可开发出功能强大的应用程序。2、 Delphi的编译器是目前世界上最快的32位本地代码编译器。使用这种编译器产生的运行文件EXE是独立的，不需要链接运行时的解释器DLL。3、 Delphi可充分发挥Windwos95/98/2000/xp/2003的强大功能。4、 Delphi提供了多种32位可视组件库。5、 Delphi是一种面向对象的程序设计语言，因此可做到可视窗体的继承。6、 Delphi采用3层数据管理模式(数据层、对象层、应用程序层)，把诸如数据模型、业务规则、窗体、对象等集中存储在对象存储库中。7、 应用程序可通过在Delphi中使用Borland公司提供的数据引擎(BDE)功能，可以毫无障碍地使用多种数据库，不论是大型数据库还是PC机中的数据库。8、 Delphi中的数据库感知功能，可使用户在开发应用程序时就可看到数据库的动态变化。9、 使用Delphi提供的数据库浏览器，则可使用用户在Delphi的集成开发环境中，方便浏览、修改、索引数据库。10、 为了便于维护程序，Delphi将数据访问与业务规则从程序中分离出来，集中存储在数据模型对象中，当业务规则需要修改时，只需在数据模型级进行修改。程序运行调用这些数据模型时，修改的结果会自动反映在应用程序中。 此外，在Delphi中，为用户免费提供了2个用户许可的本地Interbase（数据库管理系统）.2.2.2 SQL Server2005简介本系统采用的是SQL Server2005进行数据库的建立。SQL是英文Structured Query Language的缩写，意思为结构化查询语言。SQL语言的主要功能就是同各种数据库建立联系，进行沟通。按照ANSI(美国国家标准协会)的规定，SQL被作为关系型数据库管理系统的标准语言。SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等。目前，绝大多数流行的关系型数据库管理系统，如Oracle, Sybase, Microsoft SQL Server, Access等都采用了SQL语言标准。SQL Server2005具有十个非常明显的特点：1、 NET框架主机使用SQL Server2005,开发人员通过使用相似的语言，例如微软的VisualC#.net和微软的VisualBasic,将能够创立数据库对象。开发人员还将能够建立两个新的对象-用户定义的类和集合。2、XML技术在使用本地网络和互联网的情况下，在不同应用软件之间散步数据的时候，可扩展标记语言(XML)是一个重要的标准。SQL Server2005将会自身支持存储和查询可扩展标记语言文件。3、ADO. NET2.0版本从对SQL类的新的支持，到多活动结果集(MARS)，SQL Server2005中的ADO . NET将推动数据集的存取和操纵，实现更大的可升级性和灵活性。4、增强的安全性SQL Server2005中的新安全模式将用户和对象分开，提供fine-grainAccess存取、并允许对数据存取进行更大的控制。另外，所有系统表格将作为视图得到实施，对数据库系统对象进行了更大程度的控制。5、Transact-SQL的增强性能SQL Server2005为开发可升级的数据库应用软件，提供了新的语言功能。这些增强的性能包括处理错误、递归查询功能、关系运算符PIVOT,APPLY,ROW_NUMBER和其他数据列排行功能，等等。6、SQL服务中介SQL服务中介将为大型、营业范围内的应用软件，提供一个分布式的、异步应用框架。7、通告服务通告服务使得业务可以建立丰富的通知应用软件，向任何设备，提供个人化的和及时的信息，例如股市警报、新闻订阅、包裹递送警报、航空公司票价等。在SQL Server2005中，通告服务和其他技术更加紧密地融合在了一起，这些技术包括分析服务、SQLServerManagementStudio.8、Web服务使用SQL Server2005,开发人员将能够在数据库层开发Web服务，将SQL Server当作一个超文本传输协议(HTTP)侦听器，并且为网络服务中心应用软件提供一个新型的数据存取功能。9、报表服务利用SQL Server2005,报表服务可以提供报表控制，可以通过VisualStudio2005发行。10、全文搜索功能的增强SQL Server2005将支持丰富的全文应用软件。服务器的编目功能将得到增强，对编目的对象提供更大的灵活性。查询性能和可升级性将大幅得到改进，同时新的管理工具将为有关全文功能的运行，提供更深入的了解。三、 系统设计3.1系统的运行环境 3.1.1硬件环境处理器：Intel(R) Core(TM)i5-2450M CPU 2.50GHz内存：4GB系统类型：32位操作系统 其他：鼠标 3.1.2软件环境运行环境：window7旗舰版window7旗舰版介绍：window7旗舰版是微软公司开发的window7系列中的终结版本，是功能最完善、最丰富的一款操作系统。拥有window7 Home Premium和window7 Professional的全部功能，硬件条件也是最高的。window7旗舰版所包含的功能有：无限应用程序、实时缩略图预览、增强视觉体验、高级网络支持、移动中心；Aero Glass高级界面、高级窗口导航、改进的媒体格式支持、媒体中心和媒体流增强、多点触摸、更好的手写识别；毛玻璃透明特效功能、多触控功能、多媒体功能、组建家庭网络组；支持加入管理网络、高级网络备份和加密文件系统等数据保护功能、位置感知打印技术；加强网络的功能、高级备份功能、位置感知打印、脱机文件夹、移动中心、演示模式；内置驱动器数据保护、锁定非授权软件运行、无缝连接基于Window Server 2008 R2的企业网络、Window Server 2008 R2网络缓存；Branch缓存；DirectAccess、BitLocker、AppLocker、增强虚拟化、管理、兼容性和部署、VHD引导支持； 强大的语音控制功能够实现人机一体化。3.2服务器端技术指标服务器数据库采用SQL Server 2005采用delphi7作为系统运行服务器客户端须满足如下技术指标：（1）delphi7及其以上版本（2）Windows 2000版本操作系统及以上版本3.3软件系统的整体结构餐饮信息管理系统模块是用delphi7进行设计，SQL Server 2005作为后台数据库管理系统。系统管理模块分为系统管理、基本管理、用餐管理、查询管理、财务管理；系统管理模块主要是管理员及其权限、系统维护向导、帮助模块；用餐管理模块主要有开台管理、用餐管理、结账管理模块；基本模块主要有员工信息管理、台位管理、菜单管理模块；查询管理模块主要有查询菜单管理、查询台位管理；财务管理模块主要包括销售分析模块。系统体系结构框图如下图：华源企业生产信息管理系统 帮助管理情况基本信息管理工厂资料录入产品资料录入职工资料录入职工招聘生产情况关于打印 图3.1 系统体系结构框图3.4系统的处理流程筛选退出产品管理职工招聘员工信息初始化员工数据录入用户登录 图3.2 系统处理流程图3.5模块算法3.5.1系统管理（1）功能流图 图3.3 系统管理功能图（1） 功能描述 用户根据已知的姓名和密码登陆系统，只有登录成功才能进行系统管理、基本管理、用餐管理、查询管理、财务管理及退出的操作。3.5.2生产管理（1） 功能流图 图3.4 生产管理功能流图（2） 功能描述 用户在登陆成功进入基本管理模块后，可进行员工信息管理。3.5.3职工信息管理（1） 功能流图 图3.5职工信息管理功能流图（2）功能描述 用户在登陆成功进入职工信息管理后，可进行职工管理的操作。3.5.4工厂管理（1） 功能流图 图3.6工厂管理功能流图（2）功能描述 用户在登陆成功进入查询管理后，可进行查询工厂信息。3.5.5招聘管理（1） 功能流图 图3.7财务管理功能流图（2）功能描述 用户在登陆成功进入财务管理后，可进行打印。3.6数据信息3.6.1数据库表图3.8登陆表图3.9生产表图3.10产品表图3.11工厂表图3.12职工表3.6.2数据库表的说明 餐饮信息管理系统主要包括五个基础表，为：管理员表、菜单表、台位表、客人表以及员工表。、登陆表：用于设置员工登录系统时的权限问题。其中主要包括name、password以及管理员的权限范围。设置name为主要关键字，非空；设置其他信息可以为空。、职工表：用于管理菜单的内容问题，所有的菜品信息都在这张表中。其中主要包括菜品编号、菜品名称、菜品类别、价格、当前状态以及补充说明。设置菜品编号为主要关键字，非空；设置其他信息可以为空。、生产表表：用于对台位信息的管理，所有的台位信息都在这张表中。其中主要包括台位编号、容纳人数、客人人数、使用状态以及补充说明等内容。设置台位编号为主要关键字，非空；设置其他信息可以为空。、产品表：用于客人信息的建立及管理，所有客人的基本信息都在这张表中。其中主要包括客人姓名、联系电话以及在本店的累计积分情况。设置客人姓名为主要关键字，非空；设置其他信息可以为空。3.6.3范式转换图3.14范式转换图四、 错误！未找到目录项。五、 系统实现4.1系统实现4.1.1用户登录模块的实现：图4.1 用户登录4.1.2员工的登录实现：图4.2 员工登录4.1.3管理人员的登录实现：图4.3 管理人员登录“登录”操作的代码为：procedure TForm1.Button1Click(Sender: TObject);var sql2,sql3:string;beginif radiobutton1.Checked thenbeginwith adoquery1 do begin close; sql.clear; sql2:=select * from guanliyuan where name=:a and password=:b; sql.Add(sql2); parameters.ParamByName(a).Value:=edit1.Text; parameters.ParamByName(b).Value:=edit2.Text; open; end; if not adoquery1.eof then begin form1.Hide; form2.show; form2.N2.Enabled:=false; form2.N4.Enabled:=false; form2.N8.Enabled:=false; form2.N10.Enabled:=false; form2.N11.Enabled:=false; form2.N12.Enabled:=false; form2.N1.Enabled:=false; form2.N5.Enabled:=false; form2.caiwu1.Enabled:=false; end else showmessage(用户名或密码不正确);end;if radiobutton2.Checked thenbeginwith adoquery1 do begin close; sql.clear; sql3:=select * from guanliyuan where name=:c and password=:d; sql.Add(sql3); parameters.ParamByName(c).Value:=edit1.Text; parameters.ParamByName(d).Value:=edit2.Text; open; end; if not adoquery1.eof then begin form1.Hide; form2.show; end else showmessage(用户名或密码不正确);end;end;“退出”的代码为：procedure TForm1.Button2Click(Sender: TObject);beginapplication.Terminate;end;4.1.职工基本资料录入界面：图4.4 员工信息管理procedure TForm2.Button1Click(Sender: TObject);beginquery1.First;button1.Enabled:=false; / 点击首记录时首记录按钮变灰button2.Enabled:=false;/ 点击首记录时前移按钮变灰button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm2.Button2Click(Sender: TObject);beginquery1.prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if query1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm2.Button3Click(Sender: TObject);beginquery1.next;button1.Enabled:=true;/ 点击后移时首记录按钮打开button2.Enabled:=true;/ 点击后移时前移按钮打开button3.Enabled:=true;button4.Enabled:=true;if query1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm2.Button4Click(Sender: TObject);beginquery1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;procedure TForm2.Button5Click(Sender: TObject);begin query1.Close; query1.SQL.Clear; query1.sql.Add(select * from 职工表.db);/ 使用SQL语句查询相关记录 query1.SQL.Add(where 职工号=:a); query1.ParamByName(a).AsString:=edit1.Text; query1.Open;end;procedure TForm2.Button6Click(Sender: TObject);beginquery1.MoveBy(strtoint(edit2.Text);/ 移动记录end;procedure TForm2.Button7Click(Sender: TObject);beginform1.show;end;4.1.5工厂基本资料录入管理：procedure TForm3.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm3.Button2Click(Sender: TObject);begintable1.prior;button1.Enabled:=true; /点击前移时首记录按钮打开button2.Enabled:=true; /点击前移时前移按钮打开button3.Enabled:=true; /点击前移时后移按钮打开button4.Enabled:=true; /点击前移时末记录按钮打开if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm3.Button3Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm3.Button4Click(Sender: TObject);begintable1.last;button1.Enabled:=true; /点击末记录时首记录按钮打开button2.Enabled:=true; /点击末记录时前移按钮打开button3.Enabled:=false; /点击末记录时后移按钮变灰button4.Enabled:=false; /点击末记录时末记录按钮变灰end;procedure TForm3.Button5Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(工厂编号).asstring:=edit1.text;Table1.fieldbyname(厂名).asstring:=edit2.text;Table1.fieldbyname(地址).asstring:=edit3.text;Table1.post;end;procedure TForm3.Button7Click(Sender: TObject);beginform1.show;end;procedure TForm3.Button6Click(Sender: TObject);beginif table1.locate(工厂编号,edit4.text,)thentable1.delete;end;end.4.1.6产品基本资料录入管理：procedure TForm4.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm4.Button2Click(Sender: TObject);begintable1.prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false; /点击首记录时首记录按钮变灰button2.Enabled:=false;/点击首记录时前移按钮变灰button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm4.Button3Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=falsebutton4.Enabled:=false;end;end;procedure TForm4.Button4Click(Sender: TObject);begintable1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;/点击末记录时后移按钮变灰button4.Enabled:=false;/点击末记录时末记录按钮变灰end;procedure TForm4.Button5Click(Sender: TObject);var sm:string;beginsm:=trim(inputbox(输入产品号,请输入产品号,);with table1 dobegintable1.IndexFieldNames:=产品号 ;/ 用findkey查找特定记录产品号if findkey(sm) thenshowmessage(查到相应记录)elseshowmessage(未找到相应记录);end;end;procedure TForm4.Button7Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(产品号).asstring:=edit3.text;Table1.fieldbyname(产品名).asstring:=edit4.text;Table1.post;end;procedure TForm4.Button6Click(Sender: TObject);beginif table1.locate(产品号,edit4.text,)then/ 定点查找信息并删除table1.delete;end;procedure TForm4.Button8Click(Sender: TObject);beginform1.show;end;end.4.1.7管理情况模块的实现：procedure TForm5.Button2Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm5.Button3Click(Sender: TObject);begintable1.Prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;end;procedure TForm5.Button4Click(Sender: TObject);begintable1.next;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Eof thenbeginbutton1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;end;procedure TForm5.Button5Click(Sender: TObject);begintable1.last;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=false;button4.Enabled:=false;end;procedure TForm5.Button6Click(Sender: TObject);beginIf table1.locate(职工号 ,edit7.text,) then table1.Delete;end;procedure TForm5.Button1Click(Sender: TObject);beginTable1.append;Table1.fieldbyname(职工号).asstring:=edit1.text;Table1.fieldbyname(姓名).asstring:=edit2.text;Table1.fieldbyname(技术等级).asstring:=edit3.text;Table1.fieldbyname(工厂编号).asstring:=edit4.text;Table1.fieldbyname(聘期).asstring:=edit5.text;Table1.fieldbyname(工资).asstring:=edit6.text;Table1.post;end;procedure TForm5.Button7Click(Sender: TObject);beginform1.show;end;end.4.1.8生产情况模块的实现：procedure TForm6.Button1Click(Sender: TObject);begintable1.First;button1.Enabled:=false;button2.Enabled:=false;button3.Enabled:=true;button4.Enabled:=true;end;procedure TForm6.Button2Click(Sender: TObject);begintable1.Prior;button1.Enabled:=true;button2.Enabled:=true;button3.Enabled:=true;button4.Enabled:=true;if table1.Bof thenbeginbutton1.Enabled:=false;button2.Enabled:=false