main.bak

学生信息大基本管理包括班级管理办法成绩管理办法

set talk off    &&关闭对话模式
set safe off
set stat off
set dele on     &&不处理已删除的记录
set cent on
set date to ansi
set sysmenu off
close all
release window 常用,表单控件    &&关闭Standard工具栏
modify window screen title "学生成绩管理软件"
_SCREEN.picture="901537.jpg"   &&设置背景颜色
zoom window screen max    &&主窗口最大化
_SCREEN.controlbox=.f.   &&去掉主窗口中的控制按钮
public checked,nxx,cyonghu,cmima,bkbj,bkxq,lsxh,lsxm
checked=0
nxx=0
lsxh=""
lsxm=""
bkbj=""
bkxq=""
cyonghu=""
cmima=""
deactivate window "项目管理器"    &&关闭项目管理器
mypath=left(sys(16),rat("\",sys(16)))   && 确定程序所在位置
set defa to (mypath)      &&设置当前路径
set path to data;form      &&指明路径
open database stuinfo      &&打开数据库
do form logo    &&运行登录界面
read events
quit