sysset1.prg

来自「一个非常好用的财务软件源程序」· PRG 代码 · 共 100 行

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


 IF  .NOT. FILE('ksjwz.dbf')
    CREATE TABLE ksjwz ( FSJWZ C ( 30 ) , FBFWZ C ( 30 ) , FCXPATH C ( 30 ) )
    APPEND BLANK
    USE 
 ENDIF 
 IF FILE('kconfig.dbf')
    USE kconfig
    BNOWEB = FNOWEB
 ELSE 
    BNOWEB = .F.
 ENDIF 
 IF FILE('kview.dbf')
    USE kview
    BVIEW = FVIEW
 ELSE 
    CREATE TABLE kview ( FVIEW N ( 4 ) )
    INSERT INTO kview ( FVIEW ) VALUES ( 640 )
    BVIEW = 640
 ENDIF 
 USE 
 BCZMC = ''
 BCOMPANY = ''
 BCZYMC = ''
 BCZYQX = REPLICATE('Y',100)
 BYHSM0 = 1
 BCXPATH = SYS(5) + CURDIR()
 ON ERROR do perror WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
 MODIFY WINDOW SCREEN AT 0.000 , 0.000 SIZE IIF(BVIEW = 640,25,31) ,  ;
      IIF(BVIEW = 640,79.5,99) FONT '宋体' , 12 COLOR  RGB( 39 , 131 , 87 , 39 , 131 , 87)  ;
      NOCLOSE NOZOOM TITLE PNAME + '                   ' NOMENU NOMDI 
 _SCREEN.AUTOCENTER = .T.
 CLEAR 
 IF FILE('clouds.bmp')
    DO FORM sjm
 ENDIF 
 USE ksjwz
 BSJWZ = ALLTRIM(FSJWZ)
 BSJWZ1 = ''
 IF EMPTY(BSJWZ)
    CLEAR 
    DO FORM seldrv
    IF EMPTY(BSJWZ)
       USE 
       RETURN 
    ENDIF 
    REPLACE FSJWZ WITH BSJWZ
    IF FILE(BSJWZ + '\c1\kpz.dbf')
       = MESSAGEBOX(SUBSTR(BSJWZ,1,1) + '盘数据已存在',64,'提示信息')
    ELSE 
        md &bsjwz
        set defa to &bsjwz
       BSJWZ1 = BSJWZ + '\C1'
        md &bsjwz1
        set defa to &bsjwz1
       DO c:\zwcl\pcreate
        set defa to &bcxpath
        set path to &bsjwz1
       DO FORM zlsd
       I = MESSAGEBOX('是否根据行业选用一套标准科目？',33,'提示信息')
       IF I = 1
          DO FORM bjkm
       ENDIF 
    ENDIF 
 ENDIF 
 IF USED('ksjwz')
    SELECT KSJWZ
    USE 
 ENDIF 
 IF USED('kpz')
    SELECT KPZ
    USE 
 ENDIF 
 DO FORM ztxz
 IF EMPTY(BSJWZ1)
    CLOSE DATABASES ALL
    RETURN 
 ENDIF 
 DO PSJSJ
 BDYHTEST = .T.
 BYHSM = 0
 DO PDYH
 BDYHTEST = .F.
 II = 9
 DO FORM dl1
 IF II <> 9
    RETURN 
 ENDIF 
 ON KEY LABEL rightmouse do form c:\vfplk\jsq
 DO PKJQJ
 DO FORM smain
 READ EVENTS 
 DO PERASE
 SET SYSMENU TO DEFAULT
*