员工信息管理系统

word文档精品文档分享信息系统设计?软件工程课程设计课题名称：员工信息管理系统XX：兰朝仁学号：080153035学院：继续教育学院专业：计算机科学与技术年级：2021级(夜大专升本)指导教师：陈郞钦完成日期：2021年10月11日word文档精品文档分享目录..................................................................................................................................................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数据库及其表的建立和使用............................................................................63.3.4系统组成及数据环境........................................................................................63.3.5数据库概念设计................................................................................................73.3.6数据库逻辑设计................................................................................................83.3.7数据库物理设计................................................................................................93.4输出设计.................................................................................................................113.5输入设计.................................................................................................................114.4.1系统主程序流程.....................................................................................................134.2系统主界面设计.....................................................................................................144.3系统主程序设计.....................................................................................................144.4子程序设计.............................................................................................................194.4.1系统登录..........................................................................................................194.4.2员工管理..........................................................................................................214.4.3部门管理..........................................................................................................244.4.4职务管理..........................................................................................................264.4.5工资管理..........................................................................................................28IIword文档精品文档分享4.4.6工资类别管理..................................................................................................294.5系统测试.................................................................................................................345.IIIword文档精品文档分享【摘要】本文从员工信息管理系统规划、需求分析、系统设计、系统实现及系统测试等多个方面，分别表达系统研发的整个实现过程，简述采用Delphi7编程工具及Access数据库实现系统应用的设计要点，重点阐述系统实现过程中的重点和难点问题的分析及其解决方案，解决企业对员工的计算机管理。【关键词】员工、人事、工资、管理、数据库引言随着我国国民经济建立的蓬勃开展和社会主义市场经济体制的迅速完善，各个行业都在积极使用现代化的手段，不断改善效劳质量，提高工作效率，这些都在很大程度上给企业提出越来越严峻的挑战，对企业体系无论是在行政职能、企业管理水平以及优质效劳上都提出更高的要求。建立一个科学高效的信息管理系统是解决这一问题的必由之路。员工信息管理作为企业内部的一种员工根本档案管理也是如此，由于企业的人数较多，每一位员工的具体实际情况也不尽一样，如果没有一个完整的员工信息管理系统去完成，将使工作变得复杂，并且对于工作的效率也将使一个致命的打击，使无论如何也无法适应现代社的需要。另外，目前局部企业使用的员工信息管理系统只有信息的录入，修改和删除的功能，而不具有信息查询的功能，这对于企业的信息管理工作来说是一个很遗憾的事情。因此，开发一套功能完整，设计合理，使用方便的企业员工信息管理系统成为很有必要的事情。企业员工信息管理系统的内容功能对于企业的决策者和管理者来说都至关重要,所以企业员工信息管理系统应该能够为管理者提供充足的信息和快捷的查询与管理手段。作为计算机应用的一局部,使用计算机对企业员工信息进展管理,具有手工管理所无法比较的优点.例如:查询迅速、查找方便、可靠性高、存储量大、XX性好、寿命长、本钱低等。这些优点能够降低员工管理工作的本钱,减轻企业管理人员的负担,方便员工信息的更新、维护和查询,增加数据的可靠性;从而提高企业员工信息管理的效率，开拓企业员工管理工作的新局面,提高管理水平,是企业管理的科学化、正规化、信息化管理,与世界接轨的重要条件。当前主流的程序开发环境有MicrosoftVisualStudio.NETSunJavaBorlandDelphi等。VisualStudio.NET对Windows系统兼容性好；Java可以支持多种环境及操作系统平台；而Delphi那么可在Windows系统下快速开发C/S构造程序，具有多方成熟的控件完善系统开发。1word文档精品文档分享主流的数据系统那么有Oracle，MicrosoftSQLServer和Access。Oracle功能强大，稳定性好；SQLServer稳定，功能齐全；而Access简单快速、小巧便捷。下面采用BorlandDelphi7开发环境，结合MicrosoftAccess数据库，对员工信息管理系统的开发过程和系统规划、系统需求及分析、系统设计、系统实现及系统测试等各个阶段，论述其数据库应用系统的设计要点，实现过程中存在的难点、问题的分析及其解决方案。1.系统规划系统规划的主要内容是信息系统设计的目标及信息系统的总体方案。1.1系统设计目标本系统的设计目标是建立企业对员工档案及工资的计算机管理系统。1.2系统总体规划系统本着合理性、可靠性和先进性的原那么，实现：(1)完整的数据分析系统，能对数据流实施控制与动态分析；(2)有功能强大、资料齐全的查询系统；(3)方便用户使用及操作的界面，操作简便、运行稳定。1.3设计方案(步骤)在员工信息需求的根底上，提出整个信息系统的总体构造方案，确定系统开发设计的次序及时间的安排。具体分为五个步骤：(4)分析员工档案及工资等信息管理的业务活动，搞清业务流程及数据流程；(5)根据业务流程及数据流程，确定属于系统业务处理的X围；(6)分析业务流程及数据流程所涉及的数据，确定数据库及其数据表；(7)确定系统概要设计〔总体构造、数据构造〕、详细设计〔模块、算法〕框架；(8)进展系统实施过程的程序设计及其软件测试。2.系统分析系统分析的最主要内容有员工信息管理系统的业务需求分析、业务流程图、数据流程图、数据库设计等四个局部。2.1业务需求与分析(1)系统数据需求2word文档精品文档分享通过对企业员工的信息管理业务流程的调查，总结系统对其数据的需求，主要有：①员工档案信息，②员工工资信息，③部门、职务、工资类型等根底信息(2)系统功能需求系统的主要需求，即所设计的系统在功能上应做什么。本系统主要的功能有：①员工管理：完成员工档案的新增、修改、删除、查询及打印等功能；主要实现对所有员工的XX、编号、部门、职务、入职时间、性别、XX号、出生日期、学历、私人及工作等信息的管理。②工资管理：完成员工工资的录入、查询、分析及相关打印等功能；主要实现对员工的XX、工资类别及工资金额等信息的管理。③根本信息管理：完成部门设置、职务设置、工资类别设置、用户口令设置，系统数据初始化等功能。部门设置主要实现部门编号和部门名称的设置；职务设置主要实现职务编号和职务名称的设置；工资类别设置主要实现工资类别编号和工资类别名称的设置；口令更改实现用户口令的修改；系统初始化去除系统所有历史数据，使数据库进入初始状态。④系统帮助：帮助用户解决问题，沟通与软件开发者的联系。(3)系统性能需求系统的性能指标包括存储容量限制、运行时间限制、传输速度要求、平安XX性等几个方面。(4)系统运行环境需求①硬件方面：采用的设备机型以及外部设备等；②软件方面：支持系统运行的系统软件，如操作系统、数据库系统等。(5)系统可靠性及平安XX需求对系统、重要子系统在运行中的平安、可靠、XX方面提出要求。2.2系统业务流程图从实际业务功能的角度将系统规划中有关的业务做进一步的分析，用一个完整的图型来反映业务处理过程。系统业务流程图〔TFD〕如下：3word文档精品文档分享员工部门经理人事经理入职登记表工资表日常表现、工作业绩、奖惩等信息人事处审核总经理审核员工档案员工工资人事处员工档案数据综合处理员工档案报表员工工资报表2.3系统数据流程图以数据流程图表示数据流向和对数据进展的加工；分析系统数据，对数据流图中的数据流给出具体定义。系统的顶层数据流程图〔DFD〕如下：4word文档精品文档分享登记表合格登记表员工员工档案报表登记表审核记录处理不合格员工记录业绩、奖惩等员工信息综合数据部门经理其它信息数据综合审核处理员工数据员工工资工资表人事经理工资信息审核工资工资类型工资统计工资分析工资员工工资报表员工3.系统设计系统设计主要有以下几项内容：3.1系统软件功能构造员工信息管理系统员工管理部门设置职务设置工资管理工资类别设置系统维护系统帮助新修删查打新修删查打用户初始增改除询印增改除询印设置化3.2系统主要技术本系统采用BorlandDelphi7开发环境，结合MicrosoftAccess数据库。BorlandDelphi7使用的是面向对象的ObjectPascal语言，可以灵活得进展大型应用系统的开发。Delphi7提供了对数据库系统及标准SQL语言支持，可以开发出符合标准SQL的应用系统，提高系统的可移植性，可根据不同企业的需求，使用Oracle、SQLServer、Access等标准的SQL数据库。同时，Delphi7自身提供了5word文档精品文档分享很多数据库操作的控件，还有第三方优势的数据库操控件，从面更快，更好得开发出优秀的应用系统。本系统就采用了DevExpress公司的DevExpressVCL数据控件一起实现员工信息管理系统的开发。3.3系统数据库设计3.3.1数据库设计要点(9)第一阶段的设计任务是收集和分析用户需求，完成数据库的概念设计。(10)第二阶段设计任务是数据库的逻辑设计，完成E-R模型向逻辑模型转换。(11)第三阶段设计任务是数据库的物理设计，确定表的构造，建立数据库模型。3.3.2数据库系统设计要点及难点(12)建立数据库，确定数据库中表的数量及其每个表中各个字段的字段名、类型、宽度、小数及索引、排序。(13)确定数据库中各个表的字段的主键值、主索引及普通索引。(14)建立各个表数据环境，确定主表并建立主表与各个表之单的关联。(15)程序设计过程中的标签、文本框、编辑框、复选框、列表框、数据库连接、数据查询的属性。(16)采用构造化编程方法，确定系统功能模块及其相互之间的关系。3.3.3数据库及其表的建立和使用使用Access程序建立Access数据库，建立相应表，设置各个表中具体字段名称、类型、主键、索引，设置各个表间的关系。3.3.4系统组成及数据环境(1)数据库：PersonnelInfo.mdb(2)表：员工－员工信息表，工资－工资表，部门－部门信息表，职务－职务信息表，工资类别－工资类别信息表(3)工程：PersonnelInfo.dpr：员工信息管理系统工程管理器(4)表单：Main.dfm－系统主界面Personnel.dfm－员工管理界面Wage.dfm－工资管理界面Department.dfm－部门管理界面Post.dfm－职务管理界面About.dfm－关于界面6word文档精品文档分享WageCategory.dfm－工资类型管理界面(5)程序：Main.pas－系统主程序Personnel.pas－员工管理程序Wage.pas－工资管理程序Department.pas－部门管理程序Post.pas－职务管理程序About.pas－关于程序WageCategory.pas－工资类型管理程序(6)数据环境：3.3.5数据库概念设计数据库概念设计主要采用E-R模型进展设计.E-R模型的关系是确定每一处理模块的实体、实体属性和实体间的联系。实体、属性、联系及数据构造描述如下：(1)员工管理模块实体：员工、部门、职务；属性：员工的属性有XX、员工编号、部门、职务、入职时间、性别、XX号、出生日期、学历、私人、工作及备注等；部门的属性有部门编号和部门名称；职务的属性有职务编号和职务名称。联系：员工与部门之间是多对一〔：1〕的关系；员工与职务之间也是多对一〔：1〕的关系。数据项：见数据库的物理设计。(2)工资管理模块7word文档精品文档分享实体：工资、工资类别；属性：工资的属性有员工编号、工资类别和工资金额；工资类别有工资类别编号、工资类别名称。关系：工资类别与工资这间是一对一〔1：1〕的关系。数据项：见数据库的物理设计。3.3.6数据库逻辑设计数据库的逻辑设计主要完成从E-R模型向数据逻辑模型的转换。首先将E-R模型中同一实体的所有属性放在同一记录类型中，变成记录的数据项；其次如果两个实体间有M:N的关系，除各自建立记录类型之外，还需增加一个记录类型，这一记录类型应包括两个实体各自的主键。逻辑模型标准化及总E-R图描述如下：员工〔员工编号、XX、部门编号、职务编号、入职时间、性别、XX号、出生日期、学历、私人、工作、备注〕；部门〔部门编号、部门名称、备注〕；职务〔职务编号、职务名称、备注〕；工资〔员工编号、工资类型编号、金额、备注〕；工资类别〔工资类别编号、工资类别名称、备注〕；用户〔用户名、密码、确认密码、备注〕。消除冗余数据和联系后，其系统的E-R图如下：8word文档精品文档分享XX入职时间性别XX号出生日期学历私人员工编号工作部门编号职务编号学生M员工档案NK工资类型工资工资类型编号工资类型名称员工编号工资类型编号工资金额3.3.7数据库物理设计数据库的物理设计将完成数据逻辑模型向数据物理模型的转换。每一记录类型确定为数据库中的一X表；记录类型中的数据项成为相应表中的字段，字段属性根据各字段特点设置；确定索引和表之间的联系。系统表构造描述如下：〔1〕员工表用于存放员工信息，包括员工编号、XX、部门编号、职务编号、入职时间、性别、XX号、出生日期、学历、私人、工作、备注。字段字段名称类型宽度必需索引说明1员工编号文本20是有无重复主键2XX文本10是3部门编号数字长整型4职务编号数字长整型5入职时间日期/时间9word文档精品文档分享字段字段名称类型宽度必需索引说明6性别文本27XX号文本208出生日期日期/时间9学历文本1010私人文本2011工作文本2012备注文本100〔2〕部门表用于存放员工的部门信息，包括部门编号、部门名称和备注。字段字段名称类型宽度必需索引说明1部门编号数字长整型是有无重复主键2部门名称文本20是3备注文本100〔3〕职务表用于存放员工的职务信息，包括职务编号、职务名称和备注。字段字段名称类型宽度必需索引说明1职务编号数字长整型是有无重复主键2职务名称文本20是3备注文本100〔4〕工资表用于存放员工的工资信息，包括员工编号、工资类别编号、金额和备注。字段字段名称类型宽度必需索引说明1员工编号文本20是有重复主键2工资类别编号数字长整型是有重复主键3金额数字单精度型4备注文本100〔5〕工资类别表用于存放员工的工资类别，包括工资类别编号、工资类别名称和备注。10word文档精品文档分享字段字段名称类型宽度必需索引说明1工资类别编号数字长整型是有无重复主键2工资类别名称文本20是3备注文本100〔6〕用户表用于存放系统的用户名和密码，包括用户名、密码和备注。字段字段名称类型宽度必需索引说明1用户名文本20是有无重复主键2密码文本30是3确认密码文本30是4备注文本1003.4输出设计(1)选择输出方式：显示终端、打印机；(2)确定输出格式：格式设计表达在各类报表中；(3)输出的主要形式：报表；(4)输出的内容：主要有员工信息、工资信息、部门信息、职务信息、工资类别信息和用户信息。3.5输入设计(1)输入方式设计①键盘输入和鼠标操作，为常规的数据录入方式；②磁盘传递数据。(2)用户界面设计〔详见各子模块用户界面〕①人机对话方式：通过屏幕、键盘、鼠标与系统对话，当操作错误时系统给出提示和警告。①菜单方式：设计成下拉式、上弹式、按钮式，功能选择：有光带移动、数字或字母选择、鼠标驱动。4.系统实现系统实施的最主要工作是程序设计，此外还包括了物理系统的实施、程序的调11word文档精品文档分享试等。本系统的程序设计由主程序和各模块表单程序等两大部份组成。12word文档精品文档分享4.1系统主程序流程开场输入密码N密码正确YY新增员工员工信息管理NY录入工资员工工资管理NY部门管理部门管理NY职务管理职务管理N工资类型管理Y工资类型管理NY用户管理用户管理N数据初始化Y数据初始化NY帮助信息关于系统开场13word文档精品文档分享4.2系统主界面设计4.3系统主程序设计unitMain;interfaceusesWindows,SysUtils,Classes,Graphics,Forms,Controls,Menus,StdCtrls,Dialogs,Buttons,Messages,ExtCtrls,ComCtrls,StdActns,ActnList,ToolWin,ImgList,DB,ADODB,cxControls,cxContainer,cxEdit,cxLabel;typeTMainForm=class(TForm)MainMenu:TMainMenu;File1:TMenuItem;Window:TMenuItem;14word文档精品文档分享Help:TMenuItem;FileExitItem:TMenuItem;WindowCascadeItem:TMenuItem;WindowTileItem:TMenuItem;WindowArrangeItem:TMenuItem;HelpAboutItem:TMenuItem;WindowMinimizeItem:TMenuItem;ActionList:TActionList;FileExit:TAction;WindowCascade1:TWindowCascade;WindowTileHorizontal1:TWindowTileHorizontal;WindowArrangeAll1:TWindowArrange;WindowMinimizeAll1:TWindowMinimizeAll;HelpAbout1:TAction;WindowTileVertical1:TWindowTileVertical;WindowTileItem2: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;procedureHelpAbout1Execute(Sender:TObject);procedureFileExitExecute(Sender:TObject);procedureFilePersonnelClick(Sender:TObject);procedureFileDepartmentClick(Sender:TObject);procedureFilePostClick(Sender:TObject);procedureFileWageCategoryClick(Sender:TObject);procedureFileWageClick(Sender:TObject);procedureFormActivate(Sender:TObject);procedureFileUserClick(Sender:TObject);procedureFileDataInitClick(Sender:TObject);private{Privatedeclarations}public15word文档精品文档分享{Publicdeclarations}end;varMainForm:TMainForm;ShowLogin:Boolean=True;implementation{$R*.dfm}usesLogin,Personnel,Department,Post,Wage,WageCategory,User,About;procedureTMainForm.FileExitExecute(Sender:TObject);beginClose;end;procedureTMainForm.HelpAbout1Execute(Sender:TObject);beginAboutBox.ShowModal;end;procedureTMainForm.FilePersonnelClick(Sender:TObject);varMDIPersonnel:TMDIPersonnel;i:integer;beginfori:=0toMDIChildCount-1doifMDIChildren[i]isTMDIPersonnelthenbeginMDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIPersonnel:=TMDIPersonnel.Create(Application);MDIPersonnel.Show;end;procedureTMainForm.FileDepartmentClick(Sender:TObject);16word文档精品文档分享varMDIDepartment:TMDIDepartment;i:integer;beginfori:=0toMDIChildCount-1doifMDIChildren[i]isTMDIDepartmentthenbeginMDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIDepartment:=TMDIDepartment.Create(Application);MDIDepartment.Show;end;procedureTMainForm.FilePostClick(Sender:TObject);varMDIPost:TMDIPost;i:integer;beginfori:=0toMDIChildCount-1doifMDIChildren[i]isTMDIPostthenbeginMDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIPost:=TMDIPost.Create(Application);MDIPost.Show;end;procedureTMainForm.FileWageCategoryClick(Sender:TObject);varMDIWageCategory:TMDIWageCategory;i:integer;beginfori:=0toMDIChildCount-1doifMDIChildren[i]isTMDIWageCategorythenbegin17word文档精品文档分享MDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIWageCategory:=TMDIWageCategory.Create(Application);MDIWageCategory.Show;end;procedureTMainForm.FileWageClick(Sender:TObject);varMDIWage:TMDIWage;i:integer;beginfori:=0toMDIChildCount-1doifMDIChildren[i]isTMDIWagethenbeginMDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIWage:=TMDIWage.Create(Application);MDIWage.Show;end;procedureTMainForm.FormActivate(Sender:TObject);beginifShowLoginthenbeginLoginBox.ShowModal;ifShowLoginthenClose;end;end;procedureTMainForm.FileUserClick(Sender:TObject);varMDIUser:TMDIUser;i:integer;beginfori:=0toMDIChildCount-1do18word文档精品文档分享ifMDIChildren[i]isTMDIUserthenbeginMDIChildren[i].BringToFront;ifMDIChildren[i].WindowState=wsMinimizedthenMDIChildren[i].WindowState:=wsNormal;Exit;end;MDIUser:=TMDIUser.Create(Application);MDIUser.Show;end;end.4.4子程序设计4.4.1系统登录unitLogin;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,StdCtrls;typeTLoginBox=class(TForm)ButtonLogin:TButton;ButtonCancel:TButton;LabelUser:TLabel;EditUser:TEdit;19word文档精品文档分享LabelPassword:TLabel;EditPassword:TEdit;ADOQueryLogin:TADOQuery;procedureButtonLoginClick(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureButtonCancelClick(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varLoginBox:TLoginBox;LoginTime:Integer=0;implementation{$R*.dfm}usesMain;procedureTLoginBox.ButtonLoginClick(Sender:TObject);beginif(EditUser.Text<>'')thenbegintryADOQueryLogin.Close;ADOQueryLogin.SQL.Clear;ADOQueryLogin.SQL.Add('SELECTCOUNT(*)FRO户WHERE用户名=:UserAND密码=:Password');ADOQueryLogin.Parameters.ParamByName('User').Value:=EditUser.Text;ADOQueryLogin.Parameters.ParamByName('Password').Value:=EditPassword.Text;ADOQueryLogin.Open;ifADOQueryLogin.Fields[0].AsInteger>=1thenbeginShowLogin:=False;Close;endelsebegin20word文档精品文档分享ShowMessage('户名或密码错误！');LoginTime:=LoginTime+1;ifLoginTime=3thenClose;end;finallyADOQueryLogin.Close;end;end;end;procedureTLoginBox.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;procedureTLoginBox.ButtonCancelClick(Sender:TObject);beginClose;end;end.4.4.2员工管理unitPersonnel;interfaceuses21word文档精品文档分享Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,cxStyles,cxCustomData,cxGraphics,cxFilter,cxData,cxDataStorage,cxEdit,cxDBData,cxGridCustomTableView,cxGridTableView,cxGridDBTableView,cxGridLevel,cxClasses,cxControls,cxGridCustomView,cxGrid,cxNavigator,StdCtrls,Grids,DBGrids,StrUtils,cxDBNavigator,cxGridCustomPopupMenu,cxGridPopupMenu,dxStatusBar,cxCalendar,cxDropDownEdit,cxCheckBox,cxRadioGroup,cxDBLookupComboBox;typeTMDIPersonnel=class(TForm)DataSourcePersonne:TDataSource;ADOQueryPersonne:TADOQuery;cxGrid1DBTableView1:TcxGridDBTableView;cxGrid1Level1:TcxGridLevel;cxGrid1:TcxGrid;cxDBNavigator1:TcxDBNavigator;cxGrid1DBTableView1DBColumn:TcxGridDBColumn;cxGrid1DBTableView1DBColumn1:TcxGridDBColumn;cxGrid1DBTableView1DBColumn2:TcxGridDBColumn;cxGrid1DBTableView1DBColumn3:TcxGridDBColumn;cxGrid1DBTableView1DBColumn4:TcxGridDBColumn;cxGrid1DBTableView1DBColumn5:TcxGridDBColumn;cxGrid1DBTableView1DBColumn6:TcxGridDBColumn;cxGrid1DBTableView1DBColumn7:TcxGridDBColumn;cxGrid1DBTableView1DBColumn8:TcxGridDBColumn;cxGrid1DBTableView1DBColumn9:TcxGridDBColumn;cxGrid1DBTableView1DBColumn10:TcxGridDBColumn;cxGrid1DBTableView1DBColumn11:TcxGridDBColumn;DataSourceDepartment:TDataSource;ADOQueryDepartment:TADOQuery;DataSourcePost:TDataSource;ADOQueryPost:TADOQuery;procedureADOQueryPersonnePostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureADOQueryPersonneBeforeRefresh(DataSet:TDataSet);private{Privatedeclarations}public{Publicdeclarations}end;22word文档精品文档分享implementation{$R*.dfm}usesmain;procedureTMDIPersonnel.ADOQueryPersonnePostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);beginifDataSet.Fields[0].AsString=''thenShowMessage('员工编号〞不能为空！')elseifAnsiContainsStr(e.Message,'复数据')thenShowMessage('员工编号〞不能重复！')elseifDataSet.Fields[1].AsString=''thenShowMessage('XX〞不能为空！')elseifDataSet.Fields[2].AsString=''thenShowMessage('部门编号〞不能为空！')elseifDataSet.Fields[3].AsString=''thenShowMessage('职务编号〞不能为空！')elseifDataSet.Fields[4].AsString=''thenShowMessage('入职时间〞不能为空！')elseShowMessage(e.Message);Action:=daAbort;end;procedureTMDIPersonnel.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;procedureTMDIPersonnel.ADOQueryPersonneBeforeRefresh(DataSet:TDataSet);beginADOQueryDepartment.Close;ADOQueryDepartment.Open;ADOQueryPost.Close;ADOQueryPost.Open;end;23word文档精品文档分享end.4.4.3部门管理unitDepartment;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,cxStyles,cxCustomData,cxGraphics,cxFilter,cxData,cxDataStorage,cxEdit,cxDBData,cxGridCustomTableView,cxGridTableView,cxGridDBTableView,cxGridLevel,cxClasses,cxControls,cxGridCustomView,cxGrid,cxNavigator,StdCtrls,Grids,DBGrids,StrUtils,cxDBNavigator,cxGridCustomPopupMenu,cxGridPopupMenu,dxStatusBar;typeTMDIDepartment=class(TForm)DataDepartment:TDataSource;ADOQueryDepartment:TADOQuery;cxGrid1DBTableView1:TcxGridDBTableView;24word文档精品文档分享cxGrid1Level1:TcxGridLevel;cxGrid1:TcxGrid;cxDBNavigator1:TcxDBNavigator;cxGrid1DBTableView1DBColumn1:TcxGridDBColumn;cxGrid1DBTableView1DBColumn2:TcxGridDBColumn;procedureADOQueryDepartmentPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}public{Publicdeclarations}end;implementation{$R*.dfm}usesmain;procedureTMDIDepartment.ADOQueryDepartmentPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);beginifDataSet.Fields[1].AsString=''thenShowMessage('部门名称〞不能为空！')elseifAnsiContainsStr(e.Message,'复数据')thenShowMessage('部门名称〞不能重复！')elseShowMessage(e.Message);Action:=daAbort;end;procedureTMDIDepartment.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;end.25word文档精品文档分享4.4.4职务管理unitPost;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,cxStyles,cxCustomData,cxGraphics,cxFilter,cxData,cxDataStorage,cxEdit,cxDBData,cxGridCustomTableView,cxGridTableView,cxGridDBTableView,cxGridLevel,cxClasses,cxControls,cxGridCustomView,cxGrid,cxNavigator,StdCtrls,Grids,DBGrids,StrUtils,cxDBNavigator,cxGridCustomPopupMenu,cxGridPopupMenu,dxStatusBar;typeTMDIPost=class(TForm)DataPost:TDataSource;ADOQueryPost:TADOQuery;cxGrid1DBTableView1:TcxGridDBTableView;cxGrid1Level1:TcxGridLevel;cxGrid1:TcxGrid;cxDBNavigator1:TcxDBNavigator;cxGrid1DBTableView1DBColumn1:TcxGridDBColumn;26word文档精品文档分享cxGrid1DBTableView1DBColumn2:TcxGridDBColumn;procedureADOQueryPostPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}public{Publicdeclarations}end;implementation{$R*.dfm}usesmain;procedureTMDIPost.ADOQueryPostPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);beginifDataSet.Fields[1].AsString=''thenShowMessage('职务名称〞不能为空！')elseifAnsiContainsStr(e.Message,'复数据')thenShowMessage('职务名称〞不能重复！')elseShowMessage(e.Message);Action:=daAbort;end;procedureTMDIPost.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;end.27word文档精品文档分享4.4.5工资管理28word文档精品文档分享4.4.6工资类别管理unitWageCategory;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,cxStyles,cxCustomData,cxGraphics,cxFilter,cxData,cxDataStorage,cxEdit,cxDBData,cxGridCustomTableView,cxGridTableView,cxGridDBTableView,cxGridLevel,cxClasses,cxControls,cxGridCustomView,cxGrid,cxNavigator,StdCtrls,Grids,DBGrids,StrUtils,cxDBNavigator,cxGridCustomPopupMenu,cxGridPopupMenu,dxStatusBar;typeTMDIWageCategory=class(TForm)DataSourceWageCategory:TDataSource;ADOQueryWageCategory:TADOQuery;cxGrid1DBTableView1:TcxGridDBTableView;cxGrid1Level1:TcxGridLevel;cxGrid1:TcxGrid;cxDBNavigator1:TcxDBNavigator;cxGrid1DBTableView1DBColumn1:TcxGridDBColumn;29word文档精品文档分享cxGrid1DBTableView1DBColumn2:TcxGridDBColumn;procedureADOQueryWageCategoryPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}public{Publicdeclarations}end;implementation{$R*.dfm}usesmain;procedureTMDIWageCategory.ADOQueryWageCategoryPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);beginifDataSet.Fields[1].AsString=''thenShowMessage('工资类别名称〞不能为空！')elseifAnsiContainsStr(e.Message,'复数据')thenShowMessage('工资类别名称〞不能重复！')elseShowMessage(e.Message);Action:=daAbort;end;procedureTMDIWageCategory.FormClose(Sender:TObject;varAction:TCloseAction);beginAction:=caFree;end;end.30word文档精品文档分享4.4.7用户管理unitUser;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,ADODB,cxStyles,cxCustomData,cxGraphics,cxFilter,cxData,cxDataStorage,cxEdit,cxDBData,cxGridCustomTableView,cxGridTableView,cxGridDBTableView,cxGridLevel,cxClasses,cxControls,cxGridCustomView,cxGrid,cxNavigator,StdCtrls,Grids,DBGrids,StrUtils,cxDBNavigator,cxGridCustomPopupMenu,cxGridPopupMenu,dxStatusBar,cxTextEdit;typeTMDIUser=class(TForm)DataSourceUser:TDataSource;ADOQueryUser:TADOQuery;cxGrid1DBTableView1:TcxGridDBTableView;cxGrid1Level1:TcxGridLevel;cxGrid1:TcxGrid;cxDBNavigator1:TcxDBNavigator;31word文档精品文档分享cxGrid1DBTableView1DBColumn:TcxGridDBColumn;cxGrid1DBTableView1DBColumn1:TcxGridDBColumn;cxGrid1DBTableView1DBColumn2:TcxGridDBColumn;cxGrid1DBTableView1DBColumn3:TcxGridDBColumn;procedureADOQueryUserPostError(DataSet:TDataSet;E:EDatabaseError;varAction:TDataAction);procedureFormClose(Sender:TObject;varAction:TCloseAction);procedureADOQueryUserBeforePost(DataSet:TDataSet);procedurecxDBNavigator1ButtonsButtonClick(Sende