Verificando se o CPF ou Nome já existem.
Tenho uma form. onde entro com dados através de uma Table.
Porém gostaria que o sist. informasse se o CPF ou nome do cliente já existem, caso existe gostaria de exibir uma mensagem e localizar o registro existente.
Valeu!
Porém gostaria que o sist. informasse se o CPF ou nome do cliente já existem, caso existe gostaria de exibir uma mensagem e localizar o registro existente.
Valeu!
Twbernardes
Curtidas 0
Respostas
Luineumann
23/10/2003
crie um query em cima da mesma tabela que você está incluindo
no on exit do campo cpf por exemplo coloque
qr1.close;
qr1.sql.clear;
qr1.sql.databasename := tabela.databasename;
qr1.sql.add(´select nome, cpf´);
qr1.sql.add(´from nomeexternodatabela´);
se cpf é um campo string na tabela
qr1.sql.add(where campocpfdatabela = ´ + quotedstr(tabelacampocpf.value));
se cpf é um campo numérico na tabela
qr1.sql.add(where campocpfdatabela = ´ + inttostr(tabelacampocpf.value));
qr1.open;
if qr1.recordcount > 0 // achou cpf
then cpf já existe
else cpf não existe
no on exit do campo cpf por exemplo coloque
qr1.close;
qr1.sql.clear;
qr1.sql.databasename := tabela.databasename;
qr1.sql.add(´select nome, cpf´);
qr1.sql.add(´from nomeexternodatabela´);
se cpf é um campo string na tabela
qr1.sql.add(where campocpfdatabela = ´ + quotedstr(tabelacampocpf.value));
se cpf é um campo numérico na tabela
qr1.sql.add(where campocpfdatabela = ´ + inttostr(tabelacampocpf.value));
qr1.open;
if qr1.recordcount > 0 // achou cpf
then cpf já existe
else cpf não existe
GOSTEI 0