main.prg

来自「这是一个用VF开发的学生档案管理系统,里面有源代码,」· PRG 代码 · 共 25 行

*--初始环境设置
clea all
set talk off
*设置文件默认路径
set defa to f:\陆海成\毕业设计\学生档案管理系统
close all
set date to short
set sysmenu off
set date long


*--系统背景图片
p1=sys(5)+sys(2003)+"\27.jpg"
_screen.picture=p1
_screen.closable=.F.
_screen.activate

*--打开登录界面
do form denglu
*--控制事件循环
read events
*--退出时恢复环境设置
set talk on
set sysmenu on
_screen.closable=.T.