Consultar entre Nome e Data de Nascimento em Lazarus/Delphi

Delphi

16/02/2018

Bom dia a todos, Meus caros, estou querendo uma ajuda dos amigos programadores na seguinte questão; antes de salvar na base de dados o Nome da pessoa mais a data de nascimento, gostaria que o sistema fizesse uma busca se já existe este cadastrado na base de dados, caso exista o sistema acusa, caso não exista ele simplesmente deixa passar...
Helton Garrido

Helton Garrido

Curtidas 0

Respostas

Douglas Sousa

Douglas Sousa

16/02/2018

Bom dia!

Existe algumas maneiras de se fazer vc pode antes da sua inserção fazer uma consulta tipo , não testei esse codigo,
digitei aki direto pode ter algum erro mais a base e a logica e mais ou menos essa qual quer coisa estarei a disposição.

/// faz a consulta na tabela
with suaQuery do 
begin
     close;
    SQL.Add('select * from cliente where nome = :nome and dataaniversario = :data')
    parambyname('nome').asstring := Quotedsrt(edit1.text);
    parambyname('data').asstring := Quotedsrt(edit2.text);
    open;
end;

verifica se retornou alguma informação 
if suaqyery.recordcount > 1 then 
begin
     showmessage('Registro Ja existe com essas mesmas informações');
    edit1.setfocus;
// caso exista registro com esses dados ele sai do procedimento
    exit;
end;  


// caso nao exista nenhum registro com as informações constinua seu codigo de inserção logo abaixo

GOSTEI 0
Douglas Sousa

Douglas Sousa

16/02/2018

ou vc pode fazer a verificação no evento onexit do edit com esse codigo ai acima,
GOSTEI 0
POSTAR