Fórum Para PaullSofter #367154
15/12/2008
0
Caro amigo do forum PaullSofter vc já me ajudo em vários asuntos em delphi, por isso vem novamente lhe pedir uma nova ajuda , que já relatei em outro tópico ´fazer uma busca na tabela ante de gravarum registro´.
Eu queria que quando eu fosse gravar um registro realizasse primeiro uma busca na tabela pra ver se exite esse registro se for sim de um avizo se for não grava na tabela.
desde já lhe agredeço!!!
Eu queria que quando eu fosse gravar um registro realizasse primeiro uma busca na tabela pra ver se exite esse registro se for sim de um avizo se for não grava na tabela.
desde já lhe agredeço!!!
Lsksskyblu
Curtir tópico
+ 0
Responder
Posts
16/12/2008
Maikel
Bom dia colega
Talvez eu possa te ajudar com essa dúvida, e certamente outros usuários responderiam com o mesmo procedimento:
1 - Você declara uma função que irá fazer esta consulta para saber se o registro existe, ou seja, declare na seção Private da sua unit algo do tipo:
function RegistroExiste(CPFCliente: String):Boolean;
{esta função recebe como parametro o CPF do cliente para ser verificado e irá retornar True ou False se o registro existir}
Já na implementaçao do código, basta codificar a busca, assim:
{Exemplo baseado no uso de dbExpress}
Ai depois para usar a função, ao clicar no botão SALVAR por exemplo, pode usar a seguinte sintaxe:
Bom, creio que assim fica bem prático de entender, e agora basta só customizar de acordo com a necessidade do seu código.
Att
Talvez eu possa te ajudar com essa dúvida, e certamente outros usuários responderiam com o mesmo procedimento:
1 - Você declara uma função que irá fazer esta consulta para saber se o registro existe, ou seja, declare na seção Private da sua unit algo do tipo:
function RegistroExiste(CPFCliente: String):Boolean;
{esta função recebe como parametro o CPF do cliente para ser verificado e irá retornar True ou False se o registro existir}
Já na implementaçao do código, basta codificar a busca, assim:
{Exemplo baseado no uso de dbExpress}
function TForm1.RegistroExiste(CPFCliente: String):Boolean;
var
SQLds : TSQLDataSet;
begin
result := False;//Nao existe
SQLds := Nil;
SQLds := TSQLDataSet.Create(Self);
try
with SQLds do
begin
Close();
SQLConnection := SQLConnection1;
CommandText := ´Select * from CLIENTE where CPF = :CPF´;
Params[0].value := CPFCliente;
Open;
end;
if not SQLds.IsEmpty then
Result := True;
Finally
SQLds.Free;
End;
End;Ai depois para usar a função, ao clicar no botão SALVAR por exemplo, pode usar a seguinte sintaxe:
if RegistroExiste(EditCPF.Text) then//retorna true
showmessage(´Este CPF já se encontra cadastrado!´
else
begin
{Usa o código normal para fazer o Insert do registro}
end;Bom, creio que assim fica bem prático de entender, e agora basta só customizar de acordo com a necessidade do seu código.
Att
Responder
Gostei + 0
16/12/2008
Facc
[url]http://forum.devmedia.com.br/viewtopic.php?t=98854[/url]
2 tópicos com o mesmo assunto
2 tópicos com o mesmo assunto
Responder
Gostei + 0
16/12/2008
Maikel
Ok... tbm já vi depois q tinha respondido.
Creio que o moderador poderá excluir este tópico redundante.
Att
Creio que o moderador poderá excluir este tópico redundante.
Att
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)