文档介绍：该【delphi课程设计 】是由【小果冻】上传分享，文档一共【30】页，该文档可以免费在线阅读，需要了解更多关于【delphi课程设计 】的内容，可以使用淘豆网的站内搜索功能，选择自己适合的文档，以下文字是截取该文章内的部分文字，如需要获得完整电子版，请下载此文档到您的设备，方便您编辑和打印。常州大学Delphi课程设计5/11/2024学号:09416305课程设计报告课程名称:Delphi程序设计题目:人事管理系统姓名:学院:专业班级:计算机091指导教师:常州大学Delphi课程设计5/11/2024课程设计任务书班级计算机091姓名李琳蕊一、设计题目:人事管理系统设计二、设计内容:本设计是制作一个人事管理系统,在该程序中具体功能要求见附件。三、根本要求:对源程序编写的要求:〔1〕能够实现任务书中的功能;〔2〕尽可能使界面友好、直观、易操作;〔3〕源程序要有适当的注释,使程序容易阅读。撰写“课程设计报告〞,撰写要求见附件实****报告撰写排版要求。课程设计验收要求:〔1〕运行所设计的系统;〔2〕答复有关问题;〔3〕提交课程设计报告和任务书;〔4〕提交源程序四、进度安排:1、系统分析、设计准备阶段:4学时2、编程调试阶段:32学时3、总结和书写报告阶段:2学时4、考核阶段:2学时指导教师:刘俊2024年1月6日常州大学Delphi课程设计5/11/2024目录人事管理系统 31、需求分析 32、程序要求 42:登陆界面 53: 84:更改界面 125:MDICHild 156: 241、数据库的选择:ACCESS2024数据库 242、建表 244、系统设计 295、系统的使用说明 296、心得体会 297:致谢 30参考文献 30人事管理系统1、。,并且设置初始的用户密码,能够分配权限执行不同的模块。,包括岗位和部门的调整。,包括员工个人信息和密码等。。常州大学Delphi课程设计5/11/20242、:进入界面;代码:(Sender:TObject);varwindowid:hwnd;beginwindowid:=findwindow(nil,'F_main');ifwindowid<>0thenbeginMessageBox(handle,'错误:系统已经启动!','系统启动错误',MB_OKorMB_ICONERROR);//showwindow(foundwin,9);halt;end;end;:登陆界面代码:unitlogin;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Inifiles;typeTF_login=class(TForm)Label1:TLabel;Label2:TLabel;Label3:TLabel;Label4:TLabel;i_server_add:TComboBox;常州大学Delphi课程设计5/11/2024i_user:TEdit;i_passwd:TEdit;Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureFormShow(Sender:TObject);procedureFormCreate(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}public{Publicdeclarations}end;varF_login:TF_login;Inifile:TInifile;implementationusesDataModule,crypt,mainwin;{$R*.DFM}(Sender:TObject);varpasswd,passwrd:String;(TDataModule1,DataModule1);:=False;:=;:=True;:='ID='''++'''';:=True;;=1thenbeginpasswd:=;iflength(passwd)>5thenbeginpasswd:=Copy(passwd+passwd,1,10);//统一密码长度passwd:=Encrypt(passwd,123);//加密end;常州大学Delphi课程设计5/11/2024passwrd:=T_user['PASSWD'];if(passwrd=passwd)and(T_user['AUTHORITY']='3'):=True;('请重新输入密码。'+#13+'注意大小写!','密码错误',MB_OK);('请确认用户名大小写是否正确!','无此用户',MB_OK);;end;;end;(Sender:TObject);;end;(Sender:TObject);beginInifile:=(extractfilepath(paramstr(0))+'');iffileexists(extractfilepath(paramstr(0))+''):=('SERVER','SERVERNAME','');:=('SERVER','USERNAME','');end;end;(Sender:TObject;varAction:TCloseAction);beginifnotfileexists(extractfilepath(paramstr(0))+'')thenInifile:=(extractfilepath(paramstr(0))+'');('SERVER','SERVERNAME',);('SERVER','USERNAME',);;常州大学Delphi课程设计5/11/2024end;:代码:unitadd;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,childwin,StdCtrls,DBCtrls,Mask,ExtCtrls;typeTF_add=class(TMDIChild)Label1:TLabel;Label2:TLabel;Label3:TLabel;Label5:TLabel;Label6:TLabel;Label7:TLabel;常州大学Delphi课程设计5/11/2024Label9:TLabel;Label10:TLabel;Label11:TLabel;Label12:TLabel;Label13:TLabel;Label14:TLabel;i_department:boBox;i_job:boBox;i_edu_level:boBox;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;boBox1:boBox;procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}procedureAddInit;public{Publicdeclarations}end;varF_add:TF_add;implementationusesDataModule,mainwin,crypt;{$R*.DFM};varcounter:integer;id:String;常州大学Delphi课程设计5/11/2024beginWithDataModule1dobegin//:='ID=''P''';:=True;;counter:=T_counter['COUNTER_VALUE'];;id:='00000'+IntToStr(counter);id:='P'+Copy(id,length(id)-4,5);//;;T_add_user['ID']:=id;T_add_user['SEX']:='M';T_add_user['STATE']:='T';:=id;end;end;(Sender:TObject);:=False;:=False;Width:=272;Height:=469;;;;;end;AddInit;end;(Sender:TObject);varpasswd:String;counter:Integer;beginiflength()>0thenbegin