[resolvido] Pesquisa No Cadastro

[Eder]

Ola..pessoal

Tenho um cadastro simples de veiculos cadastrado por placa.

coloquei este codigo aqui no BeforePosto da Table

Ele funciona legal..porem quando tenho que editar este cadastro...ai ele diz que a placa já esta cadastrada.

procedure TForm2.Table1BeforePost(DataSet: TDataSet);

begin

If Query1.Locate('placa',DBEdit2.text,[]) then

begin

ShowMessage('Esta Placa já foi Cadastrada!!');

SysUtils.Abort;

End;

end;

Tenho uma maneira de contornar este probleminha??

Grato

[Micheus]

coloquei este codigo aqui no BeforePosto da Table

Ele funciona legal..porem quando tenho que editar este cadastro...ai ele diz que a placa já esta cadastrada.

procedure TForm2.Table1BeforePost(DataSet: TDataSet);
begin
  If Query1.Locate('placa',DBEdit2.text,[]) then
  begin
    ShowMessage('Esta Placa já foi Cadastrada!!');
    SysUtils.Abort;
  end;
end;

Tenho uma maneira de contornar este probleminha??

Eder, você mesmo respondeu a pergunta quando colocou esta frase: "porem quando tenho que editar este cadastro...ai ele diz que a placa já esta cadastrada" Percebeu?! Logo, quando estiver em modo edição, você não precisa fazer a verificação, apenas na inclusão - pelo menos, o lógico é que você não possa alterar a placa depois de cadastrada, apenas os outros campos. Altere seu teste para:

If (DataSet.State = dsInsert) and Query1.Locate('placa',DBEdit2.text,[]) then

[Eder]

beleza...Micheus

Valeu a dica..muito Grato

:D