基于delphi 的C题目怎么做啊,帮帮忙啊.doc

基于delphi 的C/S 设计平台选择DELPHI access系统目标（功能） 用户登录 个人资料修改 人员花名册，浏览用户 员工维护，增、删、改 销售数量查询 部门维护（尚未实现）数据库设计1）员工表如下：2）部门表如下：3）商品表如下：数据库设计内容 详细设计 流程界面+代码procedure TForm1.loginClick(Sender: TObject);var i,y:integer; username,password:string;begin username :=trim(cus.Text); password :=trim(psd.Text); y:=0; DataModule5.ADOQuery1.Open; DataModule5.ADOQuery1.First; for i:=0 to DataModule5.ADOQuery1.RecordCount-1 do begin if (trim(DataModule5.ADOQuery1.FieldValuesc_name)=username )then begin if DataModule5.ADOQuery1.FieldValuespassword=password then begin xpsd:=trim(psd.Text); xusername:=DataModule5.ADOQuery1.fieldbyname(c_no).asstring; showmessage(恭喜您， + cus.Text + ，登陆成功！); / cus.Text:=; / psd.Text:=; y:=y+1; Form1.Hide; Form2.show ; end ; end ; DataModule5.ADOQuery1.Next; end; DataModule5.ADOQuery1.Close; if y=0 then begin cus.Text:=; psd.Text:=; showmessage(您登陆错误，请重新登陆！) ; end ;end;procedure TForm2.FormShow(Sender: TObject);var x:string;begin x:=midstr(form1.xusername,1,1); begin if x=A then label2.Caption:=高级管理员 else if x=B then label2.Caption:=普通管理员 else label2.Caption:=普通用户 end; begin if MidStr(x,1,1)=A then label2.Caption:=高级管理员 else if MidStr(x,1,1)=B then label2.Caption:=普通管理员 else label2.Caption:=普通用户 end;end; procedure TForm3.BitBtn1Click(Sender: TObject);beginwith adocommand1 dobegin if trim(edit1.Text)form1.xpsd then begin showmessage(输入原密码不正确); edit1.SetFocus; end else if trim(edit2.Text)=form1.xpsd then begin showmessage(新密码不可与原密码相同，请修改); edit2.SetFocus; end else if trim(edit2.Text)trim(edit3.Text) then begin Showmessage(新密码和校验密码不同,请修改！); edit2.setfocus; end else begin parameters.Clear; commandtext:=update admin set password=:p1 where c_no=:p2; parameters.ParamByName(p1).Value:=trim(edit2.Text); parameters.ParamByName(p2).Value:=form1.xusername; execute; edit1.Text:=; edit2.Text:=; edit3.Text:=; showmessage(修改密码成功！); DataModule5.ADOTable1.Close; DataModule5.ADOTable1.Open; end; end;end;procedure TForm4.BitBtn2Click(Sender: TObject);beginwith adocommand1 dobegin if application.MessageBox(pchar(delete yes?),pchar(caption),3+48)=6 then begin commandtext:=delete admin where c_id=+DataModule5.adoquery1.fieldbyname(c_id).asstring; execute; end; DataModule5.adoquery1.Close; DataModule5.adoquery1.open; end;end;procedure TForm4.ADOQuery1AfterScroll(DataSet: TDataSet);beginwith DataModule5.adoquery1 dobegin close; sql.Clear; sql.add(select * from admin join department on admin.depart_id=department.depart_id where type=:p1); parameters.ParamByName(p1).Value:=dblookupcombobox1.KeyValue; open;end;end;procedure TForm4.FormShow(Sender: TObject);begin with ADOQuery1 do begin close; sql.Clear; sql.add(select distinct type from admin); open;end;dblookupcombobox1.KeyField:=type;dblookupcombobox1.KeyValue:=ADOQuery1.fieldbyname(type).AsString;end;procedure TForm6.FormShow(Sender: TObject);var i:integer;begin edit1.SetFocus; combobox1.Items.Add(F); combobox1.Items.Add(M); combobox1.ItemIndex:=0; with dbgrid1 do begin font.Charset:=GB2312_CHARSET; titlefont.Charset:=GB2312_CHARSET; font.Size:=10; font.Name:=宋体; titlefont.Name:=楷体_GB2312; titlefont.Size:=9; options:=dgTitles,dgIndicator,dgColLines,dgRowLines,dgTabs,dgConfirmDelete,dgCancelOnExit; columns0.Title.caption:=序号; columns1.Title.caption:=人员编号; columns2.Title.caption:=姓名; columns3.Title.caption:=性别; columns4.Title.caption:=地址; columns5.Title.caption:=任职时间; columns6.Title.caption:=部门编号; columns7.Title.caption:=级别; for i:=0 to columns.Count-1 do begin columnsi.Title.Alignment:=tacenter; end; end;end;procedure TForm6.BitBtn1Click(Sender: TObject);vara:integer;begin / with DataModule5 do with adocommand1 do begin parameters.clear; commandtext:=insert into admin(c_no,c_name,sex,address,workyear) values (:p1,:p2,:p3,:p4,:p5); parameters.ParamByName(p1).Value:=edit1.Text; parameters.ParamByName(p2).Value:=edit2.Text; parameters.ParamByName(p3).Value:=combobox1.Text; parameters.ParamByName(p4).Value:=edit3.Text; parameters.ParamByName(p5).Value:=edit4.Text; execute; commandtext:=insert into department(depart_id,d_name) values (:p6,:p7); parameters.ParamByName(p6).Value:=edit5.Text; parameters.ParamByName(p7).Value:=edit6.Text; /a:=adoquery1.fieldbyname(c_id).AsInteger; showmessage(您已成功增加); adoquery1.Close; adoquery1.Open; adoquery1.Last; end;end;procedure TForm6.BitBtn2Click(Sender: TObject);varb:integer;beginwith adocommand1 dobegin if application.MessageBox(pchar(delete yes?),pchar(caption),3+48)=6 then begin commandtext:=delete admin where c_id=+adoquery1.fieldbyname(c_id).asstring; execute; b:=adoquery1.RecNo; end; adoquery1.Close; adoquery1.open; adoquery1.RecNo:=b; end;end;procedure TForm6.DBGrid1DblClick(Sender: TObject);/with DataModule5 dobegin edit1.Text:=adoquery1.fieldbyname(c_no).AsString; edit2.Text:=adoquery1.fieldbyname(c_name).AsString; combobox1.Text:=adoquery1.fieldbyname(sex).AsString; edit3.Text:=adoquery1.fieldbyname(address).AsString; edit4.Text:=adoquery1.fieldbyname(workyear).AsString; edit5.Text:=adoquery1.fieldbyname(depart_id).AsString; edit6.Text:=adoquery1.fieldbyname(d_name).AsString;end; procedure TForm6.BitBtn3Click(Sender: TObject);var a:integer;beginwith adocommand1 do begin parameters.Clear; commandtext:=update admin set c_no=:p1,c_name=:p2, sex=:p3,address=:p4,workyear=:p5 where c_id=:p6; parameters.ParamByName(p1).Value:=edit1.Text; parameters.ParamByName(p2).Value:=edit2.Text; parameters.ParamByName(p3).Value:=combobox1.Text; parameters.ParamByName(p4).Value:=edit3.Text; parameters.ParamByName(p5).Value:=edit4.Text; parameters.ParamByName(p6).Value:=x; commandtext:=update department set depart_id=:p7,d_name=:p8 ; parameters.ParamByName(p7).Value:=edit5.Text; parameters.ParamByName(p8).Value:=edit6.Text; a:=adoquery1.fieldbyname(c_id).AsInteger; execute; adoquery1.Close; adoquery1.Open; adoquery1.DisableControls; while (not adoquery1.Eof) do begin if adoquery1.FieldByName(c_id).AsInteger=a then break; adoquery1.Next; end; adoquery1.EnableControls;end;end;procedure TForm6.BitBtn4Click(Sender: TObject);begin close;end;procedure TForm6.ADOQuery1AfterScroll(DataSet: TDataSet);begin x:=adoquery1.fieldbyname(c_id).AsInteger; edit1.Text:=adoquery1.fieldbyname(c_no).AsString; edit2.Text:=adoquery1.fieldbyname(c_name).AsString; combobox1.Text:=adoquery1.fieldbyname(sex).AsString; edit3.Text:=adoquery1.fieldbyname(address).AsString; edit4.Text:=adoquery1.fieldbyname(workyear).AsString; /edit5.Text:=adoquery1.fieldbyname(depart_id).AsString; /edit6.Text:=adoquery1.fieldbyname(d_name).AsString;end;procedure TForm7.BitBtn1Click(Sender: TObject);begin with ADOStoredProc1 do begin parameters.clear; parameters.createparameter(v1,ftinteger,pdinput,10,0); parameters.CreateParameter(v2,ftinteger,pdinput,20,0); parameters.CreateParameter(v3,ftinteger,pdoutput,20,0); parameters.ParamByName(v1).Value:=strtoint(edit1.Text); parameters.ParamByName(v2).Value:=strtoint(edit2.text); execproc; edit3.Text:=inttostr(parameters.parambyname(v3).Value); end; with adoquery1 do begin close; sql.Clear; sql.Add(select * from menu where qty between :p1 and :p2); parameters.ParamByName(p1).Value:=strtoint(edit1.Text); parameters.ParamByName(p2).Value:=strtoint(edit2.text); open; end; end;procedure TForm7.FormShow(Sender: TObject); var s:string; i:integer; begin with dbgrid1 do begin font.Charset:=GB2312_CHARSET; titlefont.Charset:=GB2312_CHARSET; font.Size:=10; font.Name:=宋体; titlefont.Name:=楷体_GB2312; titlefont.Size:=9;