Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá a todos,
Tenho um formulário cujo nome é frmEscolaOrgao, onde é realizado o cadastro de escolas municipais. Neste formulário tenho um botão (btnAlterar) cujo código é o seguinte:
procedure TfrmEscolaOrgao.btnAlterarClick(Sender: TObject);
begin
dm_dadosSeduc.tbl_escolaOrgao.Edit;
btnNovo.Enabled:= False;
btnSalvar.Enabled:= True;
btnVoltar.Enabled:= False;
btnAlterar.Enabled:= False;
btnPesquisar.Enabled:= False;
btnCancelar.Enabled:= True;
btnExcluir.Enabled:= False;
btnImprimir.Enabled:= False;
dbINEP.Enabled:= True;
dbNomeEscola.Enabled:= True;
cbxLogradouro.Enabled:= True;
dbEndereco.Enabled:= True;
dbNumero.Enabled:= True;
dbComplemento.Enabled:= True;
dbBairro.Enabled:= True;
cbxCidade.Enabled:= True;
cbxUF.Enabled:= False;
dbCEP.Enabled:= True;
dbTelefone.Enabled:= True;
dbEmail.Enabled:= True;
rgpLocalizacao.Enabled:= True;
dbNumAlunos.Enabled:= True;
dbDataCadastro.Enabled:= True;
dbCadEscolar.Enabled:= True;
dbPortaria.Enabled:= True;
dbDataPortaria.Enabled:= True;
dbCNPJ.Enabled:= True;
rgpTipoInstituicao.Enabled:= True;
dbObservacoes.Enabled:= True;
dbMatDirecao.Enabled:= True;
cbxDiretor.Enabled:= True;
dbMatAdjunto.Enabled:= True;
cbxAdjunto.Enabled:= True;
dbMatSecretario.Enabled:=True;
cbxSecretario.Enabled:= True;
Foto.Enabled:= True;
carregarImagem.Enabled:= True;
end;procedure TfrmEscolaOrgao.btnSalvarClick(Sender: TObject);
begin
if dm_dadosSeduc.tbl_escolaOrgao.State in [dsEdit]
then
begin
if (MessageDlg('DESEJA SALVAR AS ALTERAÇÕES NO REGISTRO ATUAL?', mtConfirmation, [mbYes,mbNo],0) = mrYes)
then
begin
dm_dadosSeduc.tbl_escolaOrgao.Post;
btnNovo.Enabled:= True;
btnSalvar.Enabled:= False;
btnVoltar.Enabled:= True;
btnAvancar.Enabled:= True;
btnAlterar.Enabled:= True;
btnPesquisar.Enabled:= True;
btnCancelar.Enabled:=False;
btnExcluir.Enabled:= True;
btnImprimir.Enabled:= True;
dbINEP.Enabled:= False;
dbNomeEscola.Enabled:= False;
cbxLogradouro.Enabled:= False;
dbEndereco.Enabled:= False;
dbNumero.Enabled:= False;
dbComplemento.Enabled:= False;
dbBairro.Enabled:= False;
cbxCidade.Enabled:= False;
cbxUF.Enabled:= False;
dbCEP.Enabled:= False;
dbTelefone.Enabled:= False;
dbEmail.Enabled:= False;
rgpLocalizacao.Enabled:= False;
dbNumAlunos.Enabled:= False;
dbDataCadastro.Enabled:= False;
dbCadEscolar.Enabled:= False;
dbPortaria.Enabled:= False;
dbDataPortaria.Enabled:= False;
dbCNPJ.Enabled:= False;
rgpTipoInstituicao.Enabled:= False;
dbObservacoes.Enabled:= False;
dbMatDirecao.Enabled:= False;
cbxDiretor.Enabled:= False;
dbMatAdjunto.Enabled:= False;
cbxAdjunto.Enabled:= False;
dbMatSecretario.Enabled:=False;
cbxSecretario.Enabled:= False;
Foto.Enabled:= False;
carregarImagem.Enabled:= False;
MessageDlg('ALTERAÇÕES SALVAS COM SUCESSO!', mtInformation,[mbOK],0);dm_dadosSeduc.tbl_escolaOrgao.Cancel;
MessageDlg('AS ALTERAÇÕES NÃO FORAM SALVAS!', mtInformation,[mbOK],0);
end;dm_dadosSeduc.tbl_escolaOrgao.Post;
btnNovo.Enabled:= True;
btnSalvar.Enabled:= False;
btnVoltar.Enabled:= True;
btnAvancar.Enabled:= True;
btnAlterar.Enabled:= True;
btnPesquisar.Enabled:= True;
btnCancelar.Enabled:=False;
btnExcluir.Enabled:= True;
btnImprimir.Enabled:= True;
dbINEP.Enabled:= False;
dbNomeEscola.Enabled:= False;
cbxLogradouro.Enabled:= False;
dbEndereco.Enabled:= False;
dbNumero.Enabled:= False;
dbComplemento.Enabled:= False;
dbBairro.Enabled:= False;
cbxCidade.Enabled:= False;
cbxUF.Enabled:= False;
dbCEP.Enabled:= False;
dbTelefone.Enabled:= False;
dbEmail.Enabled:= False;
rgpLocalizacao.Enabled:= False;
dbNumAlunos.Enabled:= False;
dbDataCadastro.Enabled:= False;
dbCadEscolar.Enabled:= False;
dbPortaria.Enabled:= False;
dbDataPortaria.Enabled:= False;
dbCNPJ.Enabled:= False;
rgpTipoInstituicao.Enabled:= False;
dbObservacoes.Enabled:= False;
dbMatDirecao.Enabled:= False;
cbxDiretor.Enabled:= False;
dbMatAdjunto.Enabled:= False;
cbxAdjunto.Enabled:= False;
dbMatSecretario.Enabled:=False;
cbxSecretario.Enabled:= False;
Foto.Enabled:= False;
carregarImagem.Enabled:= False;
MessageDlg('ESCOLA OU ÓRGÃO CADASTRADO(A) COM SUCESSO!',mtInformation,[mbOK],0);MessageDlg('ERRO AO CADASTRAR: CAMPO OBRIGATÓRIO NÃO PREENCHIDO!', mtError,[mbOK],0);
end;
end;
end;"**Project SeducLi.exe raised exception class EDatabaseError with
message 'tbl_escolaOrgao: Dataset not in edit or insert mode'.
Process stopped. Use Step or Run to continue.**"
Alguém já passou por uma experiência semelhante? Como resolver?
Carregando comentários...