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;