增加记录-dbgrild,dbedit

Question

在窗体放有，dbgrild ,dbedit1，都设了数据源，用adoquery, botton 代码：
procedure Tfmain.BitBtn4Click(Sender: TObject);
begin
adoquery1.active:=true;
adoquery1.append;
dbedit1.text:='';
dbedit1.SetFocus;
end;
每次增加记录，DBGRILD总会显示所有数据.
 问题　1.我想APPEND时，DBGRILD只显示刚输入的内容。

Answer 1

procedure Tfmain.BitBtn4Click(Sender: TObject);
begin
adoquery1.active:=true;
adoquery1.append;
dbedit1.text:='';
dbedit1.SetFocus;
fmain.doshow;//让窗体重新显示
end;procedure Tfmin.show(sender:Tobject);
var
  sqlstr:string;
begin
  adoquery1.sql.clear;
  adouery1.sql.add('select * form 表名  ');
  adoquery1.next;
  adoquery1.open;
end;上面不一定能通过，但其基本思想就是，添加一条记录以后，你可以限制表，让它每次只显示最后一条记录，用什么方法实现都没关系的，这里只提供一种