blx.prg

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

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


 SET COLOR OF SCHEME 2 TO  GR+/BG,W+/BG,GR/BG,GR/BG,GR+/B,GR+/B,GR+/BG,R+/N,N/N,W/N,N+/N
 DEFINE POPUP GONG1 FROM 6 , 26 TO 12 , 46 TITLE ' 选择报表类型 ' COLOR SCHEME 2 MARGIN  ;
      FOOTER ' [Esc]键退出 ' SCROLL 
 X = 3
 N = 1
 Y = CHR(34) + '\<'
 Z = '.' + CHR(34)
 SELECT BLX
 GO TOP
 QW = 65
 M_BLX = 0
 DO WHILE .T.
 IF EOF()
 EXIT 
 ELSE 
 IF BH = M_BH
 IF  .NOT. N > 9
 MM = Y - LTRIM(STR(DH)) - Z
  DEFINE BAR  DH OF GONG1 PROMPT &MM+" "+MC 
 N = N + 1
 SKIP 
 ELSE 
 MM = Y - CHR(QW) - Z
  DEFINE BAR  DH OF GONG1 PROMPT &MM+" "+MC 
 N = N + 1
 QW = QW + 1
 SKIP 
 ENDIF 
 ELSE 
 SKIP 
 ENDIF 
 ENDIF 
 ENDDO 
 ON SELECTION POPUP GONG1 DO Mai
 ACTIVATE POPUP GONG1

PROCEDURE Mai
 XI = BAR()
 LOCATE FOR BH = M_BH AND DH = XI
 M_BLX2 = ALLTRIM(STR(DH))
 M_LXM = MC
 DEACTIVATE POPUP GONG1
 RETURN 
ENDPROC
*------*