Delphi数据库操作函数的封装(转)

 一些Delphi数据库操作方面的书籍，大都对数据库泛泛而淡，对操作封装方面更是少之甚少，本人不才，将自已前些日子写的数据库操作函数奉献给大家，如果写的好，送些鲜花什么的就可以了，写的不好，也不要扔臭鸡蛋，请批评指正。

先给个使用封装函数的例子：

　　 sql := 'update 通话记录 set ' +
         '                呼叫类型=:CallType, ' +
         '                主叫号码=:MainCode, ' +
         '                被叫号码=:SlaveCode, ' +
         '                消息内容=:Info, ' +
         '                起呼时间=:CallTime ' +
         'where ID=:RecordID';

　　DB_ExecSQL(sql
    　　　　　　　,[ComboBox12.Text
　　　　　　　　,Edit9.Text
　　　　　　　　,Edit10.Text
　　　　　　　　,Edit3.Text
　　　　　　　　,StrToDateTime(DateToStr(dtpBeginDate.Date) + ' ' + TimeToStr(dtpBeginTime.Time))
　　　　　　　　,RecordID]
　　　　　　　　,conn);

　　是不是很简单，“［］”代表sql语句中使用的参数，按先后顺序排列，在数据库中定义的什么类型，参数就送什么类型，

无需任何转化。

再给个查询的例子：

          sql := 'select top 1 消息内容 from 通话记录 where '
            + '主叫号码=:MainCall '
            + 'and Format(通话记录.起呼时间,"yyyy/m/d")>=Format(Now(),"yyyy/m/d") '
            + 'and 消息内容 <> :ErrorInfo '
            + 'order by ID desc';

　　　DB_Query(sql,[Call1,CAR_ERROR],query);

看明白了么？

原代码如下：

 

interface { --------------------------- 数据库操作函数 ----------------------------------} function DB_ExecSQL(SqlText :string; Conn :TADOConnection) :integer; overload; function DB_ExecSQL(SqlText :string; ParamValues :Array of Variant; Conn :TADOConnection):integer; overload; function DB_Query(SqlText :string; Conn :TADOConnection) :integer; overload; function DB_Query(SqlText :string; var cmd :TADOQuery) :integer; overload; function DB_Query(SqlText: string; ParamValues: array of Variant; Conn :TADOConnection): integer; overload; function DB_Query(SqlText :string; ParamValues:Array of Variant; var cmd :TADOQuery) :integer; overload; implementation { DB_ExecSQL } function DB_ExecSQL(SqlText: string; Conn :TADOConnection) :integer; var cmd :TADOQuery; begin cmd := TADOQuery.Create(nil); cmd.Connection := Conn; cmd.SQL.Clear; cmd.SQL.Add(SqlText); result := cmd.ExecSQL; FreeAndNil(cmd); end; function DB_ExecSQL(SqlText: string; ParamValues: array of Variant; Conn :TADOConnection) :integer; var cmd :TADOQuery; i :integer; ParamNames :TStrings; begin if SizeOf(ParamValues)>0 then begin ParamNames := TStringList.Create; end; cmd := TADOQuery.Create(nil); cmd.Connection := Conn; cmd.SQL.Clear; cmd.SQL.Add(SqlText); GetSqlParameters(SqlText, ParamNames); for i:= Low(ParamValues) to High(ParamValues) do begin cmd.Parameters.ParamValues[ParamNames[i]] := ParamValues[i]; end; result := cmd.ExecSQL; FreeAndNil(cmd); FreeAndNil(ParamNames); end; { DB_Query } function DB_Query(SqlText: string; Conn :TADOConnection): integer; var cmd :TADOQuery; begin cmd := TADOQuery.Create(nil); cmd.Connection := Conn; cmd.SQL.Clear; cmd.SQL.Add(SqlText); cmd.Open; result := cmd.RecordCount; cmd.Close; FreeAndNil(cmd); end; function DB_Query(SqlText: string; ParamValues: array of Variant; Conn :TADOConnection): integer; var cmd :TADOQuery; ParamNames :TStrings; i :integer; begin if SizeOf(ParamValues)>0 then begin ParamNames := TStringList.Create; end; cmd := TADOQuery.Create(nil); cmd.Connection := Conn; cmd.SQL.Clear; cmd.SQL.Add(SqlText); GetSqlParameters(SqlText, ParamNames); for i:= Low(ParamValues) to High(ParamValues) do begin cmd.Parameters.ParamValues[ParamNames[i]] := ParamValues[i]; end; cmd.Open; result := cmd.RecordCount; cmd.Close; FreeAndNil(cmd); FreeAndNil(ParamNames); end; function DB_Query(SqlText: string; var cmd: TADOQuery): integer; begin cmd.Close; cmd.SQL.Clear; cmd.SQL.Add(SqlText); cmd.Open; result := cmd.RecordCount; end; function DB_Query(SqlText: string; ParamValues: array of Variant; var cmd: TADOQuery): integer; var i :integer; ParamNames :TStrings; begin if SizeOf(ParamValues)>0 then begin ParamNames := TStringList.Create; end; cmd.Close; cmd.SQL.Clear; cmd.SQL.Add(SqlText); GetSqlParameters(SqlText, ParamNames); for i:= Low(ParamValues) to High(ParamValues) do begin cmd.Parameters.ParamValues[ParamNames[i]] := ParamValues[i]; end; cmd.Open; result := cmd.RecordCount; FreeAndNil(ParamNames); end; //------------------------------------------------------------------------------ {sql参数分割处理函数} procedure GetSQLParameters(SqlText :string; var params :TStrings); var i,len :integer; start, over :integer; begin if params = nil then raise Exception.Create('params 没有定义'); len := length(SqlText); start := 0; over := 0; for i:=1 to len do begin if SqlText[i] = ':' then start := i + 1 else if ((SqlText[i] = ' ') and (start > 0)) or ((i = len) and (start > 0) or ((SqlText[i]=',') and (start > 0)) or ((SqlText[i]=')') and (start > 0)) ) then begin if (i=len) and (SqlText[i]<>')') then over := i+1 else over := i; params.Add(copy(SqlText,start,over-start)); start := 0; over := 0; end; end; end;