Devart Forums

Code: Select all

  procedure UpdateMacrosforFBMajorVersion;
  begin    
    FFbMajorVersion := GetSingletonIntegerResult('SELECT Cast(LEFT(rdb$get_context(''SYSTEM'', ''ENGINE_VERSION''),1) as Integer) as MajorVersion from rdb$database');
    with unConnection do begin
      Assert(MacroByName('True').Condition = 'InterBase');
      Assert(MacroByName('False').Condition = 'InterBase');
      if FbMajorVersion = 3 then begin
        MacroByName('True').Value := 'True';
        MacroByName('False').Value := 'False';
      end else begin
        MacroByName('True').Value := '1';
        MacroByName('False').Value := '0';
      end;
    end;

    // Any insert via a uniQuery should do 
      quUserGroupList.Open;
     NewUserGroup('s-test2','test','test',false, false,1);
  end;

Code: Select all

program Test_Bool;
{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Uni,
  InterbaseUniProvider;

var
  UniConnection: TUniConnection;
  UniQuery: TUniQuery;

begin
  UniConnection := TUniConnection.Create(nil);
  try
    UniConnection.ProviderName := 'InterBase';
    UniConnection.Username := 'sysdba';
    UniConnection.Password := 'masterkey';
    UniConnection.Macros.Add('True', '', 'InterBase');
    UniConnection.Macros.Add('False', '', 'InterBase');

    //FB 2.5.4
    UniConnection.Server := Server FB 2.5.4;
    UniConnection.Port := Port FB 2.5.4;
    UniConnection.Database := Database FB 2.5.4;
    UniConnection.SpecificOptions.Values['InterBase.ClientLibrary'] := ClientLibrary FB 2.5.4;
    Assert(UniConnection.MacroByName('True').Condition = 'InterBase');
    Assert(UniConnection.MacroByName('False').Condition = 'InterBase');
    UniConnection.MacroByName('True').Value := '1';
    UniConnection.MacroByName('False').Value := '0';

    UniConnection.Connect;

    UniConnection.ExecSQL('EXECUTE BLOCK AS BEGIN ' +
      'IF (NOT exists(SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = ''TEST_BOOL'')) THEN ' +
      'EXECUTE STATEMENT ''CREATE TABLE TEST_BOOL (ID INTEGER, F_BOOL "BOOLEAN");'';' +
      'ELSE ' +
      'EXECUTE STATEMENT ''DELETE FROM TEST_BOOL;''; ' +
      'END');

    UniQuery := TUniQuery.Create(nil);
    try
      UniQuery.Connection := UniConnection;
      UniQuery.Close;
      UniQuery.SQL.Text := 'SELECT * FROM TEST_BOOL';
      UniQuery.Open;
      UniQuery.InsertRecord([1, True]);
      WriteLn('Insert FB 2.5.4 Ok');
    finally
      UniConnection.Disconnect;
    end;

    //FB 3.0.0
    UniConnection.Server := Server FB 3.0.0;
    UniConnection.Port := Port FB 3.0.0;
    UniConnection.Database := Database FB 3.0.0;
    UniConnection.SpecificOptions.Values['InterBase.ClientLibrary'] := ClientLibrary FB 3.0.0;
    Assert(UniConnection.MacroByName('True').Condition = 'InterBase');
    Assert(UniConnection.MacroByName('False').Condition = 'InterBase');
    UniConnection.MacroByName('True').Value := 'True';
    UniConnection.MacroByName('False').Value := 'False';

    UniConnection.Connect;

    UniConnection.ExecSQL('EXECUTE BLOCK AS BEGIN ' +
      'IF (NOT exists(SELECT 1 FROM RDB$RELATIONS WHERE RDB$RELATION_NAME = ''TEST_BOOL'')) THEN ' +
      'EXECUTE STATEMENT ''CREATE TABLE TEST_BOOL (ID INTEGER, F_BOOL BOOLEAN);'';' +
      'ELSE ' +
      'EXECUTE STATEMENT ''DELETE FROM TEST_BOOL;''; ' +
      'END');

    try
      UniQuery.Close;
      UniQuery.Open;
      UniQuery.InsertRecord([1, True]);
      WriteLn('Insert FB 3.0.0 Ok');
    finally
      UniConnection.Disconnect;
    end;

  ReadLn;

  finally
    UniConnection.Free;
    UniQuery.Free;
  end;
end.