在数据模块里有一个ADOTable,然后我在它的OnNewRecord事件里写了段代码。然后在窗体上有一个“添加”按钮,我想按下它就往ADOTable里添加新记录,那么在按钮的OnClick事件里怎么写代码呢?是不是:
with datamodule1.ADOTable1 do
begin
   open;
   datamodule1.ADOTable1.Append;
   speedbutton1.Caption:='保存';
end;
就可以了?

解决方案 »

  1.   

    需要你给表中的每个字段赋值在append后面。
      

  2.   

    with datamodule1.ADOTable1 do
    begin
       if not active then
         open;
       datamodule1.ADOTable1.Append;
       speedbutton1.Caption:='保存';
    end;
      

  3.   

    因为我在datamodule里的OnNewRecord里已经为ADOTable添加记录进行了初始化,所以就不用在按钮的事件里给表中的每个字段赋值在append后面了,是吗?
      

  4.   

    加一个问题:ADOTable的OnNewRecord是不是添加在这个Table的最后?如果我要让窗体的几个Edit显示初始化的添加记录应该怎么办?是不是:
    with datamodule1.ADOTable1 do
    begin
       if not active then
         open;
         last;
         edit1.text:=fieldvalues['字段1'];
         edit2.text:=fieldvalues['字段2'];
         edit3.text:=fieldvalues['字段3'];
         datamodule1.ADOTable1.Append;
         speedbutton1.Caption:='保存';
    end;