如何 搜索在整个应用程序中的 所有的 tadoquery？

Question

如何 搜索在整个应用程序中的 所有的  tadoquery？请高手指点 先谢了

Answer 1

如果你的TADOQuery都放在一个窗口中，那么这样做：
For I := 0 To Controls.Count - 1 Do
Begin
     If UpperCase( Controls[ I ].ClassName = 'TADOQUERY' ) Then
     Begin
          做你想做的事！！！
     End;
End;如果你的TADOQuery放在很多的窗体上，那么你就需要遍历所有可以存放TADOQuery控件的窗口。注意使用Create( Nil )创建的TADOQuery是找不到的！！！

Answer 2

我的TADOQuery放在很多的窗体上