人事管理系统 课程设计.doc

1、 常州大学Delphi课程设计 目录人事管理系统31、需求分析32、程序要求31功能模块图32系统界面42：登陆界面53：84：更改界面125：MDICHild156：173.创建数据库241、数据库的选择：ACCESS 2003数据库242、建表244、系统设计295、系统的使用说明296、心得体会297：致谢30参考文献30 人事管理系统1、需求分析1.新员工资料输入。2.自动分配员工号，并且设置初始的用户密码，能够分配权限执行不同的模块。3.人事变动的详细记录，包括岗位和部门的调整。4.员工信息的查询和修改，包括员工个人信息和密码等。5.帮助。2、程序要求 1功能模块图人事管理系统 根据

2、权限登录帮助新员工档案输入人事变更员工档案查询修改2系统界面1：进入界面；代码：procedure Tqdform.FormCreate(Sender: TObject);var windowid:hwnd;begin windowid:=findwindow(nil,F_main); if windowid0 then begin MessageBox(handle,错误：系统已经启动！,系统启动错误 ,MB_OK or MB_ICONERROR); / showwindow(foundwin,9); halt; end;end;end.2：登陆界面代码：unit login;interfa

3、ceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Inifiles;type TF_login = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; i_server_add: TComboBox; i_user: TEdit; i_passwd: TEdit; Button1: TButton; Button2: TButton; procedure Butto

4、n1Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end;var F_login: TF_login; Inifile:TInifile;implementationuses DataModule, cry

5、pt, mainwin;$R *.DFMprocedure TF_login.Button1Click(Sender: TObject);var passwd, passwrd:String;begin application.CreateForm(TDataModule1,DataModule1); With DataModule1 do begin Database.Connected:=False; Database.AliasName:=i_server_add.Text; Database.Connected:=True; T_user.Filter:=ID=+i_user.Text

6、+; 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(passwd,123);/加密 end; passwrd:=T_userPASSWD; if (passwrd=passwd) and (T_userAUTHORITY=3) then begin F_main.login:=Tru

7、e; 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 else DataModule1.Free;end;procedure TF_login.FormShow(Sender: TObject);begin self.i_server_add.SetFocus;end;procedure

8、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_add.Text:=inifile.ReadString(SERVER,SERVER NAME,); i_user.Text:=inifile.ReadString(SERVER,USER NAME,); end;end;proce

9、dure TF_login.FormClose(Sender: TObject; var Action: TCloseAction);begin if not fileexists(extractfilepath(paramstr(0)+SERVER.ini) then Inifile:=TInifile.Create(extractfilepath(paramstr(0)+SERVER.ini) ; inifile.WriteString(SERVER,SERVER NAME,i_server_add.Text); inifile.WriteString(SERVER,USER NAME,i

10、_user.Text); inifile.Free;end;End.3：代码：unit add;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, childwin, StdCtrls, DBCtrls, Mask, ExtCtrls;type TF_add = class(TMDIChild) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label5: TLabel; Label6: TLabel; Label7: T

11、Label; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; i_department: TDBLookupComboBox; i_job: TDBLookupComboBox; i_edu_level: TDBLookupComboBox; Button1: TButton; i_user: TDBEdit; i_name: TDBEdit; i_birthday: TDBEdit; i_specialty: TDBEdit; i_addr

12、ess: TDBEdit; i_tel: TDBEdit; i_email: TDBEdit; i_remark: TDBMemo; i_passwd: TEdit; i_sex: TDBRadioGroup; DBLookupComboBox1: TDBLookupComboBox; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Priv

13、ate declarations procedure AddInit; public Public declarations end;var F_add: TF_add;implementationuses DataModule, mainwin, crypt;$R *.DFMprocedure TF_add.AddInit;var counter:integer; id:String;begin With DataModule1 do begin /生成员工号 T_counter.Filter:=ID=P; T_counter.Filtered:=True; T_counter.Open;

14、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:=M; T_add_userSTATE:=T; i_passwd.Text:=id; end;end;procedure TF_add.FormCreate(Sender: TObject);begin F_main.M_add.

15、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 not T_job.Active then T_job.Open; if not T_edu_level.Active then T_edu_level.Open; end; AddInit;end;procedure TF_add.B

16、utton1Click(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,123); With DataModule1 do begin /累加员工编号计数器 T_counter.Filter:=ID=P; T_counter.Filtered:=True; T_counter.Open; T_coun

17、ter.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_counter.Filter:=ID=C; T_counter.Filtered:=True; T_counter.Open; counter:=T_counterCOUNTER_VALUE; Inc(counter); T_counter.E

18、dit; 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_changeRECORD_TIME:=Now; T_changeDESCRIPTION:=加入公司。; T_change.Post; T_change.Close; end; AddInit; end;end;procedure T

19、F_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_user.Close; end; end;End.4：更改界面代码：unit change;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls

20、, Forms, Dialogs, childwin, StdCtrls, ExtCtrls, DBCtrls, Mask;type TF_change = class(TMDIChild) Label1: TLabel; i_id: TEdit; GroupBox1: TGroupBox; Label2: TLabel; Label3: TLabel; Label4: TLabel; i_change: TRadioGroup; Button1: TButton; Label5: TLabel; i_department: TDBLookupComboBox; i_name: TDBEdit

21、; i_job: TDBLookupComboBox; Label6: TLabel; i_description: TMemo; i_time: TMaskEdit; procedure i_idChange(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); private Private declarations pro

22、cedure ChangeInit; public Public declarations end;var F_change: TF_change;implementationuses DataModule, mainwin;$R *.DFMprocedure TF_change.ChangeInit; begin i_id.Text:=; /清空员工号输入框 DataModule1.T_user.Close; /关闭员工查询数据表 i_change.ItemIndex:=0; /默认员工变动为职务变更 i_time.Text:=DateToStr(Now); /加入当前时间 i_descri

23、ption.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;procedure TF_change.FormCreate(Sender: TObject);begin F_main.M_change.Enabled:=False; F_main.TB_change.Enabled:=False; Widt

24、h:=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.FormClose(Sender: TObject; var Action: TCloseAction);begin inherited; /继承父类的关闭事件 F_main.M_change.Enabled:=True; / 恢复菜单的使用 F_

25、main.TB_change.Enabled:=True; /恢复按钮的使用end;procedure TF_change.Button1Click(Sender: TObject);var counter:integer; /保存计数器begin With DataModule1 do /设置默认前缀为DataModule1 begin if T_user.RecordCount=1 then /判断是否存在该员工 begin /获取人事变动记录号 T_counter.Filter:=ID=C; T_counter.Filtered:=True; T_counter.Open; counte

26、r:=T_counterCOUNTER_VALUE; counter:=counter+1; T_counter.Edit; T_counterCOUNTER_VALUE:=counter; /把新的计数器的值写入表中 T_counter.Post; /保存表的记录 T_counter.Close; /关闭表 /追加人事变动记录 T_user.Edit; if i_change.ItemIndex=1 then T_userSTATE:=F; /取消员工帐号 T_user.Post; /保存 T_change.Open; /修改人事变动记录 T_change.Append; T_changeI

27、D:=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; /保存 T_change.Close; /关闭 ChangeInit; /在初始化表单 end else Application.MessageBox(请确认员工号！,输入错误,MB_OK); end;end;End.5：MDI

28、CHild代码：unit Childwin;interfaceuses Windows, Classes, Graphics, Forms, Controls, StdCtrls;type TMDIChild = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end;implementation$R *.DFMprocedure TMDIChild.FormClose(Send

29、er: TObject; var Action: TCloseAction);begin Action := caFree;end;End.6：数据连接代码：unit DataModule;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables;type TDataModule1 = class(TDataModule) Database: TDatabase; T_user: TTable; T_add_user: TTable; DS_add_u

30、ser: 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: TTable; DS_user: TDataSource; T_user_2: TTable; DS_user_2: TDataSource; T_change_list: TTable; DS_change_list: TDataSou

31、rce; T_changed: TTable; DS_changed: TDataSource; private Private declarations public Public declarations end;var DataModule1: TDataModule1;implementation$R *.DFMEnd.7：主窗口设计代码： About, login, DataModule, add, change, search;procedure TF_main.M_aboutClick(Sender: TObject);begin AboutBox.ShowModal;end;p

32、rocedure 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:=False; M_disconnect.Enabled:=True; TB_disconnect.Enabled:=True; M_add.Enabled:=True; TB_add.Enabled:=True; M_change.En

33、abled:=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.FormCreate(Sender: TObject);begin /初始化 login:=False; M_connect.Enabled:=True; TB_connect.Enabled:=True; M_disconnect.Enabled:

34、=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; StatusBar1.Panels1.Text:=尚未登录服务器！请按F2登录。;end;procedure TF_main.M_disconnectClick(Sender: TObject);var i:integer;beg

35、in 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: TObject);begin Close;end;procedure TF_main.M_addClick(Sender: TObject);begin Application.CreateForm(TF_add,F_add);end;pr

36、ocedure 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_search,F_search);end;End.8：修改界面代码：unit search;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, F

37、orms, 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; Label

38、11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; i_sex: TDBRadioGroup; i_passwd: TEdit; i_name: TDBEdit; i_birthday: TDBEdit; i_address: TDBEdit; i_tel: TDBEdit; i_email: TDBEdit; i_specialty: TDBEdit; i_remark: TDBMemo; i_department: TDBLookupComboBox; i_job: TDBLookupComboBox; i_edu_

39、level: TDBLookupComboBox; Button2: TButton; DBCtrlGrid1: TDBCtrlGrid; DBEdit1: TDBEdit; StaticText1: TStaticText; DBMemo1: TDBMemo; StaticText3: TStaticText; DBEdit2: TDBEdit; StaticText4: TStaticText; procedure FormCreate(Sender: TObject); procedure i_idChange(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction);