45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
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.
|
|
|