como fazer se um codigo for acionado parar o outro!

Delphi

13/03/2004

tipo..eu quero que quando um codigo for acionado, parar o outro codigo
veja o codigo:
dm.qryCPF.Close;
dm.qryCPF.SQL.Clear;
dm.qryCPF.SQL.Add(´select cpfcnpj from clientes where cpfcnpj = :mskCPF´);
dm.qryCPF.ParamByName(´mskCPF´).AsString := mskCPF.Text;
dm.qryCPF.Open;
if dm.qryCPF.RecordCount <> 0 then
begin
Mensagem(´CPF já cadastrado no banco de dados´);
mskCPF.Clear;
mskCPF.SetFocus;
SB.Panels[0].Text := ´CPF já cadastrado no banco de dados´;
end;
cpf(mskCPF.Text);
if (cpf(mskCPF.Text) = false) then
begin
Mensagem(´CPF inválido!´);
mskCPF.SetFocus;
end;


eu quero é: que quando tiver outro cliente cadastrado com o mesmo cpf, parar o codigo ali no end; do if dm.qryCPF.RecordCount <> 0 then begin
entederam:?
valeu


Linhares

Linhares

Curtidas 0

Respostas

Afarias

Afarias

13/03/2004

Não levando em consideração uma melhor ´estruturação´ do código, um EXIT resolve seu caso.


T+


GOSTEI 0
POSTAR