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

实验报告– 2013 学年第 1 学期 任课老师： 课程名称 《C/S程序综合设计》 班级 座号 233 姓名 实验题目 实验课题一、人员档案的管理、物料档案管理 实验时间 实验目的、要求 设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等。 程序须包括主界面程序，程序名用“班级名＋座号＋main”，主界面可以通过菜单调用到其它所有子程序。 人员档案的增加、修改、删除的程序，其中人员档案表在数据库中必须以“班级＋座号＋（表示人员的中英文信息）”来命名，人员档案的信息管理程序也必须以“班级＋座号＋（表示程序名的中英文信息）”来命名。其中人员代码不能为空，性别必须用“男”、“女”选择方式，出生日期必须用日期控件来控制。修改、删除程序在执行修改删除操作前，都必须进行记录定位操作，所以必须有相应的查询程序，可以借用查询程序来完成记录定位。人员档案的增加、修改、删除程序也可以用三个程序名，分别编程。 人员档案查询程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，可以在查询框中输入人员姓名中的任何一个单字，查询出含该字的所有人员。 物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。 物料档案的增加、修改、删除程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，具体内容参考人员档案管理程序。物料表在数据库中以“班级＋座号＋（表示程序名的中英文信息）”来命名表，客户端输入时要求物料代码不为空，计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等，计量单位并可以输入其它单位名，库存数量默认为0。 物料查询程序可以在通过输入框的文字进行模糊查询（物料代码、名称、规格中是否含有输入框的文字），程序名用“班级＋座号＋（表示程序名的中英文信息）”来命名。 实验设计内容 人员档案的管理、物料档案管理 主界面： ： 人员档案的管理： 物料档案管理： 人员管理代码： 查询： procedure TForm3.Button1Click(Sender: TObject); begin with 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(出生日期).asdatetim