main.prg

用vfp语言设计的学籍管理系统源码

clear
 local lclear
 local lcsys16,mypath
 lcsys16=sys(16)
 mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
 set defa to (mypath)
 set path to form,data,frx

 set clear on
 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
 
  DD = CDOW(DATE())
 DO CASE 
 CASE DD = 'Monday'
    DDD = '星期一'
 CASE DD = 'Tuesday'
    DDD = '星期二'
 CASE DD = 'Wednesday'
    DDD = '星期三'
 CASE DD = 'Thursday'
    DDD = '星期四'
 CASE DD = 'Friday'
    DDD = '星期五'
 CASE DD = 'Saturday'
    DDD = '星期六'
 CASE DD = 'Sunday'
    DDD = '星期日'
 ENDCASE 

 

 rele wind "standard"
 release windows "常用"
 deactivate windows "项目管理器 - 项目1"
 zoom window screen max
 modify window screen title "学籍管理系统"+space(30)+"今天是 ";
    +str(year(date()),4)+"年"+str(month(date()),2)+"月"+str(day(date()),2)+"日 "+DDD

  _screen.addobject('BackPict','image')   
    _screen.lockscreen=.f.   
  _screen.BackPict.top=0   
  _screen.BackPict.left=0   
  _screen.BackPict.width=_screen.width   
  _screen.BackPict.height=_screen.height   
  _screen.BackPict.visible=.t.   
  _screen.BackPict.stretch=2     &&1-居中     2-拉伸   
  _screen.BackPict.picture='a.jpg'   


 on shutdown do quit
on error do err.prg


with _screen      &&设定FoxPro主窗口属性
	.visible=.f.      &&设定主窗口不可见
endwith
&&执行启动画面（包括版权、版本、使用者等）


DO FORM login
open database studen_tdatabase
read event        &&占用进程