程序代码：

clear all
close all
set talk off
set safety off
set delete on
set century on
set date  to ymd
set mark to "-"
set sysmenu off
Public gcMainPath
gcMainPath = Sys(5)+Sys(2003)+"\"
Set Default To "C:\Documents and Settings\Administrator\桌面\学生成绩查询系统"
Public  ataPath
ataPath =gcMainPath+"data\"
Public gcPrgsPath
gcPrgsPath =gcMainPath+"main\"
Public gcPicsPath
gcPicsPath=gcMainPath + "背景图\"
Public gcFormsPath
gcFormsPath = gcMainPath+"forms\"
Public gcMenusPath
gcMenusPath = gcMainPath+"主界面菜单\"
Public gcReportsPath
gcReportsPath =gcMainPath+"dayin\"
_screen.caption="学生成绩查询系统"
zoom window screen max    &&主窗口最大化
_SCREEN.controlbox=.f.   &&去掉主窗口中的控制按钮
_screen.maxbutton=.f.
_screen.visible=.f.
&&_SCREEN.HIDE
&&HIDE WIND SCREEN         &&隐藏VFP主窗口
_screen.minbutton=.f.
_screen.closable=.f.
_screen.picture="背景图\瑞雪.jpg"

***
do  form forms\登录
read events

set talk on