dahelper.pas

实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添加、删除等。移动电话管理系统

unit DAHelper;

interface
uses
  SysUtils, Classes, DB, ADODB,Config;

function ExeSqlNoQuery(sql:string):boolean;

function ExeSqlQuery(sql:string):TADOQuery;
implementation
function ExeSqlQuery(sql:string):TADOQuery;
var
  query:TADOQuery;
begin
  try

    if stClosed in Config.ADOCon.State then
      Config.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=Config.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 Config.ADOCon.State then
      Config.ADOCon.Open;
    query:=TADOQuery.Create(nil);
    query.Connection:=Config.ADOCon;
    query.Close;
    Config.ADOCon.BeginTrans;
    try
      query.SQL.Clear;
      query.SQL.Add(sql);
      ref:=query.ExecSQL;//影响的行数
      Config.ADOCon.CommitTrans;
    except
      Config.ADOCon.RollbackTrans;
      query:=nil;
      result:=false;
    end;
  if ref>0 then
    result:=true
  else
    result:=false;
end;
end.