Uma ajuda por favor!!! Obrigado
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.
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
Curtidas 0
Respostas
Thaisandrade
26/06/2003
Esperimenta usar o FindKey.
GOSTEI 0