Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Sistema lento para salvar registro


Vivendo&Aprendendo

Pergunta

Olá pessoal, na minha aplicação quando cadastro ou altero um registro, e mando salvar ele demora muito para efetuar o procedimento e o engraçado é que isso só ocorre em um form, o de Alunos.

Segue abaixo o código que uso no botão salvar:

If ActiveMDIChild = FrmAlunos Then
  begin
    DSBotoes.DataSet.Post;
    DmDados.Log.Active := True;
    DmDados.Log.Append;
    DmDados.LogUsuario.value := Usu;
    DmDados.LogDataHora.Value := DateToStr(Date)+' - '+TimeToStr(Time);
    DmDados.LogAcessos.Value := DmDados.LogAcessos.Value + 'Alunos (Salvar); ';
    DmDados.LogMovimento.Value := 'Código: '+FrmAlunos.EdtCodigo.Text +' - '+ DmDados.AlunosNome.Value;
    DmDados.Log.Post;
    DmDados.Log.Active := False;
    for i := 0 to FrmAlunos.ComponentCount - 1 do
      if FrmAlunos.Components[i]is TCustomEdit then
      begin
        (FrmAlunos.Components[i] as TCustomEdit).Enabled := False;
      end;
    FrmAlunos.EdtBusca.Enabled := True;
    FrmAlunos.DbCbbMembro.Enabled := False;
    FrmAlunos.DBCbbEscolaridade.Enabled := False;
    FrmAlunos.DbCbbEstCivil.Enabled := False;
    FrmAlunos.DBCbbCargosIgreja.Enabled := False;
    FrmAlunos.DBCbbUltimosDias.Enabled := False;
    FrmAlunos.DBCbbNormalmente.Enabled := False;
    FrmAlunos.DBCbbComprometimento.Enabled := False;
    FrmAlunos.DBCbbFrequencia.Enabled := False;
    FrmAlunos.DBCbbPgto.Enabled := False;
    FrmAlunos.DBCbbSibin.Enabled := False;
    FrmAlunos.DbCbbUf.Enabled := False;
    FrmAlunos.DblCidades.Enabled := False;
    FrmRelAlunos.AdoAlunos.Close;
    FrmRelAlunos.AdoAlunos.Open;    
  end;

Uso banco de dados Access e delphi 7.

Por favor alguém ai me ajude...

Abraços

Alexandre

Editado por Vivendo&Aprendendo
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...