在之前定义了两个变量,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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货