一、如何制作主程序
主程序作为所编写程序的一个入口,其首先一个作用就是要设置程序的运行 环境、定义变量、常量,然后进行其他的一些调用,如:设计菜单或登录画面等。 下面的这个程序段给出了一个主程序设计的示例。
**设置运行环境 SET TALK OFF &;&;关闭命令显示 SET ESCAPE OFF &;&;禁止运行的程序在按 Esc 键后被中断 SET EXCLUSIVE OFF &;&;允许网络上的任何用户共享和修改
网络上打开的表 SET HELP ON &;&;当按下 F1 键或在命令窗口中执行 HELP 命令时,显示帮 助窗口 SET HELP TO Comp_Help.CHM &;&;指定帮助文件 SET CONSOLE ON &;&;将所有的结果输出到 Visual FoxPro 主窗口或活动的用户自 定义窗口中 SET DATE ANSI &;&;指定日期表达式的显示格式为 yy.mm.dd SET CENTURY ON &;&;设定日期中的年为 4 位数 SET SAFETY OFF &;&;指定在改写已有文件时不显示对话框 SET STATUS BAR ON &;&;打开 Visual FoxPro 状态栏 SET COLOR TO &;&;设置颜色为默认状态 SET SYSMENU OFF &;&;关闭系统菜单 SET MESSAGE TO "" &;&;指定在 Visual FoxPro 状态栏中显示的内容 CLEAR &;&;清除主窗口 CLEAR ALL &;&;清除变量 ON ERROR DO Err.PRG ; WITH ERROR(), ; MESSAGE(), ; MESSAGE(1), ; PROGRAM(), ; LINENO(1) &;&;指定当出现错误时执行的命令 ON SHUTDOWN DO QuitAll.PRG &;&;指定退出 Visual FoxPro 时要执行的命令 ****开始进行程序的事务处理操作 DO FORM Begin READ EVENTS DO FORM Login READ EVENTS WITH _Screen .Visible=.T. .Closable=.T. .ControlBox=.T. .MaxButton=.T. &;&;运行版权画面表单 Begin &;&;开始事务处理,第 1 个 READ EVENTS &;&;打开登录表单 &;&;开始事务处理,第 2 个 READ EVENTS &;&;设置 Visual FoxPro 主表单为可见、最大化、标题、图标
.MinButton=.T. .Movable=.T. .Top=0 .Left=0 .WindowState=2 .Caption="专家库
管理系统--操作员"+Nowuser .Icon='MainFrm.ico' ENDWITH PUBLIC tz_gj,ryzl,xtzd,dy,bfhf,about &;&;定义表单名称全局变量 *开始定义主菜单,注意:在 Visual FoxPro 7.0 中支持在菜单项中加入图标 SET SYSMENU TO SET SYSMENU AUTOMATIC DEFINE PAD _0lw07no93 OF _MSYSMENU PROMPT "文件(\
管理" DEFINE BAR 3 OF 文件 f PROMPT "打印(\ PICTURE "zhj24.ico" ; MESSAGE "关闭系统" ON SELECTION BAR 1 OF ON SELECTION BAR 2 OF ON SELECTION BAR 3 OF ON SELECTION BAR 4 OF ON SELECTION BAR 6 OF
文件 f do form ryzl name ryzl 文件 f do form xtzd name xtzd 文件 f do for