TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
来源:互联网 发布:apm测试软件 编辑:程序博客网 时间:2024/04/27 19:02
//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:
procedure TForm1.FormCreate(Sender: TObject);
begin
//ClientDataSet1.ObjectView := True; { 这是默认的 }
{ 先定义两个基本字段 }
with ClientDataSet1.FieldDefs.AddFieldDef do begin
Name := 'ID';
DataType := ftInteger;
end;
with ClientDataSet1.FieldDefs.AddFieldDef do begin
Name := 'Name';
DataType := ftString;
Size := 7;
end;
{ 定义 ftADT 字段, 联系方式(Contact)中包括: Tel、QQ、Email }
with ClientDataSet1.FieldDefs.AddFieldDef do begin
Name := 'Contact';
DataType := ftADT;
Size := 3;
ChildDefs.Add('Tel', ftString, 12);
ChildDefs.Add('QQ', ftString, 9);
ChildDefs.Add('Email', ftString, 15);
end;
ClientDataSet1.CreateDataSet;
{ 添加记录, 这种最方便 }
ClientDataSet1.AppendRecord([1, '张三', VarArrayOf(['9111111', '12222', 'aaa@bbb'])]);
{ 下面的其他添加方法也可用于访问 }
ClientDataSet1.Append;
ClientDataSet1['ID'] := 2;
ClientDataSet1['Name'] := '李四';
ClientDataSet1['Contact.Tel'] := '9222222';
ClientDataSet1['Contact.QQ'] := '13333';
ClientDataSet1['Contact.Email'] := 'ccc@ddd';
ClientDataSet1.Post;
ClientDataSet1.Append;
ClientDataSet1.Fields[0].AsInteger := 3;
ClientDataSet1.Fields[1].AsString := '王五';
TADTField(ClientDataSet1.Fields[2])[0] := '9333333';
TADTField(ClientDataSet1.Fields[2])[1] := '14444';
TADTField(ClientDataSet1.Fields[2])[2] := 'eee@fff';
ClientDataSet1.Post;
ClientDataSet1.Append;
ClientDataSet1.FieldByName('ID').Value := 4;
ClientDataSet1.FieldByName('Name').Value := '孙六';
TADTField(ClientDataSet1.FieldByName('Contact')).FieldValues[0] := '9444444';
TADTField(ClientDataSet1.FieldByName('Contact')).FieldValues[1] := '15555';
TADTField(ClientDataSet1.FieldByName('Contact')).FieldValues[2] := 'ggg@hhh';
ClientDataSet1.Post;
end;
设计时:
这种复杂点的数据可以保存为 cds, 但保存不了 xml, 且 XMLData 也生成不了.
- TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
- Abstract Data Type(ADT)
- ADT(Abstract data type)
- ADT(Abstract Data Type)
- ADT(Abstract Data Type)抽象数据类型
- C++抽象数据类型(ADT Abstract Data Type)简述
- C++抽象数据类型(ADT Abstract Data Type)简述 .
- 数据抽象级——ADT(abstract data type)
- ADT描述规范 (abstract data type)抽象数据类型
- 表的抽象数据类型(abstract data type,ADT)
- 队列的抽象数据类型(abstract data type,ADT)
- 栈的抽象数据类型(abstract data type,ADT)
- ABSTACT DATA TYPE(ADT)
- TClientDataSet[20]: 使用 Blob 字段
- TClientDataSet[20]: 使用 Blob 字段
- 抽象数据类型(Abstract Data Type)
- TClientDataSet[23]: 使用数据集字段(TDataSetField)
- Lecture 12: Abstract Data Types(ADT)
- 滑动实现多个布局的切换——ViewPager的使用
- 6410裸机启动LCD
- Tika 学习(一)
- 高级js
- LTE系统的半静态调度传输解决方案
- TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段
- 迟到的2012总结 -- 选择、放弃和坚持
- 英语单词的重要前缀
- PlayBook最常被问到的5个问题
- LTE PDCCH忙检测,并补充
- php之无限极分类
- 杭电Hd 2024 C语言合法标识符
- Python Singleton(单例模式)实现
- 我的CSDN情结之年度总结