主程序放在程序文件,右击鼠标设为主程序
下面这个改改可以用,某本书上的
public m.gcnamesystem,m.gcexitmethod
m.gcnamesystem="学生管理系统"
m.gcexitmethod='VFP'
modify window screen font "focfont", 7 noclose title m.gcnamesystem
push menu _msysmenu
do form may
read events
pop menu _msysmenu to master
set sysmenu to default
modify windows screen font "foxfont", 9 noclose title"microsoft visual foxpro"
do case
case m.gcexitmethod="VFP"
wait window"再见!"
clear memory
return
case m.gcexitmethod="OS"
@2, 0 say"再见"
clear memory
quit
endcase
相对路径在主表单的load文件上下面程序
public path1,path2
path1=sys(16,0)
path2=left(path1,rat("\",path1)-1)
path2=right(path2,len(path2)-at(' ',path2,2))
path2是当前工作路径,在后面加上指定的文件就行了。
下面这个改改可以用,某本书上的
public m.gcnamesystem,m.gcexitmethod
m.gcnamesystem="学生管理系统"
m.gcexitmethod='VFP'
modify window screen font "focfont", 7 noclose title m.gcnamesystem
push menu _msysmenu
do form may
read events
pop menu _msysmenu to master
set sysmenu to default
modify windows screen font "foxfont", 9 noclose title"microsoft visual foxpro"
do case
case m.gcexitmethod="VFP"
wait window"再见!"
clear memory
return
case m.gcexitmethod="OS"
@2, 0 say"再见"
clear memory
quit
endcase
相对路径在主表单的load文件上下面程序
public path1,path2
path1=sys(16,0)
path2=left(path1,rat("\",path1)-1)
path2=right(path2,len(path2)-at(' ',path2,2))
path2是当前工作路径,在后面加上指定的文件就行了。
试试
MAIN.SCX設層表单
clea all
close all
set century on
set sysmenu off
set delete on
_screen.visible = .f.
public s_Systempath
s_Systempath = ''
s_SystemPath = Sys(2003)
Set Path To s_SystempathDo form main.scx
Read event
个是系统窗口,在退出的命令加入clea even ....
这样就不会出现在安装目录下找文件了。