instantobjects-cvscommit

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

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

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

Index: InstantDBX.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Brokers/DBX/InstantDBX.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** InstantDBX.pas	17 Jun 2005 19:21:10 -0000	1.5
--- InstantDBX.pas	28 Jun 2005 10:02:56 -0000	1.6
***************
*** 405,421 ****
  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);
--- 405,421 ----
  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);