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 编辑 ]