高校人事管理系统_课程设计报告

1、咼校人事管理系统课程设计报告目录前言3系统设计背景3小组分工3第一章：系统的总体设计4系统任务与目标4系统任务4系统目标4系统需求分析5功能需求5性能需求5总体设计6系统层次模块图6数据库设计7第二章系统的详细设计10系统的项目文件103.2主控制平台的界面效果113.3系统设置模块界面效果1219213.4根本信息模块各个功能的界面效果3.5工资与考核模块各个功能的界面效果3.6查询模块各个功能的界面效果22第三章课程设计总结25、八 、,刖言随着计算机技术的飞速开展，计算机在高校管理中应用的普与，利用计算机实现高校人事管理势在必行。对于高校来说，利用计算机支持高校高效率完成人事管理的日常事

2、务，是适应现代高校制度的要求， 推动高校人事管理走向科学化、规X化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、某某性好、寿命长、本钱低等。这些优点能够极大的提高人事管理的效率，也是高校科学化、正规化的管理与世界接轨的重要条件。本系统结合高校的实际管理制度，经过实际的需求分析，采用功能强大的 Delphi7.0作为开发工具而开发出的单机版高校人事管理系统。组员某某：XX1个人主要工作主要负责系统的总体构架、根本信息模块、工资与考核模块、查询模块的设计与功能实 现。2主要收获熟练掌握了 Delphi7.0的相关控件的功能，能够独自开发小的系统。3自我评定 优 良

3、中 与格 不与格组员某某：XX1个人主要工作主要负责系统的需求分析、系统设置模块、根本信息模块、关于与帮助模块的设计与功 能实现。2主要收获熟练掌握了 Delphi7.0的相关控件的功能，能够独自开发小的系统。3自我评定 优 良 中 与格 不与格第一章：系统的总体设计系统任务高校人事管理系统主要负责管理职工的根本信息、职工的工资与绩效考核、职工就职信息、职工的离职信息和职工的退休相关的信息等。 该系统主要包括系统设置、根本信息、 工资与考核、查询和关于与帮助五大主要功能模块。 以下分别对系统的功能和模块进展概述。系统设置，主要负责高校人事管理系统的用户管理、权限设置、更改密码和退出。根本信息，

4、主要负责高校人事管理系统的部门信息、职工根本信息、职工就职信息、职工离职信息、职工退休信息五个功能模块。工资与考核，主要负责高校人事管理系统的职工工资信息和职工绩效考核内容的记录。查询，主要负责高校人事管理系统的职工根本信息查询、职工就职信息查询、职工工资信息查询和职工绩效考核信息查询四个功能模块。高校人事管理系统是为了满足高校对高校人事相关信息的管理要求而开发的。一般而言，高校人事管理系统应达到一下目标。能够管理高校的所有人员的根本信息，能够实现人员根本信息的添加、修改、 删除、保存功能。能够管理高校所有人员的就职信息，包括职工所在部门信息、 就职时间信息的添加、修改、删除、保存功能。能够管

5、理高校所有人员的离职信息，包括职工离职原因信息、离职时间信息、 离职去向信息的添加、修改、删除、保存功能。能够管理职工的绩效考核结果的信息，包括考核内容、考核人、绩效成绩信息的添加、修改、删除、保存功能。能够快速地进展信息查询。本系统需要实现一下一些根本功能：能够管理高校的所有人员的根本信息，能够实现人员根本信息的添加、修改、 删除、保存功能。能够管理高校所有人员的就职信息，包括职工所在部门信息、就职时间信息的添加、修改、删除、保存功能。能够管理高校所有人员的离职信息，包括职工离职原因信息、离职时间信息、离职去向信息的添加、修改、删除、保存功能。能够管理高校所有人员的退休信息，包括职退休时间信

6、息的添加、修改、删除、保存功能。能够管理职工的绩效考核结果的信息，包括考核内容、考核人、绩效成绩信息 的添加、修改、删除、保存功能。能够快速地进展信息查询。系统的运行对运行环境的要求:1、硬件环境处理器：In ter Pe ntium 166 MX或更高。内存：32MB.硬盘空间：1GB显卡：SVGA显示适配器。2、软件环境操作系统：Win dows 98/2000/XP数据库：Microsoft Access 2000.系统层次模块图高校人事管理系统可以分为五个主要功能模块： 系统设置、根底信息、工资与 考核、查询、关于与帮助。五大主要功能模块又分别对应了各自的子模块，如图 1 所示：高校人

7、事管理系统数据库设计职工就职信息职工退休信息职工根本信息查询职工就职信息查询W工工资信息查询绩效考核信息查询1 、ADO综述本系统是通过对象模型 ADO来访问数据库的,ADO使我们能够编写应用程序，以通过OLE.DB提供者访问和操作数据库服务器中的数据。ADO最主要的优点是易于使用、速度快、内存支出少和磁盘遗迹小。ADO支持建立客户端/服务器和基于Web的应用程序的关键功能。ADO的目标是访问、编辑和更新数据源。3、表结构实现根据系统功能设计的要求以与功能模块的划分，对于系统用户信息数据库,可以列出以下数据项和数据结构：用户信息表的定义字段名称字段描述数据类型是否为空用户账号用户账号文本主键用

8、户某某用户某某文本密码密码文本级别级别文本备注备注文本职工表的定义字段名称字段描述数据类型是否为空职工编号职工编号文本主键职工某某职工某某文本性别性别文本年龄年龄数字级别级别文本文本政治面貌政治面貌文本所属部门所属部门文本备注备注文本部门信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键部门名称部门名称文本负责人负责人文本备注备注文本就职信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键职工编号职工编号文本主键就职时间就职时间文本备注备注文本离职信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键职工编号职工编号文本主键离职时间离职时间时间离

9、职去向离职去向文本离职原因离职原因文本备注备注文本退休信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键职工编号职工编号文本主键退休时间退休时间时间备注备注文本工资信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键职工编号职工编号文本主键工资工资货币状态状态文本备注备注文本绩效考核信息表的定义字段名称字段描述数据类型是否为空部门编号部门编号文本主键职工编号职工编号文本主键绩效考核绩效考核文本考核内容考核内容文本考核人考核人文本考核时间考核时间时间备注备注文本第二章系统的详细设计为此我根据已有的需求信息和总体设计，可以进展系统的详细设计和实现。们建立了一个De

10、lphi工程。系统的设计和实现如下：每一个Delphi工程都有一个项目文件，在本系统中项目文件如下所示:program RSGL;usesForms,Unit_Main in 'Unit_Main.pas' frm_Main,Unit_JglnfoMag in 'Unit_JgInfoMag.pas' frm_JglnfoMag,Un it_YHGL in 'U ni t_YHGL.pas' frm_YHGL,Un it_BMXXGL in 'U ni t_BMXXGL.pas' frm_Bmxx,Un it_Zgxx in &#

11、39;Un it_Zgxx.pas' Form_Zgxx,Uni t_zggzxx in 'Uni t_zggzxx.pas' Form_zggzxx,Un it_dl in 'Un it_dl.pas' Form_dl,Un it_zgjzxx in 'Uni t_zgjzxx.pas' Form_zgjzxx,Unit_jxkh in 'Unit_jxkh.pas' Formxkh,Uni t_zgxxcx in 'Un it_zgxxcx.pas' Form_zgxxcx,Un it_zgjzxxcx

12、 in 'Uni t_zgjzxxcx.pas' Form_zgjzxxcx,Uni t_zggzxxcx in 'Uni t_zggzxxcx.pas' Form_zggzxxcx,Uni t_jxkhxxcx in 'Uni t_jxkhxxcx.pas' For m_j xkhxxcx,Uni t_qxgl in 'Uni t_qxgl.pas' Form_qxgl,Un it_zglzxx in 'Uni t_zglzxx.pas' Form_zglzxx,Uni t_zgtxxx in 'Uni

13、t_zgtxxx.pas' Form_zgtxxx;$R *.resbeginApplicati on.ln itialize;Applicati on. CreateForm(Tfrm_Ma in, frm_Mai n);Applicatio n.Run; en d.3.2主控制平台的界面效果主控制平台使用简单和直观的布局如下列图。主控制平台主要实现对模块的调用和显示工作。主窗体的菜单双击MainMenul控件，将弹出菜单编辑窗口， 在菜单编辑窗口中按照模块结构来编辑系统的主要单项。3.3系统设置模块界面效果用户管理功能包括用户信息的添加、修用户管理功能主要负责对用户根本信息的维护,

14、 改、删除、保存等。用户信息管理的主要代码:un it Uni t_YHGL;in terfaceusesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols, Forms,Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB;typeTfrm_YHGL = class(TForm)Pan el1: TPa nel;Label1: TLabel;o o o o o oDBGrid1: TDBGrid;DataSource1: TDataSource;AD

15、OQuery1: TADOQuery;procedure btn _addClick(Se nder: TObject);procedure btn_MdClick(Se nder: TObject);procedure DBGrid1CellClick(Colum n: TColum n);procedure btn _delClick(Se nder: TObject);procedure btn _saveClick(Se nder: TObject);procedure FormClose(Se nder: TObject; var Acti on: TCloseAct ion);pr

16、ocedure FormCreate(Sender: TObject);private Private declarations public Public declarati ons en d;con stnone: In teger=0;add:I nteger=1;upd:I nteger=2;del:I nteger=3;save:I nteger=4;varope nType:l nteger;frm_YHGL: Tfrm_YHGL;impleme ntati on$R *.dfmprocedure Tfrm_YHGL.btn_addClick(Se nder: TObject);b

17、eginedt_Yhzh.Clear;edt_Yhxm.Clear;edt_Mm1.Clear;edt_Mm2.Clear;Mem_B z. Clear;btn_Md.E nabled:=False;btn _del.E nabled:=False;btn_save.E nabled:=True;ope nType:=add;edt_Yhzh.ReadO nly:= False;edt_Yhxm.ReadO nly:= False;edt_Mm1.ReadO nly:= False;edt_Mm2.ReadO nly:= False;Mem_B z.ReadO nly:= False;edt_

18、Yhzh.SetFocus;en d;procedure Tfrm_YHGL.btn_MdClick(Se nder: TObject);beginedt_Yhzh.E nabled:=False;edt_Mm1.ReadO nly:= False;edt_Mm2.ReadO nly:= False;edt_Yhxm.ReadO nly:= False;Mem_B z.ReadO nly:= False;btn _add.E nabled := False;btn _del.E nabled := False;btn _save.E nabled := True;Open Type:=upd;

19、edt_Yhxm.SetFocus;end;procedure Tfrm_YHGL.DBGrid1CellClick(Colu mn: TColum n);beginif ADOQuery1.RecordCou nt=O then Exit;edt_Yhzh.Text:= ADOQuery1.FieldByName('edt_Yhxm.Text:= ADOQuery1.FieldByName('用户账号').AsString;用户某某').AsString;edt_Mm1.Text:= ADOQuery1.FieldByName('密码').As

20、String;edt_Mm2.Text:= ADOQuery1.FieldByName('密码').AsString;cmb_Yh.lteml ndex:=cmb_Yh.ltems.l ndexOf(ADOQuery1.FieldByName('').AsStri ng);Mem_Bz.Text:= ADOQuery1.FieldByName(' 备注').AsStri ng;btn _add.E nabled := True;btn_Md.E nabled:= True;btn _save.E nabled := False;en d;proc

21、edure Tfrm_YHGL.btn_delClick(Se nder: TObject); beginif edt_Yhzh.Text = '' then Exit;ADOQuery1.Delete;edt_Yhzh.Clear;edt_Yhxm.Clear;edt_Mm1.Clear;edt_Mm2.Clear;Mem_B z. Clear;en d;procedure Tfrm_YHGL.btn_saveClick(Se nder: TObject); beginif ope nType=add the nbeginif edt_Yhzh.Text=''

22、 the nbeginShowMessage('请输入用户账号！');Exit;en d;if edt_Yhxm.Text=" thenbegin请输入用户某某！');ShowMessage('Exit;End ;if edt_Mm1.Text='' the nbeginShowMessage('请输入密码！');Exit;en d;if edt_Mm2.Text='' the nbeginShowMessage('请再次输入密码！');Exit;en d;if Trim(edt_Mm1.

23、Text)<>Trim(edt_Mm2.Text) then beginShowMessage('两次输入的密码不一致！');Exit;en d;if cmb_Yh.Text=" the nbeginShowMessage('请选择用户级别！');Exit;en d;用户账号').AsString:=edt_Yhzh.Text; 用户某某').AsString:=edt_Yhxm.Text; 密码').AsString:=edt_Mm1.Text;级别').AsString:=cmb_Yh.Text;备注&#

24、39;).AsString:=Mem_Bz.Text;ADOQuery1.l nsert;ADOQuery1.FieldByName('ADOQuery1.FieldByName('ADOQuery1.FieldByName('ADOQuery1.FieldByName('ADOQuery1.FieldByName(' btn_save.E nabled:=False;btn _add.E nabled:=true;btn_Md.E nabled:=true;btn _del.E nabled:=true;ShowMessage（'保存成功！&#

25、39;）;ADOQueryl.Post;ADOQueryl.close;ADOQuery1.ope n;end ;if ope nType=upd the nbeginif ADOQuery1.Locate（'用户账号',edt_Yhzh.Text,loPartialKey） thenbeginif edt_Yhxm.Text='' the nbeginShowMessage（'请输入用户某某！）；Exit;en d;if edt_Mm1.Text='' the nbeginShowMessage（' 请输入密码！'）;E

26、xit;en d;if edt_Mm2.Text='' thenbeginShowMessage（'请再次输入密码！');Exit;end;if Trim（edt_Mm1.Text）<>Trim（edt_Mm2.Text） the nbeginShowMessage（'两次输入的密码不一致！'）;Exit;en d;if cmb_Yh.Text='' the nbeginShowMessage（'请选择用户级别！'）;Exit;en d;ADOQueryl.Edit;ADOQuery1.FieldByN

27、ame('ADOQuery1.FieldByName('ADOQuery1.FieldByName('ADOQuery1.FieldByName(' ADOQuery1.Post;ADOQuery1.close;ADOQuery1.ope n;Open Type := none;btn _add.E nabled := True;btn _del.E nabled := True;btn _save.E nabled := False;ShowMessage('保存成功！'); edt_Yhzh.Clear;edt_Yhxm.Clear;edt_

28、Mm1.Clear;edt_Mm2.Clear;Mem_B z. Clear;cmb_Yh.lteml ndex:=-1;Mem_Bz.Clear;edt_Yhzh.Read On ly:= True; edt_Yhxm.ReadO nly:= True; edt_Mm1.ReadO nly:= True; edt_Mm2.ReadO nly:= True; Mem_Bz.ReadO nly:= True; edt_Yhzh.E nabled:=True;btn _save.E nabled:=true;btn _add.E nabled:=true;btn_Md.E nabled:=fals

29、e;btn _del.E nabled:=true;enden d;用户某某').AsString:=edt_Yhxm.Text;密码').AsStri ng:=edt_Mm1.Text;级别').AsStri ng:=cmb_Yh.Text;备注').AsStri ng:=Mem_Bz.Text;en d;procedure Tfrm_YHGL.FormClose(Se nder: TObject; var Actio n: TCIoseActio n); beginfrm_YHGL.Release;en d;procedure Tfrm_YHGL.FormCreate(Se nder: TObject);beginMem_Bz.Clear;en d;en d.3.4根本信息模块各个功能的界面效果部门信息职工根本信息就职信息离职信息退休信息3.5工资与考核模块各个功