Fórum Ajuda para melhorar o código de conexão e atualização do banco #588693

procedure TFrmPrincipal.BtnAtualizaClick(Sender: TObject);
var
    com_erro : boolean;
    mostra_erro : boolean;
    arquivo, str : String;
    codigo, cnpjcpf : String;
    FD : TextFile;
begin
    com_erro := false;
    mostra_erro := TRUE;
    BtnAtualiza.Enabled := False;
    BtnSair.Enabled := False;

    if strtofloat(Troca_Val_Ponto(versao_atual_lida)) = StrToFloat( Troca_Val_Ponto(nova_versao)) then
    begin
        Application.messagebox ('Esta versão já foi aplicada nesta máquina.'+#13+'IMPOSSÍVEL CONTINUAR!','AVISO!!!',MB_OK + MB_ICONERROR);
        Label1.Caption := '';
        BtnSair.Enabled := true;
        exit;
    end;

    if not checa_versoes() then
    begin
        BtnSair.Enabled := true;
        exit;
    end;

    try
        BtnSair.Enabled := False;
        Label1.Caption := 'Aguarde Atualizando...';
        Application.ProcessMessages;
        sleep(1000);

        if FileExists('C:\\POSTO_NOVO\\DADOS\\POSTO.FDB') then
        begin
            FDNum_Conexoes.Active := False;
            FDNum_Conexoes.Active := True;
            if not (FDNum_ConexoesCONEXOES.Value = 1) then
            Begin
                Application.messagebox ('Existe mais de um usuário conectado.','Aviso!',MB_OK + MB_ICONEXCLAMATION);
                Label1.Caption := '';
                BtnSair.Enabled := False;
                BtnAtualiza.Enabled := TRUE;
                exit;
            end;

            Try
                FDConnection.Connected := false;
                FDConnection.Connected := true;
                FDConnection.StartTransaction;
                Label1.Caption := 'Módulo 01...';
                Application.ProcessMessages;
                FDScript1.ExecuteAll;
                SLEEP (500);
            except
                on E:Exception do
                begin
                    if mostra_erro then
                        Application.messagebox (pchar('ERRO: '+E.message
                            +#13+'COMUNIQUE AO CPD ESTA MENSAGEM.'),'AVISO!!!',MB_OK + MB_ICONERROR);
                    com_erro := true;
                    raise;
                end;
            end;

            Try
                FDConnection.Connected := false;
                FDConnection.Connected := true;
                FDConnection.StartTransaction;
                Label1.Caption := 'Módulo 02...';
                Application.ProcessMessages;
                FDScript2.ExecuteAll;
                SLEEP (500);
            except
                on E:Exception do
                begin
                    if mostra_erro then
                        Application.messagebox (pchar('ERRO: '+E.message
                            +#13+'COMUNIQUE AO CPD ESTA MENSAGEM.'),'AVISO!!!',MB_OK + MB_ICONERROR);
                    com_erro := true;
                    raise;
                end;
            end;

            Try
                FDConnection.Connected := false;
                FDConnection.Connected := true;
                FDConnection.StartTransaction;
                Label1.Caption := 'Módulo 03...';
                Application.ProcessMessages;
                FDScript3.ExecuteAll;
                SLEEP (500);
            except
                on E:Exception do
                begin
                   if mostra_erro then
                        Application.messagebox (pchar('ERRO: '+E.message
                            +#13+'COMUNIQUE AO CPD ESTA MENSAGEM.'),'AVISO!!!',MB_OK + MB_ICONERROR);
                    com_erro := true;
                    raise;
                end;
            end;

            Try
                FDConnection.Connected := false;
                FDConnection.Connected := true;
                FDConnection.StartTransaction;
                Label1.Caption := 'Módulo 04...';
                Application.ProcessMessages;
                FDScript4.ExecuteAll;
                SLEEP (500);
            except
                on E:Exception do
                begin
                   if mostra_erro then
                        Application.messagebox (pchar('ERRO: '+E.message
                            +#13+'COMUNIQUE AO CPD ESTA MENSAGEM.'),'AVISO!!!',MB_OK + MB_ICONERROR);
                    com_erro := true;
                    raise;
                end;
            end;

            if (not com_erro) and (FDConnection.InTransaction) then
            begin
                FDConnection.CommitRetaining;
                Label1.Caption := '';
            end;
        end;
        Grava_chave_reg ('Posto', 'Versao', nova_versao, g_nome_ini);
        Grava_chave_reg ('PathDados', 'Posto', path, g_nome_ini);
        Label1.Caption := 'Processo Concluido...';
    finally
        BtnSair.Enabled := True;
        Application.ProcessMessages;
        BtnSair.Enabled := True;
    end;

    BtnSair.Enabled := True;
end;