Tabela Vazia
Por favor se alguem puder me ajudar, gostaria de saber como faço para que ao clicar no botão delete do DBnavigator, se a tabela estiver vazia, me retorne a mensagem ´ Tabela vazia´ .
Obrigado.
Obrigado.
Anonymous
Curtidas 0
Respostas
Adilsond
25/02/2003
procedure TForm1.DBNavigator1BeforeAction(Sender: TObject;
Button: TNavigateBtn);
begin
if Button = nbDelete then
if Table1.IsEmpty then
raise EDatabaseError.Create(´Tabela vazia.´);
end;
Button: TNavigateBtn);
begin
if Button = nbDelete then
if Table1.IsEmpty then
raise EDatabaseError.Create(´Tabela vazia.´);
end;
GOSTEI 0
Dor_poa
25/02/2003
:evil:
GOSTEI 0