main.prg

物业收费管理软件

*******************
*模块名：主程序
*文件名：main.prg
*功能：系统主程序
*******************
clea all
close all
&&&&&全局变量&&&&&&
public lmsgsys
public lmsgtb
public rq
public cusername
lmsgtb="禹洲管理处"
lmsgsys="物业收费管理系统"
&&&&&&&&&&&&&&&&&& 
****系统初始化****
set talk off
set sysmenu off
set statu bar off
DO screeninit
ON SHUT do pexit
ON ERROR DO errorhand
SET MESSAGE TO
CLOSE DATABASES ALL
********************
_screen.Visible= .T.
do form flash.scx
DO FORM login.scx to pa
if pa
	DO getdate
	DO pcmenu.mpr
	DO FORM tool.scx
endif
read EVENTS