unit CustMst; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, w_bases, wItem; type TCustMst = class(TwItem) private { Private declarations } FOrdCode: AnsiString; FKind: AnsiString; FCustTelNum: AnsiString; FCeoName: AnsiString; FConnPerson: AnsiString; FBusinessNum: AnsiString; FConnPersonTel: AnsiString; FCustAddress: AnsiString; FDescriptions: AnsiString; protected { Protected declarations } public { Public declarations } published { Published declarations } property OrdCode: AnsiString read FOrdCode write FOrdCode; property Kind: AnsiString read FKind write FKind; property CustTelNum: AnsiString read FCustTelNum write FCustTelNum; property CeoName: AnsiString read FCeoName write FCeoName; property ConnPerson: AnsiString read FConnPerson write FConnPerson; property BusinessNum: AnsiString read FBusinessNum write FBusinessNum; property ConnPersonTel: AnsiString read FConnPersonTel write FConnPersonTel; property CustAddress: AnsiString read FCustAddress write FCustAddress; property Descriptions: AnsiString read FDescriptions write FDescriptions; end; implementation end.