type
Tw_customer = record//客户信息
khdm: String;//客户代码
khmc: String;//客户名称
kpmc:string;//开票名称
dz:string;//地址
dh:string;//电话
yb:string;//邮编
sh:string;//税号
khh:string;//开户行
zh:string;//账号
end;
Tdj = class(Tcomponent)
private
{ Private declarations }
protected
{ Protected declarations }
public
tid:string;//单据编号;
dt,checkdt:tdatetime;//填写日期,审核日期
Tdataildata:TstringList;//保存明细的数据
datatype:interger;//单据状态；比如readonly等.
Query:Tadoquery;//申明来备用，操作数据库
custinfo:Tw_customer;
//客户信息，Tdj当中是没有这个信息的，在其他继承单据当中包含这个
//很多都申明成结构体，具体类的设计不是我不公布，因为是公司产品
//基本上和你写组件完全一样！
constructor create;override;
destructor Destroy;
override;
procedure save;virtual;
procedure loaddata;virtual;
published
{ Published declarations }
end;
