psjsj.prg

一个非常好用的财务软件源程序

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


  set defa to &bsjwz1
 IF  .NOT. FILE(BSJWZ1 + '\kll.dbf')
    CREATE TABLE kll ( FRQ D , FLL N ( 8 , 4 ) , FLB C ( 1 ) )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ1 + '\kll1.dbf')
    CREATE TABLE kll1 ( FBSH C ( 8 ) , FJFLL N ( 8 , 4 ) , FDFLL N ( 8 , 4 ) )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ1 + '\kzzsd.dbf')
    CREATE TABLE kzzsd ( FZY C ( 40 ) , FBSH C ( 8 ) , FCR C ( 1 ) , FGS C ( 250 ) , FXH N  ;
         ( 3 ) , FNY C ( 1 ) , FMC C ( 40 ) , FYN L , FJE N ( 13 , 2 ) ,  ;
         FPZH C ( 10 ) , FJG C ( 20 ) , FXH1 N ( 3 ) , FBZ C ( 1 ) )
    INDEX ON FXH TAG FXH
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ1 + '\kxm.dbf')
    CREATE TABLE kxm ( FMC C ( 40 ) )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ1 + '\kfy.dbf')
    CREATE TABLE kfy ( FMC C ( 40 ) )
    USE 
 ENDIF 
  set defa to &bsjwz
 IF  .NOT. FILE(BSJWZ + '\kdyh1.dbf')
    CREATE TABLE kdyh1 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh2.dbf')
    CREATE TABLE kdyh2 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh3.dbf')
    CREATE TABLE kdyh3 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh4.dbf')
    CREATE TABLE kdyh4 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh5.dbf')
    CREATE TABLE kdyh5 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh6.dbf')
    CREATE TABLE kdyh6 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh7.dbf')
    CREATE TABLE kdyh7 ( FBZ L )
    USE 
 ENDIF 
 IF  .NOT. FILE(BSJWZ + '\kdyh8.dbf')
    CREATE TABLE kdyh8 ( FBZ L )
    USE 
 ENDIF 
  set defa to &bcxpath
  set path to &bsjwz1
 = PUSE('kpz')
 IF FSIZE('fje') <> 14
    USE EXCLUSIVE kpz
    ALTER TABLE kpz ALTER COLUMN FJE N ( 14 , 2 )
 ENDIF 
 IF TYPE('fxjl') = 'U'
    USE EXCLUSIVE kpz
    ALTER TABLE kpz ADD COLUMN FXJL L
 ENDIF 
 IF TYPE('fzhzl') = 'U'
    USE EXCLUSIVE kpz
    ALTER TABLE kpz ADD COLUMN FZHZL C ( 30 )
 ENDIF 
 IF TYPE('fjzfx') = 'U'
    USE EXCLUSIVE kpz
    ALTER TABLE kpz ADD COLUMN FJZFX L
    REPLACE FJZFX WITH (.T.)
 ENDIF 
 USE kcr
 IF FSIZE('fje') <> 13
    USE EXCLUSIVE kcr
    ALTER TABLE kcr ALTER COLUMN FJE N ( 13 , 2 )
 ENDIF 
 IF FSIZE('fsl') <> 12
    USE EXCLUSIVE kcr
    ALTER TABLE kcr ALTER COLUMN FSL N ( 12 , 4 )
 ENDIF 
 IF FSIZE('fzy') < 60
    USE EXCLUSIVE kcr
    ALTER TABLE kcr ALTER COLUMN FZY C ( 60 )
 ENDIF 
 IF TYPE('fxjl') = 'U'
    USE EXCLUSIVE kcr
    ALTER TABLE kcr ADD COLUMN FXJL N ( 3 )
 ENDIF 
 USE dset
 IF TYPE('fmode') = 'U'
    USE EXCLUSIVE dset
    ALTER TABLE dset ADD COLUMN FMODE C ( 1 )
 ENDIF 
 IF TYPE('fmode1') = 'U'
    USE EXCLUSIVE dset
    ALTER TABLE dset ADD COLUMN FMODE1 C ( 1 )
 ENDIF 
 USE kuser
 IF TYPE('fwlb') = 'U'
    USE EXCLUSIVE kuser
    ALTER TABLE kuser ADD COLUMN FWLB L
 ENDIF 
 USE kcell
 IF FSIZE('fsz') <> 13
    USE EXCLUSIVE kcell
    ALTER TABLE kcell ALTER COLUMN FSZ N ( 13 , 2 )
 ENDIF 
 USE 
 = PUSE('kuser')
 MODIFY WINDOW SCREEN TITLE  ;
      PNAME + SPACE((IIF(BVIEW = 800,78,52) - LEN(ALLTRIM(FNAME))) / 2) + ALLTRIM(FNAME) +  ;
SPACE((IIF(BVIEW = 800,78,52) - LEN(ALLTRIM(FNAME))) / 2) +  ;
IIF(BNOWEB,SPACE(20),'升级网址http://www.yxcw.com')
 BYHSM0 = IIF(FWLB,8,1)
 USE 
 CREATE TABLE qxtmp ( MNAME C ( 20 ) , MARK C ( 2 ) )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '凭证录入' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '凭证审核' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '凭证登帐' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '凭证汇总' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '查询打印' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '常用摘要' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '总分类账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '三栏式明细账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '余额表' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '流水账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '日记账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '资金日报表' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '多栏式明细账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '数量金额明细账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '余额发生额合计表' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '操作密码设定' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '操作权限设定' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '操作记录' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '操作员设定' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '会计科目' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '报表' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '单位资料设定' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '初始余额设定' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '数据备份' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '数据恢复' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '整理数据' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '本期结账' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '期末结转' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '恢复登帐前状态' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '现金流量表' )
 INSERT INTO qxtmp ( MNAME ) VALUES ( '利息计算' )
 USE 
*