Fórum Uma ajuda por favor!!! Obrigado #166524
26/06/2003
0
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
Curtir tópico
+ 0
Responder
Posts
26/06/2003
Thaisandrade
Esperimenta usar o FindKey.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)