gzrr.prg

vfp的进销存系统

*工作人员管理模块
*程序名：gzrr
*程序员：
*开发日期：
*最后修改日期
*修改记录

*变量说明
*czyxm:操作员姓名
*mmtg:密码通过

private all except p_*

mmtg=.t.
czyxm=''
do form zgmmqr

if mmtg
  do jrz with czyxm,'进入工作人员管理。'
  do dksjk with 'gzrr','gzrr'
  do form gzrr name gzrr linked
  do jrz with czyxm,'退出工作人员管理。'
  set message to ''
endif