程序代码：

****
set delete off
clear all
close all
use 用户数据表
pack
use 学生档案信息表
pack
use 成绩
pack
use 教师信息表
pack
USE 成绩信息表
pack
use 课程信息表
pack
use 班级信息表
pack
use 学院信息表
pack
use 专业信息表
pack

***** * *
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
set default to C:\Documents and Settings\Administrator\桌面\学生成绩查询系统
_screen.caption="学生成绩查询系统"
zoom window screen max    &&主窗口最大化
_SCREEN.controlbox=.f.   &&去掉主窗口中的控制按钮
_screen.maxbutton=.f.
_screen.minbutton=.f.
_screen.closable=.f.
_screen.picture="背景图\瑞雪.jpg"

***
do  form forms\登录
read events

set talk on