第1个回答 2011-09-07
好久没写了,delphi已经用的越来越少了,还是放弃吧,如果只是学校要求的话,就稍微看看
注意:dbedit是能够绑定数据字段的,你现在只是一个条件输入,所以,不要在dbedit3和dbedit4上绑定任何字段,否则修改的时候就直接把库里面的内容都改掉了,建议换成其他的普通edit类型就行乐。
var sql:string;
if dbedit4.text = '存' then
sql:= dbedit3.text
else
sql:=' - '+ dbedit3.text ;
sql:='update table set 数量 = 数量 - ' + sql1 + ' where 设备名='+yy;
with query do
begin
close;
sql.text:=sql;
open;
end;
数据库中的数量字段必须是数字型,否则运行报错。
第2个回答 2011-09-07
update table set 数量=数量+XX where 设备名='yy'
你那个存取有什么用。。数量为负就是取,为正就是存咯。或者存取你弄个下拉菜单给人选,否则谁知道该填什么 ,如果数量只能填正数的话:
var sql1:string;
sql:string;
if dbedit4='存' then
sql1:= 数量
else
sql1:='-'+xx;
sql:='update table set 数量='+sql1+' where 设备名='+yy;
with query do
begin
close;
sql.text:=sql;
open;
end;
xx是你输入的数量,yy是你输入的设备名
大致写了下代码,但是直接复制肯定是不能编译的
还有,估计你从界面获取的数量值,得转换下类型,用strtoint()
第3个回答 2011-09-07
数据库是sql吧,如果是mssql的话,就在提交后面写更新语句,后台执行SQL,SQL语句用update来写,更新产品数量。