sbwh.prg

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

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET COLOR TO 
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 ENDIF 
 CLOSE DATABASES 
 ZWMKZ = 1
 DIMENSION ZWM( 10 )
 DO WHILE .T.
 M_BH = '00'
 DO FORM src\form\gong2
 SS = M_BH
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
  IF !FILE("LIB\ZH&SS..DAT")
 USE LIB\ZH01.DAT
  COPY STRU TO LIB\ZH&SS..DAT
 USE LIB\ZH01A.DAT
  COPY STRU TO LIB\ZH&SS.A.DAT
 ENDIF 
 CLOSE DATABASES 
 DS = 0
 GS = ''
 DO FORM .\src\form\sbwh
 CLOSE DATABASES 
 ENDDO 
*