知识大全进销存管理系统销售管理功能的实现（二）[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>

// 保存销售单销售单明细数据 procedure Toutput Button Click(Sender: TObject); var maxnum maxnum temp inputnum inputnum :string; newnum newnum i:integer; begin //计算销售单中最大编号以便插入新的销售单数据时编号不冲突 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select max(编号) 最大编号 from 销售单 ); adoquery Open; maxnum:=adoquery FieldByName( 最大编号 ) asstring; //对读出的编号进行截取并将其转换为整数值字段太长时可以不能用strtoint来转换 //防止插入第一条记录时出错 if (maxnum= )or(maxnum= ) then temp:= else temp:=copy(maxnum ); //新插入的销售单编号为插入前的最大编号+ newnum:=strtoint(temp)+ ; //重新组合编码 if length(inttostr(newnum))= then inputnum:= +inttostr(newnum); if length(inttostr(newnum))= then inputnum:= +inttostr(newnum); if length(inttostr(newnum))= then inputnum:= +inttostr(newnum); if length(inttostr(newnum))= then inputnum:= +inttostr(newnum); if length(inttostr(newnum))= then inputnum:=inttostr(newnum); //计算销售单明细最大编号以便插入新的销售单明细数据时编号不冲突 adoquery Close; adoquery SQL Clear; adoquery SQL Add( select max(编号) 最大编号 from 销售单明细 ); adoquery Open; maxnum :=adoquery FieldByName( 最大编号 ) asstring; //防止插入第一条记录时出错 if (maxnum = )or(maxnum = ) then temp:= else temp:=copy(maxnum ); newnum :=strtoint(temp); //由于销售单明细数据可能由很多条因此在下面的循环中销售单明细循环种再编号和组合编码 // 插入新的销售单和销售单明细 //如果客户号为空或者时没有销售单明细数据则取消插入 if (bobox Text= )or(edit Text= ) then showmessage( 客户号不能为空且销售单明细数据必须完整 )

cha138/Article/program/Delphi/201311/24894

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

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