知识大全进销存管理系统销售管理功能的实现（二）[1]

Posted 2022-07-14 仓库

篇首语：富贵必从勤苦得，男儿须读五车书。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统销售管理功能的实现（二）[1]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

// 统计合计金额 sum:= ; for j:= to do if stringgrid Cells[ j]<> then sum:=sum+strtofloat(stringgrid Cells[ j]); edit Text:=floattostr(sum); // 统计合计税额 sum:= ; for j:= to do if stringgrid Cells[ j]<> then sum:=sum+strtofloat(stringgrid Cells[ j]); edit Text:=floattostr(sum); // 统计合计不含税额 sum:= ; for j:= to do if stringgrid Cells[ j]<> then sum:=sum+strtofloat(stringgrid Cells[ j]); edit Text:=floattostr(sum); end; end; // 在选取仓库条件满足时显示仓库名下拉列表 // 并设置仓库名数据词典 procedure Toutput StringGrid MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X Y: Integer); begin // 仓库名下拉列表框显示在鼠标附近 if (currentCol= )and(stringgrid Cells[ currentRow]<> ) then begin bobox Visible:=true; bobox Left:=X; bobox Top:=Y+ ; // 添加数据词典 // 注意和进货单的不同之处 // 这里是根据商品的编号来查询存有这个商品的仓库 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select distinct 仓库 from 库存库 where 货号 = +stringgrid Cells[ currentRow]+ ); adoquery Open; bobox Items Clear; while not adoquery Eof do begin bobox Items Add(adoquery FieldByName( 仓库 ) AsString); adoquery Next; end; end; end;

cha138/Article/program/Delphi/201311/24896

知识大全 进销存管理系统销售管理功能的实现（二）[1]

知识大全进销存管理系统销售管理功能的实现（二）[1]