david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
57 lines
1.4 KiB
ObjectPascal
57 lines
1.4 KiB
ObjectPascal
unit SimpleListDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, cxClasses, cxStyles, cxTL, DB, DBTables, Forms;
|
|
|
|
type
|
|
TSimpleListDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblCars: TTable;
|
|
dsCars: TDataSource;
|
|
StyleRepository: TcxStyleRepository;
|
|
TreeListStyleSheetDevExpress: TcxTreeListStyleSheet;
|
|
cxStyle1: TcxStyle;
|
|
cxStyle2: TcxStyle;
|
|
cxStyle3: TcxStyle;
|
|
cxStyle4: TcxStyle;
|
|
cxStyle5: TcxStyle;
|
|
cxStyle6: TcxStyle;
|
|
cxStyle7: TcxStyle;
|
|
cxStyle8: TcxStyle;
|
|
cxStyle9: TcxStyle;
|
|
cxStyle10: TcxStyle;
|
|
cxStyle11: TcxStyle;
|
|
cxStyle12: TcxStyle;
|
|
cxStyle13: TcxStyle;
|
|
tblCarsID: TAutoIncField;
|
|
tblCarsTrademark: TStringField;
|
|
tblCarsModel: TStringField;
|
|
tblCarsHP: TSmallintField;
|
|
tblCarsLiter: TFloatField;
|
|
tblCarsCyl: TSmallintField;
|
|
tblCarsTransmissSpeedCount: TSmallintField;
|
|
tblCarsTransmissAutomatic: TStringField;
|
|
tblCarsMPG_City: TSmallintField;
|
|
tblCarsMPG_Highway: TSmallintField;
|
|
tblCarsCategory: TStringField;
|
|
tblCarsDescription: TMemoField;
|
|
tblCarsHyperlink: TStringField;
|
|
tblCarsPicture: TBlobField;
|
|
tblCarsPrice: TFloatField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
SimpleListDemoDataDM: TSimpleListDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|