ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select distinct 物品编码 from store_info');
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into store_info(物品编码,物品数量,物品单位,库位代号) values ('''+combobox2.Text+''','''+edit2.Text+''','''+combobox3.Text+''','''+combobox4.Text+''')');
ADOQuery1.ExecSQL;
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from store_info');
ADOQuery1.Open;
num:=ADOQuery1.FieldValues['物品数量'];
num:=strtoint(edit2.Text)+num;
ADOQuery1.Close;
ADOquery1.SQL.Clear;
ADOQuery1.SQL.Add('update store_info set 物品数量='''+inttostr(num)+''' where 物品编码='''+combobox2.text+''' and 库位代号='''+combobox4.text+'''');
ADOQuery1.ExecSQL;
问题是:运行后,为什么“物品编码,物品数量,物品单位,库位代号“没有加入store_info
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select distinct 物品编码 from store_info');
ADOQuery1.Open;
if ADOQuery1.Eof then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into store_info(物品编码,物品数量,物品单位,库位代号) values ('''+combobox2.Text+''','''+edit2.Text+''','''+combobox3.Text+''','''+combobox4.Text+''')');
ADOQuery1.ExecSQL;
end
else
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from store_info');
ADOQuery1.Open;
num:=ADOQuery1.FieldValues['物品数量'];
num:=strtoint(edit2.Text)+num;
ADOQuery1.Close;
ADOquery1.SQL.Clear;
ADOQuery1.SQL.Add('update store_info set 物品数量='''+inttostr(num)+''' where 物品编码='''+combobox2.text+''' and 库位代号='''+combobox4.text+'''');
ADOQuery1.ExecSQL;
问题是:运行后,为什么“物品编码,物品数量,物品单位,库位代号“没有加入store_info
解决方案 »
- 多线程,总是在线程里的FOR语句中自动关闭了!
- 当用户点击了“查询”按纽后,如何将鼠标变成漏斗形状,从而使得用户不可以再点击?
- 用BDE的query查出数据后,为何不能 .edit?
- 求救!!在线等!
- 学习delphi开发多层结构时的疑问
- 前段时间在网上下载了“《金字招牌餐饮娱乐管理系统9.0豪华版》”软件,现在用,提示过期了,如何才能解决?
- 如何调用explorer进行拷贝粘贴
- 求教ADOConnection 的简单问题
- 哪位高手知道:汉字转换成UNICODE,以及UNICODE转换成汉语拼音的方法
- 如何获得.mp3的数据信息
- ◆连接unix服务器的oracle,客户端需要修改吗◆
- 请问如何把一个treeview里的数据导入到access数据库中,能使节点编号唯一?
if ADOQuery1.Eof then