Outra duvida simples

Delphi

03/01/2004

Tenho uma tabela (delphi6 paradox) com um campo codigo, Apto, etc....
Onde:

codigo tipo N *
apto tipo A

[size=9:8059836524]O que eu queria era colocar no evento onexit do dbedit2 alguma coisa tipo
if dbedit2.text = tabela[´apto´] //se for digitado um apto que já exista na tabela ele de uma mensagem[/size:8059836524]
mesagem (´ apto já existe para esse codigo´ )

Tipo o key violation do codigo *

Obrigado


Wagner

Wagner

Curtidas 0

Respostas

Demian Soares

Demian Soares

03/01/2004

if tabela.locate(´apto´,dbedit2.text,[lopartialkey]) then
mssagebox(´Apto ja existe...verifique..... e por ai vai...


GOSTEI 0
Wagner

Wagner

03/01/2004

Cara é mais ou menos isso que eu quero

O problema do locate e que ele localiza o registro que ja existe e mostra na tela eu queria alguma que que informasse que o apto já existe e voltasse o foco para o dbedit2 para que usuario informasse novo apto mais com o resto dos campos limpos.

funciona legal mais fica com o registro localizado na tela

if tabela.locate(´apto´,dbedit2.text,[lopartialkey]) then
Application.messagebox(´Esse Nº de apartamento já existe!´,´Confirmação´,mb_ok+mb_iconError);
dbedit2.SetFocus;

Tem outra forma ou uma forma de evita isso


GOSTEI 0
Wagner

Wagner

03/01/2004

Não tem?


GOSTEI 0
Marcrv2

Marcrv2

03/01/2004

Prezado Wagner, use uma query passando como parametro numero do apto, veja como faço para verificar o cpf.

lblCPF.Caption := edtCpf.Text;

qryVerCPF.Close;
qryVerCPF.Params[0].Value := lblCPF.Caption;
qryVerCPF.Open;
if qryVerCPF.RecordCount > 0 then
begin
Application.MessageBox(´CPF já cadastrado!´, ´Aviso´,
MB_ICONINFORMATION + MB_OK);
edtCpf.SetFocus;
end;

muito simples, na saída do dbeditcpf coloco este código com um label recebendo o valor digitado aí ele vai verificar se já existe o cpf cadastrado, se existir da a mensage.
Agora é contigo, boa sorte
Marcelo - marcrv@terra.com.br


GOSTEI 0
POSTAR