---

//放置控件: ClientDataSet1、DataSource1、DBGrid1、Button1, 然后procedure TForm1.Button1Click(Sender: TObject); begin{ 添加字段 }with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'ID';DataType := ftInteger;end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Name';DataType := ftString;Size := 12; { ftString 類型的 Size 默認(rèn) 20 }end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Age';DataType := ftWord;end;with ClientDataSet1.FieldDefs.AddFieldDef dobeginName := 'Sex';DataType := ftBoolean;end;{ 構(gòu)建數(shù)據(jù)集, 不可缺少的一步 }ClientDataSet1.CreateDataSet;{ 顯示; 如果在設(shè)計(jì)時(shí)已掛接或不需要顯示, 可省略下兩行 }DataSource1.DataSet := ClientDataSet1;DBGrid1.DataSource := DataSource1;{ 添加數(shù)據(jù) }ClientDataSet1.AppendRecord([1, '張三', 33, True]);ClientDataSet1.AppendRecord([2, '李四', 44, False]);ClientDataSet1.AppendRecord([3, '王五', 55, True]);{ 保存為 cds 或 XML }ClientDataSet1.SaveToFile('C:\Temp\TestBinary.cds');ClientDataSet1.SaveToFile('C:\Temp\TestXMLUTF8.xml', dfXMLUTF8); end;
這個(gè)表的設(shè)計(jì)也可以在設(shè)計(jì)時(shí)完成:

---

代碼可另寫為(下面這種方法簡單, 但上一種方法可設(shè)置更多選項(xiàng)):

---

procedure TForm1.Button1Click(Sender: TObject); begin{ 添加字段 }with ClientDataSet1.FieldDefs dobeginAdd('ID', ftInteger);Add('Name', ftString, 12);Add('Age', ftWord);Add('Sex', ftBoolean);end;{ 構(gòu)建數(shù)據(jù)集, 不可缺少的一步 }ClientDataSet1.CreateDataSet;{ 顯示; 如果在設(shè)計(jì)時(shí)已掛接或不需要顯示, 可省略下兩行 }DataSource1.DataSet := ClientDataSet1;DBGrid1.DataSource := DataSource1;{ 插入數(shù)據(jù) }ClientDataSet1.InsertRecord([1, '張三', 33, True]);ClientDataSet1.InsertRecord([2, '李四', 44, False]);ClientDataSet1.InsertRecord([3, '王五', 55, True]);{ 保存為 cds 或 XML }ClientDataSet1.SaveToFile('C:\Temp\TestBinary.cds');ClientDataSet1.SaveToFile('C:\Temp\TestXMLUTF8.xml', dfXMLUTF8); end;

轉(zhuǎn)載于:https://www.cnblogs.com/del/archive/2010/01/21/1653060.html

總結(jié)

以上是生活随笔為你收集整理的TClientDataSet[3]: 手动建立数据集的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。