日常,在使用各种商品化的应用软件时,发现部分软件,可以将它安装在硬盘的任何盘的任何目录中;而有的软件,则只能安装在设计者事先规定的特定盘和特定路径中。假如将它放在了另外的盘号和路径,就会出现"XXXX数据库找不到"等等之类错误,从而中断软件的运行。本文从VFP语言的编程特点出发,介绍了提高VFP应用程序路径适应性的具体实现方法。 1. 在VFP应用软件的项目中,有一个主文件,它是整个应用程序的运行起始点。在主文件的开头处,插入以下语句: A.将该软件的目录(安装后目录),设置为当前目录 SET DEFAULT TO SYS(5) SYS(2003)
B.从.INI文件或路径数据表中读取用户指定的该软件下的子目录名(.INI文件或路径数据表的内容,待软件安装后,根据软件下的子目录名,由用户输入),例如B.1。若软件设计时确定了子目录名,则执行B.2的语句。 B.1 这里以"路径数据表"为例,说明读取路径的过程。 USE PGPATH MPATH=‘‘ LOCA FOR PH#‘ ‘ &.&.搜索字段PH(路径)不为空的记录 DO WHILE .NOT.EOF() MPATH=MPATH TRIM(PH) ‘,‘ &.&.连加成搜索路径 SKIP ENDD MPATH=LEFT(MPATH,1,LEN(MPATH)-1)