menu.mpr

关于一个电话号码管理的软件。它能有效将我们身边的电话记录在案共能方便查询。

*       *********************************************************
*       *                                                         
*       * 01/27/04              MENU.MPR                14:34:21  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _15j0v8fhe OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _15j0v8fhf OF _MSYSMENU PROMPT "查看电话簿" COLOR SCHEME 3
DEFINE PAD _15j0v8fhg OF _MSYSMENU PROMPT "新增电话记录" COLOR SCHEME 3
DEFINE PAD _15j0v8fhh OF _MSYSMENU PROMPT "报表" COLOR SCHEME 3
DEFINE PAD _15j0v8fho OF _MSYSMENU PROMPT "关于" COLOR SCHEME 3
DEFINE PAD _15j0v8fhp OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _15j0v8fhe OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD _15j0v8fhf OF _MSYSMENU ACTIVATE POPUP 查看电话簿
ON PAD _15j0v8fhg OF _MSYSMENU ACTIVATE POPUP 新增电话记
ON PAD _15j0v8fhh OF _MSYSMENU ACTIVATE POPUP 报表
ON PAD _15j0v8fho OF _MSYSMENU ACTIVATE POPUP 关于
ON PAD _15j0v8fhp OF _MSYSMENU ACTIVATE POPUP 帮助

DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_open OF 文件 PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR 2 OF 文件 PROMPT "\-"
DEFINE BAR _mfi_import OF 文件 PROMPT "导入(\<I)..." ;
	MESSAGE "导入 Visual FoxPro 文件或其他应用程序的文件"
DEFINE BAR 4 OF 文件 PROMPT "\-"
DEFINE BAR _mfi_export OF 文件 PROMPT "导出(\<E)..." ;
	MESSAGE "将 Visual FoxPro 文件导出到其他应用程序的文件中"
DEFINE BAR 6 OF 文件 PROMPT "\-"
DEFINE BAR 7 OF 文件 PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"
DEFINE BAR 8 OF 文件 PROMPT "------"
ON SELECTION BAR 7 OF 文件 quit

DEFINE POPUP 查看电话簿 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查看电话簿 PROMPT "\-"
DEFINE BAR 2 OF 查看电话簿 PROMPT "电话簿查询"
DEFINE BAR 3 OF 查看电话簿 PROMPT "\-"
DEFINE BAR 4 OF 查看电话簿 PROMPT "电话簿一览"
DEFINE BAR 5 OF 查看电话簿 PROMPT "\-"
ON SELECTION BAR 2 OF 查看电话簿 do form dhbs
ON SELECTION BAR 4 OF 查看电话簿 do form myl

DEFINE POPUP 新增电话记 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新增电话记 PROMPT "\-"
DEFINE BAR 2 OF 新增电话记 PROMPT "添加新的通讯录"
DEFINE BAR 3 OF 新增电话记 PROMPT "\-"
ON SELECTION BAR 2 OF 新增电话记 do form myz

DEFINE POPUP 报表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表 PROMPT "\-"
DEFINE BAR 2 OF 报表 PROMPT "电话簿页面预览"
DEFINE BAR 3 OF 报表 PROMPT "通讯录报表打印"
DEFINE BAR 4 OF 报表 PROMPT "\-"
ON SELECTION BAR 2 OF 报表 report form dzdhbb environment preview
ON SELECTION BAR 3 OF 报表 report form dzdhbb environment to printer

DEFINE POPUP 关于 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 关于 PROMPT "\-"
DEFINE BAR 2 OF 关于 PROMPT "大足教育系统电话簿编制说明"
DEFINE BAR 3 OF 关于 PROMPT "\-"
ON SELECTION BAR 2 OF 关于 do form about

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "\-"
DEFINE BAR 2 OF 帮助 PROMPT "关于电话簿"
DEFINE BAR 3 OF 帮助 PROMPT "\-"
DEFINE BAR 4 OF 帮助 PROMPT "使用说明"
DEFINE BAR 5 OF 帮助 PROMPT "\-"
DEFINE BAR 6 OF 帮助 PROMPT "技术支持网站：http://asp.6to23.com/cqdz"
DEFINE BAR 7 OF 帮助 PROMPT "\-"
ON SELECTION BAR 2 OF 帮助 do form about