DELPHI汽车销售.doc

图19:员工信息设置界面员工信息设置核心代码:(Sender:TObject);beginif(trim()='')thenbeginshowmessage('姓名不能为空!');exit;end;;:=;:='select*from员工where员工代码='''+trim()+'''';:=true;<=0thenbeginshowmessage('编号数据库中不存在,不能修改');exit;end;:=;:=cmdText ;:='update员工set姓名=:V姓名,性别=:V性别,入职时间=:V入职时间,学历=:V学历,联系电话=:V联系电话where员工代码=:V员工代码';('V员工代码').Value:=trim()+'';('V姓名').Value:=trim()+'';('V性别').Value:=trim()+'';('V入职时间').Value:=datetostr()+'';('V学历').Value:=trim()+'';('V联系电话').Value:=trim()+'';;showmessage('员工信息修改完成!');SpeedButton1Click(Sender);end;图20:客户信息维护界面客户信息维护核心代码:(Sender:TObject);beginif(trim()='')thenbeginshowmessage('客户名称不能为空!');exit;end;;:=;:='select*from客户where客户代码='''+trim()+'''';:=true;<=0thenbeginshowmessage('客户代码数据库中不存在,不能修改');exit;end;:=;:=cmdText ;:='update客户set客户名称=:V客户名称,地址=:V地址,电话=:V电话,备注=:V备注,客户类别=:V客户类别where客户代码=:V客户代码';('V客户代码').Value:=trim()+'';('V客户名称').Value:=trim()+'';('V地址').Value:=trim()+'';('V电话').Value:=trim()+'';('V备注').Value:=trim()+'';