Update of /cvsroot/instantobjects/Source/Brokers/DBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1981/Source/Brokers/DBX
Modified Files:
InstantDBX.pas
Log Message:
Added MS-SQL catalog support for dbevolver and changed DBX and ADO brokers to use it.
Index: InstantDBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantDBX.pas 28 Jun 2005 10:02:56 -0000 1.6
--- InstantDBX.pas 1 Jul 2005 23:29:22 -0000 1.7
***************
*** 156,159 ****
--- 156,160 ----
TInstantDBXMSSQLBroker = class(TInstantDBXBroker)
protected
+ function CreateCatalog(const AScheme: TInstantScheme): TInstantCatalog; override;
procedure AssignParam(SourceParam, TargetParam: TParam); override;
function CreateResolver(Map: TInstantAttributeMap): TInstantSQLResolver; override;
***************
*** 203,207 ****
uses
SysUtils, InstantDBXConnectionDefEdit, InstantUtils, InstantConsts, Math,
! InstantDBBuild, InstantIBFbCatalog;
{ TInstantDBXConnector }
--- 204,208 ----
uses
SysUtils, InstantDBXConnectionDefEdit, InstantUtils, InstantConsts, Math,
! InstantDBBuild, InstantIBFbCatalog, InstantMSSqlCatalog;
{ TInstantDBXConnector }
***************
*** 554,557 ****
--- 555,564 ----
end;
+ function TInstantDBXMSSQLBroker.CreateCatalog(
+ const AScheme: TInstantScheme): TInstantCatalog;
+ begin
+ Result := TInstantMSSqlCatalog.Create(AScheme, Self);
+ end;
+
function TInstantDBXMSSQLBroker.CreateResolver(
Map: TInstantAttributeMap): TInstantSQLResolver;
|
