TClientDataSet[3]: 手動建立數據集

//放置控件:　ClIEntDataSet1、DataSource1、DBGrid1、Button1,　然後　　
　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　{　添加字段　}　
　with　ClientDataSet1.FieldDefs.AddFIEldDef　do　
　begin　
　　Name　:=　'ID';　
　　DataType　:=　ftInteger;　
　end;　
　
　with　ClientDataSet1.FieldDefs.AddFIEldDef　do　
　begin　
　　Name　:=　'Name';　
　　DataType　:=　ftString;　
　　Size　:=　12;　{　ftString　類型的　Size　默認　20　}　
　end;　
　
　with　ClientDataSet1.FieldDefs.AddFIEldDef　do　
　begin　
　　Name　:=　'Age';　
　　DataType　:=　ftWord;　
　end;　
　
　with　ClientDataSet1.FieldDefs.AddFIEldDef　do　
　begin　
　　Name　:=　'Sex';　
　　DataType　:=　ftBoolean;　
　end;　
　
　{　構建數據集,　不可缺少的一步　}　
　ClIEntDataSet1.CreateDataSet;　
　
　{　顯示;　如果在設計時已掛接或不需要顯示,　可省略下兩行　}　
　DataSource1.DataSet　:=　ClIEntDataSet1;　
　DBGrid1.DataSource　:=　DataSource1;　
　
　{　添加數據;　AppendRecord　是從尾添加,　InsertRecord　是從頭插入　}　
　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;　

　　這個表的設計也可以在設計時完成:

　　查看原圖（大圖）