mainprg.prg

包括了6个VFP程序设计实例

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


 SET TALK OFF
 SET SAFETY OFF
 STORE 0 TO C_VAR , C_CD , C_QF
 C_DISK = 'c:\'
 DECLARE INTEGER GetVolumeInformation IN Win32API STRING @ , STRING @ , INTEGER ,  ;
      INTEGER @ , INTEGER @ , INTEGER @ , STRING @ , INTEGER 
 XX = GETVOLUMEINFORMATION(C_DISK,'',20,@C_VAR,@C_CD,@C_QF,0,0)
 PUBLIC MCPH
 MCPH = C_VAR
 CLEAR DLLS
 PUBLIC MYPATH , MAINPATH , TSTITLE
 MYPATH = LEFT(SYS(16),RAT('\',SYS(16)))
 MAINPATH = MYPATH + 'dat;' + MYPATH + 'czy;'
 TSTITLE = '胜新通用人事工资管理系统'
 SET DEFAULT TO (MYPATH)
 SET PATH TO (MAINPATH)
 SELECT 1
 USE xtpath
 IF EOF()
    APPEND BLANK
 ENDIF 
 REPLACE XTPATH1 WITH SUBSTR(ALLTRIM(MYPATH),1,LEN(ALLTRIM(MYPATH)) - 1)
 REPLACE XTPATH2 WITH ALLTRIM(MAINPATH)
 USE 
 SET STATUS BAR OFF
 SET STATUS OFF
 SET DELETED ON
 SET AUTOSAVE ON
 MSYS = GETENV('windir') + '\system'
 SET DEFAULT TO (MSYS)
 IF  .NOT. FILE('sxrsgzzcm.mem')
    MZCMM = 0
    MZCRQ = DATE()
    MZCCS = 1
    SAVE TO sxrsgzzcm.mem ALL LIKE mzc*.*
 ENDIF 
 SET DEFAULT TO (MYPATH)
 SELECT 100
 USE EXCLUSIVE gzcx1
 ZAP 
 USE EXCLUSIVE gzcx2
 ZAP 
 USE EXCLUSIVE gzlr
 ZAP 
 USE EXCLUSIVE gzxm
 ZAP 
 USE EXCLUSIVE gzxm3
 ZAP 
 USE EXCLUSIVE gzfx
 ZAP 
 USE EXCLUSIVE jjgzlr
 ZAP 
 USE EXCLUSIVE jjgzlr2
 ZAP 
 USE EXCLUSIVE jjgzlr3
 ZAP 
 USE EXCLUSIVE jjgzlr4
 ZAP 
 USE EXCLUSIVE yhzz
 ZAP 
 USE EXCLUSIVE jsgzlr
 ZAP 
 USE EXCLUSIVE jsgzlr2
 ZAP 
 USE EXCLUSIVE jsgzlr3
 ZAP 
 USE EXCLUSIVE jsgzlr4
 ZAP 
 USE EXCLUSIVE gzlr1
 ZAP 
 USE EXCLUSIVE gzxm1
 ZAP 
 USE EXCLUSIVE rkcx
 ZAP 
 USE EXCLUSIVE gztjt
 ZAP 
 APPEND FROM bztjt
 USE 
 SJFILE1 = MYPATH + '\dat\gzlbsj.dbf'
 SJFILE2 = MYPATH + '\dat\gzlbsj.cdx'
  if file('&sjfile1')
 COPYFILE1 = MYPATH + '\dat\gzlb.dbf'
 COPYFILE2 = MYPATH + '\dat\gzlb.cdx'
 USE EXCLUSIVE gzlbsj
 ZAP 
 APPEND FROM gzlb
 USE 
  copy file &sjfile1 to &copyfile1
  copy file &sjfile2 to &copyfile2
  dele file &sjfile1
  dele file &sjfile2   
 USE 
 ENDIF 
 SJFILE1 = MYPATH + '\dat\jjgzsj.dbf'
  if file('&sjfile1')
 COPYFILE1 = MYPATH + '\dat\jjgz.dbf'
 USE EXCLUSIVE jjgzsj
 ZAP 
 APPEND FROM jjgz
 USE 
  copy file &sjfile1 to &copyfile1
  dele file &sjfile1
 USE 
 ENDIF 
 SJFILE1 = MYPATH + '\dat\jgdjsj.dbf'
  if file('&sjfile1')
 COPYFILE1 = MYPATH + '\dat\jgdj.dbf'
 USE EXCLUSIVE jgdjsj
 ZAP 
 APPEND FROM jgdj
 USE 
  copy file &sjfile1 to &copyfile1
  dele file &sjfile1
 USE 
 ENDIF 
 DELETE File *.sx
 ON SHUTDOWN quit
 DO FORM sxrsgzqd
 READ EVENTS 
*