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

ess系统目标(功能)用户登录个人资料修改人员花名册,浏览用户员工维护,增、删、改销售数量查询部门维护(尚未实现)数据库设计1)员工表如下:2)部门表如下:3)商品表如下:数据库设计内容详细设计流程界面+代码①(Sender:TObject);vari,y:integer;username,password:string;beginusername:=trim();password:=trim();y:=0;;;fori:=-1dobeginif(trim(['c_name'])=username)['password']=passwordthenbeginxpsd:=trim();xusername:=('c_no').asstring;showmessage('恭喜您,'++',登陆成功!');//:='';//:='';y:=y+1;;;end;end;;end;;ify=:='';:='';showmessage('您登陆错误,请重新登陆!');end;end;(Sender:TObject);varx:string;beginx:=midstr(,1,1);beginifx='A':='高级管理员'elseifx='B':='普通管理员':='普通用户'end;{beginifMidStr(x,1,1)='A':='高级管理员'elseifMidStr(x,1,1)='B':='普通管理员':='普通用户'end;end;(Sender:TObject);mand1dobeginiftrim()<>('输入原密码不正确');;endelseiftrim()=('新密码不可与原密码相同,请修改');;endelseiftrim()<>trim()thenbeginShowmessage('新密码和校验密码不同,请修改!');;:='updateadminsetpassword=:p1wherec_no=:p2';('p1').Value:=trim();('p2').Value:=;execute;:='';:='';:='';showmessage('修改密码成功!');;;end;end;end;(Sender:TObject);(pchar('deleteyes?'),pchar(caption),3+48)=mandtext:='deleteadminwherec_id='+('c_id').asstring;