标题:程序路径问题
只看楼主
dapinetree
Rank: 2
等 级:论坛游民
帖 子:29
专家分:34
注 册:2011-9-11
得分:3 
同意10楼,我也是这么用的!
2012-02-17 22:25
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
得分:3 
改成这样可以吗?在一个总文件夹内,包含下一段,也包含‘文印费管理系统文件夹’,这个总文件夹放在哪里都可以的。
clear all
use 文印费管理系统\jg
do form 文印费管理系统\文印费计算器
read events
release all
2012-02-17 22:43
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:396
帖 子:11713
专家分:43267
注 册:2006-5-13
得分:3 
在主程序中加入下列语句,随便用户将程序安装在何处都可以正常运行。

SET DEFAULT TO SYS(5)+SYS(2003)                &&设置默认的驱动器或文件夹

活到老,学到老! http://www. E-mail:hu-jj@
2012-02-18 09:27
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
得分:3 

13楼 正解~

2012-02-19 02:18
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
得分:0 
這是給樓主修改過的代碼

程序代码:
clear all
*cpath=sys(5)+sys(2003)
*-- modify by TonyDeng
IF application.StartMode != 0
    * 程序經編譯後從.EXE模式啟動時使用的路徑,為.EXE文件所在目錄
    cPath = application.DefaultFilePath
ELSE
    * 在開發IDE環境下寫程序時的路徑,必須自己設定,否則使用VFP9.EXE的目錄
    cPath = "c:\My Documents\Visual FoxPro Projects\文印费管理系统"
ENDIF
*--

set default to (cpath)

use jg.dbf
do form 文印费计算器
read events
release all

授人以渔,不授人以鱼。
2012-02-19 20:47
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
得分:3 
这也算问题?
2012-02-23 13:34



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




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

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