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;
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;