unit PublicUnit;

interface
  uses  SysUtils, Windows, Controls,ADODB;
  
  Procedure OpenSQL(Qry:TADOQuery; Str:String);
  Procedure ExecSQL(Qry:TADOQuery; Str:String);

implementation


Procedure OpenSQL(Qry:TADOQuery; Str:String);
begin
  With Qry do
  begin
    close;
    SQL.clear;
    SQL.Add(Str);
    Open;
  end;
end;

Procedure ExecSQL(Qry:TADOQuery; Str:String);
begin
  With Qry do
  begin
    close;
    SQL.clear;
    SQL.Add(Str);
    ExecSQL;
  end;
end;

end.