摘要： procedure TForm1.FormCreate(Sender: TObject);begin { DisplayFormat } with TIntegerField.Create(Self) do begin FieldName := 'Integer'; DisplayFormat := '#, 元'; DataSet := ClientDataSet1; end; with ... 阅读全文

摘要： 自动增长字段://建立方法一:begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftAutoInc); FieldDefs.Add('Name', ftString, 11); CreateDataSet; end;end;//建立方法二:begin with TAutoIncField.Create(Self) do begin ... 阅读全文

摘要： 测试使用了官方的范例文件(主表: orders.xml; 从表: items.xml).//先在窗体上添加: //ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2; 然后:procedure TForm1.FormCreate(Sender: TObject);begin { 关联数据集 } DBGrid... 阅读全文

摘要： 运行时的设计方法:设计时的准备工作:ClientDataSet1、DataSource1、DBGrid1 并关联, 这用于主表;ClientDataSet2、DataSource2、DBGrid2 并关联, 这将成为主表的一个字段(或叫嵌套表);还可以放个 Splitter1 来协调 DBGrid 的大小.procedure TForm1.FormCreate(Sender: TObject);b... 阅读全文

摘要： 数组字段(ftArray) 与 ADT 字段类似(设计过程一样), 定义数组字段时只需定义一个元素来说明元素类型.本例同时测试 ObjectView 为 True 和 False 时的不同效果.下面是在运行时实现的数组字段://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:procedure TForm1.FormCreate(Sender... 阅读全文

摘要： 运行时://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:procedure TForm1.FormCreate(Sender: TObject);begin //ClientDataSet1.ObjectView := True; { 这是默认的 } { 先定义两个基本字段 } with ClientDataSet1.FieldDe... 阅读全文

摘要： Blob(Binary Large Object) 字段包括:ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ft... 阅读全文

摘要： 动态建立(其中的 School 字段是 Lookup 字段)://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现:procedure TForm1.FormCreate(Sender: TObject);begin { 关联控件 } DBGrid1.DataSource := DataSource1; ... 阅读全文

摘要： uses XMLDoc;procedure TForm1.FormCreate(Sender: TObject);begin with ClientDataSet1 do begin FieldDefs.Add('Text', ftString, 12); FieldDefs.Add('Num', ftInteger); CreateDataSet; AppendRecord(['ABC', 1... 阅读全文

摘要： 测试图:测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, Grids, DBGrids, DB, DBClient;type TForm1 = class(TForm) Cli... 阅读全文