Tabela Vazia
25/02/2003
0
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
Curtir tópico
+ 0
Responder
Posts
25/02/2003
Adilsond
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;
Responder
Clique aqui para fazer login e interagir na Comunidade :)