Delphi ADO数据操作封装类

转载

mb5fd869d1d8388 2014-01-06 14:44:00

文章标签 sql 数据集刷新数据封装关闭窗口 文章分类 PHP 后端开发

{
将数据集操作方面的东西全部封装成一个单独的类
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.