Delphi中动态创建DataSet数据集,并响应AfterDelete事件
来源:互联网 发布:linux下wget命令安装 编辑:程序博客网 时间:2024/06/08 14:44
在自己的开发过程中碰到要动态创建Dataset数据集,并且能够响应各类事件,例如AfterDelete事件。具体如下:
第一部分:创建DataSet
function TMainForm.CreateDataSet: TDataSet;
var
dsTemp:TDataSet;
cdsTemp: TClientDataSet;
begin
//初始化
dsTemp := TDataSet.Create(Application);
try
//字段名设置
with dsTemp.FieldDefs do
begin
Add('STID',ftInteger);
//其他字段根据要求定义
end;
//创建DataSet
cdsTemp := TClientDataSet.Create(Application);
if dsTemp.FieldDefs <> nil then
begin
cdsTemp.FieldDefs.Assign(dsTemp.FieldDefs);
cdsTemp.CreateDataSet;
result := (cdsTemp as TDataSet);
end;
finally
//内存释放
dsTemp.Free;
end;
end;
第二部分:添加记录
Function TMainForm.AddDataToSet(AdsData: TDataSet): TDataSet;
begin
//打开数据集
AdsData.Open;
with AdsData do
begin
Append;//添加
FieldByName('STID').AsInteger := 2 ;
post;//提交
end;
end; }
第三部分:调用和事件的响应
BDataSet:=CreateDataSet;
BDataSet.AfterDelete:=BAfterDelete;
事件:
produce BAfterDelete(DataSet:TDataSet);
begin
showmessage('Hello world');
end;
- Delphi中动态创建DataSet数据集,并响应AfterDelete事件
- 对话框和MDI中动态创建按钮CButton,并响应事件
- 对话框和MDI中动态创建按钮CButton,并响应事件
- 动态创建控件支持事件响应并可保存与读取
- 动态创建控件支持事件响应并可保存与读取
- MFC动态创建控件并响应事件代码实现过程
- delphi手动创建dataset并插入值
- VS2003 C#:重写键盘响应事件、动态创建控件、创建线程、在线程中使用委托在界面显示数据
- (转)在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- 在MFC中动态创建控件以及事件响应
- oracle之plSql学习
- Windows 系统共享命令
- Undo
- 数据库水平切分的实现原理解析---分库,分表,主从,集群,负载均衡器
- vb.net 读取网页源码(支持各种编码)
- Delphi中动态创建DataSet数据集,并响应AfterDelete事件
- 2010年终作业 最喜欢GALGAME推荐
- 无语中,公司的电脑只能上CSDN等几个垃圾网站!!!!!!!!!!!!!!!
- 一个很简单的随机排列算法
- linux下tomcat的配置
- vss配置与应用
- 远程控制桌面
- SAP项目中开发用到的BAPI
- (PS)かまいたちの夜•特別篇 汉化笔记 一