Delphi简单的数据操作类

unit MyClass;

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

VCLCom, StdVcl, DBClient,Grids, DBGrids,ComCtrls, DB, ADODB, Provider;

type

TMyDataClass = class

private

FAdoConn : TADoConnection; //Ado数据连接

aqTmp: TADoQuery;

acmd: TAdoCommand;

aspTmp: TADOStoredProc;

public

function OpenQuery(Sqlstr:string):boolean; overload;//传入sql打开数据

function OpenQuery(Query:TAdoQuery;Sqlstr:string):boolean; overload;//传入sql打开数据

function OpenDataSetByPara(InPara:variant;adsTmp:TadoDataSet):boolean;overload;//传入参数，打开一个dataset

function OpenDataSet(DataSet:TADoDataSet;Sqlstr:string):boolean;

function IsExists(Sqlstr:string):boolean;//传入sql查询是否记录存在，true存在

function Get_Sql_Value(sqlstr:string):variant;//输入sql,返回一个字段数值

function ExecSql(Sqlstr:string):boolean;overload; //执行一段sql命令

function ExecSql(Sqlstr:string;pTrans:boolean):boolean;overload; //执行一段sql命令

//执行存储过程

function ExecProc(ProcName: string; var ParamStrs: array of variant;

Direction: array of TParameterDirection): boolean;overload;

function ExecProc(ADOStoredProc: TADOStoredProc ;ProcName: string; var ParamStrs: array of variant;

Direction: array of TParameterDirection;ExecType:byte): boolean;overload;

//数据更新函数，pTrans:事务处理，返回值：true成功，false失败

function SaveData(ads_Tmp: array of TADODataSet;pTrans:Boolean):boolean;overload;

function UpdateValueToField(pDataSet:TDataSet;value:variant;FieldName:string):boolean;//更新数据表某个字段数值

function ChangeFieldValue(pDataSet:TDataSet;Oldvalue,NewValue:variant;FieldName:string):boolean;//更新数据表某个字段数值

//删除指定的记录，返回值：FieldName字段，fieldValue:指定的记录数值

function DeleteRecord(ads_Tmp: TADODataSet;FieldName:string;FieldValue:variant):boolean;overload;

procedure DeleteTable(DataSet:TDataSet);//删除数据表所有记录

function Check_Unique_Field_Value(sqlstr:string):boolean;//验证字段数值是否唯一

procedure Set_Filter(str_filter:string;DataSEt:TDATASET);//设置过滤

Constructor Create(AdoConn: TAdoConnection);

Destructor Destroy;override;

end;

var

MyDataClass: TMyDataClass;

implementation

...

------------{实现}

Constructor TMyDataClass.Create(AdoConn: TAdoConnection);

begin

FAdoConn := AdoConn;

aqTmp := TADoQuery.Create(nil);

aqTmp.Connection :=FAdoConn;

acmd := TAdoCommand.Create(nil);

acmd.Connection := FAdoConn;

aspTmp := TADOStoredProc.Create(nil);

aspTmp.Connection :=FAdoConn;

end;

Destructor TMyDataClass.Destroy;

begin

inherited;

end;

...

------------{调用}

var MyDataClass: TMyDataClass;

MyDataClass :=TMyDataClass.Create(dm.ADOConnection1);