instantobjects-cvscommit

[Nando D. <na...@us...>]

Update of /cvsroot/instantobjects/Source/Brokers/IBX
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2899/Brokers/IBX

Modified Files:
	InstantIBX.pas 
Log Message:
Design time support for database evolution

Index: InstantIBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/IBX/InstantIBX.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** InstantIBX.pas	17 Jun 2005 19:58:55 -0000	1.9
--- InstantIBX.pas	28 Jun 2005 10:04:12 -0000	1.10
***************
*** 420,436 ****
  begin
    if CommandType = ctAddTable then
!     Result := TInstantDBBuildAddTableSQLCommand.Create(CommandType)
    else if CommandType = ctDropTable then
!     Result := TInstantDBBuildDropTableSQLCommand.Create(CommandType)
    else if CommandType = ctAddField then
!     Result := TInstantDBBuildAddFieldSQLCommand.Create(CommandType)
    else if CommandType = ctAlterField then
!     Result := TInstantDBBuildAlterFieldSQLCommand.Create(CommandType)
    else if CommandType = ctDropField then
!     Result := TInstantDBBuildDropFieldSQLCommand.Create(CommandType)
    else if CommandType = ctAddIndex then
!     Result := TInstantDBBuildAddIndexSQLCommand.Create(CommandType)
    else if CommandType = ctDropIndex then
!     Result := TInstantDBBuildDropIndexSQLCommand.Create(CommandType)
    else
      Result := inherited CreateDBBuildCommand(CommandType);
--- 420,436 ----
  begin
    if CommandType = ctAddTable then
!     Result := TInstantDBBuildAddTableSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropTable then
!     Result := TInstantDBBuildDropTableSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctAddField then
!     Result := TInstantDBBuildAddFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctAlterField then
!     Result := TInstantDBBuildAlterFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropField then
!     Result := TInstantDBBuildDropFieldSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctAddIndex then
!     Result := TInstantDBBuildAddIndexSQLCommand.Create(CommandType, Connector)
    else if CommandType = ctDropIndex then
!     Result := TInstantDBBuildDropIndexSQLCommand.Create(CommandType, Connector)
    else
      Result := inherited CreateDBBuildCommand(CommandType);