main.prg

来自「固定资产管理系统」· PRG 代码 · 共 12 行

CLEAR ALL
PUBLIC cuser,isuser,tj,zcbh  &&声明四个全局全变量
DO setting.prg               &&执行程序,设置程序执行环境
DO FORM logon               &&执行登陆表单
IF isuser=.T.                &&判断是否是合法用户
   DO FORM logo
   DO FORM zcgl              &&如果是,执行主表单
   READ EVENTS
ELSE                         &&如果不是合法用户,退出程序
   CLEAR
   QUIT
ENDIF