怎样捕获TAdoQuery被打开?(20分)

bravercaohao · 2002-08-23

我要在DataMoudle任意一个TAdoQuery打开时要执行同一个事件, (不想用共同事件,用shift选定所有TAdoQuery不是好办法) 怎样捕捉TAdoQuery被打开?

darnis · 2002-08-23

动态指定吧！   ADOQuery1.AfterOpen := deal;   ADOQuery2.AfterOpen := deal;   ADOQuery3.AfterOpen := deal;   ADOQuery4.AfterOpen := deal;   ADOQuery5.AfterOpen := deal;   ........................

bravercaohao · 2002-08-23

放在什么事件中,如有100个TADOQuery怎么写?

darnis · 2002-08-23

啊？ 你是动态创建的吗？ 那更容易了， 在你创建 TADOQuery 时，如下:   SetLength( ADOS,100);  //  假定 ADOS 是你要创建的100个ADO 连接                          //  我猜想你也不会在一个Module 或者是窗体上放100 控件吧！   for i:=0 to 100 do   begin     ADOS := TADOQuery.Create(self);     ADOS.AfterOpen := deal;     //........加入你的初始化。     end;

bravercaohao · 2002-08-23

不是动态的,项目中所有的TADOQuery都在DATAMOUDLE中,怎么解决

昱昱 · 2002-08-23

不知道

darnis · 2002-08-23

给你一个思路：    在 DataModule 的Create 事件中，      if Components is TADOQuery then      (Components AS TADOQuery).AfterOpen := deal;    你看行不行，如果不行，我也没有招了。

sid033 · 2002-08-23

同意darnis的作法，一定是可行的。

bravercaohao · 2002-08-23

如果有的TADOQUERy在初始化时未打后而在在程序中控制的执行共同事件会不会有问题?

bravercaohao · 2002-09-05

接受答案了.

怎样捕获TAdoQuery被打开?(20分)

bravercaohao

Unregistered / Unconfirmed

darnis

Unregistered / Unconfirmed

bravercaohao

Unregistered / Unconfirmed

darnis

Unregistered / Unconfirmed

bravercaohao

Unregistered / Unconfirmed

昱昱

Unregistered / Unconfirmed

darnis

Unregistered / Unconfirmed

sid033

Unregistered / Unconfirmed

bravercaohao

Unregistered / Unconfirmed

bravercaohao

Unregistered / Unconfirmed

Similar threads