分销赏收藏举报申诉 / 49

立即下载开通VIP

当前位置：首页 > 学术论文 > 其他 > delphi课程设计.doc

delphi课程设计.doc

上传人：丰****

文档编号：3529573

上传时间：2024-07-08

格式：DOC

页数：49

大小：683.50KB

《delphi课程设计.doc》由会员分享，可在线阅读，更多相关《delphi课程设计.doc（49页珍藏版）》请在咨信网上搜索。

1、delphi课程设计482020年4月19日文档仅供参考学号: 09416305 课程设计报告课程名称： Delphi程序设计题目：人事管理系统姓名：学院：专业班级：计算机091 指导教师：课程设计任务书班级计算机091 姓名李琳蕊一、设计题目：人事管理系统设计二、设计内容：本设计是制作一个人事管理系统，在该程序中具体功能要求见附件。三、基本要求：1、对源程序编写的要求：（1）能够实现任务书中的功能；（2）尽可能使界面友好、直观、易操作；（3）源程序要有适当的注释，使程序容易阅读。2、撰写“课程设计报告”，撰写要求见附件实习报告撰写排版要求。3、课

2、程设计验收要求：（1）运行所设计的系统；（2）回答有关问题；（3）提交课程设计报告和任务书；（4）提交源程序四、进度安排：1、系统分析、设计准备阶段：4学时2、编程调试阶段：32学时3、总结和书写报告阶段：2学时4、考核阶段：2学时指导教师：刘俊年 1 月 6 日目录人事管理系统31、需求分析32、程序要求31功能模块图32系统界面42：登陆界面53：84：更改界面125：MDICHild156：173.创立数据库241、数据库的选择：ACCESS 数据库242、建表244、系统设计295、系统的使用说明296、心得体会297：致谢30参考文献30 人事管理系统1、需求分析1.新员工资

3、料输入。2.自动分配员工号，而且设置初始的用户密码，能够分配权限执行不同的模块。3.人事变动的详细记录，包括岗位和部门的调整。4.员工信息的查询和修改，包括员工个人信息和密码等。5.帮助。2、程序要求 1功能模块图人事管理系统根据权限登录帮助新员工档案输入人事变更员工档案查询修改2系统界面1：进入界面；代码：procedure Tqdform.FormCreate(Sender: TObject);var windowid:hwnd;begin windowid:=findwindow(nil,F_main); if windowid0 then begin MessageBox(handl

4、e,错误：系统已经启动！,系统启动错误 ,MB_OK or MB_ICONERROR); / showwindow(foundwin,9); halt; end;end;end.2：登陆界面代码：unit login;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Inifiles;type TF_login = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4:

5、TLabel; i_server_add: TComboBox; i_user: TEdit; i_passwd: TEdit; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private de

6、clarations public Public declarations end;var F_login: TF_login; Inifile:TInifile;implementationuses DataModule, crypt, mainwin;$R *.DFMprocedure TF_login.Button1Click(Sender: TObject);var passwd, passwrd:String;begin application.CreateForm(TDataModule1,DataModule1); With DataModule1 do begin Databa

7、se.Connected:=False; Database.AliasName:=i_server_add.Text; Database.Connected:=True; T_user.Filter:=ID=+i_user.Text+; T_user.Filtered:=True; T_user.Open; if T_user.RecordCount=1 then begin passwd:=i_passwd.Text; if length(passwd)5 then begin passwd:=Copy(passwd+passwd,1,10);/统一密码长度 passwd:=Encrypt(

8、passwd,123);/加密 end; passwrd:=T_userPASSWD; if (passwrd=passwd) and (T_userAUTHORITY=3) then begin F_main.login:=True; end else Application.MessageBox(请重新输入密码。+#13+注意大小写！,密码错误,MB_OK); end else Application.MessageBox(请确认用户名大小写是否正确！,无此用户,MB_OK); T_user.Close; end; if F_main.login then F_login.Close el

9、se DataModule1.Free;end;procedure TF_login.FormShow(Sender: TObject);begin self.i_server_add.SetFocus;end;procedure TF_login.FormCreate(Sender: TObject);begin Inifile:=TInifile.Create(extractfilepath(paramstr(0)+SERVER.ini) ; if fileexists(extractfilepath(paramstr(0)+SERVER.ini) then begin i_server_

10、add.Text:=inifile.ReadString(SERVER,SERVER NAME,); i_user.Text:=inifile.ReadString(SERVER,USER NAME,); end;end;procedure TF_login.FormClose(Sender: TObject; var Action: TCloseAction);begin if not fileexists(extractfilepath(paramstr(0)+SERVER.ini) then Inifile:=TInifile.Create(extractfilepath(paramst

11、r(0)+SERVER.ini) ; inifile.WriteString(SERVER,SERVER NAME,i_server_add.Text); inifile.WriteString(SERVER,USER NAME,i_user.Text); inifile.Free;end;End.3：代码：unit add;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, DBCtrls, Mask, ExtCtrls;type

12、 TF_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_department: TDBLookupComboBox; i_job: TDBLookupComboBox; i_edu_level: TDBL

13、ookupComboBox; Button1: TButton; i_user: TDBEdit; i_name: 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(Sender: TObject); p

14、rocedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations procedure AddInit; public Public declarations end;var F_add: TF_add;implementationuses DataModule, mainwin, crypt;$R *.DFMprocedure TF_add.AddInit;var counter:integer;

15、 id:String;begin With DataModule1 do begin /生成员工号 T_counter.Filter:=ID=P; T_counter.Filtered:=True; T_counter.Open; counter:=T_counterCOUNTER_VALUE; T_counter.Close; id:=00000+IntToStr(counter); id:=P+Copy(id,length(id)-4,5); /增加新记录 T_add_user.Open; T_add_user.Append; T_add_userID:=id; T_add_userSEX

16、:=M; T_add_userSTATE:=T; i_passwd.Text:=id; end;end;procedure TF_add.FormCreate(Sender: TObject);begin F_main.M_add.Enabled:=False; F_main.TB_add.Enabled:=False; Width:=272; Height:=469; datamodule1.T_department.Open; With DataModule1 do begin if not T_department.Active then T_department.Open; if no

17、t T_job.Active then T_job.Open; if not T_edu_level.Active then T_edu_level.Open; end; AddInit;end;procedure TF_add.Button1Click(Sender: TObject);var passwd:String; counter:Integer;begin if length(i_name.Text)0 then begin passwd:=i_passwd.Text; passwd:=Copy(passwd+passwd,1,10); passwd:=Encrypt(passwd

18、,123); With DataModule1 do begin /累加员工编号计数器 T_counter.Filter:=ID=P; T_counter.Filtered:=True; T_counter.Open; T_counter.Edit; T_counterCOUNTER_VALUE:=T_counterCOUNTER_VALUE+1; T_counter.Post; T_counter.Close; /增加员工个人信息记录 T_add_user.Edit; T_add_userPASSWD:=passwd; T_add_user.Post; /获取人事变动记录号 T_counte

19、r.Filter:=ID=C; T_counter.Filtered:=True; T_counter.Open; counter:=T_counterCOUNTER_VALUE; Inc(counter); T_counter.Edit; T_counterCOUNTER_VALUE:=counter; T_counter.Post; T_counter.Close; /追加人事变动记录 T_change.Open; T_change.Append; T_changeID:=counter; T_changePERSON:=i_user.Text; T_changeCHANGE:=2; T_

20、changeRECORD_TIME:=Now; T_changeDESCRIPTION:=加入公司。; T_change.Post; T_change.Close; end; AddInit; end;end;procedure TF_add.FormClose(Sender: TObject; var Action: TCloseAction);begin inherited; F_main.M_add.Enabled:=True; F_main.TB_add.Enabled:=True; With DataModule1 do begin T_add_user.Cancel; T_add_

21、user.Close; end; end;End.4：更改界面代码：unit change;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, ExtCtrls, DBCtrls, Mask;type TF_change = class(TMDIChild) Label1: TLabel; i_id: TEdit; GroupBox1: TGroupBox; Label2: TLabel; Label3: TLabel; Label

22、4: TLabel; i_change: TRadioGroup; Button1: TButton; Label5: TLabel; i_department: TDBLookupComboBox; i_name: TDBEdit; i_job: TDBLookupComboBox; Label6: TLabel; i_description: TMemo; i_time: TMaskEdit; procedure i_idChange(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(S

23、ender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private Private declarations procedure ChangeInit; public Public declarations end;var F_change: TF_change;implementationuses DataModule, mainwin;$R *.DFMprocedure TF_change.ChangeInit; begin i_id.Text:=; /清空员工号输入框 Da

24、taModule1.T_user.Close; /关闭员工查询数据表 i_change.ItemIndex:=0; /默认员工变动为职务变更 i_time.Text:=DateToStr(Now); /加入当前时间 i_description.Clear; /清空描述end;procedure TF_change.i_idChange(Sender: TObject);begin With DataModule1 do begin T_user.Filter:=ID=+i_id.Text+; T_user.Filtered:=True; T_user.Open; end;end;procedu

25、re TF_change.FormCreate(Sender: TObject);begin F_main.M_change.Enabled:=False; F_main.TB_change.Enabled:=False; Width:=282; Height:=429; With DataModule1 do begin if not T_department.Active then T_department.Open; if not T_job.Active then T_job.Open; end; ChangeInit; end;procedure TF_change.FormClos

26、e(Sender: TObject; var Action: TCloseAction);begin inherited; /继承父类的关闭事件 F_main.M_change.Enabled:=True; / 恢复菜单的使用 F_main.TB_change.Enabled:=True; /恢复按钮的使用end;procedure TF_change.Button1Click(Sender: TObject);var counter:integer; /保存计数器begin With DataModule1 do /设置默认前缀为DataModule1 begin if T_user.Rec

27、ordCount=1 then /判断是否存在该员工 begin /获取人事变动记录号 T_counter.Filter:=ID=C; T_counter.Filtered:=True; T_counter.Open; counter:=T_counterCOUNTER_VALUE; counter:=counter+1; T_counter.Edit; T_counterCOUNTER_VALUE:=counter; /把新的计数器的值写入表中 T_counter.Post; /保存表的记录 T_counter.Close; /关闭表 /追加人事变动记录 T_user.Edit; if i_

28、change.ItemIndex=1 then T_userSTATE:=F; /取消员工帐号 T_user.Post; /保存 T_change.Open; /修改人事变动记录 T_change.Append; T_changeID:=counter; T_changePERSON:=i_id.Text; T_changeCHANGE:=IntToStr(i_change.ItemIndex); T_changeRECORD_TIME:=StrToDate(i_time.Text); T_changeDESCRIPTION:=i_description.Text; T_change.Post

29、; /保存 T_change.Close; /关闭 ChangeInit; /在初始化表单 end else Application.MessageBox(请确认员工号！,输入错误,MB_OK); end;end;End.5：MDICHild代码：unit Childwin;interfaceuses Windows, Classes, Graphics, Forms, Controls, StdCtrls;type TMDIChild = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction);

30、private Private declarations public Public declarations end;implementation$R *.DFMprocedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);begin Action := caFree;end;End.6：数据连接代码：unit DataModule;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, D

31、b, DBTables;type TDataModule1 = class(TDataModule) Database: TDatabase; T_user: TTable; T_add_user: TTable; DS_add_user: TDataSource; T_counter: TTable; T_department: TTable; DS_department: TDataSource; T_job: TTable; T_edu_level: TTable; DS_job: TDataSource; DS_edu_level: TDataSource; T_change: TTa

32、ble; DS_user: TDataSource; T_user_2: TTable; DS_user_2: TDataSource; T_change_list: TTable; DS_change_list: TDataSource; T_changed: TTable; DS_changed: TDataSource; private Private declarations public Public declarations end;var DataModule1: TDataModule1;implementation$R *.DFMEnd.7：主窗口设计代码： About, l

33、ogin, DataModule, add, change, search;procedure TF_main.M_aboutClick(Sender: TObject);begin AboutBox.ShowModal;end;procedure TF_main.M_connectClick(Sender: TObject);begin application.CreateForm(TF_login,F_login); F_login.ShowModal; if login then begin M_connect.Enabled:=False; TB_connect.Enabled:=Fa

34、lse; M_disconnect.Enabled:=True; TB_disconnect.Enabled:=True; M_add.Enabled:=True; TB_add.Enabled:=True; M_change.Enabled:=True; TB_change.Enabled:=True; M_search.Enabled:=True; TB_search.Enabled:=True; StatusBar1.Panels1.Text:=已经连接到服务器：+F_login.i_server_add.Text; end;end;procedure TF_main.FormCreat

35、e(Sender: TObject);begin /初始化 login:=False; M_connect.Enabled:=True; TB_connect.Enabled:=True; M_disconnect.Enabled:=False; TB_disconnect.Enabled:=False; M_add.Enabled:=False; TB_add.Enabled:=False; M_change.Enabled:=False; TB_change.Enabled:=False; M_search.Enabled:=False; TB_search.Enabled:=False;

36、 StatusBar1.Panels1.Text:=尚未登录服务器！请按F2登录。;end;procedure TF_main.M_disconnectClick(Sender: TObject);var i:integer;begin for i:=MDIChildCount-1 downto 0 do F_main.MDIChildreni.Close; DataModule1.Database.Connected:=False; FormCreate(nil); datamodule1.Free;end;procedure TF_main.M_exitClick(Sender: TObj

37、ect);begin Close;end;procedure TF_main.M_addClick(Sender: TObject);begin Application.CreateForm(TF_add,F_add);end;procedure TF_main.M_changeClick(Sender: TObject);begin Application.CreateForm(TF_change,F_change);end;procedure TF_main.M_searchClick(Sender: TObject);begin Application.CreateForm(TF_sea

38、rch,F_search);end;End.8：修改界面代码：unit search;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, DBCtrls, Grids, DBGrids, StdCtrls, Mask, ExtCtrls, DBCGrids;type TF_search = class(TMDIChild) Label1: TLabel; Label2: TLabel; i_id: TEdit; Button1: TButton; Label3: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档保存到电脑，查找使用更方便

10 金币 0人已下载

申诉本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请申请举报、认领或删除 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: delphi 课程设计

咨信网温馨提示：
1、咨信平台为文档C2C交易模式，即用户上传的文档直接被用户下载，收益归上传人（含作者）所有；本站仅是提供信息存储空间和展示预览，仅对用户上传内容的表现方式做保护处理，对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿，我们不确定上传用户享有完全著作权，根据《信息网络传播权保护条例》，如果侵犯了您的版权、权益或隐私，请联系我们，核实后会尽快下架及时删除，并可随时和客服了解处理情况，尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确)，网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据，个别因单元格分列造成显示页码不一将协商解决，平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺，下载前须认真查看，确认无误后再购买，务必慎重购买；若有违法违纪将进行移交司法处理，若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传，付费前请自行鉴别，如您付费，意味着您已接受本站规则且自行承担风险，本站不进行额外附加服务，虚拟产品一经售出概不退款（未进行购买下载可退充值款），文档一经付费（服务费）、不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印，是因预览和防盗链等技术需要对页面进行转换压缩成图而已，我们并不对上传的文档进行任何编辑或修改，文档下载后都不会有水印标识（原文档上传前个别存留的除外），下载后原文更清晰；试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓；PPT和DOC文档可被视为“模板”，允许上传人保留章节、目录结构的情况下删减部份的内容；PDF文档不管是原文档转换或图片扫描而得，本站不作要求视为允许，下载前自行私信或留言给上传者【丰****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用；网站提供的党政主题相关内容(国旗、国徽、党徽－－等)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
6、文档遇到问题，请及时私信或留言给本站上传会员【丰****】，需本站解决可联系【微信客服】、【 QQ客服】，若有其他问题请点击或扫码反馈【服务填表】；文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“【版权申诉】”（推荐），意见反馈和侵权处理邮箱：1219186828@qq.com；也可以拔打客服电话：4008-655-100；投诉/维权电话：4009-655-100。

关于本文

本文标题：delphi课程设计.doc
链接地址：https://www.zixin.com.cn/doc/3529573.html

丰****

内容提供者

实名认证

查看上传人更多文档

部分上传会员的收益排行 01、路***（￥15400+），
02、曲****（￥15300+），
03、wei****016（￥13200+）,
04、大***流（￥12600+），
05、Fis****915（￥4200+），
06、h****i（￥4100+），
07、Q**（￥3400+），
08、自******点（￥2400+），
09、h*****x（￥1400+），
10、c****e（￥1100+）,
11、be*****ha（￥800+），
12、13********8（￥800+）。

相似文档

自信AI助手