Fórum Pesquisa com findkey #158549
07/05/2003
0
Estou usando o seguinte modo para fazer uma pesquisa:
procedure TFormClientes.PESQNOMEClick(Sender: TObject);
var
cNome: string;
begin
cNome := InputBox(´Pesquisa´,´Digite o Nome´,´´);
if cNome <> ´´ then
begin
Table1.IndexFieldNames := ´NOME´ ;
if Table1.FindKey([cNome])= False then
MessageDlg(´Nome não encontrado´,mtWarning,[mbOK],0);
end;
Se eu digitar na caixa o nome de alguém, por exemplo, Ana e eu tiver
cadastrado como ana (em minúsculo) a mensagem ´Nome não encontrado aparecerá! Como faço para que não seja diferenciado minúsculo de maiúsculo?
procedure TFormClientes.PESQNOMEClick(Sender: TObject);
var
cNome: string;
begin
cNome := InputBox(´Pesquisa´,´Digite o Nome´,´´);
if cNome <> ´´ then
begin
Table1.IndexFieldNames := ´NOME´ ;
if Table1.FindKey([cNome])= False then
MessageDlg(´Nome não encontrado´,mtWarning,[mbOK],0);
end;
Se eu digitar na caixa o nome de alguém, por exemplo, Ana e eu tiver
cadastrado como ana (em minúsculo) a mensagem ´Nome não encontrado aparecerá! Como faço para que não seja diferenciado minúsculo de maiúsculo?
Ginosam
Curtir tópico
+ 0
Responder
Posts
07/05/2003
Marcus
Boa Noite!!!
Vamos por parte.
1 - O Ideal é que a chave da tabela nao seja o nome, pois ocupa um espaco enorme no banco e ainda nada impede de duas pessoas possuirem o mesmo nome.
Sugestao para chave : NR_CLIENTE (Seguencial)
2 - Se nao puder mudar a chave o idel é que vc use uma qry para fazer isso. Utilize a funcao UPPER do SQL e utilize a funcao UpperCase do Delhpi.
Vamos por parte.
1 - O Ideal é que a chave da tabela nao seja o nome, pois ocupa um espaco enorme no banco e ainda nada impede de duas pessoas possuirem o mesmo nome.
Sugestao para chave : NR_CLIENTE (Seguencial)
2 - Se nao puder mudar a chave o idel é que vc use uma qry para fazer isso. Utilize a funcao UPPER do SQL e utilize a funcao UpperCase do Delhpi.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)