dbedit的编辑？

procedure TForm3.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
  close;
  sql.Clear;
  sql.Add('select * from books' );
   open;
  append;
   fieldbyname('书名').asstring:=dbedit1.text;
   fieldbyname('作者').asstring:=dbedit2.text;
   fieldbyname('出版社').asstring:=dbedit4.text;
    fieldbyname('出版时间').asstring:=dbedit5.text;
   post;

   end;
end;
输入值后会提示错误：非空列不能更新为null
我并没有更新为null?!!