buildpjx.prg

来自「一套难绝对能编译的人事系统,界面漂亮,构思新颖,」· PRG 代码 · 共 32 行

*---------------------------------------------------*
* 文件名   : BuildPJX.prg                           *
* 功能描述 : 根据UnFoxAll反编译产生的文件创建一个   *
*            工程文件                               *
* 运行环境 : FoxPro for DOS/Windows 2.x             *
*            Visual FoxPro 3.0/5.0/6.0              *
*                                                   *
* 研 制 人 : 穆鹏义 (Email:[e-mail])        *
*---------------------------------------------------*

*----Input with the full path and filename of project table: *.PJ_
PARAMETER ufalist
IF not FILE('&ufalist')
   WAIT WINDOW '工程信息文件未找到!' timeout 5.0
   close all
   quit
ENDIF
CLEA
close all
IF .not. ('3.0'$VERSION() or  '5.0'$VERSION() or '6.0'$VERSION())
IF FILE('TEMP1.PJX')
   ERASE TEMP1.PJX
ENDIF
IF FILE('out.dbf')
   ERASE out.dbf
ENDIF
endif
DEFINE WINDOW mpywindow FROM INT((SROW()-13)/2),INT((SCOL()-71)/2) ;
       TO INT((SROW()-13)/2)+12,INT((SCOL()-71)/2)+70 TITLE "UNFOXALL工程文件生成工具 V1.0" ;
       FLOAT NOCLOSE SHADOW NOMINIMIZE DOUBLE COLOR SCHEME 7
ACTIVATE WINDOW mpywindow
@1,1  say '