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.
Delphi ADO数据操作封装类的更多相关文章
- Android 常用数据操作封装类案例
1.DbHelper类 继承自SQLiteOpenHelper类,实现对数据库的基本操作 package com.example.utils; import android.content.Conte ...
- 初始ADO.NET数据操作
以下介绍直接来源与百度百科,介绍十分全面和详细,作为小菜的我们没有理由不看完这些枯燥的介绍原有: ADO.NET的名称起源于ADO(ActiveX Data Objects),是一个COM组件库,用于 ...
- ADO.NET访问Access(文本数据库)数据操作(CRUD)
1,ADO.NET访问Access(文本数据库)数据操作(CRUD) 2,DatabaseDesign 文本数据库Northwind.mdb 3,/App_Code 3.1,/App_Code/DBC ...
- ADO.NET 对数据操作 以及如何通过C# 事务批量导入数据
ADO.NET 对数据操作 以及如何通过C# 事务批量导入数据 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 ...
- C# 数据操作系列 - 2. ADO.NET操作
0.前言 在上一篇中初略的介绍了一下SQL的基本写法,这一篇开始我们正式步入C#操作数据库的范围.通过这一系列的内容,我想大家能对于数据库交互有了一定的认识和基础.闲话不多说,先给大家介绍一个C#操作 ...
- 编写Java程序,在维护英雄数据的业务过程中复用数据库操作封装类
返回本章节 返回作业目录 需求说明: 继续完善英雄信息系统,将HeroAccess类中数据库连接相关代码独立出来,并将其封闭成数据库操作工具类DbConnection,便于管理和代码复用. 在Hero ...
- Delphi简单的数据操作类
unit MyClass; uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, VCL ...
- Asp.Net Core 2.0 项目实战(4)ADO.NET操作数据库封装、 EF Core操作及实例
Asp.Net Core 2.0 项目实战(1) NCMVC开源下载了 Asp.Net Core 2.0 项目实战(2)NCMVC一个基于Net Core2.0搭建的角色权限管理开发框架 Asp.Ne ...
- 我的DbHelper数据操作类
其实,微软的企业库中有一个非常不错的数据操作类了.但是,不少公司(起码我遇到的几个...),对一些"封装"了些什么的东西不太敢用,虽然我推荐过微软的企业库框架了...但是还是要&q ...
随机推荐
- java调用dll-JNA
介绍 给大家介绍一个最新的访问本机代码的 Java 框架 —JNA . JNA(Java Native Access) 框架是一个开源的 Java 框架,是 SUN 公司主导开发的,建立在经典的 JN ...
- jstring, String, char* 变换函数
#include <malloc.h> #include <string.h> #include <stdlib.h> #include <vcclr.h&g ...
- HDU 1711 Number Sequence(KMP匹配数字串)
这个就是kmp的数组形式,不用来处理字符串还真有点不习惯呢... #include<iostream> using namespace std; ,MAXM = ; int T[MAXN] ...
- ajax编程**
ajax 编程 *step1获得 XmlHttpRequest 对象.该对象由浏览器提供,但是该类型并没有标准化.ie 和其它浏览器不同,其它浏览器都支持该类型,而 ie 不支持. function ...
- 转:web_reg_save_param的使用详解
[摘要]利用实际案例说明如何使用Mercury LoadRunner提取包含在 HTML 页内的动态信息并创建参数. [关键词]性能测试,压力测试,Mercury LoadRunner 应用范围 在使 ...
- win8 explorer 进程频繁奔溃的原因及处理
最近 , win8 系统中的 explorer 进程总是频繁奔溃 , 想想可能是最近新装或更新了什么软件引起的 . 查看了记录奔溃的详细信息 , 果不其然 , 是最近更新的快播新版本 ...
- Eclipse开发Maven项目提示:程序包org.junit不存在解决方案
原因: 个人考虑产生此错误的原因是因为Eclipse中对于测试和开发的鉴定不明?Intellij中没有错误,因为Intellij对项目的管理就是同Maven结构的. 解决方案: 原来的junit的sc ...
- A. Round House
A. Round House time limit per test 1 second memory limit per test 256 megabytes input standard input ...
- sqlite manager
http://www.isummation.com/blog/how-to-use-sqlite-manager-extension-in-firefox/ 工具条上右键选定制
- Android学习笔记之Intent
Intent是Activity之间的管道 可以用来做Acitivity的跳转或传递数据 protected void onCreate(Bundle savedInstanceState) { sup ...