main.prg

来自「swgl商务管理系统」· PRG 代码 · 共 30 行

**设置运行环境
SET TALK OFF                  &&关闭命令显示
SET ESCAPE OFF                &&禁止运行的程序在按 Esc 键后被中断
SET EXCLUSIVE OFF             &&数据库表以共享方式打开
SET DELETED ON                &&过滤掉已带删除标记的记录
SET HELP ON                   &&当按下 F1 键后，显示帮助窗口
**SET HELP TO Mysoft_HELP.CHM   &&指定帮助文件
SET CONSOLE OFF               &&不将结果输出到活动的用户自定义窗口中
SET DATE ANSI                 &&设定日期的年份为 4 位数
SET CENTURY ON                &&指定日期表达式的显示格式为YY.MM.DD
SET SAFETY OFF                &&指定在改写已有的文件时不显示对话框
SET OPTIMIZE ON               
SET SYSMENU OFF               
SET STATUS BAR OFF            
With _Screen
   .Visible=.f.
   .WindowState=2
EndWith
Release Mymllj,Mytemp
Public Mymllj,Mytemp
Mymllj=Sys(5)+Sys(2003)
Mytemp=Mymllj+'\Data\Temp'
If !Directory('&Mytemp.')
   MD '&Mytemp.'
Endif
Set Default to (Mymllj)
Set Path to "&Mymllj.","&Mymllj.\Class","&Mymllj.\Data","&Mymllj.\Form","&Mymllj.\Graph","&Mymllj.\Icon",,"&Mymllj.\Menu""&Mymllj.\Prg","&Mymllj.\Report"

Do Form '&Mymllj.\Form\Begin' NoShow
Read Events