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

Posted 2022-07-14 知

篇首语：锲而舍之，朽木不折;锲而不舍，金石可镂。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统销售管理功能的实现（一）[4]相关的知识，希望对你有一定的参考价值。

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

// 当商品信息数量单价不为空时才能进行计算 if (currentRow<> )and(stringgrid Cells[ currentRow]<> )and(stringgrid Cells[ currentRow]<> )and(stringgrid Cells[ currentRow]<> )and(stringgrid Cells[ currentRow]<> ) then begin // 计算某条销售单明细的进货金额税额和不含税额 // 这里开始添加的代码是判断出货量的 // 销售商品的数量不允许大于库存中的储存数量 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 库存数量 from 库存库 where 货号 = +stringgrid Cells[ currentRow]+ ); adoquery Open; if strtoint(stringgrid Cells[ currentRow])>adoquery FieldByName( 库存数量 ) AsInteger then begin showmessage( 该库中此种商品的最大储量小于您的输入将按照最大储量出货 ); stringgrid Cells[ currentRow]:=adoquery FieldByName( 库存数量 ) AsString; end; // 计算某条销售单明细的进货金额税额和不含税额 number:=strtofloat(stringgrid Cells[ currentRow]); price:=strtofloat(stringgrid Cells[ currentRow]); tax:=strtofloat(stringgrid Cells[ currentRow])/ ; stringgrid Cells[ currentRow]:=floattostr(number*price); stringgrid Cells[ currentRow]:=floattostr(tax*number*price/( +tax)); stringgrid Cells[ currentRow]:=floattostr(number*price/( +tax));

cha138/Article/program/Delphi/201311/24916

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

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