main.bak

vfp实现学籍管理系统,登录,验证,各管理子模快实用高效

CLEAR            &&清屏
CLEAR ALL        &&从内存中释放所有的内存变量
CLOSE ALL        &&关闭各种类型的文件

SET ESCAPE OFF   &&禁止运行的程序和命令在按 Esc 键后被中断
SET SAFETY OFF   &&指定在改写已有文件时不显示对话框
SET DELETE ON    &&使用范围子句处理记录的命令忽略标有删除标记的记录
SET SYSMENU OFF  &&在程序执行期间废止 Visual FoxPro 主菜单栏
RELEASE WINDOW "常用"    &&关闭常用工具栏

SET CENTURY ON    &&年份以四位显示
SET DATE TO ymd   &&日期格式为年、月、日
SET MARK TO "-"   &&指定日期分隔字符
SET HOURS TO 24   &&指定为 24-小时时间格式

_SCREEN.Visible=.t.
_SCREEN.Caption="05计专学生管理系统"  &&系统窗口标题
_SCREEN.Icon=".\dod.ico"      &&系统标题栏图标

*判断显示器当前分辨率
_SCREEN.Width=SYSMETRIC(1)        
_SCREEN.Height=SYSMETRIC(2)

*根据分辨率不同，为系统设置不同的背景图片
IF SYSMETRIC(1)>=1024
   _SCREEN.Picture=".\img\bj.jpg"
ELSE
   _SCREEN.Picture=".\img\bj.jpg"
ENDIF

DO FORM \face.scx    &&调用登录界面表单
On ShutDown do OnShutdown   &&退出系统时调用函数onshutdown() 
READ EVENTS                 &&建立事件循环           
On ShutDown       &&释放当前的On ShutDown命令

*按菜单的“关闭”按钮退出时，出现的提示框
FUNCTION OnShutdown()  
sel=MESSAGEBOX("真的要退出吗?",4+32+256,"提示")
IF sel=6  
  *SELECT 0
  *USE .\dbsystem\LOG     
  *GO BOTTOM
  *REPLACE 离开时间 WITH DATETIME()  &&退出系统时记录操作员退出时间
  CLOSE ALL
  CLEAR EVENTS    &&退出事件循环
  QUIT            &&结束当前 Visual FoxPro 工作期，并将控制权返回给操作系统
ENDIF
ENDFUNC