main.prg

班级管理数据库系统

* 定义6个全局变量并初始化各个变量的值
Public Num,Nj,Njnum,Xq,XqNum,XscjTableName
Num=1
NjNum=1 
Nj="高一年级"
XqNum=1
Xq="上期"
XscjTableName=Alltrim(Nj+Xq+"成绩表")
Do Form Passform.scx
Application.Visible=.f.
Read Events