TADOQuery默认连接

 

procedure qrySetCon; var i:Integer; begin for i := 0 to Self.ComponentCount - 1 do if Components[i] is TADOQuery then begin TADOQuery(Components[i]).Connection := dtm_DM.conSQL; end; end;