zoukankan
html css js c++ java
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
.
查看全文
相关阅读:
Hive初步认识,理解Hive(一)
Beeline里面执行hive脚本 函数nvl2()与replace()报错
Navicat定时在MySQL与MySQL数据库之间自动传输数据
Hive 报错 Error while compiling statement: FAILED: ParseException line 1:0 character '' not supported here (state=42000,code=40000)
关于大数据T+1执行流程
Hive部分函数解析
关于JDK动态代理与Cglib代理
关于Excel做表小知识记录
Java实现自定义注解开发
bzoj1179[Apio2009]Atm
原文地址:https://www.cnblogs.com/sonicit/p/1120678.html
最新文章
学习制作第一个 openfire 插件
Spark 2.6.1 源代码在 eclipse 的配置
openfire 连接sqlserver 2008 的一个问题
WPF 大数据加载过程中的等待效果——圆圈转动
HTTPS初始
nodejs cluster模块初探
Android项目目录结构
Android util.Log 工具类
linux shell 中的 2>&1 用法说明
c# 初识WPF
热门文章
c# 泛型
c# 对象 & 类
c# 类属性和方法
c# 数组和集合
安装和使用elasticsearch
安装supervisor
为PHP设置服务器(Apache/Nginx)环境变量
c# 可变字符串 StringBuilder
c# Char && string
HUE备份已定义好的workflow
Copyright © 2011-2022 走看看