delphi汽车零件销售管理系统

《delphi汽车零件销售管理系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、DELPHI汽车零件销售管理系统

5.2.1产品信息管理模块
本模块主要是对零件信息进DELPHI汽车零件销售管理系统行录入,主要含有以下信息:产品编号、产地、产品名称、平日单价、产品型DELPHI汽车零件销售管理系统号、批发价、单位、零售价、车型、建议价等主要信息，本模块有添加、DELPHI汽车零件销售管理系统修改和查询功能。
 
图5-3产品信DELPHI汽车零件销售管理系统息管理模块界面

5.2.2 客户信DELPHI汽车零件销售管理系统息管理模块
本模块主要是对客户信息进行录入,主要含

2、有以下信息:DELPHI汽车零件销售管理系统客户编号、联系电话、网址、客户全称、地址、开户银行、联系电话、邮DELPHI汽车零件销售管理系统编、银行帐号、联系人、传真、纳税号等信息,本模块有添加、修改、查DELPHI汽车零件销售管理系统询等功能。
模块设计界面如图5-4:
 图5-4客户信息管理界面
产品信息管理(CPXXGL)和DELPHI汽车零件销售管理系统客户信息管理(KHXXGL)的实现代码如下:
procDELPHI汽车零件销售管理系统edureTCPXXGL.Butt

3、on1Click(Sender:DELPHI汽车零件销售管理系统TObject);//添加新产品(TKHCCG为添加客户信息DELPHI汽车零件销售管理系统)
varI:integer;
begin
DELPHI汽车零件销售管理系统try
 Table1.Last;
&DELPHI汽车零件销售管理系统nbsp;iftable1.fieldbyname('cpbhDELPHI汽车零件销售管理系统').asstring<>''then
&nbsDELPHI汽车零件销售管理系统p; I:=s

4、trtoint(table1.fiDELPHI汽车零件销售管理系统eldbyname('cpbh').asstring)+1
DELPHI汽车零件销售管理系统 elsei:=1;
 &nbsDELPHI汽车零件销售管理系统p;Table1.close;
  DELPHI汽车零件销售管理系统Table1.open;
  TabDELPHI汽车零件销售管理系统le1.append;
  ENFADELPHI汽车零件销售管理系统LSE;
&nb

5、sp; dbedit1.TDELPHI汽车零件销售管理系统ext:=formatfloat('000000',i);&nDELPHI汽车零件销售管理系统bsp; //生成6位产品编号
 &nbDELPHI汽车零件销售管理系统sp;Dbedit2.setfocus;
ExceptDELPHI汽车零件销售管理系统onExceptiondoshowmessage('数据连接DELPHI汽车零件销售管理系统错误！');
end;
end;
proceDELPHI汽车零件销售管理系统dureTCPXXG

6、L.Button3Click(Sender:DELPHI汽车零件销售管理系统TObject); //保存产品信息
beDELPHI汽车零件销售管理系统gin
try
 Table1.Post;DELPHI汽车零件销售管理系统
 Table1.close;
&nbDELPHI汽车零件销售管理系统sp;Table1.open;
 ENTRUDELPHI汽车零件销售管理系统E;
 table1.indexfieldDELPHI汽车零件销售管理系统names:='id'

7、;
 button1.seDELPHI汽车零件销售管理系统tfocus;
  ExceptonDELPHI汽车零件销售管理系统Econverterrordoshowmessage('aaaaaaaa');
      onExceptiondoshowmessage('数据连接错误！');
 end;
end;
procedureTCPXXGL.FormKeyPress(Sender:TObject;varKey:Ch

8、ar);
begin
ifkey=#13then