dahelper.~pas

学生公寓管理系统 很好的设计 呵呵 绝对很好

unit DAHelper;

interface
uses
  SysUtils, Classes, DB, ADODB,Config;
//执行没有返回值的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 Config.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.