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

福建工程学院计算机与信息科学系实验报告2012–三学年第一学期任课老师：张晓志课程名称人员档案的管理、物料档案管理班级网络1001座号13姓名林基强实验题目人员档案的管理、物料档案管理实验时间2012.09.23实验目的、要求设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等。1．程序须包括主界面程序，程序名用“班级名＋座号＋main”，主界面可以通过菜单调用到其它所有子程序。2．人员档案的增加、修改、删除的程序，其中人员档案表在数据库中必须以“班级＋座号＋（表示人员的中英文信息）”来命名，人员档案的信息管理程序也必须以“班级＋座号＋（表示程序名的中英文信息）”来命名。其中人员代码不能为空，性别必须用“男”、“女”选择方式，出生日期必须用日期控件来控制。修改、删除程序在执行修改删除操作前，都必须进行记录定位操作，所以必须有相应的查询程序，可以借用查询程序来完成记录定位。人员档案的增加、修改、删除程序也可以用三个程序名，分别编程。3．人员档案查询程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，可以在查询框中输入人员姓名中的任何一个单字，查询出含该字的所有人员。物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。1．物料档案的增加、修改、删除程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，具体内容参考人员档案管理程序。物料表在数据库中以“班级＋座号＋（表示程序名的中英文信息）”来命名表，客户端输入时要求物料代码不为空，计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等，计量单位并可以输入其它单位名，库存数量默认为0。2．物料查询程序可以在通过输入框的文字进行模糊查询（物料代码、名称、规格中是否含有输入框的文字），程序名用“班级＋座号＋（表示程序名的中英文信息）”来命名。实验设计内容人员档案设计主界面：人员菜单系统主要由以上增删改查四个模块，相对设计比较简单。通过delphi的几个插件功能，实现对数据库的连接和数据操作。主要有：ADOquery，ADOconnection，DATEsource，DBGrid等构成的，以下为实现各个模块的代码和解释：一．添加人员模块：进行人员的添加时，要进行判断是否人员代码有没有冲突，如果存在该代码，则显示代码已被使用。Ename:=edit3.text;ENO:=edit2.text;Esex:=RadioGroup1.Items[RadioGroup1.ItemIndex];Enative:=edit5.text;Etel:=edit6.text;Eid:=edit4.text;Eadd:=edit7.text;Emeno:=memo1.text;beginclose;adoquery1.sql.clear;adoquery1.sql.add('select*from人员档案whereENO='''+ENO+'''');adoquery1.open;ifadoquery1.RecordCount0thenbeginshowmessage('人员代码已被使用！');exit;endelsebeginclose;Adoquery1.sql.clear;adoquery1.sql.add('insertinto人员档案(ENO,Ename,Esex,Eid,Enative,Eadd,Etel,Ebir,Emeno)');adoquery1.sql.add('values(:ENO,:Ename,:Esex,:Eid,:Enative,:Eadd,:Etel,:Ebir,:Emeno)');ADOQuery1.parameters.ParamByName('ENO').Value:=trim(Edit2.Text);ADOQuery1.parameters.ParamByName('Ename').Value:=trim(Edit3.Text);ADOQuery1.parameters.ParamByName('Esex').Value:=trim(RadioGroup1.Items[RadioGroup1.ItemIndex]);ADOQuery1.parameters.ParamByName('Enative').Value:=trim(edit5.Text);ADOQuery1.parameters.ParamByName('Ebir').Value:=DateTimePicker1.DateTime;ADOQuery1.parameters.ParamByName('Etel').Value:=trim(Edit6.Text);ADOQuery1.parameters.ParamByName('Eid').Value:=trim(Edit4.Text);ADOQuery1.parameters.ParamByName('Eadd').Value:=trim(Edit7.Text);ADOQuery1.parameters.ParamByName('Emeno').Value:=trim(memo1.Text);adoquery1.execsql;showmessage('添加成功！');end;end;end;二．人员的修改通过双击DBGrid的某一条要修改的记录，人员代码自动送到人员代码的编辑框中，此时定位该代码进行操作修改而不对别的记录进行修改。varENO,Ename,Esex,Eid,Enative,Eadd,Etel:string;Ebir:tdatetime;NO,Emeno:string;beginNO:=edit2.Text;ENO:=edit2.text;Ename:=edit3.text;Esex:=RadioGroup1.Items[RadioGroup1.ItemIndex];Ebir:=(DateTimePicker1.Date);//datetimetostringEnative:=edit5.text;Eid:=edit4.text;Etel:=edit6.text;Eadd:=edit7.text;Emeno:=memo1.text;begintryifedit2.Text=NOthenadoquery1.sql.clear;adoquery1.sql.add('update人员档案setEname='''+Ename+''',Esex='''+Esex+''',Eid='''+Eid+''','+'Eadd='''+Eadd+''',Emeno='''+Emeno+''',Etel='''+Etel+''',Enative='''+Enative+'''whereENO='''+ENO+'''');adoquery1.execsql;showmessage('修改成功！');exceptshowmessage('修改失败！');end;end;end;三．进行人员删除这个模块比较简单，定位记录，进行deletevarENO:string;beginENO:=edit2.text;beginclose;adoquery1.sql.clear;adoquery1.sql.add('select*from人员档案whereENO='''+ENO+'''');adoquery1.open;ifadoquery1.RecordCount0thenbeginadoquery1.sql.clear;adoquery1.sql.add('deletefrom人员档案whereENO='''+ENO+'''');adoquery1.execsql;showmessage('删除成功！');endelseshowmessage('不存在该员工！！');end;form2.show;end;四．人员模糊查找此模块是进行模糊查找，只要符合关键字，都一律显示出来：beginEtext:=edit1.text;adoquery1.sql.clear;adoquery1.sql.add('selectENO人员代码,Ename员工姓名,Esex性别,Enative籍贯,Ebir出生日期,Eid身份证号,Etel电话,Eadd家庭住址,Emeno备注from人员档案whereENO+Ename+Eidlike''%'+trim(Etext)+'%''');adoquery1.open;end;显示调试记录：物料档案设计主界面本物料表设计思想和人员档案设计一样，代码基本差不多，因为功能实现的效果相同，一下给出代码：一．添加物料代码：varMno,Mname,Mtype,Munit,Mnum,Meno:string;beginMno:=edit2.text;Mname:=edit3.text;Mtype:=edit5.text;Mnum:=edit4.text;Meno:=memo1.text;Munit:=combobox1.text;beginclose;adoquery1.sql.clear;adoquery1.sql.add('select*from物料档案whereMno='''+Mno+'''');adoquery1.open;ifadoquery1.RecordCount0thenbeginshowmessage('物料代码已被使用！');exit;endelsebeginclose;adoquery1.SQL.Clear;adoquery1.SQL.Add('insertinto物料档案(Mno,Mname,Mtype,Mnum,Munit,Meno)');adoquery1.sql.add('values(:Mno,:Mname,:Mtype,:Mnum,:Munit,:Meno)');ADOQuery1.parameters.ParamByName('Mno').Value:=trim(Edit2.Text);ADOQuery1.parameters.ParamByName('Mname').Value:=trim(Edit3.Text);ADOQuery1.parameters.ParamByName('Mtype').Value:=trim(Edit5.Text);ADOQuery1.parameters.ParamByName('Munit').Value:=trim(combobox1.Text);ADOQuery1.parameters.ParamByName('Meno').Value:=trim(memo1.Text);ADOQuery1.parameters.ParamByName('Mnum').Value:=trim(Edit4.Text);adoquery1.execsql;showmessage('物料添加成功！');end;end;end;二．修改物料表代码：varMno,Mname,Mtype,Munit,Mnum,Meno:string;beginMno:=edit2.text;Mname:=edit3.text;Mtype:=edit5.text;Mnum:=edit4.text;Meno:=memo1.text;Munit:=combobox1.text;begintryadoquery1.sql.clear;adoquery1.sql.add('update物料档案setMname='''+Mname+''',Mnum='''+Mnum+''',Mtype='''+Mtype+''',Munit='''+Munit+''','+'Meno='''+Meno+'''');adoquery1.execsql;showmessage('修改成功！');exceptshowmessage('修改失败！');end;end;end;三．删除物料代码：varMno