主文件.bak

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

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