判断Ado是否打开 如果打开则关闭(100分)

S

shhw

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么实现下面的功能:
判断一个窗体中所有的ado控件是否处以打开状态
如果是则关闭
要求用for循环来判断
 
S

sherman

Unregistered / Unconfirmed
GUEST, unregistred user!
for i := frmMain.ComponentCount -1do
if frmMain.Component is TADOQuery then
if TAdoQuery(frmMain.Component).Active then
TAdoQuery(frmMain.Component ).Close;
 
S

shhw

Unregistered / Unconfirmed
GUEST, unregistred user!

Similar threads

S
回复
0
查看
913
SUNSTONE的Delphi笔记
S
S
回复
0
查看
743
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部