dxzz.prg

vfp的进销存系统

*代销商仓库总帐查看模块
*程序名：dxzz
*程序员：
*开发日期：
*最后修改日期：
*修改记录

*变量说明
*cxnr:查询内容
*qd:确定

private all except p_*

do dksjk with 'dxkzz','dxkzz'
do dksjk with 'dxs','dxs'
go top
dxs=代销商

qd=.t.
do form dxsxz name dxsxz

if qd
  select dxkzz
  set filter to alltrim(代销商)==alltrim(dxs)

  cxnr=space(20)
  set message to '代销商仓库总帐打开'
  do jrz with p_gzrrxm,'打开代销商仓库总帐查看'
  do form dxkzz name dxkzz linked
  do jrz with p_gzrrxm,'退出代销商仓库总帐查看'
  set message to

  select dxkzz
  set filter to
endif