main.prg

来自「这是一个医院管理系统」· PRG 代码 · 共 33 行

close all
set sysmenu off
set sysmenu to
set status bar off
set notify off
set palette off
set bell on
set escape on
set keycomp on
set carry on
set confirm on
set exact on
set near on
set ansi off
set deleted on
set optimize on
set refresh to 0,5
set odometer to 100
set blocksize to 64
set sysformats off
set decimals to 2
set fdow to 1
set fweek to 2
set mark to ','
set talk off
set safety off
_screen.picture="E:\医院管理系统\tupian\ww.jpg"
_screen.caption="医院管理系统"
_screen.movable=.f.
_screen.windowstate=2
_screen.mdiform = .t.
do form e:\医院管理系统\表单1.scx
 read events