一个按钮代码,用于增加记录,我想把上次录入的记录作为下一条默认值来修改,当按钮事件完成后,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、这是怎么回事?
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;
我想你这里坐是错误的。
var
x,y:String;
begin
x:=DBEdit1.Text;
y:=DBEdit2.Text;
ADOQuery2.Append;
adoquery2.refresh; //增加刷新
DBEdit1.Text:=x;
DBEdit2.Text:=y;
end;
y:=DBEdit2.Text;
ADOQuery2.Append;
adoquery2.refresh;
DBEdit1.Text:=x;
DBEdit2.Text:=y;
y:=DBEdit2.Text;
adoquery2.refresh;
ADOQuery2.edit;
DBEdit1.Text:=x;
DBEdit2.Text:=y;