Tabela.Cancel;

Delphi

17/07/2003

Tenho no meu sistema, um formulário de cadastro. Nele, temos os seguintes botões:

btnNovo // Tabela.Insert;
btnEditar // Tabela.Editar
btnSalvar // Tabela.Post;
btnCancelar // Tabela.Cancel;
btnExcluir // Tabela.Delete;


Apenas o botão de ´btnNovo´ está com a propriedade Enable = true
Todos os outros estão com enable = false ...

A partir daí, gostaria que o sistema controlasse os meu botões, dependendo dos estados da tabela. Então, no evento ´OnStateChange´ do meu DataSource coloquei o seguinte código:

procedure TfrmFichaPai.DataSourceStateChange(Sender: TObject);
begin
With DataSource.DataSet Do
Begin
[color=red:c6e5fbbfe4]tbNovo.Enabled := State In [dsBrowse];
tbSalvar.Enabled := State In [dsEdit,dsInsert];
tbCancelar.Enabled := State In [dsEdit,dsInsert];
tbEditar.Enabled := (State In [dsBrowse]) And (Not(IsEmpty));
tbExcluir.Enabled := (State In [dsBrowse]) And (Not(IsEmpty));
End;
[/color:c6e5fbbfe4]End;

// Entretanto, suponhamos que temos apenas um registro na nossa tabelinha. Então, se excluírmos este único registro da nossa tabela, é provável que, após a exclusão, os botões ´btnEditar e btnExcluir´ fiquem desabilitados, pois o estado da tabela é ´Browse´ e a mesma está vazia.

Por incrível que pareça, isto não está acontecendo.... Sempre que excluo o último registro de minha tabela, os botões de Editar e Excluir ficam habilitados... Alguem sabe onde errei ???? :oops: :oops: :P :x :evil: :twisted:


Rômulo Barros

Rômulo Barros

Curtidas 0
POSTAR