cxgz.prg

来自「本工资管理系统是一个运行于Windows 95/98 的基于图形用户界面的通用工」· PRG 代码 · 共 24 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CXGZ.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 MENUFLAG = .T.
 PRIVATE YM , MM , YY , YM2 , GZB , BMB , BMHZB , LBHZB , LBB , GZXMB , GSB , DW
 DO FORM f_cxym TO YM
 IF YM <> '@'
 GZB = 'gz' + YM
 BMB = 'bm' + YM
 LBB = 'lb' + YM
 GZXMB = 'xm' + YM
 GSB = 'gs' + YM
 YY = SUBSTR(YM,1,4)
 MM = SUBSTR(YM,5,2)
 YM2 = '查询' + YY + '年' + MM + '月的工资'
 DO FORM f_cxgz
 ELSE 
 MENUFLAG = .F.
 ENDIF 
 RETURN 
*