实验课题一人员档案的管理物料档案管理.docx

1、实验课题一人员档案的管理物料档案管理福建工程学院计算机与信息科学系实验报告 学年第 学期 任课老师： 张晓志 课程名称C/S程序综合设计班级Wl 1001座号26姓名张玉棠实验题目实验课题一、人员档案的管理、物料档案管理实验时间2012.9实验目的、要求设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等。1 程序须包括主界面程序，程序名用“班级名座号main”，主界面可以通过菜单调用到其它所有子程序。2 人员档案的增加、修改、删除的程序，其中人员档案表在数据库中必须以“班级（表示人员的中英

2、文信息）”来命名，人员档案的信息管理程序也必须以“班级座号（表示程序名的中英文信息）”来命名。其中人员代码不能为空，性别必须用“男”、“女”选择方式，出生日期必须用日期控件来控制。修改、删除程序在执行修改删除操作前，都必须进行记录定位操作，所以必须有相应的查询程序，可以借用查询程序来完成记录定位。人员档案的增加、修改、删除程序也可以用三个程序名，分别编程。3 人员档案查询程序，程序名以“班级座号（表示程序名的中英文信息）”来命名，可以在查询框中输入人员姓名中的任何一个单字，查询出含该字的所有人员。物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。1 物料档案的增加、修改

3、、删除程序，程序名以“班级座号（表示程序名的中英文信息）”来命名，具体内容参考人员档案管理程序。物料表在数据库中以“班级座号（表示程序名的中英文信息）”来命名表，客户端输入时要求物料代码不为空，计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等，计量单位并可以输入其它单位名，库存数量默认为0。可以使用建立索引来优化查询2 物料查询程序可以在通过输入框的文字进行模糊查询（物料代码、名称、规格中是否含有输入框的文字），程序名用“班级座号（表示程序名的中英文信息）”来命名。实验设计内容1、人员档案的管理：1.1、增加模块：1）源代码：unit wl1001_26_new;interfaceus

4、es Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, DB, ADODB, StdCtrls, Buttons, ComCtrls;type Tnew = class(TForm) ADOQuery1: TADOQuery; Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel;

5、 Label7: TLabel; Label8: TLabel; Edit1: TEdit; Edit2: TEdit; ComboBox1: TComboBox; DateTimePicker1: TDateTimePicker; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; BitBtn1: TBitBtn; BitBtn2: TBitBtn; Label9: TLabel; Label10: TLabel; procedure BitBtn2Click(Sender: TObject); procedure FormCre

6、ate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private Private declarations public Public declarations end;var new: Tnew;implementationuses wl1001_26_main, wl1001_26_login;$R *.dfmprocedure Tnew.BitBtn2Click(Sender: TObject);begin edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; e

7、dit6.Clear; close;end;procedure Tnew.FormCreate(Sender: TObject);begin edit1.Text:= FormatDateTime(yyyymdhns,Now); /edit2.SetFocus;end;procedure Tnew.BitBtn1Click(Sender: TObject);begin if edit2.Text= then begin label10.Caption:=姓名不能为空 ; edit2.SetFocus; exit; end else begin label10.Caption:=* ; end;

8、 if edit5.Text= then begin label9.Caption:=电话不能为空 ; edit5.SetFocus; exit; end else begin label9.Caption:=* ; end; with ADOQuery1 do begin close; sql.Clear; sql.Add(insert into wl1001_26_renyuan values (); sql.Add(+trim(edit1.Text)+,+edit2.Text+,+ComboBox1.Text+,+FormatDateTime(yyyy-mm-dd,DateTimePic

9、ker1.DateTime)+,+edit3.Text+,+edit4.Text+,+edit5.Text+,+edit6.Text+); /ShowMessage(sql.Text); ExecSQL; ShowMessage(已新增用户); edit1.Text:= FormatDateTime(yyyymdhns,Now); edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit6.Clear; end;end;end.1.2、删除模块：1）源代码：unit wl1001_26_delete;interfaceuses Windo

10、ws, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, Grids, DBGrids, DB, ADODB, Buttons;type Tdelete = class(TForm) Image1: TImage; Label2: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; ADOQuery1: TADOQuery; DataSource1: TDataSource; DBGrid1: T

11、DBGrid; Label1: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label10: TLabel; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; DateTimePicker1: TDateTimePicker; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label11: TLabel; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit

12、7: TEdit; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure BitBtn1Click(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure BitBtn3Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private Private declarations public Public declarations end;var delete: Tdelete;implem

13、entation$R *.dfmprocedure Tdelete.BitBtn1Click(Sender: TObject);begin with ADOQuery1 do begin sql.Clear; sql.Add(select * from wl1001_26_renyuan); sql.Add(where name like %+trim(Edit1.Text)+%); /ShowMessage(sql.Text); open; edit2.Text:=fieldbyname(id).AsString; edit3.Text:=fieldbyname(name).AsString

14、; end;end;procedure Tdelete.DBGrid1CellClick(Column: TColumn);begin with ADOQuery1 do begin edit2.Text:=fieldbyname(id).AsString; edit3.Text:=fieldbyname(name).AsString; ComboBox1.Text:=fieldbyname(sex).AsString; DateTimePicker1.DateTime:=fieldbyname(birthdate).AsDateTime; edit4.Text:=fieldbyname(pi

15、d).AsString; edit5.Text:=fieldbyname(addre).AsString; edit6.Text:=fieldbyname(tel).AsString; edit7.Text:=fieldbyname(remark).AsString; end;end;procedure Tdelete.BitBtn3Click(Sender: TObject);begin with ADOQuery1 do begin close; sql.Clear; sql.Add(delete from wl1001_26_renyuan where id=+trim(edit2.Te

16、xt)+); /ShowMessage(sql.Text); ExecSQL; ShowMessage(删除成功); close; sql.Add(select * from wl1001_26_renyuan); open end;end;procedure Tdelete.BitBtn2Click(Sender: TObject);begin close;end;end.1.3、修改模块：1）源代码:unit wl1001_26_alter;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con

17、trols, Forms, Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons;type Talter = class(TForm) Image1: TImage; Label2: TLabel; Edit1: TEdit; BitBtn1: TBitBtn; DBGrid1: TDBGrid; ADOQuery1: TADOQuery; DataSource1: TDataSource; Label1: TLabel; Label3: TLabel; Label4: TLabel; L

18、abel5: TLabel; Label10: TLabel; Edit2: TEdit; Edit3: TEdit; ComboBox1: TComboBox; DateTimePicker1: TDateTimePicker; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label11: TLabel; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; BitBtn2: TBitBtn; BitBtn3: TBitBtn; procedure B

19、itBtn1Click(Sender: TObject); procedure DBGrid1CellClick(Column: TColumn); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); private Private declarations public Public declarations end;var alter: Talter;implemen

20、tation$R *.dfmprocedure Talter.BitBtn1Click(Sender: TObject);begin with ADOQuery1 do begin sql.Clear; sql.Add(select * from wl1001_26_renyuan); sql.Add(where name like %+trim(Edit1.Text)+%); /ShowMessage(sql.Text); open; edit2.Text:=fieldbyname(id).AsString; edit3.Text:=fieldbyname(name).AsString; e

21、nd;end;procedure Talter.DBGrid1CellClick(Column: TColumn);begin with ADOQuery1 do begin edit2.Text:=fieldbyname(id).AsString; edit3.Text:=fieldbyname(name).AsString; ComboBox1.Text:=fieldbyname(sex).AsString; DateTimePicker1.DateTime:=fieldbyname(birthdate).AsDateTime; edit4.Text:=fieldbyname(pid).A

22、sString; edit5.Text:=fieldbyname(addre).AsString; edit6.Text:=fieldbyname(tel).AsString; edit7.Text:=fieldbyname(remark).AsString; end;end;procedure Talter.BitBtn2Click(Sender: TObject);begin with ADOQuery1 do begin close; sql.Clear; sql.Add(update wl1001_26_renyuan set name=+edit3.Text+,sex=+ComboB

23、ox1.Text+,birthdate=+FormatDateTime(yyyy-mm-dd,DateTimePicker1.DateTime)+,pid=+edit4.Text+,addre=+edit5.Text+,tel=+edit6.Text+,remark=+edit7.Text+); sql.Add(where id=+edit2.Text+); /ShowMessage(sql.Text); ExecSQL; ShowMessage(修改成功！); close; sql.Add(select * from wl1001_26_renyuan); open; end;end;pro

24、cedure Talter.BitBtn3Click(Sender: TObject);begin close;end;procedure Talter.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key=#13 then BitBtn1.Click;end;End.1.4、查询模块：1）源代码：unit wl1001_26_main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

25、StdCtrls, Buttons, DB, Grids, DBGrids, ADODB, Menus, jpeg, ExtCtrls;type Tmain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; ADOQuery1: TADOQuery; DBGrid1: TDBGrid; DataSource1: TDataSource; Label1: TLabe

26、l; Edit1: TEdit; BitBtn1: TBitBtn; Image1: TImage; N8: TMenuItem; procedure BitBtn1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7C

27、lick(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char); procedure FormClose(Sender: TObject; var Action: TCloseAction); private Private declarations public Public declarations end;var main: Tmain;implementationuses wl1001_26_login, wl1001_26_alter, wl1001_26_delete, wl1001_26

28、_new, wl1001_26_copy, wl1001_26_help;$R *.dfmprocedure Tmain.BitBtn1Click(Sender: TObject);begin with ADOQuery1 do begin sql.Clear; sql.Add(select * from wl1001_26_renyuan); sql.Add(where name like %+trim(Edit1.Text)+%); /ShowMessage(sql.Text); open; end;end;procedure Tmain.N2Click(Sender: TObject);

29、begin new.ShowModal;end;procedure Tmain.N3Click(Sender: TObject);begin delete.ShowModal;end;procedure Tmain.N4Click(Sender: TObject);begin alter.ShowModal;end;procedure Tmain.N8Click(Sender: TObject);begin Edit1.Clear; close;end;procedure Tmain.N6Click(Sender: TObject);begin copy.ShowModal; end;procedure Tmain.N7Click(Sender: TObject);begin help.ShowModal;end;procedure Tmain.Edit1KeyPress(Sender: TObject; var Key: Char);begin if key=#13 then BitBtn1.Click;end;procedure Tmain.FormClose(