我做了一个销售管理系统,在做到销售这一块,当销售某一件产品时,要对库存量进行减一操作,具体代码如下:
var cn:integer;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 库存详单 where 型号='''+flatcombobox1.Text+''' and 串号='''+flatedit2.text+'''');
adoquery1.Open;
adoquery1.First;
adoquery1.Edit;
cn:=adoquery1.FieldValues['数量'];
adoquery1.FieldValues['数量']:=cn-1; //从库存中删除一件该型号产品。
adoquery1.Post;//向库存提交;
cn:=adoquery1.FieldValues['数量'];
adoquery1.Post; //提交
if cn<=0 then adoquery1.Delete; //如果没有货就将其从库存中删除;
showmessage('交易完成,谢谢!');
end;
为什么我在运行的时候总是出现adoquery1:dataset not in edit or insert mode的错误啊请高手
指点?我用的是access数据库
var cn:integer;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 库存详单 where 型号='''+flatcombobox1.Text+''' and 串号='''+flatedit2.text+'''');
adoquery1.Open;
adoquery1.First;
adoquery1.Edit;
cn:=adoquery1.FieldValues['数量'];
adoquery1.FieldValues['数量']:=cn-1; //从库存中删除一件该型号产品。
adoquery1.Post;//向库存提交;
cn:=adoquery1.FieldValues['数量'];
adoquery1.Post; //提交
if cn<=0 then adoquery1.Delete; //如果没有货就将其从库存中删除;
showmessage('交易完成,谢谢!');
end;
为什么我在运行的时候总是出现adoquery1:dataset not in edit or insert mode的错误啊请高手
指点?我用的是access数据库
解决方案 »
- 什么时候成水吧了?有感于“搞编程的,晒晒你的年龄,我是不是挺老的了”
- 在线等!!!!控件中实现返回所调控件的上一页
- 谁能告诉我Paradox是个什么东东?
- 请问如何判断edit的字符串是否为数字?
- delphi中怎样写返回语句,它没有return关键字?
- "gexperts for d7"怎么用﹖﹖
- ★★关于《Delphi5 开发人员指南》8.6 创建一个绘画程序中的例子。怎样才能够在画图时不闪烁??
- SQL SERVER 备份恢复的问题
- 各位能否比较详细的讲解一下#临时表和##临时表的生命周期?谢谢
- 怎么从一个窗体打开另外一个窗体??
- 邮件的接收,使用控件:Indy Client 组件里的IdPOP31
- 用Tstream 保存form问题
cn:=adoquery1.FieldValues['数量'];
adoquery1.Post; //提交