publicmodel.pas

权限管理

unit PublicModel;

interface

uses Classes,ADODB, Controls ;

  procedure showErrMsg(s:string = '');
  procedure showInfMsg(s:string = '');
  function showConfirmDlg(s:string = ''):boolean;
  procedure ExecQuery(var DS:TADODataSet; strSQL:string);
  procedure ExecQuery2(strSQL:string);
  procedure BatchSQL(s:TStrings);

implementation

uses Dialogs,DataModule;

procedure showErrMsg(s:string);
begin
  MessageDlg(s, mtError , [mbYes], 0);
end;

procedure showInfMsg(s:string = '');
begin
  MessageDlg(s, mtInformation , [mbYes], 0);
end;


function showConfirmDlg(s:string ):boolean;
begin
  if MessageDlg(s, mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    result := True
  else
    Result := False ;
end;

procedure ExecQuery2(strSQL:string);
begin
  DM.ADOQuery1.SQL.Clear ;
  DM.ADOQuery1.SQL.Add(strSQL);
  DM.ADOQuery1.ExecSQL ;
end;

procedure ExecQuery(var DS:TADODataSet; strSQL:string);
begin
  DS.Active := false;
  DS.CommandText := strSQL;
  DS.Active := True ;
end;

procedure BatchSQL(s:Tstrings);
var
  i: Integer ;
begin
  DM.ADOConnection1.BeginTrans ;
  for i := 0 to s.Count -1 do
  begin
    DM.ADOQuery1.SQL.Clear ;
    DM.ADOQuery1.SQL.Add(s[i]);
    DM.ADOQuery1.ExecSQL ;
  end;
  DM.ADOConnection1.CommitTrans ;  
end;

end.