main.prg

来自「用vfp语言设计的学生信息管理系统源码」· PRG 代码 · 共 43 行

local lcsys16,mypath
 lcsys16=sys(16)
 mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
 set defa to (mypath)
 set path to form,data,frx
 set sysmenu off
 set talk off
 set notify off
 set clock status
 set bell on 
 set escape on
 set keycomp to windows
 set exact on
 set exclusive off
 set multilocks on
 set century on
 set message on
 set safety off
 set deleted on
 
 release windows "standard"
 release windows "项目"
 deactivate window "项目管理器-项目1"
 zoom window screen max
 modify window screen title "学生管理系统 "
 
 do form fm
 open database bb
 
  set color set to
 set color of scheme 2 to ,,rgb(255,255,255,0,0,255)
 read events
 close all
 clear events
 set sysmenu to default
 set sysmenu on
 set talk on
 set notify on
 set exclusive on
 set safety on
quit