[Instantobjects-cvscommit] Source/Brokers/DBX InstantDBX.pas,1.6,1.7

[Carlo B. <car...@us...>]

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;