我的主程序:
Set Talk off
Set Escap off
*SET PROCEDURE TO MyFunction.PRG
*ON ERROR MyWriteShowErr(ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO(1)) &&捕获、写、显示错误
*ON ERROR DO Err.PRG With Error(), Message(), Message(1), Program(), Lineno(1) * 开始,程序错误处理
* 第一步,清理环境*****************************
Close All && 关闭所有工作区中打开的数据库、表和索引,并选择工作区 1。
Clear Menus && 从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、
&& 菜单和窗口的定义。 还从内存中删除所有用 DECLARE-ALL 注册
&& 的外部 Windows 32 位动态链接库 (.DLLS)。 * 关闭系统菜单
* 如果在发出 SET SYSMENU SAVE 命令之后修改了菜单系统,可以通过发出
* SET SYSMENU TO DEFAULT 命令来恢复前面的设置。
Set Sysmenu Save
Set Sysmenu Off &&* 在程序执行期间废止 Visual FoxPro 主菜单栏。
Set Sysmenu To
SET EXACT ON
* 第二步,设置环境
*Set Autosave On && * 退出Read时保存数据缓冲区内容
Set Carry Off &&* 使用 INSERT、APPEND 和 BROWSE 命令创建新记录时,不将当前记录数据复制到新记录中。
Set Confirm On &&* 指定是否可以用在文本框中键入最后一个字符的方法退出文本框。
Set Century on &&* 日期显示世纪部分
Set Date Ansi &&* 设置日期格式为"YY.MM.DD" 格式
Set Delete On &&* 不显示已经删除的记录
Set Multilocks On &&* 决定能否使用 LOCK ( )或 RLOCK ( ) 锁定多个记录。&& 网络编程专用
*Set Null On &&* 确定 ATLTER TABLE、CREATE TABLE 和 INSERT - SQL 命令如何处理 null 值。
*Set NullDisplay To '' &&* 指定当字段是空值(NUll)显示的文本为 ''
Set Safety Off &&* 改写已有文件之前不显示对话框
Set Status Bar Off &&* 移去图形状态栏。
SET OPTIMIZE ON
&&打开优化
SET DOHISTORY OFF
SET EXCLUSIVE ON
&&文件以独占有方式打开
* 第三步,设置你的程序路径
SET DEFAULT TO sys(5)+curdir()
&& 系统路径设置
SET PATH TO data,forms,help,icons,menus,progs,activex
* 第四步 初始化键盘
Capslock(.F.)
IMEStatus(0)
Insmode(.T.)
Numlock(.T.)
_VFP.Visible = .F.
PUBLIC
FormName,t_date
t_date=''
Do Form "ZFCG_dcbd.scx"
read event