动态创建一个ADOQUERY,那么它的AfterOpen等事件如何写? RT,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 private procedure xx(DataSet: TDataSet);procedure tform1.xx(DataSet: TDataSet);begin ...end;procedure tform1.button1Click(Sender: TObject);var Q:TADOQuery;begin Q:=TADOQuery.Create(nil); Q.AfterOpen:= xx; end; 访着adoquery的AfterOpen事件,自己写一个参数都一致的方法,然后动态创建adoquery,并且动态绑定YourQuery.AfterOpen := 你的自定义事件 给Delphi2006的代码收缩功能增加一个系统热键 如何向特定的打印机打印字符串,不用任何报表控件! delphi6中ado的执行效率 使用fastreport中条形码属性设置的问题 高分求ado控件的改进版本,支持虚拟字段(up有分,先给100分,若有完整代码给2000分) cvs配置问题,求救。 在STringGrid中动态 创建控件时的问题 求助::::::::::::::: 存储过程中17除3取整数用什么语句,只要前边的整数 高分求教,我的窗口嵌入到IE的工具栏中, 一个类似安装包的工具 ActionApplyUpdates
procedure xx(DataSet: TDataSet);procedure tform1.xx(DataSet: TDataSet);
begin
...
end;procedure tform1.button1Click(Sender: TObject);
var
Q:TADOQuery;
begin
Q:=TADOQuery.Create(nil);
Q.AfterOpen:= xx;
end;