U
untitled
Unregistered / Unconfirmed
GUEST, unregistred user!
已经成功添加记录,但仍然出错,何解?
Invalid use keyword token: form
Line number: 1'
源代码如下:
with query1 do
begin
close;
SQL.Clear;
SQL.Add('select * from stock where 机器型号='+quotedstr(Edit4.Text));
open;
Total_stock:=RecordCount;
If Total_stock>0 then
begin //如果已有本型号存在,则更新库存数量
num:=num+StrToint(edit8.Text);
close;
SQL.Clear;
//更新记录
SQL.Add('update stock set 存量=:num where 机器型号=:机器型号');
fieldbyname('机器型号').Asstring:=Edit4.text;
execsql;
showmessage('已更新库存数量');
end;
If Total_stock=0 then
begin //如果没有,新增记录
close;
Sql.clear;
SQL.Add('select * from stock');
open;
append; //追加记录
//为字段赋值
fieldbyname('机器型号').AsString:= Edit4.text;
fieldbyname('存量').AsInteger:= strtoint(Edit8.text);
fieldbyname('单价').AsInteger:= StrToInt(Edit7.Text);
post;
showmessage('已添加到库中!');
end;
end;
Invalid use keyword token: form
Line number: 1'
源代码如下:
with query1 do
begin
close;
SQL.Clear;
SQL.Add('select * from stock where 机器型号='+quotedstr(Edit4.Text));
open;
Total_stock:=RecordCount;
If Total_stock>0 then
begin //如果已有本型号存在,则更新库存数量
num:=num+StrToint(edit8.Text);
close;
SQL.Clear;
//更新记录
SQL.Add('update stock set 存量=:num where 机器型号=:机器型号');
fieldbyname('机器型号').Asstring:=Edit4.text;
execsql;
showmessage('已更新库存数量');
end;
If Total_stock=0 then
begin //如果没有,新增记录
close;
Sql.clear;
SQL.Add('select * from stock');
open;
append; //追加记录
//为字段赋值
fieldbyname('机器型号').AsString:= Edit4.text;
fieldbyname('存量').AsInteger:= strtoint(Edit8.text);
fieldbyname('单价').AsInteger:= StrToInt(Edit7.Text);
post;
showmessage('已添加到库中!');
end;
end;