文档章节

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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

python标准输入输出

input() 读取键盘输入 input() 函数从标准输入读入一行文本,默认的标准输入是键盘。 input 可以接收一个Python表达式作为输入,并将运算结果返回。 print()和format()输出 format()输出...

colinux
20分钟前
0
0
Python 核心编程 (全)

浅拷贝和深拷贝 1.浅拷贝:是对于一个对象的顶层拷贝,通俗的理解是:拷贝了引用,并没有拷贝内容。相当于把变量里面指向的一个地址给了另一个变量就是浅拷贝,而没有创建一个新的对象,如a...

代码打碟手
32分钟前
0
0
PHP 对象比数组省内存?错!数组比对象省内存?错!

刚刚一个群里有人引出了 PHP 数组和对象占用内存谁多谁少的问题。我想起之前我好像也测试过这个问题,和群里人说的对象比数组节省内存的结论相反,我得出的是数组比对象节省内存。 但今天,我...

宇润
49分钟前
1
0
memcached命令行及其用法

21.5 memcached命令行 创建数据 yum install -y telnet 利用telnet命令连接memcached数据库 telnet 127.0.0.1 11211 #写入数据 set key2 0 30 212STORED 这个是错误的示范,因为0 30 已经...

lyy549745
49分钟前
0
0
Maven私服

Maven私服 一、简介 当多人项目开发的时候,尤其聚合项目开发,项目和项目之间需要有依赖关系,通过maven私服,可以保存互相依赖的jar包,这样的话就可把多个项目整合到一起。 如下图: Inst...

星汉
52分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部