手动建立数据集
来源:互联网 发布:手机淘宝怎么登陆卖家 编辑:程序博客网 时间:2024/06/11 19:39
//放置控件: 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;
{ 添加数据 }
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;
这个表的设计也可以在设计时完成:
///////////////////////////////////////////////////////////////////////////////////////////////////
代码可另写为(下面这种方法简单, 但上一种方法可设置更多选项):
procedure TForm1.Button1Click(Sender: TObject);
begin
{ 添加字段 }
with ClientDataSet1.FieldDefs do
begin
Add(‘ID’, ftInteger);
Add(‘Name’, ftString, 12);
Add(‘Age’, ftWord);
Add(‘Sex’, ftBoolean);
end;
{ 构建数据集, 不可缺少的一步 }
ClientDataSet1.CreateDataSet;
{ 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }
DataSource1.DataSet := ClientDataSet1;
DBGrid1.DataSource := DataSource1;
{ 插入数据 }
ClientDataSet1.InsertRecord([1, ‘张三’, 33, True]);
ClientDataSet1.InsertRecord([2, ‘李四’, 44, False]);
ClientDataSet1.InsertRecord([3, ‘王五’, 55, True]);
{ 保存为 cds 或 XML }
ClientDataSet1.SaveToFile(‘C:\Temp\TestBinary.cds’);
ClientDataSet1.SaveToFile(‘C:\Temp\TestXMLUTF8.xml’, dfXMLUTF8);
end;
- 手动建立数据集
- TClientDataSet[3]: 手动建立数据集
- Delphi手动创建数据集
- 手动建立 Oracle9i 数据库
- 手动建立Oracle 数据库
- 手动建立uclibc(仅供参考)
- Linux 手动建立账号
- 手动建立Struts2应用
- DataTable手动建立
- 手动建立WEB项目
- 【Ubuntu】手动建立快捷方式
- 如何手动建立Oracle监听器
- Entity Framework 手动建立关联
- 完全手动建立maven骨架
- MS_sql数据手动备份
- dataset手动添加数据
- Json数据手动解析
- struts手动转发数据
- Java 高并发基础
- 2017 Multi-University Training Contest
- 26. Remove Duplicates from Sorted Array
- 欢迎使用CSDN-markdown编辑器
- css选择器应用
- 手动建立数据集
- Angular入门之依赖注入
- JAVA学习记录---入门---for,each循环
- 【CodeForces
- TClientDataSet[2]: Data、XMLData
- 评分卡模型开发-定性指标筛选
- HashSet<T> 源码解析
- 1.B向量空间的定义
- [随心译]2017.8.2-基于触摸的AR将是增强现实的下个发展阶段吗?