标题:程序路径问题
只看楼主
taiyanghua
Rank: 1
等 级:新手上路
帖 子:39
专家分:4
注 册:2010-10-11
结帖率:50%
已结贴  问题点数:20 回复次数:15 
程序路径问题
我自己编写了一个程序,主程序代码如下
clear all
set default to \文印费管理系统
use jg.dbf
do form 文印费计算器
read events
release all
有一个问题:只有放在D盘或F盘文件夹下才可以运行,如果放到下一级文件夹中就不行.路径那儿怎么改一下呀
搜索更多相关主题的帖子: 文件夹 管理系统 default 主程序 
2012-02-17 10:27
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:3 
以下是引用taiyanghua在2012-2-17 10:27:54的发言:

我自己编写了一个程序,主程序代码如下
clear all
set default to \文印费管理系统
use jg.dbf
do form 文印费计算器
read events
release all
有一个问题:只有放在D盘或F盘文件夹下才可以运行,如果放到下一级文件夹中就不行.路径那儿怎么改一下呀
clear all
set default to d:\xxx\文印费管理系统
use jg.dbf
do form 文印费计算器
read events
release all

坚守VFP最后的阵地
2012-02-17 10:53
taiyanghua
Rank: 1
等 级:新手上路
帖 子:39
专家分:4
注 册:2010-10-11
得分:0 
这样的话就只能在D盘运行了
2012-02-17 10:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
以下是引用taiyanghua在2012-2-17 10:58:17的发言:

这样的话就只能在D盘运行了
个人认为,程序应该固定在某一个地方,东藏西躲。。。。。。

坚守VFP最后的阵地
2012-02-17 11:01
taiyanghua
Rank: 1
等 级:新手上路
帖 子:39
专家分:4
注 册:2010-10-11
得分:0 
这个程序不能只放在一个文件夹中吧,放到其它文件夹中就不可以了
2012-02-17 11:36
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:3 
在config.fpw文件中设置路径,那个文件在外部修改,喜欢放哪儿都行。

授人以渔,不授人以鱼。
2012-02-17 11:43
taiyanghua
Rank: 1
等 级:新手上路
帖 子:39
专家分:4
注 册:2010-10-11
得分:0 
如果就是在这个程序中修改呢
我下面用到的JG.xls和表单,都在文印费管理系统这个文件夹下面如果就是在这个程序中修改呢
我下面用到的JG.xls和表单,都在文印费管理系统这个文件夹下面

[ 本帖最后由 taiyanghua 于 2012-2-17 12:09 编辑 ]
2012-02-17 12:07
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
那是自找麻烦,有很多不可控因素——与你采用IDE还是独立窗体运行程序有关,在调试阶段会整晕你,没必要。

授人以渔,不授人以鱼。
2012-02-17 12:11
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
如果你的数据文件分散在下层分支中,先定位根路径,然后在USE命令中采用相对路径打开下层文件,要么设置若干全局变量把各个路径记住,临时切换。

授人以渔,不授人以鱼。
2012-02-17 12:14
zxl931
Rank: 2
等 级:论坛游民
帖 子:31
专家分:42
注 册:2007-1-8
得分:3 
程序路径的自动查找
    一般运行程序的目录并非固定不变,因此一般在程序启动时都要查询当前运行程序的目录。下面这段程序给出当前路径的查询方法:
    Function SetPath()
       LOCAL lcSys16, lcProgram
       lcSys16 = SYS(16) &&查询当前运行程序名
       lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)

       CD LEFT(lcProgram, RAT("\", lcProgram))
       *-- If we are running MAIN.PRG directly, then
       *-- CD up to the parent directory
       IF RIGHT(lcProgram, 3) = "FXP"
            CD ..
       ENDIF
       SET PATH TO PROGS, FORMS, LIBS, ;
           MENU, DATA, ;
           REPORTS, INCLUDE, HELP, ;
           BITMAPS
       SET CLASSLIB TO MAIN ,vfptool
    ENDFUNC
2012-02-17 22:03



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-361052-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016885 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved