david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
40 lines
970 B
ObjectPascal
40 lines
970 B
ObjectPascal
unit UnboundColumnsDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
Forms, SysUtils, Classes, DB, cxStyles, ImgList,
|
|
Controls, cxEdit, cxEditRepositoryItems, cxDBEditRepository, cxClasses,
|
|
cxGridCardView, DBTables;
|
|
|
|
type
|
|
TUnboundColumnsDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblCustomers: TTable;
|
|
dsCustomers: TDataSource;
|
|
tblCustomersID: TAutoIncField;
|
|
tblCustomersFIRSTNAME: TStringField;
|
|
tblCustomersLASTNAME: TStringField;
|
|
tblCustomersCOMPANYNAME: TStringField;
|
|
tblCustomersPAYMENTTYPE: TIntegerField;
|
|
tblCustomersPRODUCTID: TIntegerField;
|
|
tblCustomersCUSTOMER: TBooleanField;
|
|
tblCustomersPURCHASEDATE: TDateTimeField;
|
|
tblCustomersPAYMENTAMOUNT: TCurrencyField;
|
|
tblCustomersCOPIES: TIntegerField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
UnboundColumnsDemoDataDM: TUnboundColumnsDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|
|
|