error(30分)

query1:cannot modify a read-only dataset

我的代码如下：
procedure TfmMain.Button2Click(Sender: TObject);
begin
with DataModule1 do
begin

query1.Open;
query1.Append;
query1.Edit ;

query1.FieldByName('shijian').AsDateTime:=DateTimePicker1.Date;
query1.FieldByName('fuwu').AsString:=ComboBox2.Text;
query1.FieldByName('zhixing').AsString:=ComboBox3.Text;
query1.FieldByName('zhishu').AsString:=Edit6.Text;
query1.FieldByName('jiqian').AsString:=Edit5.Text;

try
query1.Post ;
showmessage('信息已经加入!');
except
on E:Exception do
query1.Cancel ;
end;
end;

end;
数据库是SQL SERVER 7.0

Query1.RequestLive := True;
or
Query1.CachedUpdate := True;

Query1.RequestLive := True;这条语句（或Form上控件设置此属性时）一定要先执行先将Query1的Active属性置为False，否则无效

最好使用UpdateSQL控件，这时Query1的 RequestLive 必须设为 False。

使Query1的CatchedUpdates:=true、dateObject:=UpdateSQL1

双击UpdateSQL1，在Table Name处添表名，然后单击Get Table Fields
按纽，选中Key Fields及Update Fields列表中的全部字段，再单击Generate SQL,
即可生成SQL语句。

这时您可以对表进行增、删、改的操作，在执行Query1.ApplyUpdates后，数据
会写回数据库。

时间太久，强制结束。 wjiachun