main.prg

这是一个学生成绩管理系统

set talk off
set esca off
set echo off
set date ansi
set cent on
set hour to 24
_screen.visible=.f.
on shutdown do shutdown
set notify off
clea all
close all
clear
*_screen.picture="back.bmp"
_screen.autocenter=.T.
_screen.zoombox=.f.
*_screen.maxbutton=.t.
_screen.borderstyle=3
_screen.showtips=.T.
_screen.windowstate=0
_screen.ControlBox=.f.
_screen.closable=.T.

LOCAL icsys16,icproram
icsys16=sys(16)
icprogram=substr(icsys16,at(":",icsys16)-1)
cd left(icprogram,rat("\",icprogram))
set path to left(icprogram,rat("\",icprogram))
public ttj,ls
ttj=0
cCaption="学生成绩管理系统1.0"
modi window screen title "学生成绩理系统1.0"
do form jm.scx
read events
release main
set notify on