main.prg

可以用的,可以对你们取到一些帮助.这是我有两个多星期做的

set talk off
set escape off
set clock status
_screen.caption="学生档案管理系统"
_screen.picture="picture\mainback.jpg"
_screen.icon="picture\xt.ico"
_screen.windowstate=2
public pot
pot=0
mypath=left(sys(16),rat("\",sys(16)))
set defa to &mypath
do form login.scx
read events
modi windows screen close
set sysmenu to defa
close all
release all
return