| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 991 人关注过本帖
标题:VFP路径
只看楼主 加入收藏
sun2203315
Rank: 1
等 级:等待验证会员
帖 子:4
专家分:0
注 册:2011-10-9
结帖率:100%
收藏
已结贴  问题点数:10 回复次数:3 
VFP路径
有没有人知道,怎么让在自己电脑上编的程序,在别人的电脑上也好使
具体做法
路径找不到,我用的大多是do form d:\……具体的路径打别人电脑上路径不一样
网上的看了,没看懂
只是我的主程序
CLOSE ALL        &&关闭各种类型的文件
SET   DEFAULT   TO   SYS(5)+SYS(2003)
SET ESCAPE OFF   &&禁止运行的程序和命令在按 Esc 键后被中断
SET SAFETY OFF   &&指定在改写已有文件时不显示对话框
SET DELETE ON    &&使用范围子句处理记录的命令忽略标有删除标记的记录
SET SYSMENU OFF  &&在程序执行期间废止 Visual FoxPro 主菜单栏
RELEASE WINDOW "常用"    &&关闭常用工具栏

SET CENTURY ON    &&年份以四位显示
SET DATE TO ymd   &&日期格式为年、月、日
SET MARK TO "-"   &&指定日期分隔字符
SET HOURS TO 24   &&指定为 24-小时时间格式

_SCREEN.Visible=.t.
_SCREEN.Caption="05计专学生管理系统"  &&系统窗口标题
_SCREEN.Icon=".\dod.ico"      &&系统标题栏图标

*判断显示器当前分辨率
_SCREEN.Width=SYSMETRIC(1)        
_SCREEN.Height=SYSMETRIC(2)

*根据分辨率不同,为系统设置不同的背景图片
IF SYSMETRIC(1)>=1024
   _SCREEN.Picture=".\img\bj.jpg"
ELSE
   _SCREEN.Picture=".\img\bj.jpg"
ENDIF

do form .\人\main\主   &&调用登录界面表单
On ShutDown do OnShutdown   &&退出系统时调用函数onshutdown()
READ EVENTS                 &&建立事件循环           
On ShutDown       &&释放当前的On ShutDown命令

*按菜单的“关闭”按钮退出时,出现的提示框
FUNCTION OnShutdown()  
sel=MESSAGEBOX("真的要退出吗?",4+32+256,"提示")
IF sel=6  
  SELECT 0
  USE .\人\da\rz.dbf
  GO BOTTOM
  REPLACE lsj WITH DATETIME()  &&退出系统时记录操作员退出时间
  CLOSE ALL
  CLEAR EVENTS    &&退出事件循环
  QUIT            &&结束当前 Visual FoxPro 工作期,并将控制权返回给操作系统
ENDIF
ENDFUNC




[ 本帖最后由 sun2203315 于 2011-10-28 21:59 编辑 ]
搜索更多相关主题的帖子: 记录 对话框 菜单栏 主程序 
2011-10-28 21:55
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:5 

你已经有了这句:  SET   DEFAULT   TO   SYS(5)+SYS(2003)

因此, 你只需 do 你主程序所在路径的后续路径 即可~ 比如:

do form "main\主"   &&调用登录界面表单

USE da\rz.dbf

...


2011-10-28 23:15
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:5 
在程序中不要使用绝对路径。
2011-10-29 10:27
sun2203315
Rank: 1
等 级:等待验证会员
帖 子:4
专家分:0
注 册:2011-10-9
收藏
得分:0 
谢谢各位了
2011-10-29 12:31
快速回复:VFP路径
数据加载中...
 
   



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

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