Delphi7中关于获取DBgrid每列中指定的一个值

Question

如图我想把每列的值以索引的形式，获取到上面所对应的框中，根据不同的部门和原数量乘以一个百分比，结果显示在更改后数量里，且与每列索引一一对应，然后点修改就将所得的所有值写入数据库。

Answer 1

DBGrid 的 onCellClick 事件增加如下代码..
Edit1.Text := ADOQuery1.FieldByName('生产部门').AsString;
Edit2.Text := ADOQuery1.FieldByName('数量').AsString;

修改 button 的onClick事件增加如下代码..
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('update 表 set MP数量 = :newcnt ');
SQL.Add(' where 生产订单号 = '''+生产订单号Edit.Text+''' ');
SQL.Add(' and 生产部门 = '''+部门Edit.Text+''' ');
//如果有其他条件, 则加之..
Parameters.ParamByName('newcnt').Value := 更改后数量Edit.Text;
//按数据类型, 修改参数的类型..
ExecSQL;
end;