《实验课题一人员档案的管理、物料档案管理.》由会员分享，可在线阅读，更多相关《实验课题一人员档案的管理、物料档案管理.（9页珍藏版）》请在金锄头文库上搜索。
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.Text:=fieldbyname(规格型号).asstring; combobox1.Text:=fieldbyname(计量单位).asstring; edit5.Te
