Fórum Atualização de banco de dados automático #361336

tTabelas = Class
  strict private
    FVersao: Integer;
    FDescricao: String;
    FTabela: String;
    procedure SetDescricao(const Value: String);
    procedure SetTabela(const Value: String);
    procedure SetVersao(const Value: Integer);
  public
    property Tabela :String read FTabela write SetTabela;
    property Versao :integer read FVersao write SetVersao;
    property Descricao:String read FDescricao write SetDescricao;
  End;

tAtualizaTabela = class
  private
  public
    Tabelas : Array of tTabelas;
    Conexao : tConexao;
    
    Dm      : tDmAtualizaTab;
    destructor Destroy;
    constructor Create;

    function Verifica:Integer;
    function AtualizaTabela(Nome:String;VersaoAtual,VersaoNova:Integer):Integer;
  end;

constructor tAtualizaTabela.Create;
var
  I: Integer;
begin
  
  Conexao := tConexao.create(nil);
  Dm := TDmAtualizaTab.Create(nil);
  
    
  SetLength(Tabelas , 46);//46 é a quantidade de tabelas que tenho no meu banco.

  Tabelas[0] := tTabelas.Create;
  with Tabelas[0] do
  begin
    Versao := 1;//Versão atual do objeto
    Tabela := ´APT´;//Nome do objeto
    Descricao := ´´;//A descrição
  end;

  Tabelas[1] := tTabelas.Create;
  with Tabelas[1] do
  begin
    Versao := 1;
    Tabela := ´APT_CAT´;
    Descricao := ´´;
  end;

  Tabelas[2] := tTabelas.Create;
  with Tabelas[2] do
  begin
    Versao := 3;
    Tabela := ´EMP´;
    Descricao := ´´;
  end;
   //Daqui pra baixo coloco o restante das tabelas e outros objetos do meu banco.
end;

ALTER TABLE EMP
ADD EMP_REST_CODEST  INT DEFAULT 1,
ADD EMP_REST_CODCENTRO INT DEFAULT 1,
ADD EMP_REST_COMISSAO DECIMAL(10,2) DEFAULT 0 NOT NULL,
ADD EMP_REST_CODCONTAAPT INT,
ADD EMP_RECE_CODEST INT DEFAULT 2,
ADD EMP_RECE_CODCENTRO INT DEFAULT 2,
ADD EMP_RECE_COMISSAO DECIMAL(10,2) DEFAULT 0 NOT NULL;

UPDATE TAB_VERSAO
SET VERSAO = 3
WHERE OBJETO = ´TAB_VERSAO´;

function tAtualizaTabela.Verifica: Integer;
var
  I: Integer;
begin
  try
    if not Conexao.Trans.InTransaction then
    begin
      Conexao.Trans.StartTransaction;
    end;


    for I := 0 to Length(TAbelas)-1 do
    begin
      with Conexao.Query do
      begin
        Close;
        SQL.Clear;
        SQL.Add(´SELECT * FROM TAB_VERSAO WHERE OBJETO = ´+QuotedStr(Tabelas[I].Tabela));
        Open;

        if RecordCount > 0 then
        begin
          if FieldByName(´VERSAO´).AsInteger < Tabelas[I].Versao  then
          begin
            AtualizaTabela(Tabelas[I].Tabela , FieldByName(´VERSAO´).AsInteger , Tabelas[I].Versao );
          end;
        end;
      end;
    end;

    if Conexao.Trans.InTransaction then
    begin
      Conexao.Trans.Commit;
    end;

    Result := 0;

  except
    on E: Exception do
    begin
      Result := -1;
      if Conexao.Trans.InTransaction then
      begin
        Conexao.Trans.Rollback;
      end;
      raise Exception.Create(e.Message);
    end;
  end;
end;

function tAtualizaTabela.AtualizaTabela(Nome: String; VersaoAtual,
  VersaoNova: Integer): Integer;
var
  I:INteger;
begin
  Try
    for I := VersaoAtual +1 to VersaoNova do
    begin
      with Dm do
      begin
        with TIBScript(FindComponent(Nome+´_´+IntToStr(I))) do
        begin
          ExecuteScript;
        end;
      end;
    end;
  Except
    On E : Exception do
    begin
      Result := -1;
      raise Exception.Create(e.Message);
    end;

  End;

end;