Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1178814
  • 博文数量: 250
  • 博客积分: 1218
  • 博客等级: 少尉
  • 技术积分: 2788
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-19 02:33
文章分类

全部博文(250)

文章存档

2019年(1)

2018年(10)

2016年(1)

2015年(20)

2014年(115)

2013年(46)

2012年(37)

2011年(20)

分类: WINDOWS

2012-08-10 17:19:24

procedure ADOQuery1_BeforePost ( DataSet : TDataSet);
begin
end;
是在ADOQuery1或者相关联的DataSource的数据集改动后,在将改动保存到内存之前激发的事件,上次使用这个事件是用来判断修改之后的数据是否规范,如果不规范,就给出提示
示例如下: 要修改的列关联的Column 是Score
procedure ADOQuery1_BeforePost ( DataSet : TDataSet);】
var
  score:string;
begin
  score:=DataSet.FieldByName(‘score’).AsString; // 提取修改之后的数据
  if (‘score不符合规则’) then
    self.msgWarning(‘’输入的数据有错);
end;
procedure ADOQuery1_AfterScroll (DataSet: TDataSet);
begin

end;

是在点击与ADOQuery1相关联的DBGridEh1中的记录后激发的事件,可以用来做两个DBGridEh控件的关联事件。
如:点击DBGridEh1 中的记录1,在DBGridEh2中就显示记录1的详细信息(DBGridEh2与ADOQuery2相关联),(示例如下:
procedure ADOQuery1_AfterScroll(DataSet: TDataSet);
var
  sql: string;
begin
  sql := ’ select * from tableneme where key = ’ ” + ADOQuery1.fieldbyname
    (‘ key ’).AsString + ” ’ ’ ADOQuery2.sql.Close;
  ADOQuery2.sql.Clear;
  ADOQuery2.sql.Add(sql);
  ADOQuery2.sql.Open;
end;

作者:不详

转自:http://cache.baidu.com/c?m=9d78d513d98604ea4fece4690d61c067691ec7342bd6a043288ad112c8735a31506694ac26524158c4c50d3441e9120db4a72172465966e8c5df893addb9912a38885634721f844212d119acc94626c2249a51feae69f0ba872592de8895800a478d135b75dab6cd181715b972ed5174a6b1993f5f1847ecba6e27a5026029e8721cab14b9a6693f59d6eb871a139d2ad262138aaf37b33c11b511a41c192447a348bb03462647ba0978a1&p=8b2a96458f815fef4ef6c4710b1085&user=baidu

阅读(5173) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册