Question

delphi7里获取dbgrid每个字段的值

我想自动算出每一行的值，实现以不同部门将原数量乘以不同的百分比，得出结果到更改后数量里，然后点击修改就修改了查询出来的每一行在数据库里对应的值。或一点修改实现DBgrid里所有行的逐行自动点击，并同时运行SQL语句，修改符合查询结果的数据库数据。

Answer 1

不同部门不同的百分比? 那百分比自然存储在 生产部门信息表里
假如说 原来的 sql语句是
select a.订单号,a.数量,a.MRP数量,b.生产部门 from 订单表 a,部门表 b where .............

如果同时还要修改数据库的话 一点击 就获取数据对应的ID

那就先执行
update 订单表 a,部门表 b set a.数量=a.数量*b.百分比 where 。。。。。。。。。ID=XXX

然后重新查询不就行了

追问

你说的这个现在已经能实现了，但每次只能修改一条记录，我想他自动获得dbgrid里的内容作为条件，生成更改后数量，点修改时就把数据库所对应的所有内容修改到位。

追答

怎么会只能修改一条记录

不过是update 语句变化一下而已

追问

我没懂你的意思，有无时间QQ指教一下！我的QQ是3 7 8 7 6 2 3 4

Answer 2

是不是你输入一个产品的名称或者编号 然后就能算出更改的数量？

追问

是的，现在是自己人工改数量，我想实现的就是自动更改数量，而且要把查询出来的结果，根据一个公式都进行一次更改，不需要手动去点dbgrid，获取数据后才能进行修改。

追答

那你可以在edit的EVENT中的ONKEYDOWN里写下当你按下回车时，选定符合你输入内容的那一条记录，然后自动算出结果 并显示在你想显示的edit中。