在之前定义了两个变量,procedure TForm10.Button2Click(Sender: TObject);
var
sbookno: string;
snewstud:string;
sborrowdate: Tdate;
sreturndate: Tdate;
begin
sbookno:=edit2.text;
sborrowdate:=date;
sreturndate:=date+30;。。
然后
with datamodule2.Query2 do
begin
   sql.Clear;
   sql.Add('update BRECORD set stuno = orderstu , orderstu = null, borrowdate = sborrowdate,returndate=sreturndate  ,ordered=false ,delayed=false where bookno ='+#39+edit2.Text+#39);
   execsql;   //datamodule2.Query2.Active:=true;
end;
最后报错是invalid field name sborrowdate