主文件.prg

来自「一个非常不错的个人名片管理软件」· PRG 代码 · 共 42 行

*:******************************************************************************
*:
*: 过程文件D:\VFP98\主文件.PRG
*:
*:	王兴东
*:	天津电力专科学校
*:	
*:	天津
*:	
*:	300072
*:	中国
*:	
*:	
*:	
*:	
*:	
*:	
*:
*: 使用 Visual FoxPro 格式的向导版本生成文档  .05
*:******************************************************************************
*:   主文件
SET TALK OFF     &&关闭对话模式
SET SAFETY OFF
SET DELE ON      &&不处理已删除的记录
SET CENTURY ON
SET DATE TO ANSI
SET MULTILOCKS ON
*CLOSE ALL
*关闭常用工具栏
RELEASE WINDOW 常用
ZOOM WINDOW SCREEN MAX    &&主窗口最大化
*_SCREEN.Controlbox = .F.  &&去掉主窗口控制按钮
*关闭项目管理器
DEACTIVATE WINDOW  "项目管理器"
&&确定程序所在的位置
mypath = LEFT(SYS(16),RAT("\",SYS(16)))
SET DEFA TO (mypath)  &&设置当前路径
SET PATH TO DATA;FORMS;Reports   &&指明路径
OPEN DATABASE 名片  &&打开数据库
DO FORM 名片   &&运行“名片”表单
READ EVENTS