unit DAHelper;

interface
uses
  SysUtils, Classes, DB, ADODB,DataMU;
//執行沒有返回值的sql語句,如果正確執行則返回true,否則返回false
function ExeSqlNoQuery(sql:string):boolean;
// 執行有返回值的sql語句,返回得到的ADOQuery;
function ExeSqlQuery(sql:string):TADOQuery;
implementation
function ExeSqlQuery(sql:string):TADOQuery;
var
  query:TADOQuery;
begin
  try
  //判斷連接狀態是否關閉, 若關閉則打開
    if stClosed in DataM.ADOCon.State then
      DataM.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=DataM.ADOCon;
    query.Close;
    query.SQL.Clear;
    query.SQL.Add(sql);
    query.Open;
  except
    result:=nil;
  end;
  result:=query;
end;
function ExeSqlNoQuery(sql:string):boolean;
var
  query:TADOQuery;
  ref:integer;
begin
  ref:=0;
  //判斷連接狀態是否關閉, 若關閉則打開
  if stClosed in DataM.ADOCon.State then
      DataM.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=DataM.ADOCon;
    query.Close;
    DataM.ADOCon.BeginTrans;
    try
      query.SQL.Clear;
      query.SQL.Add(sql);
      ref:=query.ExecSQL;//影響的行數
      DataM.ADOCon.CommitTrans;
    except
      DataM.ADOCon.RollbackTrans;
      query:=nil;
      result:=false;
    end;
  if ref>0 then
    result:=true
  else
    result:=false;
end;
end.