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

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

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

3、考人员档案管理程序。物料表在数据库中以“班级座号（表示程序名的中英文信息）”来命名表，客户端输入时要求物料代码不为空，计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等，计量单位并可以输入其它单位名，库存数量默认为0。2 物料查询程序可以在通过输入框的文字进行模糊查询（物料代码、名称、规格中是否含有输入框的文字），程序名用“班级座号（表示程序名的中英文信息）”来命名。实验设计内容一 人员档案的管理、物料档案管理主界面：人员档案的管理： 物料档案管理：人员管理代码：查询：procedure TForm3.Button1Click(Sender: TObject);beginwith ado

4、query1 do begin sql.clear; sql.Add(select * from Wl123人员档案表); sql.add(where 人员代码+姓名 like %+edit1.text+%); active:=true; edit2.Text:=fieldbyname(人员代码).asstring; edit3.Text:=fieldbyname(姓名).asstring; edit4.Text:=fieldbyname(身份证号).asstring; edit5.Text:=fieldbyname(籍贯).asstring; edit6.Text:=fieldbyname(

5、家庭住址).asstring; edit7.Text:=fieldbyname(联系电话).asstring; edit8.Text:=fieldbyname(其它情况).asstring; datetimepicker1.datetime:=fieldbyname(出生日期).asdatetime; combobox1.Text:=fieldbyname(性别).AsString; end;end;定位：procedure TForm3.DBGrid1CellClick(Column: TColumn);begin with adoquery1 do begin edit2.Text:=fi

6、eldbyname(人员代码).asstring; edit3.Text:=fieldbyname(姓名).asstring; edit4.Text:=fieldbyname(身份证号).asstring; edit5.Text:=fieldbyname(籍贯).asstring; edit6.Text:=fieldbyname(家庭住址).asstring; edit7.Text:=fieldbyname(联系电话).asstring; edit8.Text:=fieldbyname(其它情况).asstring; datetimepicker1.datetime:=fieldbyname(

7、出生日期).asdatetime; combobox1.Text:=fieldbyname(性别).AsString; end;end;增加人员档案：procedure TForm3.Button5Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(人员代码不能为空)elsebeginADOQuery3.Close;ADOQuery3.SQL.Clear;ADOQuery3.SQL.Add(select * from wl123人员档案表);ADOQuery3.SQL.Add(where 人员代码=+edit2.Te

8、xt+ or 身份证号=+edit4.Text+);ADOQuery3.Open;if ADOQuery3.RecordCount0 thenshowmessage(人员代码+edit2.text+或身份证号+edit4.text+已存在，请重新输入！)elsebeginwith ADOQuery3 dobeginclose;sql.Clear;sql.Add(insert into wl123人员档案表(人员代码,姓名,性别,出生日期,身份证号,籍贯,家庭住址,联系电话,其它情况);sql.Add(values(:v1,:v2,:v3,:v4,:v5,:v6,:v7,:v8,:v9);par

9、ameters.ParamByName(v1).Value:=edit2.Text;parameters.ParamByName(v2).Value:=edit3.Text;parameters.ParamByName(v3).Value:= combobox1.text;parameters.ParamByName(v4).Value:=datetimepicker1.Date;parameters.ParamByName(v5).Value:=edit4.Text;parameters.ParamByName(v6).Value:=edit5.Text;parameters.ParamBy

10、Name(v7).Value:=edit6.Text;parameters.ParamByName(v8).Value:=edit7.Text;parameters.ParamByName(v9).Value:=edit8.Text;execsql;showmessage(插入成功！)end;end;end;end;人员档案修改：procedure TForm3.Button2Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(人员代码不能为空)elsebeginwith ADOQuery2 dobeginclose

11、;sql.Clear;sql.Add(update wl123人员档案表);sql.Add(set 姓名=:v2,性别=:v3,出生日期=:v4,身份证号=:v5,籍贯=:v6,家庭住址=:v7,联系电话=:v8,其它情况=:v9);sql.Add(where 人员代码=:v1);parameters.ParamByName(v1).Value:=edit2.Text;parameters.ParamByName(v2).Value:=edit3.Text;parameters.ParamByName(v3).Value:= combobox1.text;parameters.ParamByN

12、ame(v4).Value:=datetimepicker1.Date;parameters.ParamByName(v5).Value:=edit4.Text;parameters.ParamByName(v6).Value:=edit5.Text;parameters.ParamByName(v7).Value:=edit6.Text;parameters.ParamByName(v8).Value:=edit7.Text;parameters.ParamByName(v9).Value:=edit8.Text;execsql;showmessage(修改成功!)end;end;end;删

13、除人员档案：procedure TForm3.Button6Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(请输入人员代码)else if MessageDlg(确定要删除么？,mtConfirmation,mbYes,mbNo,0)=mrYes thenbeginwith ADOQuery4 dobeginclose;sql.Clear;sql.Add(delete from wl123人员档案表);sql.Add(where 人员代码=+edit2.Text+);execsql;showmessage(删除成

14、功！)end;end;end; 物料管理代码：模糊查询：procedure TForm2.Button1Click(Sender: TObject);beginwith adoquery1 do begin sql.clear; sql.Add(select * from Wl123物料档案表); sql.add(where 物料代码+物料名称+规格型号 like %+edit1.text+%); active:=true; edit2.Text:=fieldbyname(物料代码).asstring; edit3.Text:=fieldbyname(物料名称).asstring; edit4

15、.Text:=fieldbyname(规格型号).asstring; combobox1.Text:=fieldbyname(计量单位).asstring; edit5.Text:=fieldbyname(库存数量).asstring; edit6.Text:=fieldbyname(备注).asstring; end;end;定位：procedure TForm2.DBGrid1CellClick(Column: TColumn);beginwith adoquery1 do begin edit2.Text:=fieldbyname(物料代码).asstring; edit3.Text:=

16、fieldbyname(物料名称).asstring; edit4.Text:=fieldbyname(规格型号).asstring; combobox1.Text:=fieldbyname(计量单位).asstring; edit5.Text:=fieldbyname(库存数量).asstring; edit6.Text:=fieldbyname(备注).asstring; end;end;物料档案增加：procedure TForm2.Button2Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(请输入物料代

17、码)elsebeginADOQuery2.Close;ADOQuery2.SQL.Clear;ADOQuery2.SQL.Add(select * from Wl123物料档案表);ADOQuery2.SQL.Add(where 物料代码=+edit2.Text+);ADOQuery2.Open;if ADOQuery2.RecordCount0 thenshowmessage(物料代码+edit2.Text+已存在，请重新输入！)elsebeginwith ADOQuery2 dobeginclose;sql.Clear;sql.Add(insert into Wl123物料档案表(物料代码

18、,物料名称,规格型号,计量单位,库存数量,备注);sql.Add(values(:v1,:v2,:v3,:v4,:v5,:v6);parameters.ParamByName(v1).Value:=edit2.Text;parameters.ParamByName(v2).Value:=edit3.Text;parameters.ParamByName(v3).Value:=edit4.Text;parameters.ParamByName(v4).Value:=combobox1.Text;parameters.ParamByName(v5).Value:=edit5.Text;parame

19、ters.ParamByName(v6).Value:=edit6.Text;execsql;showmessage(插入成功)end;end;end;end;物料档案修改：procedure TForm2.Button3Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(物料代码不能为空)elsebeginwith ADOQuery3 dobeginclose;sql.Clear;sql.Add(update Wl123物料档案表);sql.Add(set 物料名称=:v2,规格型号=:v3,计量单位=:v4,库存

20、数量=:v5,备注=:v6);sql.Add(where 物料代码=:v1);parameters.ParamByName(v1).Value:=edit2.Text;parameters.ParamByName(v2).Value:=edit3.Text;parameters.ParamByName(v3).Value:=edit4.Text;parameters.ParamByName(v4).Value:=combobox1.Text;parameters.ParamByName(v5).Value:=edit5.Text;parameters.ParamByName(v6).Value:=edit6.Text;execsql;showmessage(修改成功!)end;end;end;物料档案删除：procedure TForm2.Button4Click(Sender: TObject);beginif trim(edit2.Text)= thenshowmessage(物料代码不能为空)else if MessageDlg(确定要删除么？,mtConfirmation,mbYes,mbNo,0)=mrYes