adddebug.prg

一套难绝对能编译的人事系统,界面漂亮,构思新颖,

*-----------------------------------------------------*
* 文件名   : AddDebug.prg                             *
* 功能描述 : 为UnFoxAll生成的 *.SCX *.VCX 及 *.DBC    *
*            添加调试信息                             *
* 运行环境 : Visual FoxPro 3.0/5.0/6.0                *
* 调用方法 ：do AddDebug.prg with <pathname>          *
*            <pathname> 是UNFOXALL生成文件的路径      *
* 研 制 人 : 穆鹏义 (Email:[e-mail]           *
*-----------------------------------------------------*

*---------note: pathname must with '\' as end !
 PARA PATHNAME

 EXTENNAME = '*.SCX'
 SET DEFAULT TO (PATHNAME)
 SET PATH TO (PATHNAME)
 DONE = 0
 DONE2 = 0
*---------for Form of Visual Foxpro 3.0/5.0/6.0
 FILENUM = Adir(NAMEARRAY, EXTENNAME)
 FOR NCOUNT = 1 TO FILENUM
     COMPILE FORM ((PATHNAME) + NAMEARRAY(NCOUNT,1))
     DONE2 = DONE2+1
     IF File(Substr((PATHNAME) + NAMEARRAY(NCOUNT,1), 1, Len((PATHNAME)+NAMEARRAY(NCOUNT,1))-4)+'.ERR')
        WAIT WINDOW '表单文件 '+(PATHNAME)+NAMEARRAY(NCOUNT,1)+Chr(13)+'增加调试信息产生编译错误，请更正后再试'+Chr(13)+'详细信息请见.ERR文件'
     ELSE
        DONE = DONE+1
        WAIT WINDOW  '转化成功！您现在可以在表单设计器内编辑此文件.'+Chr(13)+'***剩余文件数目: '+Str(FILENUM-DONE2)+'***已转化文件数目: '+Str(DONE)+'***总文件数目: '+Str(FILENUM) noclear nowait
     ENDIF
 ENDFOR
*--------for Visual Class of Visual Foxpro 3.0/5.0/6.0
 DONE = 0
 DONE2 = 0
 EXTENNAME = '*.VCX'
 FILENUM = Adir(NAMEARRAY, EXTENNAME)
 FOR NCOUNT = 1 TO FILENUM
     COMPILE CLASSLIB ((PATHNAME) + NAMEARRAY(NCOUNT,1))
     DONE2 = DONE2+1
     IF File(Substr((PATHNAME) + NAMEARRAY(NCOUNT,1), 1, Len((PATHNAME)+NAMEARRAY(NCOUNT,1))-4)+'.ERR')
        WAIT WINDOW '可视类库文件 '+(PATHNAME)+NAMEARRAY(NCOUNT,1)+Chr(13)+'增加调试信息产生编译错误，请更正后再试'+Chr(13)+'详细信息请见'+(PATHNAME)+NAMEARRAY(NCOUNT,1)+'.ERR文件'
     ELSE
        DONE = DONE+1
        WAIT WINDOW  '转化成功！您现在可以在类设计器内编辑此文件.'+Chr(13)+'***剩余文件数目: '+Str(FILENUM-DONE2)+'***已转化文件数目: '+Str(DONE)+'***总文件数目: '+Str(FILENUM) noclear nowait
     ENDIF
 ENDFOR
*--------Next is update *.DBC
 DONE = 0
 DONE2 = 0
 EXTENNAME = '*.DBC'
 FILENUM = Adir(NAMEARRAY, EXTENNAME)
 FOR NCOUNT = 1 TO FILENUM
     COMPILE DATABASE ((PATHNAME) + NAMEARRAY(NCOUNT,1))
     DONE2 = DONE2+1
     IF File(Substr((PATHNAME) + NAMEARRAY(NCOUNT,1), 1, Len((PATHNAME)+NAMEARRAY(NCOUNT,1))-4)+'.ERR')
        WAIT WINDOW '数据库文件 '+(PATHNAME)+NAMEARRAY(NCOUNT,1)+Chr(13)+'增加调试信息产生编译错误，请更正后再试'+Chr(13)+'详细信息请见'+(PATHNAME)+NAMEARRAY(NCOUNT,1)+'.ERR文件'
     ELSE
        DONE = DONE+1
        WAIT WINDOW  '转化成功！您现在可以调试DBC文件的代码.'+Chr(13)+'***剩余文件数目: '+Str(FILENUM-DONE2)+'***已转化文件数目: '+Str(DONE)+'***总文件数目: '+Str(FILENUM) noclear nowait
     ENDIF
 ENDFOR
wait clear
CLOSE ALL
QUIT
***** End *****