ADOQuery1_BeforePost ( DataSet : TDataSet);
end;
是在ADOQuery1或者相关联的DataSource的数据集改动后，在将改动保存到内存之前激发的事件，上次使用这个事件是用来判断修改之后的数据是否规范，如果不规范，就给出提示
示例如下： 要修改的列关联的Column 是Score
ADOQuery1_BeforePost ( DataSet : TDataSet);】
var
score:;
score:=DataSet.FieldByName(‘score’).AsString; // 提取修改之后的数据
if (‘score不符合规则’) then
self.msgWarning(‘’输入的数据有错);
end;
ADOQuery1_AfterScroll (DataSet: TDataSet);
end;
是在点击与ADOQuery1相关联的DBGridEh1中的记录后激发的事件，可以用来做两个DBGridEh控件的关联事件。
如：点击DBGridEh1 中的记录1，在DBGridEh2中就显示记录1的详细信息(DBGridEh2与ADOQuery2相关联)，(示例如下：
ADOQuery1_AfterScroll(DataSet: TDataSet);
var
sql: ;
sql := ’ select * from tableneme where key = ’ ” + ADOQuery1.fieldbyname
(‘ key ’).AsString + ” ’ ’ ADOQuery2.sql.Close;
ADOQuery2.sql.Clear;
ADOQuery2.sql.Add(sql);
ADOQuery2.sql.Open;
end;
作者：不详
转自: