E Coloque um MyQuery na Form
public
{ Public declarations }
Procedure Habilita (Hab :Boolean);
end;
procedure TModelo_cadastro.Habilita(Hab: Boolean);
var
i : String ;
begin
Novo.Enabled := hab ;
Confirma.Enabled := not hab ;
Altera.Enabled := hab ;
Cancela.Enabled := not hab;
Excluir.Enabled := hab;
Localiza.Enabled := hab;
Sair.Enabled := hab;
end;
// Agora dentro dos botões basta por os seguintes códigos..
procedure TModelo_cadastro.NovoClick(Sender: TObject); // Configurando o Botão Novo
begin
habilita(false);
MyQuery1.Insert;
end;
procedure TModelo_cadastro.ConfirmaClick(Sender: TObject); // Configurando o Botão Confirmar
begin
habilita(true);
MyQuery1.post;
desabilitadbedit;
end;
procedure TModelo_cadastro.AlteraClick(Sender: TObject); // Configurando o Botão Alterar
begin
habilita(false);
MyQuery1.edit;
habilitAdbedit;
end;
procedure TModelo_cadastro.CancelaClick(Sender: TObject); // Configurando o Botão Cancelar
begin
habilita(true);
MyQuery1.cancel;
desabilitadbedit;
end;
procedure TModelo_cadastro.ExcluirClick(Sender: TObject); // Configurando o Botão Excluir
begin
if MyQuery1.IsEmpty then
raise exception.create('Nao exitem registros para serem excluidos!');
if application.messagebox('Deseja Realmente excluir?','confirmação',MB_Iconquestion+MB_yesno)=ID_yes then
begin
try
MyQuery1.delete;
except
raise exception.Create('Não pode ser excluído!');
end;
end;
end;
procedure TModelo_cadastro.SairClick(Sender: TObject); // Configurando o botão sair
begin
if application.messagebox('Deseja Realmente Sair?','confirmação',MB_Iconquestion+MB_yesno)=ID_yes then
close;
end
Caso duvidas sobre como criar erança dessa Form , deixe pedindo que faço um post de como criar .