BCB6 使用TClientDataset范例

最新推荐文章于 2016-09-05 10:52:22 发布

原创最新推荐文章于 2016-09-05 10:52:22 发布 · 1.5k 阅读

0 ·

CC 4.0 BY-SA版权

心路历程同时被 3 个专栏收录

16 篇文章

订阅专栏

c/c++

14 篇文章

订阅专栏

C++ Builder

7 篇文章

订阅专栏

本文详细介绍了如何通过编程方式创建字段并填充数据集的步骤，包括客户端数据集控件列的初始化和数据的追加操作。

部署运行你感兴趣的模型镜像

使用步骤，

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();
}

这些步骤，一个都不能少。

您可能感兴趣的与本文相关的镜像