dpwh.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 32 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: DPWH.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 ENDIF 
 ZWMKZ = 1
 DIMENSION ZWM( 10 )
 M_BH = '00'
 DO WHILE .T.
 DO FORM src\form\gong2
 SS = M_BH
 IF SS = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 SELECT 1
 USE LIB\BZL.DAT
 LOCATE FOR BH = SS
 LSD = LS
 M_BM = ALLTRIM(BM)
 CLOSE DATABASES 
 DS = 0
 GS = ''
 DO FORM src\form\dpwh
 CLOSE DATABASES 
 ENDDO 
*