Delphi的DataSource事件
2015-06-29 18:09
555 查看
Delphi的DataSource事件
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); //数据源记录移动触发
begin
end;
procedure TForm1.DataSource1StateChange(Sender: TObject); //时刻监视着数据源的状态
var s:String;
begin
// TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
// dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
// dsInternalCalc, dsOpening);
Case DataSource1.State of
dsInactive: s:=’Inactive’; //数据集被关闭
dsBrowse: s:=’Browse’; //浏览模式
dsEdit: s:=’Edit’; //编辑模式,意味着Edit方法已被调用,而编辑后的数据尚未被提交
dsInsert: s:=’Insert’; //插入模式,即Insert被调用,但变化还没有提交
dsSetKey: s:=’SetKey’; //设置键值模式,意味着SetKey被调用,而GotoKey尚未被调用
dsCalcFields: s:=’CalcFields’; //OnCalcFields事件已发生,对记录值的计算正在进行中
dsFilter: s:=’Filter’; //数据集正在处理一个记录过滤器、查找字段或其他需要用到过滤器的操作
dsNewValue: s:=’NewValue’; //数据集处于NewValue属性被访问的临时状态
dsOldValue: s:=’OldValue’; //数据集处于OldValue属性被访问的临时状态
dsCurValue: s:=’CurValue’; //数据集处于CurValue属性被访问的临时状态
dsBlockRead: s:=’BlockRead’; //数据正被写入缓冲区,此时数据库表中指针的移动并不触发数据感知组件的更新和事件的发生
dsInternalCalc: s:=’InternalCalc’; //一个字段值正在被计算,以供一个有fkInterternalCalc类型的Fieldkind属性的字段使用
dsOpening: s:=’Opening’; //数据集处于正在打开状态但是还没有结束,这种状态发生在数据集被异步打开时
End;
Label1.Caption:=s;
end;
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); //数据源记录移动触发
begin
end;
procedure TForm1.DataSource1StateChange(Sender: TObject); //时刻监视着数据源的状态
var s:String;
begin
// TDataSetState = (dsInactive, dsBrowse, dsEdit, dsInsert, dsSetKey,
// dsCalcFields, dsFilter, dsNewValue, dsOldValue, dsCurValue, dsBlockRead,
// dsInternalCalc, dsOpening);
Case DataSource1.State of
dsInactive: s:=’Inactive’; //数据集被关闭
dsBrowse: s:=’Browse’; //浏览模式
dsEdit: s:=’Edit’; //编辑模式,意味着Edit方法已被调用,而编辑后的数据尚未被提交
dsInsert: s:=’Insert’; //插入模式,即Insert被调用,但变化还没有提交
dsSetKey: s:=’SetKey’; //设置键值模式,意味着SetKey被调用,而GotoKey尚未被调用
dsCalcFields: s:=’CalcFields’; //OnCalcFields事件已发生,对记录值的计算正在进行中
dsFilter: s:=’Filter’; //数据集正在处理一个记录过滤器、查找字段或其他需要用到过滤器的操作
dsNewValue: s:=’NewValue’; //数据集处于NewValue属性被访问的临时状态
dsOldValue: s:=’OldValue’; //数据集处于OldValue属性被访问的临时状态
dsCurValue: s:=’CurValue’; //数据集处于CurValue属性被访问的临时状态
dsBlockRead: s:=’BlockRead’; //数据正被写入缓冲区,此时数据库表中指针的移动并不触发数据感知组件的更新和事件的发生
dsInternalCalc: s:=’InternalCalc’; //一个字段值正在被计算,以供一个有fkInterternalCalc类型的Fieldkind属性的字段使用
dsOpening: s:=’Opening’; //数据集处于正在打开状态但是还没有结束,这种状态发生在数据集被异步打开时
End;
Label1.Caption:=s;
end;
相关文章推荐
- Delphi excel 复制粘贴到dbgrid
- Delphi 与 DirectX
- delphi视频聊天
- 转:Delphi各种Socket组件的模式和模型
- delphi附带通用控件安装方法:
- Delphi XE TabControl使用
- Delphi 2009 泛型容器单元(Generics.Collections)[1]: TList<T>
- 升级旧Delphi应用转向支持手机的一个思路
- delphi EncdDecd.pas单元中Encoding方法出现#$D#$A的解决方法
- delphi无法定位程序输入点 于动态链接库【问题日志】
- 使用Delphi Xe8 开发微信功能 -- (三)微信支付商户平台之查询退款详情
- DelphiXE下的字符串变化
- 转 Delphi中使用FastMM4结合View CPU避免内存泄漏
- 使用Delphi Xe8 开发微信功能 -- (二)微信支付商户平台之查询订单详情
- Delphi Firemonkey在主线程 异步调用函数(延迟调用)
- Delphi中Chrome Chromium、Cef3学习笔记(三)
- delphi 调用webservice产生 Microsoft MSXML is not installed的解决办法。
- 使用Delphi Xe8 开发微信功能 -- (一)微信支付商户平台之对账单下载
- 让delphi程序不受WINDOWS日期格式的影响
- Delphi中Chrome Chromium、Cef3学习笔记(二)