david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
68 lines
1.8 KiB
ObjectPascal
68 lines
1.8 KiB
ObjectPascal
unit MasterDetailTableDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
Forms, SysUtils, Classes, DB, cxStyles, cxClasses, cxGridTableView,
|
|
DBTables, DemoUtils;
|
|
|
|
type
|
|
TMasterDetailTableDemoMainDM = class(TDataModule)
|
|
dsFilms: TDataSource;
|
|
dsFilmsPersonsStaff: TDataSource;
|
|
dsPersons: TDataSource;
|
|
dsPersonsLine: TDataSource;
|
|
tblFilms: TTable;
|
|
tblFilmsPersonsStaff: TTable;
|
|
tblPersons: TTable;
|
|
tblPersonsLine: TTable;
|
|
DataBase: TDataBase;
|
|
tblPersonsID: TAutoIncField;
|
|
tblPersonsFIRSTNAME: TStringField;
|
|
tblPersonsSECONDNAME: TStringField;
|
|
tblPersonsGENDER: TBooleanField;
|
|
tblPersonsDATEOFBIRTH: TDateTimeField;
|
|
tblPersonsBIRTHCOUNTRY: TIntegerField;
|
|
tblPersonsLOCATIONOFBIRTH: TStringField;
|
|
tblPersonsBIOGRAPHY: TMemoField;
|
|
tblPersonsNICKNAME: TStringField;
|
|
cxStyleRepository: TcxStyleRepository;
|
|
GridTableViewStyleSheetDevExpress: TcxGridTableViewStyleSheet;
|
|
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;
|
|
cxStyle14: TcxStyle;
|
|
tblPersonsNAME: TStringField;
|
|
procedure tblPersonsCalcFields(DataSet: TDataSet);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
MasterDetailTableDemoMainDM: TMasterDetailTableDemoMainDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TMasterDetailTableDemoMainDM.tblPersonsCalcFields(
|
|
DataSet: TDataSet);
|
|
begin
|
|
SetStringFieldValue(tblPersonsNAME,
|
|
tblPersonsFIRSTNAME.Value + ' ' + tblPersonsSECONDNAME.Value);
|
|
end;
|
|
|
|
end.
|