Fórum Problema no evento OnShow..... #344945

procedure TF_MATERIAIS.FormShow(Sender: TObject);
begin
cod.Text:=´´;
dbnavigator1.BtnClick(nbInsert);//dispara o evento insert
end;

procedure TF_MATERIAIS.codEnter(Sender: TObject);
begin
dm.sdsMaterial.Close;
dm.sdsMaterial.CommandText:=´select * from MATERIAL where cod_ordenado= :pcod_ordenado´;
dm.sdsMaterial.ParamByName(´pcod_ordenado´).AsString:=cod.Text;
dm.sdsMaterial.Open;
if not dm.sdsMaterial.IsEmpty then
begin
  ShowMessage(´Código já existente. Tente Outro.´);
  cod.SetFocus;
  descricao.Text:=´´;
  un.Text:=´´;
  tipo.Text:=´´;
  unitario.Text:=´´;
  {descricao.Text:=dm.sdsMaterial.FieldByName(´descricao´).AsString;
  un.Text:=dm.sdsMaterial.FieldByName(´un´).AsString;
  tipo.Text:=dm.sdsMaterial.FieldByName(´tipo_conta´).AsString;
  unitario.Text:=dm.sdsMaterial.FieldByName(´preco_unitario´).AsString;}
  end
  else
  //descricao.SetFocus;
  end;