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
.
查看全文
相关阅读:
关于异步IO与同步IO的写操作区别
慢慢开始记录一些技术心得吧
写了placement new就要写placement delete
关于针对class自定义new操作符失败的函数处理
operator->和operator->*
关于继承中的拷贝构造函数
关于g++编译模板类的问题
关于互斥锁,条件变量的内核源码解析
关于sigwait
观察者设计模式
原文地址:https://www.cnblogs.com/sonicit/p/1120678.html
最新文章
JVM垃圾回收
SpringCloud学习笔记(6)——Eureka高可用
WinFrom 只启动一个exe,并且获得焦点
线程问题求教!谢谢
同一把锁
java中线程的同步
java中线程状态-死亡
java中线程的控制
线程问题-一个线程怎么调用另一个线程的结果(2)
线程问题—一个线程怎么调出另外一个线程的结果。
热门文章
C++ -抽象类和纯虚函数
C++ -类的静态成员
C++ -嵌套类和局部类
C++ 类
C++ extern C
C++ 内联汇编方式
C++ 函数指针
C++ 定义和使用可变参数函数
C++ main函数
C++ 联合(2)
Copyright © 2011-2022 走看看