bhcx.prg

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

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


 IF USED()
 RETURN 
 ENDIF 
 SET ESCAPE OFF
 SET TALK OFF
 SET COLOR OF SCHEME 2 TO RGB( 0 , 0 , 0 , 192 , 192 , 192) ,  ;
       W+/BG,GR/BG,GR/BG,GR+/B,GR+/B,GR+/W,R+/N,N/N,W/N,N+/N
 DEFINE WINDOW WINA FROM 3 , 10 TO 36 , 108 COLOR SCHEME 2 FLOAT DOUBLE
 MOVE WINDOW WINA CENTER 
 ACTIVATE WINDOW WINA
 CLOSE DATABASES 
 USE lib\bzl.dat
 N = 0
 @ 0 , 2 SAY '表号      表       名'
 @ 0 , 40 SAY '表号      表       名'
 DO WHILE .T.
 X = 2
 Y = 2
 FOR N = 1 TO 22
 IF EOF()
 USE 
 WAIT ''
 RELEASE WINDOW WINA
 RETURN 
 ENDIF 
 IF Y > 40
 X = X + 2
 Y = 2
 ENDIF 
 IF BBZL = '1'
 @ X , Y SAY BH + '. '
 @ X , Y + 4 SAY LEFT(BM,34)
 Y = Y + 38
 ENDIF 
 SKIP 
 ENDFOR 
 ENDDO 
 USE 
*