editorsinplacedemodata.cpp

delphi的的三方控件

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "EditorsInPlaceDemoData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "cxClasses"
#pragma link "cxStyles"
#pragma link "cxVGrid"
#pragma resource "*.dfm"
TEditorsInPlaceDemoDataDM *EditorsInPlaceDemoDataDM;
//---------------------------------------------------------------------------
__fastcall TEditorsInPlaceDemoDataDM::TEditorsInPlaceDemoDataDM(TComponent* Owner)
  : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TEditorsInPlaceDemoDataDM::tblCarsCalcFields(TDataSet *DataSet)
{
  tblCarsCar->AsString = tblCarsTrademark->AsString + " " + tblCarsModel->AsString;
}
//---------------------------------------------------------------------------


void __fastcall TEditorsInPlaceDemoDataDM::tblOrdersCalcFields(TDataSet *DataSet)
{
  tblOrdersCustomerEmail->AsString = tblCustomers->Lookup("ID",
    tblOrdersCustomerID->Value, "email");
}
//---------------------------------------------------------------------------