gridexpand.cpp

来自「infopower 4000 for delphi 2006」· C++ 代码 · 共 34 行

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

#include <vcl.h>
#pragma hdrstop

#include "GridExpand.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "wwcheckbox"
#pragma link "wwDataInspector"
#pragma link "Wwdbgrid"
#pragma link "Wwdbigrd"
#pragma link "wwriched"
#pragma resource "*.dfm"
TGridExpandForm *GridExpandForm;
//---------------------------------------------------------------------------
__fastcall TGridExpandForm::TGridExpandForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TGridExpandForm::Table1CalcFields(TDataSet *DataSet)
{
   DataSet->FieldByName("Name")->AsString=
     DataSet->FieldByName("First_Name")->AsString + " " +
     DataSet->FieldByName("Last_Name")->AsString;
   DataSet->FieldByName("ShippingAddress")->AsString=
     DataSet->FieldByName("Address_1")->AsString + " " +
     DataSet->FieldByName("City")->AsString; + " " +
     DataSet->FieldByName("State")->AsString + " " +
     DataSet->FieldByName("Zip")->AsString;
}
//---------------------------------------------------------------------------