sqlunit.pas

学校班级教学管理系统 DELPHI7下的

unit SQLUnit;

interface
uses
  ADODB, DB, Dialogs, ActiveX, SysUtils, Classes;

  function SQLDataSet(sqlText: string; ADOConn: TADOConnection): TDataSet; Stdcall;
  procedure SQLExecute(sqlText:string; ADOConn: TADOConnection); Stdcall;
  function SQLSearch(sqlText:string; ADOConn: TADOConnection): Boolean; Stdcall;

implementation

function SQLDataSet(sqlText: string;ADOConn: TADOConnection): TDataSet;
var
  quyDataSet: TADOQuery;
begin
  CoInitialize(nil);
  quyDataSet := TADOQuery.Create(nil);
  quyDataSet.Connection := ADOConn;
  with quyDataSet do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     Open;
  end;
  Result :=quyDataSet;
  CoUninitialize;
end;

procedure SQLExecute(sqlText: string;ADOConn: TADOConnection);
var
  quyExecSet: TADOQuery;
begin
  CoInitialize(nil);
  quyExecSet := TADOQuery.Create(nil);
  quyExecSet.Connection := ADOConn;
  with quyExecSet do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     ExecSQL;
  end;
  CoUninitialize;
end;

function SQLSearch(sqlText: string;ADOConn: TADOConnection): Boolean;
var
  quyFindSet: TADOQuery;
begin
  CoInitialize(nil);
  quyFindSet :=TADOQuery.Create(nil);
  quyFindSet.Connection := ADOConn;
  with quyFindSet do
  begin
     Close;
     SQL.Clear;
     SQL.Add(sqlText);
     Open;
     if Not quyFindSet.Eof then
       Result := True
     else
       Result := False;
  end;
  CoUninitialize;
end;    

end.