1.我有一父类,方法声明如下,实现忽略
protected
function BeginTransaction:ITransaction;overload;
function BeginTransaction(contextID:String):ITransaction;overload;
function BeginTranscation(contextID:String;isolationLevel:TIsolationLevel):ITransaction;overload;
function BeginTransaction(isolationLevel:TIsolationLevel):ITransaction;overload;
procedure Commit;
procedure Rollback;
procedure Synchronize(trans:ITransaction);子类集成与该父类,声明如下
TObjectBLL = class(TBusiness)问题,在子类方法中调用BeginTransaction(没有输入参数的那个方法),只有BeginTranscation(contextID:String;isolationLevel:TIsolationLevel)能够调用,其它重载方法调用时全部编译不通过,提示[dcc32 Error] Business.pas(100): E2250 There is no overloaded version of 'BeginTranscation' that can be called with these arguments
我到底问题出在那里?请各位大神帮忙解答!!
调用方法如下
function TObjectBLL.Insert(entity: TJSONValue; AutoPK:Boolean): Boolean;
var
dal:TObjectDAL;
tran:ITransaction;
begin
dal := TObjectDAL.Create;
try tran:= BeginTranscation();
finally
dal.Free;
dal:=nil;
end;
end;overload重载delphi xe5
protected
function BeginTransaction:ITransaction;overload;
function BeginTransaction(contextID:String):ITransaction;overload;
function BeginTranscation(contextID:String;isolationLevel:TIsolationLevel):ITransaction;overload;
function BeginTransaction(isolationLevel:TIsolationLevel):ITransaction;overload;
procedure Commit;
procedure Rollback;
procedure Synchronize(trans:ITransaction);子类集成与该父类,声明如下
TObjectBLL = class(TBusiness)问题,在子类方法中调用BeginTransaction(没有输入参数的那个方法),只有BeginTranscation(contextID:String;isolationLevel:TIsolationLevel)能够调用,其它重载方法调用时全部编译不通过,提示[dcc32 Error] Business.pas(100): E2250 There is no overloaded version of 'BeginTranscation' that can be called with these arguments
我到底问题出在那里?请各位大神帮忙解答!!
调用方法如下
function TObjectBLL.Insert(entity: TJSONValue; AutoPK:Boolean): Boolean;
var
dal:TObjectDAL;
tran:ITransaction;
begin
dal := TObjectDAL.Create;
try tran:= BeginTranscation();
finally
dal.Free;
dal:=nil;
end;
end;overload重载delphi xe5
解决方案 »
- 用CoolTrayIcon怎么实现启动最小化到系统托盘?????
- 关于添加一条与当前记录大致相同的记录的问题
- 请问这个函数是什么意思?
- 求购服装行业管理软件(进销存+生产管理)源代码,价格在1.5W-2W左右!
- 有用OpenGL写ARPG的吗?Edit部分 开发 讨论一下 :-)
- 报表的问题?在线等待!!!!!
- ●●●●请问如何在dbgrid中实现同一记录行列的跳过。
- pagecontrol中,怎样把tab放到control的下部?
- 怎样把窗体设为总在最前面?
- 为什么在网页用<object>可以指定的属性,在IDE里生成的接口文件中找不到?
- 新手问题,ClientDataSet 多记录提交!?
- delphi 里怎样定义象C/C++里的static静态string变量,我没分了,就不给分了哦,哪位大虾帮帮我好了
function BeginTransaction(contextID:String):ITransaction;overload;
function BeginTranscation(contextID:String;isolationLevel:TIsolationLevel):ITransaction;overload;
function BeginTransaction(isolationLevel:TIsolationLevel):ITransaction;overload;