david
8a45a23220
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@7 05c56307-c608-d34a-929d-697000501d7a
59 lines
1.5 KiB
ObjectPascal
59 lines
1.5 KiB
ObjectPascal
unit ViewBandedDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, cxStyles, cxClasses, cxGridBandedTableView, Forms, DBTables,
|
|
DemoUtils;
|
|
|
|
type
|
|
TViewBandedDemoDataDM = class(TDataModule)
|
|
DataBase: TDataBase;
|
|
tblUSERS: TTable;
|
|
dsUSERS: TDataSource;
|
|
dsPROJECTS: TDataSource;
|
|
tblPROJECTS: TTable;
|
|
tlbITEMS: TTable;
|
|
dsITEMS: TDataSource;
|
|
tblPROJECTSID: TAutoIncField;
|
|
tblPROJECTSNAME: TStringField;
|
|
tblPROJECTSMANAGERID: TIntegerField;
|
|
tlbITEMSID: TAutoIncField;
|
|
tlbITEMSNAME: TStringField;
|
|
tlbITEMSTYPE: TBooleanField;
|
|
tlbITEMSPROJECTID: TIntegerField;
|
|
tlbITEMSPRIORITY: TSmallintField;
|
|
tlbITEMSSTATUS: TSmallintField;
|
|
tlbITEMSCREATORID: TIntegerField;
|
|
tlbITEMSCREATEDDATE: TDateTimeField;
|
|
tlbITEMSOWNERID: TIntegerField;
|
|
tlbITEMSLASTMODIFIEDDATE: TDateTimeField;
|
|
tlbITEMSFIXEDDATE: TDateTimeField;
|
|
tlbITEMSDESCRIPTION: TMemoField;
|
|
tlbITEMSRESOLUTION: TMemoField;
|
|
tblUSERSID: TAutoIncField;
|
|
tblUSERSFNAME: TStringField;
|
|
tblUSERSLNAME: TStringField;
|
|
tblUSERSPHONE: TStringField;
|
|
tblUSERSName: TStringField;
|
|
procedure tblUSERSCalcFields(DataSet: TDataSet);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
ViewBandedDemoDataDM: TViewBandedDemoDataDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TViewBandedDemoDataDM.tblUSERSCalcFields(DataSet: TDataSet);
|
|
begin
|
|
SetStringFieldValue(tblUSERSName, tblUSERSFNAME.Value + ' ' + tblUSERSLNAME.Value);
|
|
end;
|
|
|
|
end.
|