david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
95 lines
2.8 KiB
ObjectPascal
95 lines
2.8 KiB
ObjectPascal
unit ViewNestedBandsDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, cxStyles, ImgList, Controls,
|
|
cxGridTableView, cxGridBandedTableView, cxClasses,Forms, DBTables,
|
|
DemoUtils;
|
|
|
|
type
|
|
TViewNestedBandsDemoDataDM = class(TDataModule)
|
|
dsCars: TDataSource;
|
|
dsOrders: TDataSource;
|
|
dsCustomers: TDataSource;
|
|
DataBase: TDataBase;
|
|
tblCars: TTable;
|
|
tblOrders: TTable;
|
|
tblCustomers: TTable;
|
|
tblCustomersID: TIntegerField;
|
|
tblCustomersFirstName: TStringField;
|
|
tblCustomersLastName: TStringField;
|
|
tblCustomersCompany: TStringField;
|
|
tblCustomersPrefix: TStringField;
|
|
tblCustomersTitle: TStringField;
|
|
tblCustomersAddress: TStringField;
|
|
tblCustomersCity: TStringField;
|
|
tblCustomersState: TStringField;
|
|
tblCustomersZipCode: TStringField;
|
|
tblCustomersSource: TStringField;
|
|
tblCustomersCustomer: TStringField;
|
|
tblCustomersHomePhone: TStringField;
|
|
tblCustomersFaxPhone: TStringField;
|
|
tblCustomersSpouse: TStringField;
|
|
tblCustomersOccupation: TStringField;
|
|
tblCustomersDescription: TMemoField;
|
|
StyleRepository: TcxStyleRepository;
|
|
PaymentTypeImages: TImageList;
|
|
tblOrdersID: TAutoIncField;
|
|
tblOrdersCustomerID: TIntegerField;
|
|
tblOrdersProductID: TIntegerField;
|
|
tblOrdersPurchaseDate: TDateTimeField;
|
|
tblOrdersTime: TDateTimeField;
|
|
tblOrdersPaymentType: TStringField;
|
|
tblOrdersDescription: TMemoField;
|
|
tblOrdersQuantity: TIntegerField;
|
|
tblOrdersPaymentAmount: TCurrencyField;
|
|
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;
|
|
tblCarsCar: TStringField;
|
|
tblCustomersName: TStringField;
|
|
cxStyle31: TcxStyle;
|
|
cxStyle35: TcxStyle;
|
|
procedure tblCarsCalcFields(DataSet: TDataSet);
|
|
procedure tblCustomersCalcFields(DataSet: TDataSet);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ViewNestedBandsDemoDataDM: TViewNestedBandsDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TViewNestedBandsDemoDataDM.tblCarsCalcFields(DataSet: TDataSet);
|
|
begin
|
|
SetStringFieldValue(tblCarsCar,
|
|
tblCarsTrademark.Value + ' ' + tblCarsModel.Value);
|
|
end;
|
|
|
|
procedure TViewNestedBandsDemoDataDM.tblCustomersCalcFields(
|
|
DataSet: TDataSet);
|
|
begin
|
|
SetStringFieldValue(tblCustomersName,
|
|
tblCustomersFirstName.Value + ' ' + tblCustomersLastName.Value);
|
|
end;
|
|
|
|
end.
|