with ADO_qry_jiage do
begin
Close;
SQL.Clear;
SQL.Add('update 商品价格表 set 商品进价='+currtostr(shangpinjinjia));
SQL.Add('where 商品编号='+currtostr(shangpinid));
ExecSQL;
end;
......
begin
Close;
SQL.Clear;
SQL.Add('update 商品价格表 set 商品进价='+currtostr(shangpinjinjia));
SQL.Add('where 商品编号='+currtostr(shangpinid));
ExecSQL;
end;
......
解决方案 »
- delphi 中GetAsyncKeyState的用法
- 代码讨论
- Memo 内容快到最大限制时 自动保存
- 2007第一个月过去了,我的共享路继续惨淡凄凉中,大家有什么创意吗?
- filds.DataSet.FieldByName('总金额').DisplayFormat:='#.##元';怎么是错的?
- 关于类和结构的问题。
- 年月查询
- 如何在button上显示图片?
- 比较着急,请各位大哥大姐们近来帮帮忙吧,是关于lsitview和数据库的!!!!!!!!!!!!!
- DELPHI6为什么在WIN98OSR1和WINNT里安不了??
- 如何利用视图实现主从表关联????!!!
- ADOQUERY涉及的表中有一项为 MS SQLSERVER中的BIT类型,如果这一项为FALSE,ADOQUERY查询能正常进行,如果这一项为TRUE就出错,ADOQUERY查
begin
Close;
SQL.Clear;
SQL.Add('update 商品价格表 set 商品进价='+currtostr(shangpinjinjia));
SQL.Add('where 商品编号='+currtostr(shangpinid));
ExecSQL;
end;
......
begin
SQL.Clear;
SQL.Add('update 商品价格表 set 商品'+currtostrshangpinjinjia));
SQL.Add('where 商品编号='+currtostr(shangpinid));
ExecSQL;
end;
begin
SQL.Clear;
SQL.Add('update 商品价格表 set 商品'+currtostrshangpinjinjia));
SQL.Add('where 商品编号='+currtostr(shangpinid));
ExecSQL;
end;
那我在修改后立即在DBGrid里刷新呢?