文档章节

TClientDataSet[7]: 辨析 Field、FieldDef、Fields、FieldDefs、FieldList、FieldDefList

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 775
阅读 8
收藏 0

TField TFieldDef TFields TFieldDefs TFieldList、TFieldDefList
Assign
AssignValue
Clear
FocusControl
GetData
GetParentComponent
HasParent
IsBlob
IsValidChar
RefreshLookupList
SetData
SetFieldType
SetParentComponent
Validate

AsBCD
AsBoolean
AsCurrency
AsDateTime
AsSQLTimeStamp
AsSQLTimeStampOffset
AsSingle
AsFloat
AsExtended
AsInteger
AsLargeInt
AsString
AsWideString
AsAnsiString
AsBytes
AsVariant
AttributeSet
Calculated
CanModify
CurValue
DataSet
DataSize
DataType
DisplayName
DisplayText
EditMask
EditMaskPtr
FieldNo
FullName
IsIndexField
IsNull
Lookup
LookupList
NewValue
Offset
OldValue
ParentField
Size
Text
ValidChars
Value
Alignment
AutoGenerateValue
CustomConstraint
ConstraintErrorMessage
DefaultExpression
DisplayLabel
DisplayWidth
FieldKind
FieldName
HasConstraints
Index
ImportedConstraint
LookupDataSet
LookupKeyFields
LookupResultField
KeyFields
LookupCache
Origin
ProviderFlags
ReadOnly
Required
Visible

OnChange
OnGetText
OnSetText
OnValidate
AddChild
Assign
CreateField
HasChildDefs

FieldClass
FieldNo
InternalCalcField
ParentDef
Required
Attributes
ChildDefs
DataType
Precision
Size
Name
GetNamePath
Collection
ID
Index
DisplayName
Add
CheckFieldName
CheckFieldNames
Clear
FindField
FieldByName
FieldByNumber
GetEnumerator
GetFieldNames
IndexOf
Remove
Count
DataSet
Fields
AddFieldDef
Find
Update
Add
GetItemNames
IndexOf
Owner
Assign
BeginUpdate
Clear
Delete
EndUpdate
FindItemID
GetEnumerator
GetNamePath
Insert

HiddenFields
Items
ParentDef
DataSet
Updated
Capacity
Count
ItemClass
FieldByName
Find
Fields(FieldDefs)
Update
DataSet
Add
AddObject
Clear
Delete
Exchange
IndexOf
Insert
InsertObject
Sort
CustomSort
Append
AddStrings
Assign
BeginUpdate
EndUpdate
Equals
GetEnumerator
GetText
IndexOfName
IndexOfObject
LoadFromFile
LoadFromStream
Move
SaveToFile
SaveToStream
SetText

Duplicates
Sorted
CaseSensitive
Capacity
CommaText
Count
Delimiter
DelimitedText
LineBreak
Names
Objects
QuoteChar
Values
ValueFromIndex
NameValueSeparator
StrictDelimiter
Strings
Text
StringsAdapter

OnChange
OnChanging
OwnsObjects



发现这些东西早在 Delphi 3 的时候就比较成熟了, 至今也基本没有变化; 我暂时对它们的理解是:

1、Fields 是 Field 的集合, 它们主要用于运行时对字段元数据和字段值的访问.

2、FieldDefs 是 FieldDef 的集合, 它们主要用于构建数据集(表)和对字段元数据的访问.

3、FieldList 和 FieldDefList 分别是访问 Field 和 FieldDef 的快捷列表; 主要使用其 FieldByName、Find 方法和默认的数组属性访问数据; 它们是只读的.

4、通过 Fields、FieldList、Field 可以得到更多信息, 但必须是在数据集打开的情况下;
通过 FieldDefs、FieldDefList、FieldDef 只能获取定义时的信息, 但即使在数据集关闭时也能使用.

5、顾名思义 FieldDef 是用于定义表的, 但通过 Field 也可以定义表;
用 FieldDef 定义表很方便, 用 Field 可以定义一些更复杂的表;
每个 FieldDef 都会对应一个 Field, 但一个 Field 不一定有 FieldDef 对应;
程序运行后 FieldDef 不能再改变, 而 Field 与 Fields 则可以动态改变或增减.

设计时两者是结合使用的.

下面是通过三种方法动态建表的代码:
//使用 TFieldDef 建表:
begin
  with ClientDataSet1.FieldDefs do
  begin
    Add('Name', ftString, 12, True); { True 表示是必填字段 }
    Add('Age', ftInteger);
  end;
  ClientDataSet1.CreateDataSet;
end;

//使用 TField(这里是用其子类)建表:
begin
  with TStringField.Create(Self) do
  begin
    FieldName := 'Name';
    Size := 12;
    Required := True; { 必填字段 }
    DataSet := ClientDataSet1;
  end;
  with TIntegerField.Create(Self) do
  begin
    FieldName := 'Age';
    DataSet := ClientDataSet1;
  end;
  ClientDataSet1.CreateDataSet;
end;

//混合使用(这好像就是设计时的情形):
var
  F: TIntegerField;
begin
  with ClientDataSet1.FieldDefs.AddFieldDef do
  begin
    Name := 'Name';
    DataType := ftString;
    Size := 12;
    Required := True;
    CreateField(ClientDataSet1);
  end;
  with ClientDataSet1.FieldDefs.AddFieldDef do
  begin
    Name := 'Age';
    DataType := ftInteger;
    { 指定最大值和最小值 }
    F := CreateField(ClientDataSet1) as TIntegerField;
    F.MinValue := 0;
    F.MaxValue := 150;
  end;
  ClientDataSet1.CreateDataSet;
end;

 
 
 
 
 

 

 

  

字段类型列表:
TStringField          { ftString         ; String }
TWideStringField      { ftWideString     ; WideString }
TNumericField         { }
TIntegerField         { ftInteger        ; Integer }
TLongWordField        { ftLongWord       ; LongWord }
TSmallintField        { ftSmallint       ; Smallint }
TShortintField        { ftShortint       ; Shortint }
TByteField            { ftByte           ; Byte }
TLargeintField        { ftLargeint       ; Int64 }
TWordField            { ftWord           ; Word }
TAutoIncField         { ftAutoInc        ; Integer }
TUnsignedAutoIncField { ftAutoInc        ; Cardinal }
TFloatField           { ftFloat          ; Double }
TSingleField          { ftSingle         ; Single }
TCurrencyField        { ftCurrency       ; Currency }
TExtendedField        { ftExtended       ; Extended }
TBooleanField         { ftBoolean        ; WordBool }
TDateTimeField        { ftDateTime       ; DateTime }
TSQLTimeStampField    { ftTimeStamp      ; TSQLTimeStamp }
TSQLTimeStampField    { ftTimeStampOffset; TSQLTimeStampOffset }
TDateField            { ftDate           ; Integer }
TTimeField            { ftTime           ; Integer }
TBinaryField          { }
TBytesField           { ftBytes          ; * }
TVarBytesField        { ftVarBytes       ; * }
TBCDField             { ftBCD            ; * }
TFMTBCDField          { ftFMTBCD         ; * }
TBlobField            { ftBlob           ; * }
TMemoField            { ftMemo           ; * }
TWideMemoField        { ftWideMemo       ; * }
TGraphicField         { ftGraphic        ; * }
TObjectField          { }
TADTField             { ftADT            ; * }
TArrayField           { ftArray          ; * }
TDataSetField         { ftDataSet        ; TDataSet }
TReferenceField       { ftReference      ; * }
TVariantField         { ftVariant        ; OleVariant }
TInterfaceField       { ftInterface      ; IUnknown }
TIDispatchField       { ftIDispatch      ; IDispatch }
TGuidField            { ftGuid           ; TGUID }
TAggregateField       { ftUnknown        ; * }

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/01/27/1657349.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
superobject 序列 数据集 之间转化

superobject 序列数据集 unit uDBJson; interface {$HINTS OFF} usesSysUtils, Classes, Variants, DB, DBClient, SuperObject; typeTTableJSon = class private const const const const co......

vga
2016/08/31
18
0
有关foreach循环问题,只循环一条数据,怎么做啊

foreach($fieldlist as $field=>$fielddata) { if($fields[$field]=='') continue; echo ''.$fielddata[0].''; } 把上面那个方法改下,只循环一条,怎么做啊 他现在出来循环两条了,怎么修改...

赵立成
2014/01/24
2.8K
5
如何写一个pg函数,可以把任意一个表生成insert语句

看到stackoverflow有人问,如何给任意一个表生成insert语句,为了方便把数据从一个测试库转到另一个测试库上,为此,我写了一个小函数,没有做严格的测试,有兴趣的可以拿来试试。 create lan...

吕不为
2016/12/08
28
0
JSon SuperObject 研究2:数据集与JSON对象互转

JSon SuperObject 研究2:数据集与JSON对象互转 JSON不能完全替代XML,但绝对是未来的大势所趋,其优点是简单、体积小、解析更快、解析占用资源更少。在delphi中,数据集是最常用数据存取方式...

vga
2014/12/20
0
1
delphi 导入excel

unit ExcelProUnit; interface type TExcelFunction = procedure(asheet: OleVariant); //声明导入函数 {访问单元格:sheet.cells[row,col] 转为string:vartostr(sheet.cells[row,col]) 转为......

鹅倌
2017/11/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

smart-doc特殊功能使用介绍

smart-doc从8月份底开始开源发布到目前为止已经迭代了几个版本。在这里非常感谢那些敢于用smart-doc去做尝试并积极提出建议的社区用户。因此决定在本博客中重要说明下smart-doc的功能,包括使...

上官胡闹
昨天
0
0
JavaEE——Junit

声明:本栏目所使用的素材都是凯哥学堂VIP学员所写,学员有权匿名,对文章有最终解释权;凯哥学堂旨在促进VIP学员互相学习的基础上公开笔记。 Junit Junit又名单元测试,Junit是用来测试Jav...

凯哥学堂
昨天
0
0
读《美丽新世界》

一、背景 十一国庆节从重庆回深圳的时候,做得绿皮车,路上看了两本书:李笑来的《韭菜的自我修养》和禁书《美丽新世界》。 上篇文章已经分享了 读《韭菜的自我修养》,这篇文章来记录一下《...

tiankonguse
昨天
0
0
archlinux下基于Jenkins,docker实现自动化部署(持续交互)

本文永久更新地址:https://my.oschina.net/bysu/blog/2250954 【若要到岸,请摇船:开源中国 不最醉不龟归】 -----------------------------------第一部分Jenkins的安装与使用-----------...

不最醉不龟归
昨天
0
0
Spark Parquet file split

在实际使用 spark + parquet 的时候, 遇到了两个不解的地方: 我们只有一个 parquet 文件(小于 hdfs block size), 但是 spark 在某个 stage 生成了4个 tasks 来处理. 4个 tasks 中只有一个 ta...

Aaaaaaaron
昨天
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部