pcreate.prg

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

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


 CREATE TABLE kpz ( FPZH C ( 10 ) , FBZ C ( 1 ) , FJC N ( 2 ) , FBSH C ( 8 ) , FSJBM C (  ;
      10 ) , FMC C ( 40 ) , FDW C ( 10 ) , FSLHS L , FJM C ( 6 ) , FKMLB C  ;
      ( 4 ) , FJE N ( 14 , 2 ) , FCR C ( 1 ) )
 INDEX ON FBSH TAG FBSH
 INDEX ON FPZH TAG FPZH
 USE 
 CREATE TABLE kcr ( FBSH C ( 8 ) , FSL N ( 12 , 4 ) , FJE N ( 13 , 2 ) , FCR C ( 1 ) ,  ;
      FRQ D , FDJH C ( 11 ) , FDJ N ( 10 , 2 ) , FZY C ( 40 ) , FJZH N ( 4 )  ;
      )
 INDEX ON FBSH TAG FBSH
 INDEX ON FDJH TAG FDJH
 USE 
 CREATE TABLE kdj ( FDJH C ( 11 ) , FRQ D , FJZH N ( 4 ) , FJEHJ N ( 13 , 2 ) , FJK C (  ;
      1 ) , FFJDJ C ( 4 ) , FSR C ( 8 ) , FSH C ( 8 ) , FJZR C ( 8 ) )
 INDEX ON FDJH TAG FDJH
 USE 
 CREATE TABLE kll ( FRQ D , FLL N ( 8 , 4 ) , FLB C ( 1 ) )
 USE 
 CREATE TABLE kzc2000 ( FBSH C ( 8 ) , FSLYE1 N ( 12 , 4 ) , FJEYE1 N ( 13 , 2 ) , FSLR1  ;
      N ( 12 , 4 ) , FSLC1 N ( 12 , 4 ) , FJER1 N ( 13 , 2 ) , FJEC1 N ( 13 ,  ;
      2 ) , FSLYE2 N ( 12 , 4 ) , FJEYE2 N ( 13 , 2 ) , FSLR2 N ( 12 , 4  ;
      ) , FSLC2 N ( 12 , 4 ) , FJER2 N ( 13 , 2 ) , FJEC2 N ( 13 , 2 ) ,  ;
      FSLYE3 N ( 12 , 4 ) , FJEYE3 N ( 13 , 2 ) , FSLR3 N ( 12 , 4 ) , FSLC3 N  ;
      ( 12 , 4 ) , FJER3 N ( 13 , 2 ) , FJEC3 N ( 13 , 2 ) , FSLYE4 N ( 12 ,  ;
      4 ) , FJEYE4 N ( 13 , 2 ) , FSLR4 N ( 12 , 4 ) , FSLC4 N ( 12 , 4 ) ,  ;
      FJER4 N ( 13 , 2 ) , FJEC4 N ( 13 , 2 ) , FSLYE5 N ( 12 , 4 ) ,  ;
      FJEYE5 N ( 13 , 2 ) , FSLR5 N ( 12 , 4 ) , FSLC5 N ( 12 , 4 ) , FJER5 N (  ;
      13 , 2 ) , FJEC5 N ( 13 , 2 ) , FSLYE6 N ( 12 , 4 ) , FJEYE6 N ( 13 , 2  ;
      ) , FSLR6 N ( 12 , 4 ) , FSLC6 N ( 12 , 4 ) , FJER6 N ( 13 , 2 ) ,  ;
      FJEC6 N ( 13 , 2 ) , FSLYE7 N ( 12 , 4 ) , FJEYE7 N ( 13 , 2 ) , FSLR7 N  ;
      ( 12 , 4 ) , FSLC7 N ( 12 , 4 ) , FJER7 N ( 13 , 2 ) , FJEC7 N ( 13 ,  ;
      2 ) , FSLYE8 N ( 12 , 4 ) , FJEYE8 N ( 13 , 2 ) , FSLR8 N ( 12 , 4 ) ,  ;
      FSLC8 N ( 12 , 4 ) , FJER8 N ( 13 , 2 ) , FJEC8 N ( 13 , 2 ) ,  ;
      FSLYE9 N ( 12 , 4 ) , FJEYE9 N ( 13 , 2 ) , FSLR9 N ( 12 , 4 ) , FSLC9 N (  ;
      12 , 4 ) , FJER9 N ( 13 , 2 ) , FJEC9 N ( 13 , 2 ) , FSLYE10 N ( 12 ,  ;
      4 ) , FJEYE10 N ( 13 , 2 ) , FSLR10 N ( 12 , 4 ) , FSLC10 N ( 12 , 4 ) ,  ;
      FJER10 N ( 13 , 2 ) , FJEC10 N ( 13 , 2 ) , FSLYE11 N ( 12 , 4 ) ,  ;
      FJEYE11 N ( 13 , 2 ) , FSLR11 N ( 12 , 4 ) , FSLC11 N ( 12 , 4 ) ,  ;
      FJER11 N ( 13 , 2 ) , FJEC11 N ( 13 , 2 ) , FSLYE12 N ( 12 , 4 ) ,  ;
      FJEYE12 N ( 13 , 2 ) , FSLR12 N ( 12 , 4 ) , FSLC12 N ( 12 , 4 ) , FJER12 N  ;
      ( 13 , 2 ) , FJEC12 N ( 13 , 2 ) , FNCSLYE N ( 12 , 4 ) , FNCJEYE N (  ;
      13 , 2 ) )
 INDEX ON FBSH TAG FBSH
 USE 
 CREATE TABLE kzy ( FZYBH C ( 6 ) , FZY C ( 30 ) )
 USE 
 CREATE TABLE kczjl ( FCZY C ( 10 ) , FMK C ( 30 ) , FBEGIN T , FEND T , FTIME N ( 6 ) )
 USE 
 CREATE TABLE kbb ( FBH C ( 2 ) , FBT C ( 40 ) , FHS N ( 3 ) , FLS N ( 3 ) , FSX C ( 40  ;
      ) )
 USE 
 CREATE TABLE kcell ( FBH C ( 8 ) , FGS M , FSZ N ( 13 , 2 ) )
 INDEX ON FBH TAG FBH
 USE 
 CREATE TABLE kuser ( FBZ L , FNAME C ( 50 ) , FADD C ( 50 ) , FTELE C ( 20 ) , FKSQ D ,  ;
      FDQQ D , FXJ C ( 10 ) , FYHQK C ( 10 ) , FHYXZ N ( 1 ) , FYHMM C ( 20  ;
      ) , FSAME L , FWLB L )
 INSERT INTO kuser ( FXJ , FYHQK , FHYXZ , FSAME , FNAME , FKSQ , FDQQ , FBZ ) VALUES (  ;
      '101' , '102' , 1 , .T. ,  ;
      IIF(SUBSTR(_SCREEN.CAPTION,1,4) = '万思','武汉万思商务财务软件有限公司','江苏XXXXXXXX公司') , CTOD('2000-1-1') ,  ;
      CTOD('2000-1-1') , .T. )
 USE 
 CREATE TABLE dset ( FFX N ( 1 ) , FPAPER N ( 3 ) , FPRINT C ( 30 ) , FNAME C ( 60 ) ,  ;
      FWIDTH C ( 75 ) , FLEFT N ( 5 ) , FQFW C ( 1 ) , FONTSIZE N ( 2 ) ,  ;
      HEADHIGH N ( 2 ) , FMODE C ( 1 ) )
 USE 
 CREATE TABLE dxmdm ( FXM C ( 10 ) , FDM C ( 8 ) , FMM C ( 8 ) , FQX C ( 200 ) )
 INSERT INTO dxmdm ( FDM , FXM , FQX ) VALUES ( '1' , '管理员' , REPLICATE('Y',40) )
 USE 
*