*-------------------main.prg
set talk off
set esca off
set exact off
set excl Off
SET REPROCESS TO AUTOMATIC
*set help to exam_help.chm
set cons on
set date ansi
set score off
set safe off
set stat bar on
set cent on
set color to
set sysmenu off
set dele on
*set refresh to 1,1
set help on
clea
clear all
*ON ERROR DO err.PRG
on shutdown do quit1.prg
with _screen
.windowstate=1
.visible=.f.
endwith
*do form welcome
*read event
*do form main
*read event
with _screen
.visible=.t.
.closable=.t.
.controlbox=.t.
.maxbutton=.t.
.minbutton=.t.
.movable=.t.
.top=0
.left=0
.windowstate=2
.caption='中考信息管理系统'
*.picture='zhj6.bmp'
.icon='screen.ico'
endwith
*---------------------
*public sglr,dkjlr,tz_gj,cjfh,sjtj,bbdy,xxsz,kmsz,czysz,xgmm,sjcsh
do main.mpr
******************背景图片，你可以改动back800.jpg这个文件，选择图片
_screen.addobject("imge1","quit1")
read event
define class quit1 as image
top=-10
left=0
height=_screen.height-50
width=_screen.width-50
picture='zkgl.bmp'
backstyle=0
visible=.t.
* stretch=1
enddefine
*read event
*************************************
