ex_main.prg

来自「VF程序设计电子课件 VF程序设计电子课件」· PRG 代码 · 共 15 行

CLEAR    					&&清屏
PUBLIC yes
yes=.F.
SET TALK OFF
SET DATE TO YMD
SET CENT ON
SET DEFAULT TO  E:\cjgl    	&&设置默认数据文件搜索路径, 也可通过home()设置动态路径。
DO FORM EX_Login   		    &&执行主控菜单
READ EVENTS 				&&启动事件循环
IF yes
	DO FORM EX_ED   		
ENDIF
CLOSE ALL    				&&关闭所有文件
RETURN