t_lscx.prg

vfp的进销存系统

*jehj:计算增添记录后总的金额合计
*jehj1:计算本单金额合计
*jehj2:计算本单金额合计
*jhdghs:代销商
*jhdlrdm:品名录入代码
*jls:记录数
*lrtj:录入的途径
*lrfs:录入的方式
*qd:确定是否录入
*xszbl():录入代销销售数据

thisform.command9.enabled=.f.

lrfs=1
qd=.t.
do form dxxslr1 name dxxslr1linked

if qd
  select dxxsz
  scatter to xszbl blank

  do case
    case lrfs=1
      xszbl(1)=date()
      jehj1=0
      jhdlrdm=space(10)
      jehj2=0
      xszbl(9)=100
      xszbl(12)=jhdghs
      do dksjk with 'ysk','ysk'
      go top
      xszbl(6)=颜色

      do form dxxslr2 name dxxslr2 linked
    case lrfs=2
      xszbl(2)=单号
      xszbl(1)=日期
      jhdlrdm=space(10)
      sum 金额 to jehj1 for alltrim(单号)==alltrim(xszbl(2))
      jhdlrdm=space(10)
      jehj2=0
      xszbl(9)=100
      xszbl(12)=jhdghs
      do dksjk with 'ysk','ysk'
      go top
      xszbl(6)=颜色

      do form dxxslr2 name dxxslr2 linked
    case lrfs=3
      xszbl(1)=date()
      xszbl(9)=100
      xszbl(12)=jhdghs
      do dksjk with 'ysk','ysk'
      go top
      xszbl(6)=颜色

      do form dxxslr3 name dxxslr3 linked

  endcase

  select dxxsz
  count to jls
  sum 金额 to jehj
  thisform.label1.caption=str(jhdrqn,4)+'.'+str(jhdrqy,2)
  thisform.label2.caption='金额合计：'+str(jehj,12,2)+'元'
  set message to '销售记录数：'+str(jls)
  if jls>0
    thisform.command2.enabled=.t.
    thisform.command3.enabled=.t.
    thisform.command4.enabled=.t.
    thisform.command6.enabled=.t.
    thisform.command7.enabled=.t.
    thisform.command8.enabled=.t.
  endif

endif

thisform.grid1.refresh
thisform.grid1.setfocus