State do DataSource in Edit ou Insert mode com Erro

[Elisei 0]

Pessoal boa noite.,

Eu tenho um cadastro que funciona muito bem obrigado.

O problema é que ao efetivar uma alteração por exemplo, e clico novamente no botão de Modificar novamente, o programa aborta com erro. A mensagem é de que não posso dar Post na minha tabela se não estou no estado de edição ou inserção.

Claro, Logo após a efetivação da transação, o sistema libera o status do DataSource e se eu tentar efetuar um post, vai dar erro mesmo.

 

Mas então, como posso tratar este erro sem que eu tenha que desabilitar botões?

 

Segue meu código:

 

 

procedure TfrmInformacoesPessoais.btSalvarClick(Sender: TObject);
begin
   DMSisAlma.TBCadInfPessoais.Post;
   DMSisAlma.TBCadInfPessoais.Refresh;
   ShowMessage('Registro efetuado com sucesso!');
   TSInfGerais.Show;
   TSInfGerais.SetFocus;
end;

 

abraços

[Elisei 0]

Pessoal, eu consegui resolver este problema da seguinte forma:

 

procedure TfrmInformacoesPessoais.btSalvarClick(Sender: TObject);
begin
   if DMSisAlma.TBCadInfPessoais.State in [dsEdit, dsInsert] then begin
	  DMSisAlma.TBCadInfPessoais.Post;
	  DMSisAlma.TBCadInfPessoais.Refresh;
	  Showmessage('Registro efetuado com sucesso!');
	  TSInfGerais.Show;
	  TSInfGerais.SetFocus; end
   else
	  showmessage('Escolha Incluir ou Modificar!');
	  TSInfGerais.Show;
	  TSInfGerais.SetFocus;
end;

Agora eu to com uma outra dificuldade, neste mesmo cadastro, preciso incluir uma foto do usuário no banco de dados. Isso não há problemas. A questão é que se eu deixar para escolher a foto do usuário depois que eu já inclui o registro no sistema ou seja, numa modificação por exemplo, o programa dá o memso erro de cima. Acho que ao clicar no botão o status do Data Source perde o dsInsert e dsEdit.

 

Como proceder neste caso?

 

Há alguma maneira de fazer o data source continuar com status de inserção ou edição?

 

abraços