Blz:
Olhem Só: Tenho esta procedure para apagar registro (Deve estar errada, pois não pude
testá-la, mas isso não importa :-) :
procedure TfrmClientes.ApagaQr(Query: tibquery);
begin
with application do
==> if messagebox(' Apagar o Registro?','Exclusão',mb_okcancel) = idok then
Blz:
Olhem Só: Tenho esta procedure para apagar registro (Deve estar errada, pois não pude
testá-la, mas isso não importa :-) :
procedure TfrmClientes.ApagaQr(Query: tibquery);
begin
with application do
==> if messagebox(' Apagar o Registro?','Exclusão',mb_okcancel) = idok then
2 matches
Mail list logo