zcx.prg

本成绩管理系统由foxpro编写,可在VF下运行-the wage management system prepared by foxpro can run in VF

CLEAR  ALL
CLOSE  ALL
SET  SYSMENU  OFF                &&关闭主菜单栏
SET  SYSMENU  TO                 &&废止主菜单栏
SET  STATUS  BAR  OFF
SET  CARRY  ON
SET  EXACT  ON
SET  ANSI  OFF
SET  DELETED  ON
SET  OPTIMIZE  ON
SET  CENTURY  ON
SET  CURRENCY  LEFT
SET  DATE  TO  ANSI
SET  TALK  OFF
SET  SAFETY  OFF
PUBLIC  dltc                       &&定义登录状态逻辑变量
lconshutdown="xtgb()"
ON  SHUTDOWN  &lconshutdown  &&试图退出系统时调用自定义的系统关闭函数
SET  CLASSLIB  TO  LIBS\xtlk                &&打开自定义的类库,创建类实例
_SCREEN.CAPTION="学生档案管理系统"
_SCREEN.ADDOBJECT("FM","TP")          &&创建一个图片对象的实例
_SCREEN.FM.WIDTH=_SCREEN.WIDTH     &&设置图片尺寸
_SCREEN.FM.HEIGHT=_SCREEN.HEIGHT    &&设置图片尺寸
_SCREEN.FM.VISIBLE=.T.                  &&显示图片
_SCREEN.ADDOBJECT("GJ","XTGJ")        &&创建工具栏实例
_SCREEN.GJ.VISIBLE=.T.                  &&显示自定义的工具栏
_SCREEN.WINDOWSTATE=2
_SCREEN.MINBUTTON=.F.
_SCREEN.MAXBUTTON=.F.
_SCREEN.SHOWTIPS=.T.
_SCREEN.ADDOBJECT("LBL01","LABEL")
_SCREEN.ADDOBJECT("LBL02","LABEL")
_SCREEN.ADDOBJECT("LBL03","LABEL")
_SCREEN.LBL01.AUTOSIZE=.T.
_SCREEN.LBL02.AUTOSIZE=.T.
_SCREEN.LBL03.AUTOSIZE=.T.
_SCREEN.LBL01.VISIBLE=.T.
_SCREEN.LBL02.VISIBLE=.T.
_SCREEN.LBL03.VISIBLE=.T.
_SCREEN.LBL01.BACKSTYLE=0
_SCREEN.LBL02.BACKSTYLE=0
_SCREEN.LBL03.BACKSTYLE=0
_SCREEN.LBL01.FONTNAME="楷体_GB2312"
_SCREEN.LBL02.FONTNAME="楷体_GB2312"
_SCREEN.LBL03.FONTNAME="楷体_GB2312"
_SCREEN.LBL01.TOP=80
_SCREEN.LBL02.TOP=180
_SCREEN.LBL03.TOP=210
_SCREEN.LBL01.LEFT=(_SCREEN.WIDTH-_SCREEN.LBL01.WIDTH)/2-150
_SCREEN.LBL02.LEFT=(_SCREEN.WIDTH-_SCREEN.LBL02.WIDTH)/2-100
_SCREEN.LBL03.LEFT=(_SCREEN.WIDTH-_SCREEN.LBL03.WIDTH)/2-100
_SCREEN.LBL01.FONTSIZE=34
_SCREEN.LBL02.FONTSIZE=14
_SCREEN.LBL03.FONTSIZE=14
_SCREEN.LBL01.CAPTION="学生档案管理"
_SCREEN.LBL02.CAPTION="设计：黄河软件设计组"
_SCREEN.LBL03.CAPTION="版权所有(S) 2001"
_SCREEN.LBL01.BACKCOLOR=RGB(64,128,128)
_SCREEN.LBL02.BACKCOLOR=RGB(64,128,128)
_SCREEN.LBL03.BACKCOLOR=RGB(64,128,128)
_SCREEN.LBL01.FORECOLOR=RGB(255,255,255)
_SCREEN.LBL02.FORECOLOR=RGB(255,255,0)
_SCREEN.LBL03.FORECOLOR=RGB(255,255,0)
DO  FORM  FRMS\frm_login  TO  cUser  &&创建保存表单返回值的变量
IF  EMPTY(cUser)                 &&用户密码为空值
dltc=.T.
xtgb()                        &&调用关闭系统的自定义函数
CLEA  ALL
CLOSE  ALL
ON  SHUTDOWN
ENDIF