rs.prg

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

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


 MENUFLAG = .T.
 DO FORM f_rsfile TO RSFILE
 IF RSFILE = '@'
 MENUFLAG = .F.
 ELSE 
  use &rsfile
 COPY TO sd
 USE sd
 COPY TO sdstru STRUCTURE EXTENDED 
 USE 
 DO FORM f_xzrsgz
 MENUFLAG = .F.
 ENDIF 
 RETURN 
*