基于delphi 的c题目怎么做啊,帮帮忙啊

《基于delphi 的c题目怎么做啊,帮帮忙啊》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、基于delphi的C/S设计平台选择DELPHIaccess系统目标（功能）①用户登录②个人资料修改③人员花名册，浏览用户④员工维护，增、删、改⑤销售数量查询⑥部门维护（尚未实现）数据库设计1）员工表如下：2）部门表如下：3）商品表如下：13数据库设计内容详细设计流程界面+代码①13procedureTForm1.loginClick(Sender:TObject);vari,y:integer;username,password:string;beginusername:=trim(cus.Text);password:=trim(psd

2、.Text);y:=0;DataModule5.ADOQuery1.Open;DataModule5.ADOQuery1.First;fori:=0toDataModule5.ADOQuery1.RecordCount-1dobeginif(trim(DataModule5.ADOQuery1.FieldValues['c_name'])=username)thenbeginifDataModule5.ADOQuery1.FieldValues['password']=passwordthenbeginxpsd:=trim(psd.Text

3、);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;ify=0thenbegincus.Text:='';psd.Text:='';showm

4、essage('您登陆错误，请重新登陆！');end;end;13procedureTForm2.FormShow(Sender:TObject);varx:string;beginx:=midstr(form1.xusername,1,1);beginifx='A'thenlabel2.Caption:='高级管理员'elseifx='B'thenlabel2.Caption:='普通管理员'elselabel2.Caption:='普通用户'end;{beginifMidStr(x,1,1)='A'thenlabel2.Caption:

5、='高级管理员'elseifMidStr(x,1,1)='B'thenlabel2.Caption:='普通管理员'elselabel2.Caption:='普通用户'end;end;procedureTForm3.BitBtn1Click(Sender:TObject);beginwithadocommand1dobeginiftrim(edit1.Text)<>form1.xpsdthenbegin13showmessage('输入原密码不正确');edit1.SetFocus;endelseiftrim(edit2.Text)=for

6、m1.xpsdthenbeginshowmessage('新密码不可与原密码相同，请修改');edit2.SetFocus;endelseiftrim(edit2.Text)<>trim(edit3.Text)thenbeginShowmessage('新密码和校验密码不同,请修改！');edit2.setfocus;endelsebeginparameters.Clear;commandtext:='updateadminsetpassword=:p1wherec_no=:p2';parameters.ParamByName('p1').

7、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;13procedureTForm4.BitBtn2Click(Sender:TObject);beginwi

8、thadocommand1dobeginifapplication.MessageBox(pchar('deleteyes?'),pchar(caption),3+48)=6th