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

else begin //插入新的销售单数据 adomand CommandText:= insert into 销售单([编号] [客户编号] [销售日期] [业务员] [制单人] [税价合计] [不含税价] [税额])values( +inputnum+ +bobox Text+ +edit Text+ +bobox Text+ +edit Text+ +edit Text+ +edit Text+ +edit Text+ ) ; adomand Execute; //根据销售单明细条目的数量插入销售单明细数据 for i:= to do if stringgrid Cells[ i]<> then //重新组合编码 begin newnum :=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 ); if length(inttostr(newnum ))= then inputnum :=inttostr(newnum ); adomand CommandText:= insert into 销售单明细([编号] [销售单号] [货号] [销售数量] [销售价] [税价合计] [税率] [不含税价] [税额] [仓库]) values( +inputnum + +inputnum+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ +stringgrid Cells[ i]+ ) ; adomand Execute; end; //通知用户操作成功 showmessage( 销售单及明细保存成功 ); end; end; // 提交销售单 // 报表预览及打印功能与进货单完全一致 procedure Toutput Button Click(Sender: TObject); var i j:integer; begin adomand CommandText:= exec sf_销售单 ; adomand Execute; showmessage( 销售单处理成功 ); //清空前面的输入 for i:= to do for j:= to do stringgrid Cells[i j]:= ; bobox Text:= ; bobox Text:= ; edit Clear; edit Clear; edit Clear; edit Clear; end; end;

cha138/Article/program/Delphi/201311/24895

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

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