资源描述：
《人员档案的管理、物料档案管理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、福建工程学院计算机与信息科学系实验报告2011–2012学年第2学期任课老师：课程名称C/S程序综合设计班级计1006座号31姓名实验题目人员档案的管理、物料档案管理简单物料进仓/出仓信息管理用户登录与权限设计实验时间实验日期：5—17提交日期：6—19实验目的、要求设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等企业物料进出仓的信息管理，物料进出仓的信息主要包括进出仓单号、进出仓日期、操
2、作人员代码、备注、物料代码、进仓数量、出仓数量等用户在这里就指操作人员，已经在人员档案中进行管理，通过设计用户登录和用户权限的管理，实现用户按权限访问资源，管理员按要求授予用户权限，登录程序安全稳定，设计用户菜单及程序调用。人员表中需要新增字段口令、用户权限。系统中每个操作人员都可以作为用户，当一个用户权限修改时，不会影响其他用户；可以对每个用户单独授予某个程序的执行权，也可以收回其执行权，而不影响其他用户的权限实验设计内容一．人员档案的管理、物料档案管理26主界面：人员档案管理：物料档案管理：
3、人员管理代码：26查询procedurepro();beginwithdatamodule1.ADOQuery1dobeginclose;sql.Clear;sql.Add('select*fromj100631employee');open;end;end;模糊查询procedureTForm2.Button4Click(Sender:TObject);beginiftrim(edit8.Text)=''thenshowmessage('请输入姓名')elsebeginwithdatamodu
4、le1.ADOQuery1dobeginclose;sql.Clear;sql.Add('select*fromj100631employee');sql.Add('where姓名like''%'+edit8.text+'%''');open;end;ifdatamodule1.ADOQuery1.RecordCount=0thenshowmessage('没有找到符合条件的字段');end;26end;增加：procedureTForm2.Button1Click(Sender:TObject
5、);beginiftrim(edit1.Text)=''thenshowmessage('人员代码不能为空')elsebegindatamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add('select*fromj100631employee');datamodule1.ADOQuery1.SQL.Add('where人员代码='''+edit1.Text+'''');data
6、module1.ADOQuery1.Open;//该查找代码的记录ifdatamodule1.ADOQuery1.RecordCount<>0thenshowmessage('人员代码'+edit1.Text+'已存在，请重新输入！')elsebeginwithdatamodule1.ADOQuery1dobeginclose;sql.Clear;sql.Add('insertintoj100631employee(人员代码,姓名,性别,出生日期,身份证号,籍贯,家庭住址,联系电话,其他情况)'
7、);sql.Add('values(:v1,:v2,:v3,:v4,:v5,:v6,:v7,:v8,:v9)');parameters.ParamByName('v1').Value:=edit1.Text;parameters.ParamByName('v2').Value:=edit2.Text;parameters.ParamByName('v3').Value:=radiogroup1.Items[radiogroup1.ItemIndex];parameters.ParamByName
8、('v4').Value:=datetimepicker1.Date;parameters.ParamByName('v5').Value:=edit3.Text;26parameters.ParamByName('v6').Value:=edit4.Text;parameters.ParamByName('v7').Value:=edit5.Text;parameters.ParamByName('v8').Value:=edit6.Text;parameters.ParamByName('v
