gen_zfjj.prg

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

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


 MENUFLAG = .T.
 RESULT = SFGZ2
 SELECT 1
  use &gzb order tag bmzgh 
  copy field  gjjzh,zgxm,&result to &pathname.\公积金.dbf type foxplus
 CLOSE TABLE
 = MESSAGEBOX('    本月住房公积金的磁盘文件位于  ' + PATHNAME +  ;
'  文件夹，文件名是 “公积金.dbf”。' +  ;
CHR(13) +  ;
CHR(13) +  ;
'    “公积金.dbf”表文件的字段：gjjzh为公积金账号，zgxm为姓名，' +  ;
RESULT +  ;
'为住房公积金。请利用“我的电脑”或“Windows资源管理器”将此文件复制到软盘，用于报送银行。',64,'提示')
 MENUFLAG = .F.
 RETURN 
*