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

DELPHI汽车零件销售管理系统 P5.2.1 产品信息管理模块BR本模块主要是对零件信息进DELPHI汽车零件销售管理系统 行录入,主要含有以下信息:产品编号、产地、产品名称、平日单价、产品型DELPHI汽车零件销售管理系统 号、批发价、单位、零售价、车型、建议价等主要信息，本模块有添加、DELPHI汽车零件销售管理系统 修改和查询功能。BRnbsp; BR图5-3产品信DELPHI汽车零件销售管理系统 息管理模块界面/P P5.2.2nbsp; 客户信DELPHI汽车零件销售管理系统 息管理模块BR本模块主要是对客户信息进行录入,主要含有以下信息:DELPHI汽车零件销售管理系统 客户编号、联系电话、网址、客户全称、地址、开户银行、联系电话、邮DELPHI汽车零件销售管理系统 编、银行帐号、联系人、传真、纳税号等信息, 本模块有添加、修改、查DELPHI汽车零件销售管理系统 询等功能。BR模块设计界面如图5-4:BRnbsp;DELPHI汽车零件销售管理系统 BR图5-4客户信息管理界面BR产品信息管理(CPXXGL)和DELPHI汽车零件销售管理系统 客户信息管理(KHXXGL)的实现代码如下:BRprocDELPHI汽车零件销售管理系统 edure TCPXXGL.Button1Click(Sender:DELPHI汽车零件销售管理系统 TObject);//添加新产品(TKHCCG为添加客户信息DELPHI汽车零件销售管理系统 )BRvar I:integer;BRbeginBRDELPHI汽车零件销售管理系统 tryBRnbsp; Table1.Last;BRDELPHI汽车零件销售管理系统 nbsp; if table1.fieldbyname(cpbhDELPHI汽车零件销售管理系统 ).asstringlt;gt; thenBRnbsDELPHI汽车零件销售管理系统 p;nbsp; I:=strtoint(table1.fiDELPHI汽车零件销售管理系统 eldbyname(cpbh).asstring)+1BRDELPHI汽车零件销售管理系统 nbsp; else i:=1;BRnbsp;nbsDELPHI汽车零件销售管理系统 p; Table1.close;BRnbsp;nbsp;DELPHI汽车零件销售管理系统 Table1.open;BRnbsp;nbsp; TabDELPHI汽车零件销售管理系统 le1.append;BRnbsp;nbsp; ENFADELPHI汽车零件销售管理系统 LSE;BRnbsp;nbsp; dbedit1.TDELPHI汽车零件销售管理系统 ext:=formatfloat(000000,i);nDELPHI汽车零件销售管理系统 bsp;nbsp; //生成6位产品编号BRnbsp;nbDELPHI汽车零件销售管理系统 sp; Dbedit2.setfocus;BRExcept DELPHI汽车零件销售管理系统 on Exception do showmessage(数据连接DELPHI汽车零件销售管理系统 错误！);BRend;BRend;BRproceDELPHI汽车零件销售管理系统 dure TCPXXGL.Button3Click(Sender: DELPHI汽车零件销售管理系统 TObject);nbsp; //保存产品信息BRbeDELPHI汽车零件销售管理系统 ginBRtryBRnbsp; Table1.Post;DELPHI汽车零件销售管理系统 BRnbsp; Table1.close;BRnbDELPHI汽车零件销售管理系统 sp; Table1.open;BRnbsp; ENTRUDELPHI汽车零件销售管理系统 E;BRnbsp; table1.indexfieldDELPHI汽车零件销售管理系统 names:=id;BRnbsp; button1.seDELPHI汽车零件销售管理系统 tfocus;BRnbsp;nbsp; Except on DELPHI汽车零件销售管理系统 Econverterror do showmessage(aaaaaaaa);BRnbsp;nbsp;nbsp;nbsp;nbsp;nbsp; on Exception do showmessage(数据连接错误！);BRnbsp; end;BRend;BRprocedure TCPXXGL.FormKeyPress(Sender: TObject; var Key: Char);BRbeginBRif key=#13 thennbsp;nbsp;nbsp;nbsp; //回车BRnbsp; beginBRnbsp;nbsp; if (activecontrol i