Fórum Como ultilizar o locatePara verificar dadosAntes de gravar? #335864
09/01/2007
0
Coloquei dois Tables
Uma para gravar os dados e a outra para realizar a pesquisa para ver se aqueles dados já existem mas não estou conseguindo oque está faltando....?
Table1 (Gravar dados)
Table2 (Pesquisar dados)
procedure T_BAIRRO.Table1BeforePost(DataSet: TDataSet);
begin
if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[])= True then
Begin
ShowMessage(´Bairro já cadastrado!´);
Table1.Cancel;
End;
Table2.Active:= false;
Table2.Active:= True;
end;
Uma para gravar os dados e a outra para realizar a pesquisa para ver se aqueles dados já existem mas não estou conseguindo oque está faltando....?
Table1 (Gravar dados)
Table2 (Pesquisar dados)
procedure T_BAIRRO.Table1BeforePost(DataSet: TDataSet);
begin
if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[])= True then
Begin
ShowMessage(´Bairro já cadastrado!´);
Table1.Cancel;
End;
Table2.Active:= false;
Table2.Active:= True;
end;
Max2006
Curtir tópico
+ 0
Responder
Posts
09/01/2007
Max2006
Faltava o Abort...
if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[]) = True then
Begin
ShowMessage(´Bairro já cadastrado!´);
DBComboBox1.SetFocus;
DBComboBox1.SelectAll;
Abort;
End;
Table2.Active:= false;
Table2.Active:= True;
if Table2.Locate(´NOME_BAIRRO´,DBComboBox1.text,[]) = True then
Begin
ShowMessage(´Bairro já cadastrado!´);
DBComboBox1.SetFocus;
DBComboBox1.SelectAll;
Abort;
End;
Table2.Active:= false;
Table2.Active:= True;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)