Delphi ADO数据操作封装类

{
 将数据集操作方面的东西全部封装成一个单独的类
 TcustomAdoDataSet是TadoQuery、TadoTable、TadoDataSet、TadoCommand的公共祖先类
 应尽量使用TadoDataSet和TadoCommand类
}

unit untOpeDataSet;

interface

uses
  SysUtils,
  db, adodb, commonFunction, msg;

type
  TopeDataSet = class
  public
    {修改已发生，但还没有得到应用的记录，在关闭窗口前应给予提示}
    function adoUpdatesPending(adoDataSet: TCustomAdoDataSet): boolean;
    {增加}
    procedure Append(adq: TadoQuery);
    {保存}
    procedure Save(adq: TadoQuery);
    {删除}
    procedure delete(adq: TadoQuery);
    {刷新数据集}
    procedure flash(adq: TadoQuery);
    {事务提交}
    procedure adqCommit(adq: TadoQuery);
    {查询数据集}
    procedure adqQuery(adq: TadoQuery; s: string);
    {带参查询数据集}
    procedure adqQueryPara(adq: TadoQuery; s: string; s1: variant);
    procedure adqQueryPara2(adq: TadoQuery; s: string; s1: variant; s2: variant);
    procedure adqQueryPara3(adq: TadoQuery; s: string; s1: variant; s2: variant; s3: variant);
    procedure adqQueryPara4(adq: TadoQuery; s: string; s1: variant; s2: variant; s3: variant; s4:       variant);
    {更新数据集}
    procedure adqExec(adq: TadoQuery; s: string);
    {带参更新数据集}
    procedure adqExecPara(adq: TadoQuery; s: string; s1: variant);
    procedure adqExecPara2(adq: TadoQuery; s: string; s1: variant; s2: variant);
    procedure adqExecPara3(adq: TadoQuery; s: string; s1: variant; s2: variant; s3: variant);
    procedure adqExecPara5(adq: TadoQuery; s: string; s1: variant; s2: variant; s3: variant; s4:       variant; s5: variant);
    procedure adqExecPara6(adq: TadoQuery; s: string; s1: variant; s2: variant; s3: variant; s4:       variant; s5: variant; s6: variant);
  end;

implementation

{ TopeDataSet }

function TopeDataSet.adoUpdatesPending(
  adoDataSet: TCustomAdoDataSet): boolean;
var
  clone: TadoDataSet;
begin
  clone := TadoDataSet.create(nil);
  try
    clone.clone(adoDataSet);               //复制
    clone.filterGroup := fgPendingRecords; //已得到修改但还没有得到应用的所有记录
    clone.filtered := true;
    result := not(clone.bof and clone.eof);
    clone.close;
  finally
    clone.free;
  end;
end;

procedure TopeDataSet.adqCommit(adq: TadoQuery);
begin
  try
    adq.Connection.CommitTrans;
    info(SopeSuccess, Scorp);
  except
    adq.Connection.RollbackTrans;
    info(SopeFail, Scorp, 16);
  end;
end;

procedure TopeDataSet.adqExec(adq: TadoQuery; s: string);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqExecPara(adq: TadoQuery; s: string;
  s1: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqExecPara2(adq: TadoQuery; s: string; s1,
  s2: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqExecPara3(adq: TadoQuery; s: string; s1,
  s2, s3: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqExecPara5(adq: TadoQuery; s: string; s1,
  s2, s3, s4, s5: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Parameters[3].Value := s4;
  adq.Parameters[4].Value := s5;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqExecPara6(adq: TadoQuery; s: string; s1,
  s2, s3, s4, s5, s6: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Parameters[3].Value := s4;
  adq.Parameters[4].Value := s5;
  adq.Parameters[5].Value := s6;
  adq.ExecSQL;
end;

procedure TopeDataSet.adqQuery(adq: TadoQuery; s: string);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Open;
end;

procedure TopeDataSet.adqQueryPara(adq: TadoQuery; s: string;
  s1: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.open;
end;

procedure TopeDataSet.adqQueryPara2(adq: TadoQuery;
  s: string; s1, s2: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.open;
end;

procedure TopeDataSet.adqQueryPara3(adq: TadoQuery;
  s: string; s1, s2, s3: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Open;
end;

procedure TopeDataSet.adqQueryPara4(adq: TadoQuery;
  s: string; s1, s2, s3, s4: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.Parameters[1].Value := s2;
  adq.Parameters[2].Value := s3;
  adq.Parameters[3].Value := s4;
  adq.Open;
end;

procedure TopeDataSet.Append(adq: TadoQuery);
begin
  adq.Append;
end;

procedure TopeDataSet.delete(adq: TadoQuery);
var
  i: integer;
begin
  if adq.IsEmpty then
    abort;
  i := adq.RecNo;
  if queryInfo(SifDel, Scorp) then
  begin
    try
      adq.RecNo := i;
      adq.Delete;
      adq.UpdateBatch();  //批更新
    except
      adq.CancelBatch();
      info(SdelError, Scorp, 16);
    end;
  end;
end;

procedure TopeDataSet.flash(adq: TadoQuery);
begin
  adq.Close;
  adq.Open;
end;

procedure TopeDataSet.Save(adq: TadoQuery);
begin
  try
    adq.UpdateBatch();
    info(Ssave_success, Scorp);
  except
    adq.CancelBatch();
    info(Ssave_fail, Scorp, 16);
  end;
end;

end.
procedure adqExec(adq: TadoQuery; s: string);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.ExecSQL;
end;

procedure adqExecPara(adq: TadoQuery; s: string;
  s1: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.ExecSQL;
end;

procedure adqQuery(adq: TadoQuery; s: string);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Open;
end;

procedure adqQueryPara(adq: TadoQuery; s: string; s1: variant);
begin
  adq.Close;
  adq.SQL.Clear;
  adq.SQL.Text := s;
  adq.Parameters[0].Value := s1;
  adq.open;
end;

procedure Append(adq: TadoQuery);
begin
  adq.Append;
end;

procedure delete(adq: TadoQuery);
var
  i: integer;
begin
  if adq.IsEmpty then
    abort;
  i := adq.RecNo;
  if queryInfo(SifDel, Scorp) then
  begin
    try
      adq.RecNo := i;
      adq.Delete;
      adq.UpdateBatch();  
    except
      adq.CancelBatch();
      showmessage('Fail');
    end;
  end;
end;

procedure flash(adq: TadoQuery);
begin
  adq.Close;
  adq.Open;
end;

procedure Save(adq: TadoQuery);
begin
  try
    adq.UpdateBatch();
    showmessage('Success');
  except
    adq.CancelBatch();
    showmessage('Fail');
  end;
end;

end.