员工信息管理系统_第1页
员工信息管理系统_第2页
员工信息管理系统_第3页
员工信息管理系统_第4页
员工信息管理系统_第5页
已阅读5页,还剩34页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、共享知识分享快乐信息系统设计软件工程课程设计课题名称:员工信息管理系统姓名兰朝仁学号080153035学院继续教育学院专业计算机科学与技术年级2008级(夜大专升本指导教师陈郞钦完成日期:2010年 10 月 11 日目录引言1. 系统规划 1.1 系统设计目标 21.2 系统总体规划 21.3 设计方案 (步骤) 22. 系统分析 2.1 业务需求与分析 22.2 系统业务流程图 32.3 系统数据流程图 43. 系统设计 3.1 系统软件功能结构 53.2 系统主要技术 53.3 系统数据库设计 63.3.1 数据库设计要点 63.3.2 数据库系统设计要点及难点 63.3.3 数据库及其

2、表的建立和使用 63.3.4 系统组成及数据环境 63.3.5 数据库概念设计 73.3.6 数据库逻辑设计 83.3.7 数据库物理设计 93.4 输出设计 113.5 输入设计 114. 系统实现 1.1 4.1 系统主程序流程 134.2 系统主界面设计 144.3 系统主程序设计 144.4 子程序设计 194.4.1 系统登录 194.4.2 员工管理 214.4.3 部门管理 244.4.4 职务管理 264.4.5 工资管理 28卑微如蝼蚁、坚强似大象共享知识 分享快乐4.4.6 工资类别管理 294.5 系统测试 345. 结束语 3.5 卑微如蝼蚁、坚强似大象共享知识 分享快

3、乐【摘 要】本文从员工信息管理系统规划、需求分析、系统设计、系统实现及系统 测试等多个方面,分别叙述系统研发的整个实现过程,简述采用 Delphi 7 编程工具 及 Access 数据库实现系统应用的设计要点,重点阐述系统实现过程中的重点和难 点问题的分析及其解决方案,解决企业对员工的计算机管理。【关键词 】员工、人事、工资、管理、数据库引言 随着我国国民经济建设的蓬勃发展和社会主义市场经济体制的迅速完善,各个 行业都在积极使用现代化的手段,不断改善服务质量,提高工作效率,这些都在很 大程度上给企业提出越来越严峻的挑战,对企业体系无论是在行政职能、企业管理 水平以及优质服务上都提出更高的要求。

4、建设一个科学高效的信息管理系统是解决 这一问题的必由之路。员工信息管理作为企业内部的一种员工基本档案管理也是如 此,由于企业的人数较多,每一位员工的具体实际情况也不尽相同,如果没有一个 完整的员工信息管理系统去完成,将使工作变得复杂,并且对于工作的效率也将使 一个致命的打击,使无论如何也无法适应现代社的需要。另外,目前部分企业使用 的员工信息管理系统只有信息的录入,修改和删除的功能,而不具有信息查询的功 能,这对于企业的信息管理工作来说是一个很遗憾的事情。因此,开发一套功能完 整,设计合理,使用方便的企业员工信息管理系统成为很有必要的事情。企业员工信息管理系统的内容功能对于企业的决策者和管理者

5、来说都至关重 要, 所以企业员工信息管理系统应该能够为管理者提供充足的信息和快捷的查询与 管理手段。作为计算机应用的一部分 , 使用计算机对企业员工信息进行管理 ,具有手 工管理所无法比拟的优点 . 例如: 查询迅速、查找方便、可靠性高、存储量大、保密 性好、寿命长、成本低等。这些优点能够降低员工管理工作的成本 , 减轻企业管理 人员的负担 ,方便员工信息的更新、维护和查询 , 增加数据的可靠性 ;从而提高企业 员工信息管理的效率,开拓企业员工管理工作的新局面 ,提高管理水平 ,是企业管理 的科学化、正规化、信息化管理 , 与世界接轨的重要条件。当前主流的程序开发环境有 Microsoft V

6、isual Studio.NET ,Sun Java,Borland Delphi等。Visual Studio.NET对Windows系统兼容性好;Java可以支持多种环境 及操作系统平台;而Delphi则可在Windows系统下快速开发C/S结构程序,具有 多方成熟的控件完善系统开发。共享知识 分享快乐主流的数据系统则有 Oracle , Microsoft SQL Server 和 Access。Oracle 功能 强大,稳定性好; SQL Server 稳定,功能齐全;而 Access 简单快速、小巧便捷。下面采用 Borland Delphi 7 开发环境,结合 Microsoft

7、Access 数据库,对员 工信息管理系统的开发过程和系统规划、系统需求及分析、系统设计、系统实现及 系统测试等各个阶段, 论述其数据库应用系统的设计要点, 实现过程中存在的难点、 问题的分析及其解决方案。1. 系统规划系统规划的主要内容是信息系统设计的目标及信息系统的总体方案。1.1 系统设计目标本系统的设计目标是建立企业对员工档案及工资的计算机管理系统。1.2 系统总体规划系统本着合理性、可靠性和先进性的原则,实现:(1) 完整的数据分析系统,能对数据流实施控制与动态分析;(2) 有功能强大、资料齐全的查询系统;(3) 方便用户使用及操作的界面,操作简便、运行稳定。1.3 设计方案 ( 步

8、骤 ) 在员工信息需求的基础上,提出整个信息系统的总体结构方案,确定系统开发设计的次序及时间的安排。具体分为五个步骤:(4) 分析员工档案及工资等信息管理的业务活动,搞清业务流程及数据流程;(5) 根据业务流程及数据流程,确定属于系统业务处理的范围;(6) 分析业务流程及数据流程所涉及的数据,确定数据库及其数据表;(7) 确定系统概要设计(总体结构、数据结构) 、详细设计(模块、算法)框架;(8) 进行系统实施过程的程序设计及其软件测试。2. 系统分析系统分析的最主要内容有员工信息管理系统的业务需求分析、业务流程图、数据流程图、数据库设计等四个部分。2.1 业务需求与分析(1) 系统数据需求通

9、过对企业员工的信息管理业务流程的调查,总结系统对其数据的需求,主要有:员工档案信息,员工工资信息,部门、职务、工资类型等基础信息(2) 系统功能需求 系统的主要需求,即所设计的系统在功能上应做什么。本系统主要的功能有: 员工管理:完成员工档案的新增、修改、删除、查询及打印等功能;主要实 现对所有员工的姓名、编号、部门、职务、入职时间、性别、身份证号、出生日期、 学历、私人电话及工作电话等信息的管理。 工资管理:完成员工工资的录入、查询、分析及相关打印等功能;主要实现 对员工的姓名、工资类别及工资金额等信息的管理。 基本信息管理:完成部门设置、职务设置、工资类别设置、用户口令设置, 系统数据初始

10、化等功能。部门设置主要实现部门编号和部门名称的设置;职务设置 主要实现职务编号和职务名称的设置;工资类别设置主要实现工资类别编号和工资 类别名称的设置;口令更改实现用户口令的修改;系统初始化清除系统所有历史数 据,使数据库进入初始状态。 系统帮助:帮助用户解决问题,沟通与软件开发者的联系。(3) 系统性能需求系统的性能指标包括存储容量限制、运行时间限制、传输速度要求、安全保密 性等几个方面。(4) 系统运行环境需求 硬件方面:采用的设备机型以及外部设备等; 软件方面:支持系统运行的系统软件,如操作系统、数据库系统等。(5) 系统可靠性及安全保密需求 对系统、重要子系统在运行中的安全、可靠、保密

11、方面提出要求。2.2 系统业务流程图从实际业务功能的角度将系统规划中有关的业务做进一步的分析,用一个完整 的图型来反映业务处理过程。系统业务流程图(TFD如下:2.3系统数据流程图以数据流程图表示数据流向和对数据进行的加工;分析系统数据,对数据流图 中的数据流给出具体定义。系统的顶层数据流程图(DFD如下:卑微如蝼蚁、坚强似大象员工部门经理登记表不合格登记表审核合格登记表记录处理员工档案报表员工记录其它信息审核业绩、奖惩等员工信息综合数据数据综合 员工数据* J处理员工工资I处理 工资表人事经刊4资表工资信息审核_工资1工资类型工资统计工资分析员工工资报工资3. 系统设计系统设计主要有以下几项

12、内容:3.1系统软件功能结构员 工 管 理删除 修改 新增系系统统维帮护助初始 化删查除询打 印3.2系统主要技术本系统采用Borland Delphi 7 开发环境,结合 Microsoft Access 数据库。Borland Delphi 7使用的是面向对象的Object Pascal语言,可以灵活得进行大型 应用系统的开发。Delphi 7提供了对数据库系统及标准 SQL语言支持,可以开发出 符合标准SQL的应用系统,提高系统的可移植性,可根据不同企业的需求,使用Oracle、SQL Server、Access 等标准的 SQL数据库。同时,Delphi 7 自身提供了共享知识 分享快

13、乐 很多数据库操作的控件,还有第三方优势的数据库操控件,从面更快,更好得开发 出优秀的应用系统。本系统就采用了Dev Express公司的DevExpressVCL数据控件一起实现员工信息管理系统的开发。3.3 系统数据库设计3.3.1 数据库设计要点(9) 第一阶段的设计任务是收集和分析用户需求,完成数据库的概念设计。(10) 第二阶段设计任务是数据库的逻辑设计,完成E-R模型向逻辑模型转换。(11) 第三阶段设计任务是数据库的物理设计, 确定表的结构, 建立数据库模型。3.3.2 数据库系统设计要点及难点(12) 建立数据库,确定数据库中表的数量及其每个表中各个字段的字段名、类 型、宽度、

14、小数及索引、排序。(13) 确定数据库中各个表的字段的主键值、主索引及普通索引。(14) 建立各个表数据环境,确定主表并建立主表与各个表之单的关联。(15) 程序设计过程中的标签、文本框、编辑框、 复选框、列表框、 数据库连接、 数据查询的属性。(16) 采用结构化编程方法,确定系统功能模块及其相互之间的关系。3.3.3 数据库及其表的建立和使用使用 Access 程序建立 Access 数据库,建立相应表,设置各个表中具体字段名 称、类型、主键、索引,设置各个表间的关系3.3.4 系统组成及数据环境(1) 数据库: PersonnelInfo.mdb(2) 表:员工员工信息表,工资工资表,部

15、门部门信息表,职务职务信息表,工资类别工资类别信息表(3) 项目:PersonnelInfo.dpr :员工信息管理系统项目管理器(4) 表单:Main.dfm 系统主界面Personnel.dfm员工管理界面Wage.dfm工资管理界面Departme nt.dfm部门管理界面Post.dfm 职务管理界面About.dfm关于界面卑微如蝼蚁、坚强似大象共享知识 分享快乐WageCategory.dfm 工资类型管理界面 程序:Ma in .pas 系统主程序Perso nn el.pas 员工管理程序Wage.pas工资管理程序 Departme nt.pas 部门管理程序 Post.pa

16、s 职务管理程序 About.pas关于程序WageCategory.pas 工资类型管理程序工資工资朗黑备注部门部门名称 笥主姓名部门密 职务病号 入职时闾身住正号 口生日期 学历 私人老话 工惟电话瞥注工资类称用亠中用户名确认直码亀主(6) 数据环境:乜职务错 职务名称 筍主3.3.5数据库概念设计数据库概念设计主要采用E-R模型进行设计.E-R模型的关系是确定每一处理模 块的实体、实体属性和实体间的联系。实体、属性、联系及数据结构描述如下:(1) 员工管理模块实体:员工、部门、职务;属性:员工的属性有姓名、员工编号、部门、职务、入职时间、性别、身份证 号、出生日期、学历、私人电话、工作电

17、话及备注等;部门的属性有部门编号和部 门名称;职务的属性有职务编号和职务名称。联系:员工与部门之间是多对一(M 1)的关系;员工与职务之间也是多对一 (M 1)的关系。数据项:见数据库的物理设计。(2) 工资管理模块实体:工资、工资类别;属性:工资的属性有员工编号、工资类别和工资金额;工资类别有工资类别编 号、工资类别名称。关系:工资类别与工资这间是一对一(1:1)的关系。数据项:见数据库的物理设计。3.3.6数据库逻辑设计数据库的逻辑设计主要完成从 E-R模型向数据逻辑模型的转换。首先将 E-R模 型中同一实体的所有属性放在同一记录类型中,变成记录的数据项;其次如果两个 实体间有M:N的关系

18、,除各自建立记录类型之外,还需增加一个记录类型,这一记 录类型应包括两个实体各自的主键。逻辑模型规范化及总E-R图描述如下:员工(员工编号、姓名、部门编号、职务编号、入职时间、性别、身份证号、 出生日期、学历、私人电话、工作电话、备注);部门(部门编号、部门名称、备注);职务(职务编号、职务名称、备注);工资(员工编号、工资类型编号、金额、备注);工资类别(工资类别编号、工资类别名称、备注);用户(用户名、密码、确认密码、备注)。消除冗余数据和联系后,其系统的 E-R图如下:3.3.7数据库物理设计数据库的物理设计将完成数据逻辑模型向数据物理模型的转换。每一记录类型 确定为数据库中的一张表;记

19、录类型中的数据项成为相应表中的字段,字段属性根 据各字段特点设置;确定索引和表之间的联系。系统表结构描述如下:(1)员工表用于存放员工信息,包括员工编号、姓名、部门编号、职务编号、入职时间、 性别、身份证号、出生日期、学历、私人电话、工作电话、备注。字段字段名称类型宽度必需索引说明1员工编号文本20是有无重复主键2姓名文本10是3部门编号数字长整型4职务编号数字长整型5入职时间日期/时间字段字段名称类型宽度必需索引说明6性别文本27身份证号文本208出生日期日期/时间9学历文本1010私人电话文本2011工作电话文本2012备注文本100部门表用于存放员工的部门信息,包括部门编号、部门名称和备

20、注字段字段名称类型宽度必需索引说明1部门编号数字长整型是有无重复主键2部门名称文本20是3备注文本100(3)职务表用于存放员工的职务信息,包括职务编号、职务名称和备注字段字段名称类型宽度必需索引说明1职务编号数字长整型是有无重复主键2职务名称文本20是3备注文本100(4)工资表用于存放员工的工资信息,包括员工编号、工资类别编号、金额和备注字段字段名称类型宽度必需索引说明1员工编号文本20是有重复主键2工资类别编号数字长整型是有重复主键3金额数字单精度型4备注文本100(5)工资类别表用于存放员工的工资类别,包括工资类别编号、工资类别名称和备注字段字段名称类型宽度必需索引说明1工资类别编号数

21、字长整型是有无重复主键2工资类别名称文本20是3备注文本100(6)用户表用于存放系统的用户名和密码,包括用户名、密码和备注字段字段名称类型宽度必需索引说明1用户名文本20是有无重复主键2密码文本30是3确认密码文本30是4备注文本1003.4输出设计(1) 选择输出方式:显示终端、打印机;(2) 确定输出格式:格式设计体现在各类报表中;(3) 输出的主要形式:报表;(4) 输出的内容:主要有员工信息、工资信息、部门信息、职务信息、工资类 别信息和用户信息。3.5输入设计(1)输入方式设计 键盘输入和鼠标操作,为常规的数据录入方式; 磁盘传递数据。(2)用户界面设计(详见各子模块用户界面)人机

22、对话方式:通过屏幕、键盘、鼠标与系统对话,当操作错误时系统 给出提示和警告。菜单方式:设计成下拉式、上弹式、按钮式,功能选择:有光带移动、 数字或字母选择、鼠标驱动。4. 系统实现系统实施的最主要工作是程序设计,此外还包括了物理系统的实施、程序的调卑微如蝼蚁、坚强似大象共享知识 分享快乐试等。本系统的程序设计由主程序和各模块表单程序等两大部份组成。卑微如蝼蚁、坚强似大象共享知识分享快乐4.1系统主程序流程开始输入密码NC密码正确*员工信息管理/y新增员工Y员工工资管理-录入工资Y部门管理职务管理N职务管理工资类、Y型管理/工资类型管理、Y用户管理用户管理/数据 - Y .数据数据初始化 初始化

23、vNY关于系统帮助信息 Y2开始共享知识分享快乐4.2系统主界面设计fEKSU奁口側嵇巍H)見工答湮(P部门莒理(D)职务琶務Q)工费苣理(W)工資瘪I莒理汀用二苣哩(U)數莠初冶化(DiBdiX)员工信息管理系统4.3系统主程序设计unit Main;in terfaceuses Win dows, SysUtils, Classes, Graphics, Forms, Con trols, Menus, StdCtrls, Dialogs, Butto ns, Messages, ExtCtrls, ComCtrls, StdAct ns, ActnList, ToolWin, ImgLi

24、st, DB, ADODB, cxControls, cxContainer, cxEdit, cxLabel;typeTMainForm = class(TForm)Mai nMenu: TMai nMenu;File1: TMe nultem;Win dow: TMe nultem;共享知识 分享快乐Help: TMenuItem;FileExitItem: TMenuItem;WindowCascadeItem: TMenuItem; WindowTileItem: TMenuItem; WindowArrangeItem: TMenuItem;HelpAboutItem: TMenuI

25、tem; WindowMinimizeItem: TMenuItem;ActionList: TActionList;FileExit: TAction;WindowCascade1: TWindowCascade; WindowTileHorizontal1: TWindowTileHorizontal;WindowArrangeAll1: TWindowArrange; WindowMinimizeAll1: TWindowMinimizeAll;HelpAbout1: TAction;WindowTileVertical1: TWindowTileVertical; WindowTile

26、Item2: TMenuItem;ImageList: TImageList;FileWage: TMenuItem; FilePersonnel: TMenuItem;FileDepartment: TMenuItem; ADOConnection: TADOConnection;FilePost: TMenuItem;N1: TMenuItem;FileWageCategory: TMenuItem;Image1: TImage;FileUser: TMenuItem;ADOQueryDelete: TADOQuery;FileDataInit: TMenuItem; procedure

27、HelpAbout1Execute(Sender: TObject); procedure FileExitExecute(Sender: TObject); procedure FilePersonnelClick(Sender: TObject); procedure FileDepartmentClick(Sender: TObject); procedure FilePostClick(Sender: TObject); procedure FileWageCategoryClick(Sender: TObject); procedure FileWageClick(Sender: T

28、Object); procedure FormActivate(Sender: TObject); procedure FileUserClick(Sender: TObject); procedure FileDataInitClick(Sender: TObject);private Private declarations public卑微如蝼蚁、坚强似大象共享知识 分享快乐 Public declarations end;varMainForm: TMainForm;ShowLogin :Boolean = True;implementation$R *.dfmuses Login,

29、Personnel, Department, Post, Wage, WageCategory, User, About; procedure TMainForm.FileExitExecute(Sender: TObject);beginClose;end;procedure TMainForm.HelpAbout1Execute(Sender: TObject);beginAboutBox.ShowModal;end;procedure TMainForm.FilePersonnelClick(Sender: TObject);varMDIPersonnel: TMDIPersonnel;

30、i: integer;beginfor i:=0 to MDIChildCount-1 doif MDIChildreni is TMDIPersonnel thenbeginMDIChildreni.BringToFront;if MDIChildreni.WindowState = wsMinimized thenMDIChildreni.WindowState := wsNormal;Exit;end;MDIPersonnel := TMDIPersonnel.Create(Application);MDIPersonnel.Show;end;procedure TMainForm.Fi

31、leDepartmentClick(Sender: TObject);共享知识 分享快乐varMDIDepartment: TMDIDepartment;i: integer;beginfor i:=0 to MDIChildCount-1 doif MDIChildreni is TMDIDepartment thenbeginMDIChildreni.BringToFront;if MDIChildreni.WindowState = wsMinimized then MDIChildreni.WindowState := wsNormal;Exit;end;MDIDepartment :

32、= TMDIDepartment.Create(Application);MDIDepartment.Show;end;procedure TMainForm.FilePostClick(Sender: TObject); varMDIPost: TMDIPost;i: integer;beginfor i:=0 to MDIChildCount-1 doif MDIChildreni is TMDIPost thenbeginMDIChildreni.BringToFront;if MDIChildreni.WindowState = wsMinimized then MDIChildren

33、i.WindowState := wsNormal;Exit;end;MDIPost := TMDIPost.Create(Application);MDIPost.Show;end;procedure TMainForm.FileWageCategoryClick(Sender: TObject); varMDIWageCategory: TMDIWageCategory;i: integer;beginfor i:=0 to MDIChildCount-1 doif MDIChildreni is TMDIWageCategory thenbegin共享知识 分享快乐MDIChildren

34、i.BringToFront;if MDIChildreni.WindowState = wsMinimized then MDIChildreni.WindowState := wsNormal;Exit;end;MDIWageCategory := TMDIWageCategory.Create(Application);MDIWageCategory.Show;end;procedure TMainForm.FileWageClick(Sender: TObject);varMDIWage: TMDIWage;i: integer;beginfor i:=0 to MDIChildCou

35、nt-1 doif MDIChildreni is TMDIWage thenbeginMDIChildreni.BringToFront;if MDIChildreni.WindowState = wsMinimized then MDIChildreni.WindowState := wsNormal;Exit;end;MDIWage := TMDIWage.Create(Application);MDIWage.Show;end;procedure TMainForm.FormActivate(Sender: TObject);beginif ShowLogin thenbeginLog

36、inBox.ShowModal;if ShowLogin then Close;end;end;procedure TMainForm.FileUserClick(Sender: TObject);varMDIUser: TMDIUser;i: integer;beginfor i:=0 to MDIChildCount-1 do共享知识分享快乐if MDIChildre ni is TMDIUser the nbegi nMDIChildre n i.Bri ngToFro nt;if MDIChildre ni.Wi ndowState = wsMi ni mized thenMDIChi

37、ldre ni.Wi ndowState := wsNormal;Exit;end;MDIUser := TMDIUser.Create(Applicatio n);MDIUser.Show;end;end.4.4子程序设计4.4.1系统登录unit Log in;in terfaceuses Win dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms, Dialogs, DB, ADODB, StdCtrls;typeTLogin Box = class(TForm) Butt on Logi n:

38、 TButt on; Butto nCan cel: TButt on; LabelUser: TLabel; EditUser: TEdit;共享知识 分享快乐LabelPassword: TLabel;EditPassword: TEdit;ADOQueryLogin: TADOQuery;procedure ButtonLoginClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure ButtonCancelClick(Sender: TObject);

39、private Private declarations public Public declarations end;varLoginBox: TLoginBox;LoginTime: Integer=0;implementation$R *.dfmuses Main;procedure TLoginBox.ButtonLoginClick(Sender: TObject);beginif (EditUser.Text) thenbegintryADOQueryLogin.Close;ADOQueryLogin.SQL.Clear;ADOQueryLogin.SQL.Add(SELECT C

40、OUNT(*) FROM户 WHERE用户名=:User AND 密码 =:Password);ADOQueryLogin.Parameters.ParamByName(User).Value:=EditUser.Text;ADOQueryLogin.Parameters.ParamByName(Password).Value:=EditPassword.Text;ADOQueryLogin.Open;if ADOQueryLogin.Fields0.AsInteger=1 thenbeginShowLogin:=False;Close;endelsebegin共享知识分享快乐ShowMess

41、age(用户名或密码错误!);Logi nTime:=Logi nTime+1;if Log in Time=3 the n Close;end;fin allyADOQueryLogi n. Close;end;end;end;procedure TLoginBox.FormClose(Sender: TObject; var Action: TCloseAction); beg inActi on := caFree;end;procedure TLogi nBox.Butt onCan celClick(Se nder: TObject);beg inClose;end;end.4.4.

42、2员工管理unit Pers onn el;in terface uses卑微如蝼蚁、坚强似大象共享知识 分享快乐Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cx

43、GridLevel, cxClasses, cxControls, cxGridCustomView, cxGrid, cxNavigator, StdCtrls, Grids, DBGrids, StrUtils, cxDBNavigator, cxGridCustomPopupMenu, cxGridPopupMenu, dxStatusBar, cxCalendar, cxDropDownEdit, cxCheckBox, cxRadioGroup, cxDBLookupComboBox;typeTMDIPersonnel = class(TForm) DataSourcePersonn

44、e: TDataSource; ADOQueryPersonne: TADOQuery; cxGrid1DBTableView1: TcxGridDBTableView; cxGrid1Level1: TcxGridLevel; cxGrid1: TcxGrid;cxDBNavigator1: TcxDBNavigator;cxGrid1DBTableView1DBColumn: TcxGridDBColumn;TcxGridDBColumn; TcxGridDBColumn; TcxGridDBColumn; TcxGridDBColumn; TcxGridDBColumn; TcxGrid

45、DBColumn; TcxGridDBColumn; TcxGridDBColumn; TcxGridDBColumn;cxGrid1DBTableView1DBColumn1cxGrid1DBTableView1DBColumn2cxGrid1DBTableView1DBColumn3cxGrid1DBTableView1DBColumn4cxGrid1DBTableView1DBColumn5cxGrid1DBTableView1DBColumn6cxGrid1DBTableView1DBColumn7cxGrid1DBTableView1DBColumn8cxGrid1DBTableVi

46、ew1DBColumn9cxGrid1DBTableView1DBColumn10: TcxGridDBColumn;cxGrid1DBTableView1DBColumn11: TcxGridDBColumn;DataSourceDepartment: TDataSource;ADOQueryDepartment: TADOQuery;DataSourcePost: TDataSource;ADOQueryPost: TADOQuery;procedure ADOQueryPersonnePostError(DataSet: TDataSet; E: EDatabaseError; var

47、Action: TDataAction);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure ADOQueryPersonneBeforeRefresh(DataSet: TDataSet); private Private declarations public Public declarations end;implementation$R *.dfmuses main;procedure TMDIPersonnel.ADOQueryPersonnePostError(DataSet: TData

48、Set; E: EDatabaseError;var Action: TDataAction);beginif DataSet.Fields0.AsString = then ShowMessage(“ 员工编号”不能为空! )else if AnsiContainsStr(e.Message重复数据)thenShowMessage(“ 员工编号”不能重复! )else if DataSet.Fields1.AsString = then ShowMessage(“ 姓名”不能为空! )else if DataSet.Fields2.AsString = thenShowMessage(“ 部

49、门编号”不能为空! )else if DataSet.Fields3.AsString = thenShowMessage(“ 职务编号”不能为空! )else if DataSet.Fields4.AsString = thenShowMessage(“ 入职时间”不能为空! )elseShowMessage(e.Message);Action:=daAbort;end;procedure TMDIPersonnel.FormClose(Sender: TObject;var Action: TCloseAction);beginAction := caFree;end;procedure

50、TMDIPersonnel.ADOQueryPersonneBeforeRefresh(DataSet: TDataSet); beginADOQueryDepartment.Close;ADOQueryDepartment.Open;ADOQueryPost.Close;ADOQueryPost.Open;end;end.4.4.3 部门管理unit Departme nt;in terface usesWin dows. Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms, Dialogs, DB, ADOD

51、B, cxStyles, cxCustomData, exGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxCo ntrols, cxGridCustomView, cxGrid, cxNavigator, StdCtrls, Grids, DBGrids, StrUtils, cxDBNavigator, cxGridCustomPopupMe nu,

52、cxGridPopupMe nu, dxStatusBar;typeTMDIDepartme nt = class(TForm) DataDepartme nt: TDataSource; ADOQueryDepartme nt: TADOQuery; cxGridIDBTableViewl: TcxGridDBTableView;卑微如蝼蚁、坚强似大象共享知识分享快乐4.4.4职务管理共享知识 分享快乐 cxGrid1Level1: TcxGridLevel; cxGrid1: TcxGrid; cxDBNavigator1: TcxDBNavigator; cxGrid1DBTableVi

53、ew1DBColumn1: TcxGridDBColumn; cxGrid1DBTableView1DBColumn2: TcxGridDBColumn; procedure ADOQueryDepartmentPostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end;implementation$R *.dfmuses main;procedure TMDIDepartment.ADOQueryDepartmentP

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论