一个按钮代码,用于增加记录,我想把上次录入的记录作为下一条默认值来修改,当按钮事件完成后,dbedit1与dbedit2显示相应内容,但焦点放在dbedit1或dbedit2时,默认值却自动消失,请问:
1、这是怎么回事?
2、有什么方法可以实现默认?Thanks!procedure TForm3.Button1Click(Sender: TObject);
var
x,y:String;
begin
  x:=DBEdit1.Text;
  y:=DBEdit2.Text;
  ADOQuery2.Append;
  DBEdit1.Text:=x;
  DBEdit2.Text:=y;
end;

解决方案 »

  1.   

    DBEdit1.text 这个属性是只读的,不能修改吧。
    我想你这里坐是错误的。
      

  2.   

    procedure TForm3.Button1Click(Sender: TObject);
    var
    x,y:String;
    begin
      x:=DBEdit1.Text;
      y:=DBEdit2.Text;
      ADOQuery2.Append;
      adoquery2.refresh;  //增加刷新
      DBEdit1.Text:=x;
      DBEdit2.Text:=y;
    end;
      

  3.   

    x:=DBEdit1.Text;
      y:=DBEdit2.Text;
      ADOQuery2.Append;
      adoquery2.refresh;  
      DBEdit1.Text:=x;
      DBEdit2.Text:=y;
      

  4.   

    多谢各位:x:=DBEdit1.Text;
    y:=DBEdit2.Text;
    adoquery2.refresh;
    ADOQuery2.edit;
    DBEdit1.Text:=x;
    DBEdit2.Text:=y;