david
fd289722e5
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@29 05c56307-c608-d34a-929d-697000501d7a
27 lines
962 B
C++
27 lines
962 B
C++
//---------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "DemoBasicDM.h"
|
|
//---------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TdmOrders *dmOrders;
|
|
//---------------------------------------------------------------------
|
|
__fastcall TdmOrders::TdmOrders(TComponent* AOwner)
|
|
: TDataModule(AOwner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TdmOrders::tblCarsCalcFields(TDataSet *DataSet)
|
|
{
|
|
tblCarsCarName->Value = tblCarsTrademark->Value + ": " + tblCarsModel->Value;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TdmOrders::tblOrdersCalcFields(TDataSet *DataSet)
|
|
{
|
|
tblOrdersPaymentAmount->Value = tblOrdersQuantity->Value * tblOrdersUnitPrice->Value;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|