delphi课程设计报告书

1、.word可编辑.学号 094163054州犬学Chang疋hou University课程设计报告课程名称：Delphi程序设计题目：人事管理系统姓名：学院：_专业班级： 计算机091指导教师：课程设计任务书班级 姓名 李琳蕊一、设计题目：人事管理系统设计二、设计内容：本设计是制作一个人事管理系统，在该程序中具体功能要求见附件 。三、基本要求：1、对源程序编写的要求：（1） 能够实现任务书中的功能；（2）尽可能使界面友好、直观、易操作；（3） 源程序要有适当的注释，使程序容易阅读。2、撰写课程设计报告”，撰写要求见附件实习报告撰写排版要求3、课程设计验收要求：（1）运行所设计的系统；（2）回

2、答有关问题；(3) 提交课程设计报告和任务书(4) 提交源程序四、进度安排：1、 系统分析、设计准备阶段：4学时2、编程调试阶段：32学时3、总结和书写报告阶段：2学时4、考核阶段：2学时专业.专注指导教师：刘俊2011 年 1 月_6_日人事管理系统1、需求分析 52、程序要求51. 功能模块图5.2 .系统界面62:登陆界面73：124：更改界面205： MDICHild266：283. 创建数据库421、数据库的选择：ACCESS 2003数据库 42.2、建表424、系统设计 465、系统的使用说明466、心得体会477 :致谢47参考文献47人事管理系统1、需求分析1新员工资料输入。

3、2. 自动分配员工号，并且设置初始的用户密码，能够分配权限执行不同的 模块。3. 人事变动的详细记录，包括岗位和部门的调整。4员工信息的查询和修改，包括员工个人信息和密码等。5.帮助。2、程序要求1. 功能模块图2. 系统界面1:进入界面;代码：procedure Tqdform.FormCreate(Sender: TObject);varwin dowid:hw nd;begi nwi ndowid:=fi ndwi ndow( nil,F_mai n);if win dowid0 the nbeg inMessageBox(ha ndle, 错误：系统已经启动！,系统启动错误,MB_OK

4、or MBCONERROR);/ showwi ndow(fou ndwin ,9);halt;end;end;end.人事管理系统2:登陆界面登录人事管理系统:漲务器备创：.J用户勿 密码:B”登录；：収消代码:unit log in;in terfaceusesForms,Windows, Messages, SysUtils, Classes, Graphics, Controls,Dialogs,StdCtrls,l nifiles;typeTF_log in = class(TForm)Labell: TLabel;Label2: TLabel;Label3: TLabel;Labe

5、l4: TLabel;i_server_add: TComboBox;i_user: TEdit;i_passwd: TEdit;Butto n1: TButt on;Butto n2: TButt on;procedure Butt on 1Click(Se nder: TObject);procedure FormShow(Se nder: TObject);procedure FormCreate(Se nder: TObject);procedure FormClose(Se nder: TObject; var Actio n: TCloseAct ion);private Priv

6、ate declaratio ns public Public declarati ons end;varF_logi n: TF_log in;In ifile:TI nifile;impleme ntati onuses DataModule, crypt, mainwin;$R *.DFMprocedure TF_logi n.Butto n1Click(Se nder: TObject);varpasswd, passwrd:Stri ng;begi napplicatio n.CreateForm(TDataModule1,DataModule1);With DataModule1

7、dobeg inDatabase.C onn ected:=False;Database.AliasName:=i_server_add.Text;Database.C onn ected:=True;T_user.Filter:=ID=”+i_user.Text+”；T_user.Filtered:=True;T_user.Ope n;.word可编辑.if T_user.RecordCo un t=1 the nbeg inpasswd:=i_passwd.Text;if len gth(passwd)5 the nbeg inpasswd:=Copy(passwd+passwd,1,10

8、); 统一密码长度passwd:=Encrypt(passwd,123); 加密end;passwrd:=T_userPASSWD;if (passwrd=passwd) and (T_userAUTHORITY=3) the nbegi nF_mai n.logi n: =True;endelseApplication.MessageBox(请重新输入密码。+#13+注意大小写！,密码错误：MB_OK);endelseApplication.MessageBox(请确认用户名大小写是否正确！,无此用户,MB_OK);T_user.Close;end;if F_mai n.logi n the

9、 n Fogin .Closeelse DataModulel.Free;end;procedure TFogin .FormShow(Se nder: TObject);begi nself.i_server_add.SetFocus;end;procedure TF_logi n.Fo rmCreate(Se nder: TObject);begi nIn ifile:=T In ifile.Create(extractfilepath(paramstr(O)+SERVER.i ni);if fileexists(extractfilepath(paramstr(0)+SERVER.i n

10、i) the nbegi ni_server_add.Text:=i nifile.ReadStri ng(SERVER,SERVER NAME,);i_user.Text:=i nifile.ReadStri ng(SERVER,USER NAME,);end;end;procedure TF_logi n.Fo rmClose(Se nder: TObject; var Actio n: TCloseAct ion);begi nif n ot fileexists(extractfilepath(paramstr(0)+SERVER.i ni) the nInifile:=TInifil

11、e.Create(extractfilepath(paramstr(O)+SERVER.ini);in ifile.WriteStri ng(SERVER,SERVER NAME,i_server_add.Text);in ifile.WriteStri ng(SERVER,USER NAME,i_user.Text);in ifile.Free;end;End.代码：unit add;in terfaceusesWin dows, Messages, SysUtils, Classes, Graphics, Con trols, Forms, Dialogs,childwi n, StdCt

12、rls, DBCtrls, Mask, ExtCtrls;typeTF_add = class(TMDIChild)Label1: TLabel;Label2: TLabel;Label3: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;i_departme nt: TDBLookupComboBo x;i_job: TDBLookupComboBo

13、x;i_edu_level: TDBLookupComboBox;Butto n1: TButt on;i_user: TDBEdit;i_n ame: TDBEdit;i_birthday: TDBEdit;i_specialty: TDBEdit;i_address: TDBEdit;i_tel: TDBEdit;i_email: TDBEdit;i_remark: TDBMemo;i_passwd: TEdit;i_sex: TDBRadioGroup;DBLookupComboBox1: TDBLookupComboBox;procedure FormCreate(Se nder: T

14、Object);procedure Butt on 1Click(Se nder: TObject);procedure FormClose(Se nder: TObject; var Actio n: TCloseActio n); private Private declarati ons procedure Add In it;public Public declarati ons en d;varF_add: TF_add;impleme ntati onuses DataModule, mainwin, crypt;$R *.DFMprocedure TF_add.Add In it

15、;varcoun ter:i nteger;id:Stri ng;beginWith DataModule1 dobegin/生成员工号T_cou nter.Filter:=ID=P：T_co un ter.Filtered:=True;T_co un ter.Ope n;cou nter:=T_cou nterCOUNTER_VALUE; 专业.专注.word可编辑.id:=00000+l ntT oStr(cou nter); id:=P+Copy(id,le ngth(id)-4,5);/增加新记录T_add_user.Ope n;T_add_user.Appe nd;T_add_use

16、rID:=id;T_add_userSEX:=M：T_add_userSTATE:=T;i_passwd.Text:=id;en d;en d;procedure TF_add.FormCreate(Se nder: TObject);beginF_ma in. M_add.E nabled:=False;F_ma in. TB_add.E nabled:=False;Width:=272;Height:=469;datamodule1.T_departme nt.Ope n;With DataModule1 dobeginif not T_departme nt.Active the n T

17、_departme nt.Ope n;if not T_job.Active the n T_job.Ope n;if not T_edu_level.Active the n T_edu_level.Ope n;en d;AddI nit;en d;procedure TF_add.Butt on 1Click(Se nder: TObject);varpasswd:Stri ng;coun ter:I nteger;beginif len gth(i_ name.Text)0 the nbeginpasswd:=i_passwd.Text;passwd:=Copy(passwd+passw

18、d,1,10);passwd:=E ncrypt(passwd,123);With DataModule1 dobegin/累加员工编号计数器T_coun ter.Filter:=ID=P;T_co un ter.Filtered:=True;专业.专注.word可编辑.T_cha ngeID:=co un ter;T_co un ter.Edit;T_cou nterCOUNTER_VALUE:=T_cou nterCOUNTER_VALUE+1;T_co un ter.Post;T_co un ter.Close;/增加员工个人信息记录T_add_user.Edit;T_add_userP

19、ASSWD:=passwd;T_add_user.Post;/获取人事变动记录号T_coun ter.Filter:=ID=”C”：T_co un ter.Filtered:=True;T_co un ter.Ope n;coun ter:=T_cou nterCOUNTER_VALUE;In c(co un ter);T_co un ter.Edit;T_cou nterCOUNTER_VALUE:=cou nter;T_co un ter.Post;T_co un ter.Close;/追加人事变动记录T_cha nge.Ope n;T_change.Append;T_cha ngePER

20、SON:=i_user.Text;T_cha ngeCHANGE:=2：T_cha ngeRECORD_TIME:=Now;T_changeDESCRIPTION:=加入公司。；T_cha nge.Post;T_cha nge.Close;en d;AddI nit;en d;en d;procedure TF_add.FormClose(Se nder: TObject; var Action: TCloseAct ion);beginin herited;F_mai n.M _add.E nabled:=True;F_mai n.TB_add.E nabled:=True;With Dat

21、aModule1 dobeginT_add_user.Ca ncel;T_add_user.Close;en d;专业.专注.word可编辑.end;End.4:更改界面员工号：個密码：j姓名：性别r男广女生日：|i_birthd刮 咅B fit |DBLookupComboBo1职 #： |i_iob艷教育水平；|i_edu_tevel专业：|i_5pecialty 住址* si_3ddres&电话；|lSiE-mail； Mmail 备注；：-：i remaik埴加代码：unit change;in terfaceusesWin dows, Messages, SysUtils

22、, Classes, Graphics, Con trols, Forms, Dialogs, childwi n, StdCtrls, ExtCtrls, DBCtrls, Mask;typeTF_cha nge = class(TMDIChild)Label1: TLabel;id: TEdit;GroupBox1: TGroupBox;Label2: TLabel;Label3: TLabel;Label4: TLabel;i_cha nge: TRadioGroup;Butto n1: TButt on;Label5: TLabel;i_departme nt: TDBLookupCo

23、mboBo x;i_n ame: TDBEdit;i_job: TDBLookupComboBox;Label6: TLabel;i_descriptio n: TMemo;i_time: TMaskEdit;procedure i_idCha nge(Se nder: TObject);procedure FormCreate(Se nder: TObject);procedure FormClose(Se nder: TObject; var Actio n: TCloseActio n);procedure Butt on 1Click(Se nder: TObject);private

24、 Private declarati ons procedure Changein it;public Public declarati ons en d;varF_cha nge: TF_cha nge;impleme ntati on uses DataModule, mainwin;$R *.DFMprocedure TF_cha nge.Cha ngeln it;begin/清空员工号输入框/关闭员工查询数据表/默认员工变动为职务变更id.Text:=;DataModule1.T_user.Close;i_cha nge.l tem in dex:=0;i_time.Text:=Dat

25、eToStr(Now); / 加入当前时间 i_description.Clear;/ 清空描述en d;procedure TF_cha nge.i_idCha nge(Se nder: TObject); beginWith DataModule1 dobeginT_user.Filter:=ID=”+i_id.Text+”；T_user.Filtered:=True;T_user.Ope n;en d;en d;procedure TF_cha nge.FormCreate(Se nder: TObject); beginF_ma in. M_cha nge.E nabled:=Fals

26、e;F_ma in. TB_cha nge.E nabled:=False;Width:=282;Height:=429;With DataModule1 dobeginif not T_departme nt.Active the n T_departme nt.Ope n;if not T_job.Active the n T_job.Ope n;en d;Changein it;en d;procedure TF_cha nge.FormClose(Se nder: TObject; var Action: TCloseActi on);beginin herited;/继承父类的关闭事

27、件F_main.M_change.Enabled:=True;/ 恢复菜单的使用F_main.TB_change.Enabled:=True;/ 恢复按钮的使用en d;procedure TF_cha nge.Butt on 1Click(Se nder: TObject);varcounter:integer;/ 保存计数器beginWith DataModulel do/ 设置默认前缀为 DataModulelbeginif T_user.RecordCount=1 then/ 判断是否存在该员工begin/获取人事变动记录号专业.专注.word可编辑.T_co un ter.Filte

28、red:=True;T_co un ter.Ope n;coun ter:=T_cou nterCOUNTER_VALUE;coun ter:=co un ter+1;T_co un ter.Edit;T_cou nterCOUNTER_VALUE:=cou nter; /把新的计数器的值写入表中T_co un ter.Post;/保存表的记录T_co un ter.Close;/关闭表/追加人事变动记录T_user.Edit;if i_cha nge.l tem In dex=1 the nT_userSTATE:=F;/取消员工帐号T_user.Post;/保存T_cha nge.Ope

29、n;/修改人事变动记录T_change.Append;T_cha ngeID:=co un ter;T_cha ngePERSON:=i_id.Text;T_cha ngeCHANGE:=l ntToStr(i_cha nge.lteml ndex);T_cha ngeRECORD_TIME:=StrToDate(i_time.Text);T_cha ngeDESCRIPTION:=i_descriptio n.Text;T_cha nge.Post;/保存T_cha nge.Close;/关闭Cha ngel nit;/在初始化表单endelseApplication.MessageBox（

30、请确认员工号!,输入错误,MB_OK）;en d;end;End.5:MDICHild代码：unit Childwin;in terfaceuses Win dows, Classes, Graphics, Forms, Con trols, StdCtrls;typeTMDIChild = class(TForm)procedure FormClose(Se nder: TObject; var Action: TCloseAct ion);private Private declarati ons public Public declarati ons en d;impleme ntati

31、 on$R *.DFMprocedure TMDIChild.FormClose(Se nder: TObject; var Actio n: TCloseActio n);beginActio n := caFree;en d;专业.专注End.1汽:Dw怕ba沖HT_userD_usein-+T_add_u5efDS_dd_usernT_counterT_changedDS_chargednnT_departmentDS_dep artmentT_changenH4、T_iobDS_iobT_u$ei_2DS_user_2-+HCD1*4、1 edu levelDS edu levelT_

32、changsjist D S_change=list数据连接代码：unit DataModule;in terfaceusesWin dows, Messages, SysUtils, Classes, Graphics, Con trols, Forms, Dialogs,Db, DBTables;typeTDataModulel = class(TDataModule)Database: TDatabase;T_user: TTable;T_add_user: TTable;DS_add_user: TDataSource;T_co un ter: TTable;T_department:

33、 TT able;DS_departme nt: TDataSource;T_job: TTable;T_edu_level: TTable;DS_job: TDataSource;DS_edu_level: TDataSource;T_change: TT able;DS_user: TDataSource;T_user_2: TTable;DS_user_2: TDataSource;T_cha nge_list: TTable;DS_cha nge_list: TDataSource;T_cha nged: TTable;DS_cha nged: TDataSource;private

34、Private declarati ons public Public declarati ons en d;varDataModulel: TDataModulel;impleme ntati on$R *.DFMEnd.7口设计代码： About, log in, DataModule, add, cha nge, search;procedure TF_ma in. M_aboutClick(Se nder: TObject); beginAboutBox.ShowModal;en d;procedure TF_ma in. M_c onn ectClick(Se nder: TObje

35、ct); beginapplicati on. CreateForm(TF_log in,F _logi n);Fogi n.ShowModal;if log in the nbegin.word可编辑.TB_c onn ect.E nabled:=False;M_disc onn ect.E nabled:=True;TB_disc onn ect.E nabled:=True;M_add.E nabled:=True;TB_add.E nabled:=True;M_cha nge.E nabled:=True;TB_cha nge.E nabled:=True;M_search.E nab

36、led:=True;TB_search.E nabled:=True;StatusBarl.Panels1.Text:=已经连接到服务器：+F_login.i_server_add.Text; en d;en d;procedure TF_mai n.FormCreate(Se nder: TObject);begin/初始化logi n:=False;M_conn ect.E nabled:=True;TB_c onn ect.E nabled:=True;M_disc onn ect.E nabled:=False;TB_disc onn ect.E nabled:=False;M_add

37、.E nabled:=False;TB_add.E nabled:=False;M_cha nge.E nabled:=False;TB_cha nge.E nabled:=False;M_search.E nabled:=False;TB_search.E nabled:=False;StatusBarl .Panels1.Text= 尚未登录服务器！请按F2登录。 en d;procedure TF_ma in .M_disc onn ectClick(Se nder: TObject);vari:i nteger;beginfor i:=MDIChildCou nt-1 dow nto

38、0 doF_ma in .MDIChildre ni.CIose;DataModule1.Database.C onn ected:=False;FormCreate( nil);datamodule1.Free;en d;procedure TF_mai n. M_exitClick(Se nder: TObject);beginClose;en d;procedure TF_mai n.M_addClick(Se nder: TObject);beginApplicatio n. CreateForm(TF_add,F_add);en d;procedure TF_ma in. M_cha ngeClick(Se nder: TObject);beginApplicatio n. CreateForm(TF_cha nge,F_cha nge);en d;procedure TF_mai n.M _searchClick(Se nder: TObject);beginApplicatio n. CreateForm(TF_search,F_search);en d;End.修改界修改密码部n：职务匕i_deprtmentLiob:-受載育水平：|Ledy_lev文本