DELPHI汽车零件销售管理系统.doc

DELPHI汽车零件销售管理系统<P><BR>本模块主要是对零件信息进DELPHI汽车零件销售管理系统行录入,主要含有以下信息:产品编号、产地、产品名称、平日单价、产品型DELPHI汽车零件销售管理系统号、批发价、单位、零售价、车型、建议价等主要信息,本模块有添加、DELPHI汽车零件销售管理系统修改和查询功能。<BR>&nbsp;<BR>图5-3产品信DELPHI汽车零件销售管理系统息管理模块界面</P><P>&nbsp;客户信DELPHI汽车零件销售管理系统息管理模块<BR>本模块主要是对客户信息进行录入,主要含有以下信息:DELPHI汽车零件销售管理系统客户编号、联系电话、网址、客户全称、地址、开户银行、联系电话、邮DELPHI汽车零件销售管理系统编、银行帐号、联系人、传真、纳税号等信息,本模块有添加、修改、查DELPHI汽车零件销售管理系统询等功能。<BR>模块设计界面如图5-4:<BR>&nbsp;<DELPHI汽车零件销售管理系统BR>图5-4客户信息管理界面<BR>产品信息管理(CPXXGL)和DELPHI汽车零件销售管理系统客户信息管理(KHXXGL)的实现代码如下:<BR>(Sender:DELPHI汽车零件销售管理系统TObject);//添加新产品(G为添加客户信息DELPHI汽车零件销售管理系统)<BR>varI:integer;<BR>begin<BR>DELPHI汽车零件销售管理系统try<BR>&nbsp;;<BR>&DELPHI汽车零件销售管理系统nbsp;('cpbhDELPHI汽车零件销售管理系统').asstring&lt;&gt;''then<BR>&nbsDELPHI汽车零件销售管理系统p;&nbsp;I:=strtoint(('cpbh').asstring)+1<BR>DELPHI汽车零件销售管理系统&nbsp;elsei:=1;<BR>&nbsp;&nbsDELPHI汽车零件销售管理系统p;;<BR>&nbsp;&nbsp;;<BR>&nbsp;&nbsp;;<BR>&nbsp;&nbsp;ENFADELPHI汽车零件销售管理系统LSE;<BR>&nbsp;&nbsp;:=formatfloat('000000',i);&nDELPHI汽车零件销售管理系统bsp;&nbsp;//生成6位产品编号<BR>&nbsp;&nbDELPHI汽车零件销售管理系统sp;;<BR>ExceptDELPHI汽车零件销售管理系统onExceptiondoshowmessage('数据连接DELPHI汽车零件销售管理系统错误!');<BR>end;<BR>end;<BR>(Sender:DELPHI汽车零件销售管理系统TObject);&nbsp;//保存产品信息<BR>beDELPHI汽车零件销售管理系统gin<BR>try<BR>&nbsp;;DELPHI汽车零件销售管理系统<BR>&nbsp;;<BR>&nbDELPHI汽车零件销售管理系统sp;;<BR>&nbsp;ENTRUDELPHI汽车零件销售管理系统E;<BR>&nbsp;:='id';<BR>&nbsp;;<BR>&nbsp;&nbsp;ExceptonDELPHI汽车零件销售管理系统Econverterrordoshowmessage('aaaaaaaa');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;onExceptiondoshowmessage('数据连接错误!');<BR>&nbsp;end;<BR>end;<BR>(Sender:TObject;varKey:Char);<BR>begin<BR>ifkey=#13then&nbsp;&nbsp;&nbsp;&nbs