ADOQuery 的幾個事件：

procedure ADOQuery1_BeforePost ( DataSet : TDataSet);

begin

end;

是在ADOQuery1或者相關(guān)聯(lián)的DataSource的數(shù)據(jù)集改動后，在將改動保存到內(nèi)存之前激發(fā)的事件，上次使用這個事件是用來判斷修改之后的數(shù)據(jù)是否規(guī)范，如果不規(guī)范，就給出提示

示例如下： 要修改的列關(guān)聯(lián)的Column 是Score

procedure ADOQuery1_BeforePost ( DataSet : TDataSet);】

var

score:string;

begin

score:=DataSet.FieldByName(‘score’).AsString; // 提取修改之后的數(shù)據(jù)

if (‘score不符合規(guī)則’) then

self.msgWarning(‘’輸入的數(shù)據(jù)有錯);

end;

procedure ADOQuery1_AfterScroll (DataSet: TDataSet);

begin

end;

是在點(diǎn)擊與ADOQuery1相關(guān)聯(lián)的DBGridEh1中的記錄后激發(fā)的事件，可以用來做兩個DBGridEh控件的關(guān)聯(lián)事件。

如：點(diǎn)擊DBGridEh1 中的記錄1，在DBGridEh2中就顯示記錄1的詳細(xì)信息(DBGridEh2與ADOQuery2相關(guān)聯(lián))，(示例如下：

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;

PS:現(xiàn)在用過這兩個事件，以后還會補(bǔ)上其他相應(yīng)事件。。

總結(jié)

以上是生活随笔為你收集整理的ADOQuery 的几个事件的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。