publicunit.pas

来自「一个简单的数据库管理系统,是用delphi开发的.」· PAS 代码 · 共 35 行

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.