BCB6 使用TClientDataset范例

131 阅读1分钟

使用步骤,

1.创建字段

void __fastcall TForm1::Button1Click(TObject *Sender)
{
this->ClientDataSet1->EmptyDataSet();

this->ClientDataSet1->Active=True;
this->ClientDataSet1->Append();
this->ClientDataSet1->FieldByName("JGBM")->Value="1";
this->ClientDataSet1->FieldByName("DYBM")->Value="2";
this->ClientDataSet1->FieldByName("QPBJ")->Value="1";
this->ClientDataSet1->FieldByName("JGMC")->Value="2";
this->ClientDataSet1->Append();
this->ClientDataSet1->FieldByName("JGBM")->Value="1";
this->ClientDataSet1->FieldByName("DYBM")->Value="2";
this->ClientDataSet1->FieldByName("QPBJ")->Value="1";
this->ClientDataSet1->FieldByName("JGMC")->Value="2";
this->ClientDataSet1->Append();
this->ClientDataSet1->FieldByName("JGBM")->Value="1";
this->ClientDataSet1->FieldByName("DYBM")->Value="2";
this->ClientDataSet1->FieldByName("QPBJ")->Value="1";
this->ClientDataSet1->FieldByName("JGMC")->Value="2";
this->ClientDataSet1->Append();
this->ClientDataSet1->FieldByName("JGBM")->Value="1";
this->ClientDataSet1->FieldByName("DYBM")->Value="2";
this->ClientDataSet1->FieldByName("QPBJ")->Value="1";
this->ClientDataSet1->FieldByName("JGMC")->Value="2";
this->ClientDataSet1->Append();
this->ClientDataSet1->FieldByName("JGBM")->Value="1";
this->ClientDataSet1->FieldByName("DYBM")->Value="2";
this->ClientDataSet1->FieldByName("QPBJ")->Value="1";
this->ClientDataSet1->FieldByName("JGMC")->Value="2";
this->DBGrid1->Refresh();
}
//---------------------------------------------------------------------------


void TForm1::InitClientDataSet()
{
//TODO: Add your source code here
//添加CLIENTDATASET控件列
TFieldDefs *p_cl_Defs=ClientDataSet1->FieldDefs;

//  ClientDataSet1->FieldDefs->Add("JGBM",ftString,10);


TFieldDef * p_cl_Def=NULL;

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=10;
p_cl_Def->Name="JGBM";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=10;
p_cl_Def->Name="DYBM";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=10;
p_cl_Def->Name="QPBJ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=150;
p_cl_Def->Name="JGMC";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="KXYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="GBYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="ZBYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="YHYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="XBYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="HBYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="HXYZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=120;
p_cl_Def->Name="PJYZX";   /*平均一致性*/

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=10;
p_cl_Def->Name="HZBZ";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=100;
p_cl_Def->Name="PMSJGBM";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=200;
p_cl_Def->Name="GISJGBM";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=10;
p_cl_Def->Name="CFML";

p_cl_Def=p_cl_Defs->AddFieldDef();
p_cl_Def->DataType=ftString;
p_cl_Def->Size=7;
p_cl_Def->Name="HZXS";



}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
InitClientDataSet();
ClientDataSet1->CreateDataSet();
}