xbb.prg

使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: XBB.PRG(主文件) <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET DEFAULT TO .
 IF DIRECTORY('tmp') = .F.
    MD tmp
 ENDIF 
 IF DIRECTORY('dat') = .F.
    MD dat
 ENDIF 
 RELEASE ALL
  INITPROG()
 _SCREEN.CAPTION = '浙江省农村信用社会计报表系统'
 _SCREEN.PICTURE = 'wall.bmp'
 _SCREEN.WINDOWSTATE = 2
 _SCREEN.CLOSABLE = .F.
 _SCREEN.MAXBUTTON = .F.
 _SCREEN.ICON = 'xh.ico'
 PUBLIC NIAN , YUE , M_DEBUG
 IF CURDIR() = '\XBB\SRC\PRG\'
    M_DEBUG = .T.
 ELSE 
    M_DEBUG = .F.
 ENDIF 
 IF M_DEBUG = .T.
    SET DEFAULT TO \xbb
    SET PATH TO \xbb\src\prg
 ELSE 
    SET DEFAULT TO .
    SET PATH TO .\src\prg
 ENDIF 
 IF FILE('t001.dbf')
    DELETE File t001.dbf
 ENDIF 
 IF FILE('t001.tmp')
    DELETE File t001.tmp
 ENDIF 
 IF FILE('t001.fpt')
    DELETE File t001.fpt
 ENDIF 
 IF FILE('t0011.fpt')
    DELETE File t0011.fpt
 ENDIF 
 IF FILE('tmp.tmp')
    DELETE File tmp.tmp
 ENDIF 
 IF FILE('t001.dbf')
    DELETE File t001.dbf)
 ENDIF 
 IF FILE('.\lib\act1.dat')
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA1 C ( 16 )
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA2 C ( 16 )
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA3 C ( 16 )
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA4 C ( 16 )
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA5 C ( 16 )
    ALTER TABLE .\lib\act1.dat ALTER COLUMN DA6 C ( 16 )
    USE 
 ENDIF 
 DO FORM src\form\head
 PUBLIC GYBM
 GYBM = ''
 PUBLIC XSLJ , XSBM , XSYK , XSLX , XSDQ , SYDW
 XSLJ = ''
 XSBM = ''
 XSYK = ''
 XSLX = ''
 XSDQ = ''
 SJOK = .F.
 IF FILE('qq.mem')
    RESTORE FROM qq.mem ADDITIVE
    SYDW = QQ
 ELSE 
    SYDW = ''
 ENDIF 
 PASSING = .F.
 DO FORM .\src\form\Passwd
 IF PASSING
    RELEASE PASSING
    NIAN = YEAR(DATE())
    YUE = MONTH(DATE())
    IF YUE = 1
       YUE = 12
       NIAN = NIAN - 1
    ELSE 
       YUE = YUE - 1
    ENDIF 
    NIAN = ALLTRIM(STR(NIAN))
    YUE = ALLTRIM(STR(YUE))
    IF LEN(ALLTRIM(YUE)) = 1
       YUE = '0' + LTRIM(TRIM(YUE))
    ENDIF 
    _SCREEN.CAPTION =  ;
         '浙江省农村信用社会计报表系统' + '+' + SYDW + '       ' + NIAN + ' 年 ' + YUE +  ;
   ' 月 '
    IF FILE('.\LIB\BZL.DAT') AND FILE('.\LIB\XMBAK\SJK.DAT')
       DO WHILE .T.
          DO FORM .\src\form\rqsd
          IF SJOK = .T.
             EXIT 
          ENDIF 
       ENDDO 
       DO src\menu\xbbmenu.mpr
       ON ERROR do src\prg\errtran with program(), Message(), Message(1)
       READ EVENTS 
    ELSE 
        MESSAGEBOX('   请把 ' + 'LIB ' + '和' + 'DAT' + ' 目录下所有数据' + CHR(13) + CHR(13) +  ;
      '拷贝到  会计报表系统  的运行目录下！！',64,'       错误信息提示')
        ENDPROG()
    ENDIF 
 ENDIF 
  ENDPROG()

PROCEDURE InitProg
 SET SAFETY OFF
 SET TALK OFF
 SET BELL ON
 SET DELETED ON
 SET CENTURY ON
 SET DATE TO ansi
 SET FUNCTION 2 TO ' '
 SET FUNCTION 3 TO ' '
 SET FUNCTION 4 TO ' '
 SET FUNCTION 5 TO ' '
 SET FUNCTION 6 TO ' '
 SET FUNCTION 7 TO ' '
 SET FUNCTION 8 TO ' '
 SET FUNCTION 9 TO ' '
 SET FUNCTION 10 TO ' '
 CLOSE DATABASES 
 SET SYSMENU OFF
ENDPROC
*------
PROCEDURE EndProg
 RELEASE MMBZ2 , MMBZ1 , MMBZ3 , MMBZ4
 CLOSE ALL
 RELEASE ALL
 DO src\prg\bye
 IF M_DEBUG = .T.
    SET SYSMENU TO DEFAULT
    RETURN 
 ELSE 
    QUIT 
 ENDIF 
 CLEAR ALL
ENDPROC
*------*