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

S

shhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-18

• #1

怎么实现下面的功能：
判断一个窗体中所有的ado控件是否处以打开状态
如果是则关闭
要求用for循环来判断

 

S

sherman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-18

• #2

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!

• 2008-12-18

• #3

OK结账