Componentes.Terceros.DevExp.../official/x.30/ExpressQuantumGrid 6/Demos/Delphi/UnboundColumnsDemo/UnboundColumnsDemoData.pas
2007-12-16 17:06:54 +00:00

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.