zoukankan
html css js c++ java
TClientDataSet的操作
记性不好了,唉,这里写个被忘
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, DBClient, StdCtrls;
type
TForm1
=
class
(TForm)
Button1: TButton;
Button2: TButton;
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R
*
.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientDataSet1.LoadFromFile(
'
E:\TEMP.XML
'
);
end;
procedure TForm1.Button1Click(Sender: TObject);
var tempClientDataSet : TClientDataSet;
begin
tempClientDataSet :
=
TClientDataSet.Create(self);
try
with tempClientDataSet
do
begin
with FieldDefs.AddFieldDef
do
begin
DataType :
=
ftInteger;
Name :
=
'
Field1
'
;
end;
with FieldDefs.AddFieldDef
do
begin
DataType :
=
ftdatetime;
Name :
=
'
Field2
'
;
end;
createDataSet;
appendRecord([
3
,now]);
appendRecord([
1
,now]);
appendRecord([
2
,now]);
tempClientDataSet.AddIndex(
'
T1
'
,
'
Field1
'
, []);
tempClientDataSet.IndexName :
=
'
T1
'
;
first;
while
not EOF
do
begin
showmessage(intToStr(FieldByName(
'
Field1
'
).AsInteger)
+
formatdatetime(
'
yyyymmdd HH:NN:DD
'
,FieldByName(
'
Field2
'
).AsDateTime ));
next;
end;
end;
tempClientDataSet.SaveToFile(
'
E:\TEMP.XML
'
);
finally
tempClientDataSet.Free;
end;
end;
end.
查看全文
相关阅读:
模块和包
异常处理
re模块下的的常用方法
lambda匿名函数sorted排序函数filter过滤函数map映射函数
内置函数
生成器函数,迭代器
网站架构伸缩性概论
网站架构高可用小结
Apache的三种工作模式
HTTP协议
原文地址:https://www.cnblogs.com/enli/p/642359.html
最新文章
redirectTo、navigateTo与switchTap区别
mybatis-generator生成数据对象
sql拼接
Git初始化项目 和 Gitignore
关于IDEA的maven没有artifacts的解决方法
Apache Thrift 的基本使用
CentOS7 64位下MySQL安装与配置(YUM)
Chrome Plugin Recommendation
iOS应用推荐
win7 64位 [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认
热门文章
笔记本电脑配置双网原理及步骤
wifi下远程连接Android设备方法
Linux常用命令分类总结
[转]CMD命令提示符窗口中的快捷键、小技巧和常用命令
解决批处理命令执行完毕后自动关闭cmd窗口方法
Linux修改MySQL max_allowed_packet 值
java读取classpath下properties文件注意事项
面向对象相关
面向对象 成员和嵌套
面向对象
Copyright © 2011-2022 走看看