Close Databases All
_Screen.Visible=.F.
Set Date To YMD
Set Century On
Set Hours To 24
Set Safe Off
Set Talk Off
Set Sysmenu To
Set Exclusive On
Set Event On
IF .t.
DO FORM welcome &&此表单为欢迎界面,连着登录界面 在此表单click里 DO FORM
ELSE
MESSAGEBOX("您确实要退出系统吗?",4+32+256,"信息提示")
ENDIF
Do Form mainform &&此表单为主表单名
Read Events