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

Posted 2022-07-14 知

篇首语：喜欢读书，就等于把生活中寂寞的辰光换成巨大享受的时刻。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统销售管理功能的实现（一）[3]相关的知识，希望对你有一定的参考价值。

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

stringgrid ColWidths[ ]:= ; stringgrid Cols[ ] Add( 单价 ); stringgrid ColWidths[ ]:= ; stringgrid Cols[ ] Add( 金额 ); stringgrid ColWidths[ ]:= ; stringgrid Cols[ ] Add( 税率 ); stringgrid ColWidths[ ]:= ; stringgrid Cols[ ] Add( 税额 ); stringgrid ColWidths[ ]:= ; stringgrid Cols[ ] Add( 不含税额 ); stringgrid ColWidths[ ]:= ; for i:= to do begin stringgrid Rows[i] Add(inttostr(i)); stringgrid RowHeights[i]:= ; end; // 设置业务员数据词典 adoquery Close; adoquery SQL Add( select 姓名 from 用户清单 where 姓名!= sys ); adoquery Open; bobox Clear; while not adoquery Eof do begin bobox Items Add(adoquery fieldbyname( 姓名 ) AsString); adoquery Next; end; end; // 设置选取的单元行列值 // 添加销售价数量等信息并根据这些信息进行计算 // 将统计结果显示在窗体下方的文本框中 procedure Toutput StringGrid SelectCell(Sender: TObject; ACol ARow: Integer; var CanSelect: Boolean); var price number tax sum:double; j:integer; begin //读取选取的当前单元的行列值 currentCol:=ACol; currentRow:=ARow; //只有当选取仓库时动态下拉列表才显示 if (currentCol<> ) then bobox Visible:=false; //只有商品信息不为空时才可以输入单位和默认税率 if (currentCol= )and(stringgrid Cells[ currentRow]<> ) then begin adoquery Close; adoquery SQL Clear; adoquery SQL Add( select distinct 单位 from 商品清单 where 货号一步= +stringgrid Cells[ currentRow]+ ); adoquery Open; stringgrid Cells[ currentRow]:=adoquery FieldByName( 单位 ) AsString; stringgrid Cells[ currentRow]:= ; end;

cha138/Article/program/Delphi/201311/24915

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

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