locate
Ola amigos,,
estou tentando localizar um registro em uma tabela paradox e quando digito o primeiro numero do campo chave deste registro ele me retorna a mensagem ´Chamado não encontrado´
ex: o campo que quero encontrar é o 15 e quando digito 1 ele ja me retorna a mensagem citada.
if not dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive]) then
begin
edit1.setfocus;
showmessage(´Chamado não encontrado´);
edit1.SetFocus;
end;
Agradeço a atenção,,
Henrique
estou tentando localizar um registro em uma tabela paradox e quando digito o primeiro numero do campo chave deste registro ele me retorna a mensagem ´Chamado não encontrado´
ex: o campo que quero encontrar é o 15 e quando digito 1 ele ja me retorna a mensagem citada.
if not dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive]) then
begin
edit1.setfocus;
showmessage(´Chamado não encontrado´);
edit1.SetFocus;
end;
Agradeço a atenção,,
Henrique
Henrique_alencar
Curtidas 0
Respostas
Wallacest
05/11/2003
Cara use o FindKey
Tipo:
No evento ao sair do edit (EXIT)
if not Table.FindKey (´Codigo´) = TRue then // Ele procura exato
begin
...
end;
Tipo:
No evento ao sair do edit (EXIT)
if not Table.FindKey (´Codigo´) = TRue then // Ele procura exato
begin
...
end;
GOSTEI 0
Sds
05/11/2003
cara eu acho q esta faltando algo nesse tem código
if not dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive,[b:f525e87626]loParcialKey[/b:f525e87626]]) then
begin
edit1.setfocus;
showmessage(´Chamado não encontrado´);
edit1.SetFocus;
end;
acho q se vc adicionar a opção [b:f525e87626]loParcialKey[/b:f525e87626] vai dar certo
:mrgreen:
um abraço
sds
if not dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive,[b:f525e87626]loParcialKey[/b:f525e87626]]) then
begin
edit1.setfocus;
showmessage(´Chamado não encontrado´);
edit1.SetFocus;
end;
acho q se vc adicionar a opção [b:f525e87626]loParcialKey[/b:f525e87626] vai dar certo
:mrgreen:
um abraço
sds
GOSTEI 0
Henrique_alencar
05/11/2003
cara eu acho q esta faltando algo nesse tem código
if not dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive,[b:99adac7aee]loParcialKey[/b:99adac7aee]]) then
begin
edit1.setfocus;
showmessage(´Chamado não encontrado´);
edit1.SetFocus;
end;
acho q se vc adicionar a opção [b:99adac7aee]loParcialKey[/b:99adac7aee] vai dar certo
:mrgreen:
um abraço
sds
Eu ja tinha colocado o lopartialkey e ainda nao funciona.. nao sei o que faço
GOSTEI 0
Sds
05/11/2003
coloca ele como variável,
ve se funciona assim
[b:5fe4ef584e]Procedure...[/b:5fe4ef584e]
[b:5fe4ef584e]var[/b:5fe4ef584e]
Localiza: Boolean;
[b:5fe4ef584e]Begin[/b:5fe4ef584e]
Localiza := dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive,loParcialKey]);
if Localiza = false then
[b:5fe4ef584e]Begin[/b:5fe4ef584e]
ShowMessage(´Chamado não Encontrado´);
Edit1.SetFocus;
[b:5fe4ef584e]end[/b:5fe4ef584e];
[b:5fe4ef584e]end[/b:5fe4ef584e];
ve se funciona assim
[b:5fe4ef584e]Procedure...[/b:5fe4ef584e]
[b:5fe4ef584e]var[/b:5fe4ef584e]
Localiza: Boolean;
[b:5fe4ef584e]Begin[/b:5fe4ef584e]
Localiza := dm.tbchamados.Locate(´codchamado´,strtoint(edit1.text),[locaseinsensitive,loParcialKey]);
if Localiza = false then
[b:5fe4ef584e]Begin[/b:5fe4ef584e]
ShowMessage(´Chamado não Encontrado´);
Edit1.SetFocus;
[b:5fe4ef584e]end[/b:5fe4ef584e];
[b:5fe4ef584e]end[/b:5fe4ef584e];
GOSTEI 0