Como ultilizar o locatePara verificar dadosAntes de gravar?
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
Curtidas 0
Respostas
Max2006
09/01/2007
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;
GOSTEI 0