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
.
查看全文
相关阅读:
C# 中==和Equal的区别
3dmath复习随笔
3dmax学习资料记录
[官方教程] Unity 5 BLACKSMITH深度分享
[技术] [插件精选] 炫酷粒子特效(下)
Unity3D总结:关于射线碰撞
Unity3D将来时:IL2CPP(上)
3DMAX 9 角色建模3 uv展开
php,c# hamsha1
U3D 的一些基础优化
原文地址:https://www.cnblogs.com/sonicit/p/1120678.html
最新文章
游戏动作师使用Unity3D遇到过的所有问题
C#获得当前执行的函数名、当前代码行、源代码文件名
Unity3d之截图方法
Unity3d网格合并
Unity3D脚本:更改脚本和类名,且不破坏现有脚本引用的方法
Skinned Mesh原理解析和一个最简单的实现示例
骨骼蒙皮动画(SkinnedMesh Animation)的实现
骨骼蒙皮动画(Skinned Mesh)的原理解析(二)
骨骼蒙皮动画(SkinnedMesh)的原理解析(一)
骨骼动画导论
热门文章
基于FBX SDK的FBX模型解析与加载 -(四)
基于FBX SDK的FBX模型解析与加载 -(三)
基于FBX SDK的FBX模型解析与加载 -(二)
基于FBX SDK的FBX模型解析与加载 -(一)
总结角色换装原理
Unity3D教程:换装方法
收集一些Unity插件
【Unity3d】3d角色换装实现原理及步骤
天空盒的制作方法 Max来生成天空盒的六张图片
AssetDatabase文档翻译
Copyright © 2011-2022 走看看