Para PaullSofter

Delphi

15/12/2008

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!!!


Lsksskyblu

Lsksskyblu

Curtidas 0

Respostas

Maikel

Maikel

15/12/2008

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}
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


GOSTEI 0
Facc

Facc

15/12/2008

[url]http://forum.devmedia.com.br/viewtopic.php?t=98854[/url]

2 tópicos com o mesmo assunto


GOSTEI 0
Maikel

Maikel

15/12/2008

Ok... tbm já vi depois q tinha respondido.

Creio que o moderador poderá excluir este tópico redundante.

Att


GOSTEI 0
POSTAR