main.prg

一个写字楼管理系统,包括房号,剩余租期,剩余房间,楼层,收租人等,非常实用

set talk off 
set safe off
set stat off
set dele on 
set cent on
set date to ansi
set sysmenu off  
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form
open database workhouse 
public cmima,nhere,yzj,fjh,zlqk
nhere=1
yzj=0.00
fjh=""
zlqk=""
if file('mimafile')
  restore from mimafile addi
  cmima=.t.
else
  cmima=.f.
endif
_screen.visible=.f.
do form login
read events
_screen.visible=.t.
do mainmenu.mpr
close all
modify window screen title "写字楼管理系统"
_SCREEN.picture="m0028.jpg"
zoom window screen max 
release window 常用,项目管理器,布局,表单控件,命令
read events
quit