Duvida

[Charllys]

Olá meu nome é charles estou desenvolvendo um sistema em Delphi e o bd é sql server, estou com dificuldades em programar os botões SALVAR e EXCLUIR de um dos formulários.

O código abaixo é do botão salvar: procedure TF_Secretarias.BtnSalvarSecretariaClick(Sender: TObject);

begin

Try

Begin

label22.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount);

//Salvar o registro

F_Dados.Q_Secretarias.Post;

// Mostrar a mensagem

ShowMessage('Registro Gravado com Sucesso');

End;



Except

Begin

ShowMessage('operação não Disponível');

BtnInserirSec.SetFocus

End;

end;

End;

O CÓDIGO NÃO SALVA

Esse é do botão EXCLUIR

procedure TF_Secretarias.BtnExcSecretariaClick(Sender: TObject);

begin

Try

Begin

If Application.MessageBox('Confirma a Exclusão?', 'Excluir', MB_Yesno)=IDYes Then

If Application.MessageBox('Tem certeza?', 'Confirma', MB_Yesno)=IDYes Then

begin

F_Dados.Q_Secretarias.Delete;

end;

label13.Caption:='Numero de Registros: ' + inttostr(f_dados.Q_Secretarias.RecordCount);

End;

Except

Begin

ShowMessage('Operação não Disponivel' );

BtnInserirSec.SetFocus;

end;

End;

end;

Preciso da ajudade de vocês...

Obg.

[Jhonas]

//Salvar o registro
F_Dados.Q_Secretarias.Post;
F_Dados.Q_Secretarias.ApplyUpdates;

ou 

F_Dados.Q_Secretarias.ApplyUpdates(-1);

If Application.MessageBox('Tem certeza?', 'Confirma', MB_Yesno)=IDYes Then
begin
    F_Dados.Q_Secretarias.Delete;
    F_Dados.Q_Secretarias.ApplyUpdates;

ou 

   F_Dados.Q_Secretarias.ApplyUpdates(-1);

leia esse tutorial

http://www.delphibr.com.br/artigos/transacoes.php