Update of /cvsroot/instantobjects/Demos/PrimerCross
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13209/PrimerCross
Modified Files:
Main.pas
Log Message:
using old DB builder for catalog-less brokers, and new one for the others
Index: Main.pas
===================================================================
RCS file: /cvsroot/instantobjects/Demos/PrimerCross/Main.pas,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Main.pas 16 Sep 2005 17:22:17 -0000 1.13
--- Main.pas 13 Oct 2005 10:46:55 -0000 1.14
***************
*** 320,338 ****
var
DefaultConnector: TInstantConnector;
begin
DefaultConnector := InstantDefaultConnector;
Connector.IsDefault := True;
try
! Connector.StartTransaction;
try
! CreateCountries;
! CreateCategories;
! Connector.CommitTransaction;
! except
! Connector.RollbackTransaction;
! raise;
end;
- if Confirm('Create random data?') then
- RandomDataActionExecute(nil);
finally
if Assigned(DefaultConnector) then
--- 320,347 ----
var
DefaultConnector: TInstantConnector;
+ WasConnected: Boolean;
begin
DefaultConnector := InstantDefaultConnector;
Connector.IsDefault := True;
try
! WasConnected := Connector.Connected;
! if not WasConnected then
! Connector.Connect;
try
! Connector.StartTransaction;
! try
! CreateCountries;
! CreateCategories;
! Connector.CommitTransaction;
! except
! Connector.RollbackTransaction;
! raise;
! end;
! if Confirm('Create random data?') then
! RandomDataActionExecute(nil);
! finally
! if not WasConnected then
! Connector.Disconnect;
end;
finally
if Assigned(DefaultConnector) then
|
