Verificar se Cliente ja esta Cadastrado

Question

Ol� pessoal....como q eu fa�o para quando estou em um DBedit cadastrando um cliente e eu ja tenho o cliente ai quando saio do DBedit o sistema m fala que ele ja esta cadastrado...estou usando o banco ...

Fabiano G�es · Answer

uma id�ia:voc� pode criar uma consulta assim:[code:1:cba058da06]select NOME_CLIENTE from CLIENTESwhere NOME_CLIENTE = :NOME_CLIENTE[/code:1:cba058da06]ai voc� cri um m�todo:[code:1:cba058da06]function ClienteExiste(Nome: string): Boolean;begin  Result := False;  try    IBDataSet1.Close;    IBDataSet1.Params&#91;0&93;.AsString := Nome;    IBDataSet1.Open;    if IBDataSet1.RecordCount > 0 then      Result := True;  finally    IBDataSet1.Close;  end;end;[/code:1:cba058da06]ent�o no evento OnExit do edit voc� usa o metodo assim:[code:1:cba058da06]  if ClienteExiste(Edit1.Text) then    ShowMessage(�Cliente j� cadastrado�);[/code:1:cba058da06]espero ter ajudado.um abra�o !!!...

Tchucky · Answer

Ol� Fabiano G�esfiz a fun��o q vc m passou [code:1:4ecfa7a31f]function ClienteExiste(Nome: string): Boolean;begin  Result := False;  try    DM1.IBPaciente.Close;    DM1.IBPaciente.Params&#91;0&93;.AsString := Nome;    DM1.IBPaciente.Open;    if DM1.IBPaciente.RecordCount > 0 then      Result := True;  finally    DM1.IBPaciente.Close;  end;end; [/code:1:4ecfa7a31f]e chameu ela no onexite[code:1:4ecfa7a31f]if ClienteExiste(wwDBEdit1.Text) then    ShowMessage(�Cliente j� cadastrado�); [/code:1:4ecfa7a31f]tudo da forma que vc m falou...mas tem um problema esta dando erro o erro � o seguinte:  XSQLDA index out of rangesempre quando eu saio do edit da esse erro e fecha a tabela assim ele naum deixa eu entrar com dados nem um......

Steve_narancic · Answer

Selecione o IBDataSet1 e verifique a propriedade params do IBDataSet1 se o parametro esta definido corretamente...

Tchucky · Answer

Ol� steve_narancicIBDataSet  n�o tem a propriedade params esse que esta sendo meu problema.... A uma forma de colocar o params nele pois � a primeira vez que estou usando os componentes IBDataSet...

Fabiano G�es · Answer

Tchucky,tenta usar [b:d095b26089]Edit [/b:d095b26089]no lugar de DBEdit apenas no nomeai voc� faz a chamada ao metodo assim:[code:1:d095b26089]if ClienteExiste(wwEdit1.Text) then    ShowMessage(�Cliente j� cadastrado�)elsebegin  IBCadastro.Open;  IBCadastro.Insert;  IBCadastro.FieldByName(�Nome�).AsString := EditNome.Text;  ProximoDBEdit.SetFous;end;[/code:1:d095b26089]s� uma observa��o: voc� deve usar um DataSet exclusivo para o metodo ClienteExiste e outro para Cadastro, Altera��o, etc ...sobre a propriedade param do IBDataSet:o IBDataSet descende de TIBCustomDataSet que possui a propriedade Params como visibilidade public, ent�o automaticamente o IBDataset herda essa propriedade apesar de nao aparecer no object inspector.Voc� configurar o param via c�digo:[code:1:d095b26089]  IBDataSet.Params&#91;0&93;.AsString;[/code:1:d095b26089]voc� pode acrescentar essa linha ao metodo caso ainda ocorra o problema....

F�rum Verificar se Cliente ja esta Cadastrado #342419