|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //统计合计金额 sum:=; for j:= to do if stringgridCells[j]<> then sum:=sum+strtofloat(stringgridCells[j]); editText:=floattostr(sum); //统计合计税额 sum:=; for j:= to do if stringgridCells[j]<> then sum:=sum+strtofloat(stringgridCells[j]); editText:=floattostr(sum); //统计合计不含税额 sum:=; for j:= to do if stringgridCells[j]<> then sum:=sum+strtofloat(stringgridCells[j]); editText:=floattostr(sum); end; end; //在选取仓库条件满足时显示仓库名下拉列表 //并设置仓库名数据词典 procedure ToutputStringGridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X Y: Integer); begin //仓库名下拉列表框显示在鼠标附近 if (currentCol=)and(stringgridCells[currentRow]<>) then begin comboboxVisible:=true; comboboxLeft:=X; comboboxTop:=Y+; //添加数据词典 //注意和进货单的不同之处 //这里是根据商品的编号来查询存有这个商品的仓库 adoqueryClose; adoquerySQLClear; adoquerySQLAdd(select distinct 仓库 from 库存库 where 货号 =+stringgridCells[currentRow]+); adoqueryOpen; comboboxItemsClear; while not adoqueryEof do begin comboboxItemsAdd(adoqueryFieldByName(仓库)AsString); adoqueryNext; end; end; end; right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] |
