职工管理系统DELphi实现.docVIP

浙江工商大学计算机与信息工程学院 数据结构实验大作业报告 专 业：物流管理 班 级：物流1002 学 号：1012600204 姓 名：曹雅萍 指导教师：庄毅 2011 年 11 月 一．问题描述 1.题目:设计一个系统，对单位的职工进行管理，包括插入、删除、查找、排序等功能。 2.要求 　　职工对象包括姓名、性别、出生年月、工作年月、学历、职务、住址、电话等信息。 （1）新增一名职工：将新增职工对象按姓名以字典方式职工管理文件中。 （2）删除一名职工：从职工管理文件中删除一名职工对象。 （3）查询：从职工管理文件中查询符合某些条件的职工。 （4）修改：检索某个职工对象，对其某些属性进行修改。 （5）排序：按某种需要对职工对象文件进行排序。 3.实现提示 　　职工对象数不必很多，便于一次读入内存，所有操作不经过内外存交换。 （1）由键盘输入职工对象，以文件方式保存。程序执行时先将文件读入内存。 （2）对职工对象中的姓名按字典顺序进行排序。 （3）对排序后的职工对象进行增、删、查询、修改、排序等操作。 姓名、性别、出生年月、工作年月、学历、住址、电话 (function储存了公司的职务类别（FUNCTION），职务代号（FUNCTION-KEY）。为了后面的表之间的参照完整性建立，在这里建立职务代号（FUNCTION-KEY）为主索引，职务（FUNCTION）为次索引。如图2所示 图2 (两表的参照完整性建立: 前面两表有一个公共属性为职务代号（FUNCTION-KEY）,这里通过Lookup definition建立两表的参照完整性。这样做的目的是在表staff中建立职务（FUNCTION）的下拉列表，增加系统操作的便利性。之后隐藏表staff中的职务代号（FUNCTION-KEY）。这样我们便把两张表合二为一，而且在数据表staff中有职务（FUNCTION）的下拉列表。这里的数据表就是后面操作中的数据源。 数据交互跟踪： 系统中的数据一共经过了三个站点。首先，所有的数据信息都在数据库中保存，这是最底层的数据。在系统运行时，TTable或TQuery 读取数据，通过TDatasourse传递给TDBGrid，TDBEdit，TDBMemo等数据控制组件，为用户提供接口，让用户可以浏览和编辑数据。在这个过程中，TDatasourse充当了一个媒介的作用，把底层数据库和用户界面联系在一起。 三．使用说明 系统运行时的界面，界面中一共有两个页面，分别为职工信息查询（图4）和职工基本信息（图3）。 图3 图4 职工信息查询中有两个功能区。 ※ 编辑区： 说明：在这个区域，用户可以编辑，修改，删除，添加员工信息 ※ 查找区： 说明： 在这个区域可以查找职工基本信息中存在的员工的个人全部信息，当输入一个不存在的职工号获知职工姓名时，会提示“无此职工号”或者“无此职工姓名”。 各项功能简介： 添加信息：按工具栏中的，这时职工号，姓名，性别，出生日期，工作日期，学历，住址，电话号码，职务，个人说明栏全部清空，当输好一个员工的全部信息，且职务项有下拉列表存有备选项，方便我们操作。 点就可以添加到职工基本信息的表格中了。 还有一种方法是直接在表中添加，点击职工基本信息页中工具栏中的 ，输入信息，便可添加。 查找信息：输入某个员工号或者员工姓名，按键，员工的全部个人信息便在编辑区全部显示。 也可以在职工基本信息页中的查找类别下拉列表中选择“按职工号查找”或者“按职工姓名查找”，然后点击右边的查询键 删除信息：在职工基本信息页找到某员工信息，点工具栏中的 排序：系统自动设置为按姓名首字母排序。 四．检测 查找： 查找职工号为003的职工 方法二：在“职工信息查询页”中查询 添加 添加一条记录: 职工号008，姓名 Kelly，职务 财务总监，住址 杭州市江干区，学历 西安复旦大学研究生，生日 1990-1-1，工作日期 2000-9-9. 输入： 添加后： 删除与添加相似 在检测中遇到的问题是 1)在程序运行之初，职工信息查询页中是按姓名首字母排序的，但是经过一 次操作以后，职工信息查询页中的成员自动转换成按职工号排列。 2)在查找的方法二中可以看到，当查找一个位于中间的职工时，表中出现了包括这个人以下的所有人的记录。 改进 改进： 这个程序需要改进的地方是前面测试中发现的问题。 1）员工的排序，虽然在程序运行的时候实现了按姓名的排序，但是当程序经过一次操作以后便恢复了按员工号排序，这里是代码有漏洞，在以后的学习与实践中争取改进这一缺点。