[OT] Discussão sobre atualização de base de dados

procedure AtualizaVersao_1001;
begin
  with MeuCompQuery do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add(´ALTER TABLE MINHA_TABELA ADD COLUMN NOVO_CAMPO VARCHAR(100) NOT NULL´);
    Try
      ExecSql;
    Except
    end;
  end;
end;

procedure AtualizaVersao_1002;
begin
  with MeuCompQuery do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add(´ALTER TABLE MINHA_TABELA ADD COLUMN NOVO_CAMPO VARCHAR(50) NOT NULL´);
    Try
      ExecSql;
    Except
    end;
  end;
end;

procedure AtualizaVersao_1003;
begin
  with MeuCompQuery do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add(´ALTER TABLE MINHA_TABELA ADD COLUMN NOVO_CAMPO VARCHAR(100) NOT NULL´);
    Try
      ExecSql;
    Except
    end;
  end;
end;

procedure DisparaAtualizacoes;
var
  Versao: String;
begin
  with MinhaQuery do
  begin
    Close;
    UnPrepare;
    Sql.Clear;
    Sql.Add(´SELECT VERSAO FROM TABELA_CONFIG WHERE PARAMETRO=:PARAMETRO´);
    ParamByName(´PARAMETRO´).AsString := ´VERSAO´;
    Versao := FieldByName(´VERSAO´).AsString;
    Close;
  end;

  if VersaoSoftware = Versao then
    for I := 0 to 2 do
    begin
      case I of
        0: AtualizaVersao_1001;
        1: AtualizaVersao_1002;
        2: AtualizaVersao_1003;
      end;
    end;

end;

procedure TAtualizaBancoShow()........
begin
  DisparaAtualizacoes;
end;

  Try
    ExecSql;
  Except
  end;

  if VersaoSoftware = Versao then
    for I := 0 to 9 do
    begin
      case I of
        00: AtualizaVersao_1001;
        01: AtualizaVersao_1002;
        02: AtualizaVersao_1003;
        04: AtualizaVersao_1004;
        05: AtualizaVersao_1005;
        06: AtualizaVersao_1006;
        07: AtualizaVersao_1007;
        08: AtualizaVersao_1007;
        09: AtualizaVersao_1008;
        10: AtualizaVersao_1010;
      end;
    end;