主程序.prg

来自「学生管理系统本系统由1个数据库、3个查询」· PRG 代码 · 共 22 行

set talk off
set safety off
set deleted on 
PUBLIC gcNowPath
gcNowPath=ADDBS(JUSTPATH(SYS(16))) 
SET DEFAULT TO (gcNowPath) 
set sysmenu off

_screen.caption="学生成绩管理系统"
_screen.backcolor=RGB(157,214,225)
_screen.icon="主背景.ico"
_screen.picture="主背景.jpg"
_screen.windowstate=2 
Public passw,n 
use passw.dbf 
go bottom 
passw=alltrim(password)
use 
Do form 主界面

read events