资源预览内容
第1页 / 共9页
第2页 / 共9页
第3页 / 共9页
第4页 / 共9页
第5页 / 共9页
第6页 / 共9页
第7页 / 共9页
第8页 / 共9页
第9页 / 共9页
亲,该文档总共9页全部预览完了,如果喜欢就下载吧!
资源描述
实验报告 2012 2013 学年第 1 学期 任课老师: 课程名称C/S程序综合设计班级座号233姓名实验题目实验课题一、人员档案的管理、物料档案管理实验时间实验目的、要求设计实现对企业人员基本情况的档案的输入、删除与修改,企业人员基本情况主要包括:人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等。1 程序须包括主界面程序,程序名用“班级名座号main”,主界面可以通过菜单调用到其它所有子程序。2 人员档案的增加、修改、删除的程序,其中人员档案表在数据库中必须以“班级座号(表示人员的中英文信息)”来命名,人员档案的信息管理程序也必须以“班级座号(表示程序名的中英文信息)”来命名。其中人员代码不能为空,性别必须用“男”、“女”选择方式,出生日期必须用日期控件来控制。修改、删除程序在执行修改删除操作前,都必须进行记录定位操作,所以必须有相应的查询程序,可以借用查询程序来完成记录定位。人员档案的增加、修改、删除程序也可以用三个程序名,分别编程。3 人员档案查询程序,程序名以“班级座号(表示程序名的中英文信息)”来命名,可以在查询框中输入人员姓名中的任何一个单字,查询出含该字的所有人员。物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。1 物料档案的增加、修改、删除程序,程序名以“班级座号(表示程序名的中英文信息)”来命名,具体内容参考人员档案管理程序。物料表在数据库中以“班级座号(表示程序名的中英文信息)”来命名表,客户端输入时要求物料代码不为空,计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等,计量单位并可以输入其它单位名,库存数量默认为0。2 物料查询程序可以在通过输入框的文字进行模糊查询(物料代码、名称、规格中是否含有输入框的文字),程序名用“班级座号(表示程序名的中英文信息)”来命名。实验设计内容一 人员档案的管理、物料档案管理主界面:人员档案的管理: 物料档案管理:人员管理代码:查询:procedure TForm3.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; edit5.Text:=fieldbyname(籍贯).asstring; edit6.Text:=fieldbyname(家庭住址).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:=fieldbyname(人员代码).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(出生日期).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.Text+ 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);parameters.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.ParamByName(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;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.ParamByName(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;删除人员档案: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(删除成功!)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
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号