xszdk.prg

来自「适用于初学者参考的FoxPro进销存管理系统,包含基本的进销存模块.」· PRG 代码 · 共 43 行

*打开销售日记帐模块
*程序名：xszdk
*程序员：庄稼
*开发日期：1997.12.5
*最后修改日期：
*修改记录

*变量说明
*jls:记录数
*rqn:打开日期年
*rqy:打开日期月

private all except p_*

do dksjk with 'spk','spk'
do dksjk with 'ysk','ysk'
do dksjk with 'xsrjz','xsrjz'
set order to rq

rqn=year(date())
rqy=month(date())
qd=.t.
do form rqxz name rqxz linked

if qd
  set filter to year(日期)=rqn .and. month(日期)=rqy
  count to jls
  if jls=0
    dhxx='该月份没有销售商品！'
    do form dhk
   else
    do jrz with p_gzrrxm,'打开销售日记帐'
    cxnr=space(20)
    do form xszdk name xszdk linked
    do jrz with p_gzrrxm,'打开销售日记帐'
  endif
  
  select xsrjz
  set filter to
endif

select xsrjz
set order to