david
5678df5538
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@31 05c56307-c608-d34a-929d-697000501d7a
48 lines
1.3 KiB
ObjectPascal
48 lines
1.3 KiB
ObjectPascal
unit EBarMegaDemoData;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, DBTables, Forms;
|
|
|
|
type
|
|
TEBarMegaDemoMainDM = class(TDataModule)
|
|
tblContacts: TTable;
|
|
tblContactsID: TAutoIncField;
|
|
tblContactsProductID: TIntegerField;
|
|
tblContactsFirstName: TStringField;
|
|
tblContactsLastName: TStringField;
|
|
tblContactsCompany: TStringField;
|
|
tblContactsAddress: TStringField;
|
|
tblContactsCity: TStringField;
|
|
tblContactsState: TStringField;
|
|
tblContactsPurchaseDate: TDateField;
|
|
tblContactsPaymentType: TStringField;
|
|
tblContactsPaymentAmount: TBCDField;
|
|
tblContactsproduct: TStringField;
|
|
tblContactsCustName: TStringField;
|
|
tblProducts: TTable;
|
|
tblProductsID: TIntegerField;
|
|
tblProductsNAME: TStringField;
|
|
tblProductsDescription: TStringField;
|
|
Database: TDatabase;
|
|
dsProducts: TDataSource;
|
|
dsContacts: TDataSource;
|
|
procedure tblContactsCalcFields(DataSet: TDataSet);
|
|
end;
|
|
|
|
var
|
|
EBarMegaDemoMainDM: TEBarMegaDemoMainDM;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TEBarMegaDemoMainDM.tblContactsCalcFields(DataSet: TDataSet);
|
|
begin
|
|
with DataSet do
|
|
FieldByname('CustName').AsString := FieldByname('FirstName').AsString + ' ' + FieldByname('LastName').AsString;
|
|
end;
|
|
|
|
end.
|