如何添加

Question

向库中存学生每一学期的总成绩，用一个‘继续添加’按钮，想不动前面的学生名而只需添成绩，即保存之后学生名还在，只需添该生的成绩就可以在生成一条记录了。省的每次都的找该学生。请问各位这如何实现继续添加的功能，我用的是：
　with query1 do 
    begin
     edit;
     post;
　　end;
不知我说明白没有。请高手给补充一下继续添加的代码。

Answer 1

将你所要继续添加的学生的姓名保存到一个变量里，在下一次添加的时候，在AfterInsert事件中调用就可以拉：Dataset.FieldByname('学生姓名').assring:=变量

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s1: string;
begin
with query1 do 
    begin
     edit;
     //...
     post;
     s1:=FieldByName('姓名').AsString;
     Append;
     FieldByName('姓名').AsString:=s1;
　　end;
end;