如何在客户端为服务器端的datamod的dataset定制事件?
1、在客户端定义Event Handler:
......
public
procedure ABSQueryAfterScroll(DataSet: TDataSet);
......
implementation
procedure TMainForm.ABSQueryAfterScroll(DataSet: TDataSet);
var
ss:string;
begin
ss:=DataSet.Fields[1].AsString;
ShowMessage('scroll!'+ss);
end;
2、为dataset事件赋值:
procedure TMainForm.UniFormActivate(Sender: TObject);
begin
UniMainModule.ABSQuery1.AfterScroll:= ABSQueryAfterScroll;
UniMainModule.ABSQuery1.Open;
end;
3、在窗口关闭时取消此事件赋值:
procedure TMainForm.UniFormDestroy(Sender: TObject);
begin
UniMainModule.ABSQuery1.AfterScroll:=nil;
end;