Uma ajuda por favor!!! Obrigado

Delphi

26/06/2003

Alguém pode me adudar? Tenho 2 tabelas. A primeira chama cliente e a segunda chama-se falta. São tabelas criadas no Paradox. Na tabela cliente ela armazena o nome e o numeroprocesso do cliente e na tabela falta ela armazena o numerorpocesso e o numerodefalta do cliente. Gostaria que quando eu cadastrar o numero de falta ele me dissesse se o cliente já esta cadastrado, se estiver cadastrado ele grava e continua senão ele me abre o form2 para cadastrar o cliente e o numero do processo, eu usei esses códigos mas esta dando a mensagem abaixo, o que está errado. Obrigado.


procedure TForm3.Button2Click(Sender: TObject);
var searchoptions:tlocateoptions;
locateoptions:boolean;
begin
form3.Table1.Insert;
searchoptions:=[lopartialkey,locaseinsensitive];
form2.table1.Locate(´numeroprocesso´,editnumeroprocesso.Text,searchoptions);
if locateoptions then
begin
form3.Table1.Post;
end
else
begin
messagedlg(´Registro não encontrado!´,mtinformation,[mbCANCEL],0);
form2.show;
close;
end;
end;

end.


Cláudiogyn

Cláudiogyn

Curtidas 0

Respostas

Thaisandrade

Thaisandrade

26/06/2003

Esperimenta usar o FindKey.


GOSTEI 0
POSTAR