Delphi7中关于获取DBgrid每列中指定的一个值 15
如图我想把每列的值以索引的形式,获取到上面所对应的框中,根据不同的部门和原数量乘以一个百分比,结果显示在更改后数量里,且与每列索引一一对应,然后点修改就将所得的所有值写入...
如图我想把每列的值以索引的形式,获取到上面所对应的框中,根据不同的部门和原数量乘以一个百分比,结果显示在更改后数量里,且与每列索引一一对应,然后点修改就将所得的所有值写入数据库。
展开
展开全部
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;
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;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询