Delphi ADO数据操作封装类

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

delphi中SQLite的应用发布时间：2022-07-18

JVCL -- delphi 组件包发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19174|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9985|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8325|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8695|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8638|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9654|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8621|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7998|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8652|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7535|2022-11-06

客服电话

电子邮件

Delphi ADO数据操作封装类

请发表评论

全部评论

上一篇：

下一篇：

微信小程序 web-view 无法外链和不支持打

PacktPublishing/Python-Machine-Learning-

sussillo/hfopt-matlab: A parallel, cpu-b

鲁东大学一米网:Win7系统USB驱动器RAM的操

emersion/go-ostatus: An OStatus library

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053

客服电话

电子邮件

Delphi ADO数据操作封装类

请发表评论

全部评论

上一篇：

下一篇：

微信小程序 web-view 无法外链 和 不支持打

PacktPublishing/Python-Machine-Learning-

sussillo/hfopt-matlab: A parallel, cpu-b

鲁东大学一米网:Win7系统USB驱动器RAM的操

emersion/go-ostatus: An OStatus library

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053

微信小程序 web-view 无法外链和不支持打