main.prg

XX大学固定资产管理系统

set talk off    &&关闭对话模式
set safe off    &&文件覆盖时不发出警告
set stat off    &&关闭字符型状态行
set dele on     &&不处理已删除的记录
set cent on     &&日期以完整的格式显示
set deleted on
SET SYSMENU OFF
SET SYSMENU TO
SET SAFETY OFF
SET ESCAPE ON
SET EXCLUSIVE on
set status bar off
set talk off
set safety off
set century on
clea all
close all    &&关闭所有文件，并回到第一工作区.
_SCREEN.CAPTION="高等学校固定资产登记管理系统"
_SCREEN.CLOSABLE = .F.
_SCREEN.CONTROLBOX = .T.
_SCREEN.MAXBUTTON = .T.
_SCREEN.MINBUTTON = .T.
_SCREEN.MOVABLE = .T.
_SCREEN.WINDOWSTATE = 2


mypath=left(sys(16),rat("\",sys(16)))  &&确定当前路径
set default to (mypath)  &&默认路径
set path to icon,picture &&可查找路径

****
do form logo
*****
read events   &&启动所以已定义的控制并读取事件,如果没有此命令，程序将一闪而过.
CLEAR EVENTS
_SCREEN.CAPTION="Microsoft Visual Foxpro"
_SCREEN.CLOSABLE=.T.
_SCREEN.CONTROLBOX=.T.
_SCREEN.MAXBUTTON=.T.
_SCREEN.MINBUTTON=.T.
set sysmenu to default
set sysmenu on
set status bar on
set talk on
set safe on
set century off
close all
clear all
return  &&因有read events,暂时不执行quit命令,只有在执行clear event命令后才执行.
quit 	&& 退出vfp