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;
Pergunta
Vivendo&Aprendendo
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:
Uso banco de dados Access e delphi 7.
Por favor alguém ai me ajude...
Abraços
Alexandre
Editado por Vivendo&AprendendoLink 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.