人员档案的管理、物料档案管理.doc

福建工程学院计算机与信息科学系实验报告 2011 2012 学年第 2 学期 任课老师： 课程名称C/S程序综合设计班级计1006座号31姓名实验题目人员档案的管理、物料档案管理简单物料进仓/出仓信息管理用户登录与权限设计实验时间实验日期： 517 提交日期： 619 实验目的、要求设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等企业物料进出仓的信息管理，物料进出仓的信息主要包括进出仓单号、进出仓日期、操作人员代码、备注、物料代码、进仓数量、出仓数量等用户在这里就指操作人员，已经在人员档案中进行管理，通过设计用户登录和用户权限的管理，实现用户按权限访问资源，管理员按要求授予用户权限，登录程序安全稳定，设计用户菜单及程序调用。人员表中需要新增字段口令、用户权限。系统中每个操作人员都可以作为用户，当一个用户权限修改时，不会影响其他用户；可以对每个用户单独授予某个程序的执行权，也可以收回其执行权，而不影响其他用户的权限实验设计内容一 人员档案的管理、物料档案管理主界面：人员档案管理：物料档案管理：人员管理代码：查询procedure pro();beginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(select * from j100631employee);open;end;end;模糊查询procedure TForm2.Button4Click(Sender: TObject);beginif trim(edit8.Text)= thenshowmessage(请输入姓名)elsebeginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(select * from j100631employee);sql.Add(where 姓名 like %+edit8.text+%);open;end;if datamodule1.ADOQuery1.RecordCount=0 thenshowmessage(没有找到符合条件的字段);end;end;增加：procedure TForm2.Button1Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(人员代码不能为空)elsebegindatamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631employee);datamodule1.ADOQuery1.SQL.Add(where 人员代码=+edit1.Text+);datamodule1.ADOQuery1.Open;/该查找代码的记录if datamodule1.ADOQuery1.RecordCount0 thenshowmessage(人员代码+edit1.Text+已存在，请重新输入！)elsebeginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(insert into j100631employee(人员代码,姓名,性别,出生日期,身份证号,籍贯,家庭住址,联系电话,其他情况);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.Itemsradiogroup1.ItemIndex;parameters.ParamByName(v4).Value:=datetimepicker1.Date;parameters.ParamByName(v5).Value:=edit3.Text;parameters.ParamByName(v6).Value:=edit4.Text;parameters.ParamByName(v7).Value:=edit5.Text;parameters.ParamByName(v8).Value:=edit6.Text;parameters.ParamByName(v9).Value:=edit7.Text;execsql;pro();end;end;end;end;procedure TForm2.Button5Click(Sender: TObject);beginpro();end;修改procedure TForm2.Button2Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(人员代码不能为空)elsebeginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(update j100631employee);sql.Add(set 姓名=:v2,性别=:v3,出生日期=:v4,身份证号=:v5,籍贯=:v6,家庭住址=:v7,联系电话=:v8,其他情况=:v9);sql.Add(where 人员代码=:v1);parameters.ParamByName(v1).Value:=edit1.Text;parameters.ParamByName(v2).Value:=edit2.Text;parameters.ParamByName(v3).Value:=radiogroup1.Itemsradiogroup1.ItemIndex;parameters.ParamByName(v4).Value:=datetimepicker1.Date;parameters.ParamByName(v5).Value:=edit3.Text;parameters.ParamByName(v6).Value:=edit4.Text;parameters.ParamByName(v7).Value:=edit5.Text;parameters.ParamByName(v8).Value:=edit6.Text;parameters.ParamByName(v9).Value:=edit7.Text;execsql;pro();end;endend;删除procedure TForm2.Button3Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(请输入人员代码)else if MessageDlg(确定要删除么？,mtConfirmation,mbYes,mbNo,0)=mrYes thenbeginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(delete from j100631employee);sql.Add(where 人员代码=+edit1.Text+);execsql;pro();end;end;end;动态更新procedure TForm2.Edit1Change(Sender: TObject);varsex:string;date:string;beginwith datamodule1.ADOQuery1 dobeginclose;sql.Clear;sql.Add(select * from j100631employee);sql.Add(where 人员代码=+edit1.Text+);open;end;edit2.Text:=datamodule1.ADOQuery1.FieldByName(姓名).AsString;sex:=datamodule1.ADOQuery1.FieldByName(性别).AsString;if sex=男 thenradiogroup1.ItemIndex:=0elseradiogroup1.ItemIndex:=1;if trim(datamodule1.ADOQuery1.FieldByName(出生日期).AsString) thenbegindate:=datamodule1.ADOQuery1.FieldByName(出生日期).AsString;date:=copy(date,1,10);datetimepicker1.DateTime:=strtodate(date);end;edit3.Text:=datamodule1.ADOQuery1.FieldByName(身份证号).AsString;edit4.Text:=datamodule1.ADOQuery1.FieldByName(籍贯).AsString;edit5.Text:=datamodule1.ADOQuery1.FieldByName(家庭住址).AsString;edit6.Text:=datamodule1.ADOQuery1.FieldByName(联系电话).AsString;edit7.Text:=datamodule1.ADOQuery1.FieldByName(其他情况).AsString;end;物料管理代码：procedure pro();beginwith datamodule1.ADOQuery2 dobeginclose;sql.Clear;sql.Add(select * from j100631wl);open;end;end;procedure TForm3.Button4Click(Sender: TObject);beginpro();end;procedure TForm3.Button1Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(请输入物料代码)elsebegindatamodule1.ADOQuery2.Close;datamodule1.ADOQuery2.SQL.Clear;datamodule1.ADOQuery2.SQL.Add(select * from j100631wl);datamodule1.ADOQuery2.SQL.Add(where 物料代码=+edit1.Text+);datamodule1.ADOQuery2.Open;if datamodule1.ADOQuery2.RecordCount0 thenshowmessage(物料代码+edit1.Text+已存在，请重新输入！)elsebeginwith datamodule1.ADOQuery2 dobeginclose;sql.Clear;sql.Add(insert into j100631wl(物料代码,物料名称,规格型号,计量单位,库存数量,备注);sql.Add(values(:v1,:v2,:v3,:v4,:v5,:v6);parameters.ParamByName(v1).Value:=edit1.Text;parameters.ParamByName(v2).Value:=edit2.Text;parameters.ParamByName(v3).Value:=combobox1.Text;parameters.ParamByName(v4).Value:=edit1.Text;parameters.ParamByName(v5).Value:=edit4.Text;parameters.ParamByName(v6).Value:=edit5.Text;execsql;pro();end;end;end;end;procedure TForm3.Button2Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(物料代码不能为空)elsebeginwith datamodule1.ADOQuery2 dobeginclose;sql.Clear;sql.Add(update j100631wl);sql.Add(set 物料名称=:v2,规格型号=:v3,计量单位=:v4,库存数量=:v5,备注=:v6);sql.Add(where 物料代码=:v1);parameters.ParamByName(v1).Value:=edit1.Text;parameters.ParamByName(v2).Value:=edit2.Text;parameters.ParamByName(v3).Value:=combobox1.Text;parameters.ParamByName(v4).Value:=edit1.Text;parameters.ParamByName(v5).Value:=edit4.Text;parameters.ParamByName(v6).Value:=edit5.Text;execsql;pro();end;end;end;procedure TForm3.Button3Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(物料代码不能为空)else if MessageDlg(确定要删除么？,mtConfirmation,mbYes,mbNo,0)=mrYes thenwith datamodule1.ADOQuery2 dobeginclose;sql.Clear;sql.Add(delete from j100631wl);sql.Add(where 物料代码=+edit1.Text+);execsql;pro();end;end;procedure TForm3.Button5Click(Sender: TObject);beginif trim(edit6.Text)= thenshowmessage(请输入查询信息)elsebegindatamodule1.ADOQuery2.close;datamodule1.ADOQuery2.sql.Clear;datamodule1.ADOQuery2.sql.Add(select * from j100631wl);datamodule1.ADOQuery2.sql.Add(where +ComboBox2.Text+ like %+edit6.Text+%);datamodule1.ADOQuery2.open;if datamodule1.ADOQuery2.RecordCount=0 thenshowmessage(未能找到相应的信息);end;end;procedure TForm3.Edit1Change(Sender: TObject);beginwith datamodule1.ADOQuery2 dobeginclose;sql.Clear;sql.Add(select * from j100631wl);sql.Add(where 物料代码=+edit1.Text+);open;edit2.Text:=datamodule1.ADOQuery2.FieldByName(物料名称).AsString;edit3.Text:=datamodule1.ADOQuery2.FieldByName(规格型号).AsString;combobox1.Text:=datamodule1.ADOQuery2.FieldByName(计量单位).AsString;edit4.Text:=datamodule1.ADOQuery2.FieldByName(库存数量).AsString;edit5.Text:=datamodule1.ADOQuery2.FieldByName(备注).AsString;end;end;二简单物料进仓/出仓信息管理procedure TForm1.RadioGroup1Click(Sender: TObject);beginif radiogroup1.ItemIndex=0 thenbeginbutton1.Enabled:=true;button2.Enabled:=false;endelsebeginbutton1.Enabled:=false;button2.Enabled:=true;end;end;procedure TForm1.FormShow(Sender: TObject);vari:integer;begindatamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631employee);datamodule1.ADOQuery1.Open;for i:=0 to datamodule1.ADOQuery1.RecordCount-1 dobegincombobox1.Items.Add(datamodule1.ADOQuery1.fieldbyname(人员代码).AsString);datamodule1.ADOQuery1.Next;end;datamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631wl);datamodule1.ADOQuery1.Open;for i:=0 to datamodule1.ADOQuery1.RecordCount-1 dobegincombobox2.Items.Add(datamodule1.ADOQuery1.fieldbyname(物料代码).AsString);datamodule1.ADOQuery1.Next;end;combobox1.ItemIndex:=0;combobox2.ItemIndex:=0;end;procedure TForm1.Button1Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(数量不能为空)elsebegindatamodule1.ADOStoredProc1.Parameters.ParamByName(riq).Value:=datetimepicker1.DateTime;datamodule1.ADOStoredProc1.Parameters.ParamByName(reny).Value:=combobox1.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(beiz).Value:=edit2.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(wulid).Value:=combobox2.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(shul).Value:=strtoint(edit1.Text);datamodule1.ADOStoredProc1.Parameters.ParamByName(item).Value:=0;datamodule1.ADOStoredProc1.Prepared:=true;datamodule1. adostoredproc1.execproc;showmessage(进仓成功);datamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631wl_in);datamodule1.ADOQuery1.Open;end;end;procedure TForm1.Button4Click(Sender: TObject);begindatamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631wl);datamodule1.ADOQuery1.Open;end;procedure TForm1.Button2Click(Sender: TObject);varflag:integer;beginif trim(edit1.Text)= thenshowmessage(数量不能为空)elsebegindatamodule1.ADOStoredProc1.Parameters.ParamByName(riq).Value:=datetimepicker1.DateTime;datamodule1.ADOStoredProc1.Parameters.ParamByName(reny).Value:=combobox1.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(beiz).Value:=edit2.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(wulid).Value:=combobox2.Text;datamodule1.ADOStoredProc1.Parameters.ParamByName(shul).Value:=strtoint(edit1.Text);datamodule1.ADOStoredProc1.Parameters.ParamByName(item).Value:=1;datamodule1.ADOStoredProc1.Prepared:=true;datamodule1. adostoredproc1.execproc;flag:=datamodule1.ADOStoredProc1.Parameters.ParamByName(return_value).Value;if flag=-1 thenshowmessage(库存数量不足)elseshowmessage(出仓成功);datamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631wl_out);datamodule1.ADOQuery1.Open;end;end;procedure TForm1.Button3Click(Sender: TObject);beginif trim(edit3.Text)= thenshowmessage(请输入信息)else if radiogroup2.ItemIndex=0 thenbegindatamodule1.ADOQuery1.Close;datamodule1.ADOQuery1.SQL.Clear;datamodule1.ADOQuery1.SQL.Add(select * from j100631wl_in);datamodule1.ADOQuery1.SQL.Add(where +ComboBox3.Text+ = :name);dataModule1.ADOQuery1.SQL.Add(and 进仓日期 = :date1 and 进仓日期 = :date1 and 出仓日期 = :date2 );dataModule1.ADOQuery1.Parameters.ParamByName(name).Value:= edit3.Text;dataModule1.ADOQuery1.Parameters.ParamByName(date1).Value:=datetimepicker2.datetime;dataModule1.ADOQuery1.Parameters.ParamByName(date2).Value:=datetimepicker3.datetime;datamodule1.ADOQuery1.Open;if datamodule1.ADOQuery1.RecordCount=0 thenshowmessage(找不到相应的信息);end;end;end.单号生成CREATE function code(item int)returns char(10)asbegindeclare code char(10)declare sum1 integerdeclare sum2 integerif item=0beginselect sum1=count(*) from j100631wl_inset sum1=sum1+1set code=sum1endelse if item=1beginselect sum2=count(*) from j100631wl_outset sum2=sum2+1set code=sum2endreturn codeend存储过程CREATE procedure wlriq datetime,reny char(10),beiz char(10),wulid char(10),shul int,flag int,item intasdeclare kucshul intbeginif item=0beginupdate j100631wlset 库存数量=库存数量+shulwhere 物料代码=wulidinsert into j100631wl_in(进仓日期,操作人员代码,备注,物料代码,进仓数量)values(riq,reny,beiz,wulid,shul)set flag=1endelse if item=1beginselect kucshul=库存数量from j100631wl where 物料代码=wulidif kucshulshulbeginset flag=-1endelsebeginupdate j100631wlset 库存数量=库存数量-shulwhere 物料代码=wulidinsert into j100631wl_out(出仓日期,操作人员代码,备注,物料代码,出仓数量)values(riq,reny,beiz,wulid,shul)set flag=1endendendreturn flagGO三. 用户登录与权限设计登录procedure TForm1.Button1Click(Sender: TObject);beginif trim(edit1.Text)= thenshowmessage(用户名不能为空)else if trim(edit2.Text)= thenshowmessage(请输入密码)elsebegindatamodule1.adoquery1.close;datamodule1.adoquery1.SQL.Clear;datamodule1.adoquery1.SQL.Add(select * from j100631user);datamodule1.adoquery1.SQL.Add(where 用户名=+trim(edit1.Text)+);datamodule1.adoquery1.Open;datamodule1.adoquery2.close;datamodule1.adoquery2.SQL.Clear;datamodule1.adoquery2.SQL.Add(select * from j100631user);datamodule1.adoquery2.SQL.Add(where 密码=+trim(edit2.Text)+);datamodule1.adoquery2.SQL.Add(and 用户名=+trim(edit1.Text)+);datamodule1.adoquery2.Open;if (datamodule1.adoquery1.RecordCount=0) or (datamodule1.adoquery2.RecordCount=0) thenshowmessage(用户名或者密码错误)elsebeginform1.Hide;if trim(datamodule1.adoquery1.FieldByName(用户名).AsString)=sa thenform2.showelseform3.show;end;endend;procedure TForm1.Button2Click(Sender: TObject);beginclose;end;end.权限赋予procedure pro();begindatamodule1.adoquery1.close;datamodule1.adoquery1.SQL.Clear;datamodule1.adoquery1.SQL.Add(select * from j100631user);datamodule1.adoquery1.SQL.Add(where 用户名=+trim(form2.edit1.Text)+);datamodule1.adoquery1.Open;end;procedure TForm2.Button3Click(Sender: TObject);beginform1.close;close;end;procedure TForm2.Button1Click(Sender: TObject);vara,b:string;i:integer;beginchecklistbox1.Checked0:=false;checklistbox1.Checked1:=false;checklistbox1.Checked2:=false;if trim(edit1.Text)= thenshowmessage(用户名不能为空)elsebeginpro();if datamodule1.adoquery1.RecordCount=0 thenshowmessage(该