main.prg

来自「用VF编写的中考信息管理系统」· PRG 代码 · 共 67 行

*-------------------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
*************************************