qygoods.Close;
qygoods.SQL.Clear;
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists-:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('outh_id').asstring;
qygoods.ExecSQL;
end;
with datamodule1 do
begin
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists+:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('inh_id').asstring;
qygoods.ExecSQL;
end;
qygoods.SQL.Clear;
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists-:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('outh_id').asstring;
qygoods.ExecSQL;
end;
with datamodule1 do
begin
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists+:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('inh_id').asstring;
qygoods.ExecSQL;
end;
解决方案 »
- 怎样替换已编译的Delphi程序中的图片?
- Delphi中如何制作像163那样的分页js效果
- 如何将integer型变量转换成char型的?谢谢!!!
- 用delphi写代码能直接播放vcd/dvd吗?
- orcal数据库连接问题
- 在delphi里怎样定义一个日期型的变量啊?
- 关于进度条ProgressBar的使用
- 各位高手:请问如何才能得到一个文件的属性? 比如快捷方式的目标文件
- 简单的uses 反复包含问题
- API 函数WSAWaitForMultipleEvents在哪个.PAS文件中声明
- 通过BDE连接ORACLE在程序中设定密码的问题????在线给分。(user name/password)
- 哪儿有delphi6下的rave5.11下载?
qygoods.SQL.Clear;
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists-:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('outh_id').asstring;
qygoods.ExecSQL;
end;
with datamodule1 do
begin
qygoods.Close;//----------------
qygoods.SQL.Clear;//------------>加这两个试试
qygoods.SQL.Add('update goods');
qygoods.sql.add('set g_exists=g_exists+:total');
qygoods.SQL.Add('where G_ID=:g_id and H_ID=:h_id');
qygoods.parameters[0].value:=qymovedetail.fieldbyname('m_total').AsInteger;
qygoods.parameters[1].value:=qymovedetail.fieldbyname('g_id').AsString;
qygoods.parameters[2].value:=qymove.fieldbyname('inh_id').asstring;
qygoods.ExecSQL;
end;