zhumenu.mpr

客户管理系统 Visual FoxPro 6.0

*       *********************************************************
*       *                                                         
*       * 03/02/08             ZHUMENU.MPR              16:51:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2ba1057a0 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY CTRL+F, "CTRL+F"
DEFINE PAD _2ba1057a1 OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY CTRL+E, "CTRL+E"
DEFINE PAD _2ba1057a2 OF _MSYSMENU PROMPT "数据录入(\<D)" COLOR SCHEME 3 ;
	KEY CTRL+D, "CTRL+D"
DEFINE PAD _2ba1057a3 OF _MSYSMENU PROMPT "信息查询(\<I)" COLOR SCHEME 3 ;
	KEY CTRL+I, "CTRL+I"
DEFINE PAD _2ba1057a4 OF _MSYSMENU PROMPT "报表输出(\<B)" COLOR SCHEME 3 ;
	KEY CTRL+B, "CTRL+B"
DEFINE PAD _2ba1057a5 OF _MSYSMENU PROMPT "系统维护(\<M)" COLOR SCHEME 3 ;
	KEY CTRL+M, "CTRL+M"
DEFINE PAD _2ba1057a6 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY CTRL+Q, "CTRL+Q"
DEFINE PAD _2ba1057a7 OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY CTRL+H, "CTRL+H"
ON PAD _2ba1057a0 OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _2ba1057a1 OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _2ba1057a2 OF _MSYSMENU ACTIVATE POPUP 数据录入d
ON PAD _2ba1057a3 OF _MSYSMENU ACTIVATE POPUP 信息查询i
ON PAD _2ba1057a4 OF _MSYSMENU ACTIVATE POPUP 报表输出b
ON PAD _2ba1057a5 OF _MSYSMENU ACTIVATE POPUP 系统维护m
ON SELECTION PAD _2ba1057a6 OF _MSYSMENU ;
	DO _2ba1057a8 ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON PAD _2ba1057a7 OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR 4 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR _mfi_pgset OF 文件f PROMPT "页面设置(\<U)..." ;
	MESSAGE "修改页面布局和打印机设置"
DEFINE BAR 8 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_quit OF 文件f PROMPT "退出(\<X)" ;
	MESSAGE "退出 Visual FoxPro"

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑e PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF 编辑e PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR 3 OF 编辑e PROMPT "\-"
DEFINE BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF 编辑e PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF 编辑e PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"

DEFINE POPUP 数据录入d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据录入d PROMPT "录入客户信息"
DEFINE BAR 2 OF 数据录入d PROMPT "打印客户信息"
DEFINE BAR 3 OF 数据录入d PROMPT "录入联系人信息"
DEFINE BAR 4 OF 数据录入d PROMPT "打印联系人信息"
DEFINE BAR 5 OF 数据录入d PROMPT "录入服务信息"
DEFINE BAR 6 OF 数据录入d PROMPT "打印服务信息"
ON SELECTION BAR 1 OF 数据录入d DO FORM 录入客户信息
ON SELECTION BAR 2 OF 数据录入d ;
	DO _2ba1057a9 ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 3 OF 数据录入d DO FORM 录入联系人信息
ON SELECTION BAR 4 OF 数据录入d ;
	DO _2ba1057aa ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 5 OF 数据录入d DO FORM 录入服务信息
ON SELECTION BAR 6 OF 数据录入d ;
	DO _2ba1057ab ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 信息查询i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息查询i PROMPT "查询部门电话"
DEFINE BAR 2 OF 信息查询i PROMPT "查询客户"
DEFINE BAR 3 OF 信息查询i PROMPT "查询区号邮编"
DEFINE BAR 4 OF 信息查询i PROMPT "查询联系人"
ON SELECTION BAR 1 OF 信息查询i DO FORM 查询部门电话
ON BAR 2 OF 信息查询i ACTIVATE POPUP 查询客户
ON SELECTION BAR 3 OF 信息查询i DO FORM 查询区号邮编
ON BAR 4 OF 信息查询i ACTIVATE POPUP 查询联系人

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 1 OF 查询客户 DO FORM 客户编号查询
ON SELECTION BAR 2 OF 查询客户 DO FORM 联系人查询
ON SELECTION BAR 3 OF 查询客户 DO FORM 电话查询

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 1 OF 查询联系人 DO FORM 查询联系人
ON SELECTION BAR 2 OF 查询联系人 DO FORM 查询姓名
ON SELECTION BAR 3 OF 查询联系人 DO FORM 查询生日

DEFINE POPUP 报表输出b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表输出b PROMPT "客户信息"
DEFINE BAR 2 OF 报表输出b PROMPT "服务信息"
DEFINE BAR 3 OF 报表输出b PROMPT "联系人信息"
DEFINE BAR 4 OF 报表输出b PROMPT "区号邮编"
ON SELECTION BAR 1 OF 报表输出b ;
	DO _2ba1057ac ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 2 OF 报表输出b ;
	DO _2ba1057ad ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 3 OF 报表输出b ;
	DO _2ba1057ae ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")
ON SELECTION BAR 4 OF 报表输出b ;
	DO _2ba1057af ;
	IN LOCFILE("源文件\ZHUMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHUMENU?")

DEFINE POPUP 系统维护m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护m PROMPT "修改密码"
DEFINE BAR 2 OF 系统维护m PROMPT "添加人员"
ON SELECTION BAR 1 OF 系统维护m DO FORM 密码修改
ON SELECTION BAR 2 OF 系统维护m DO FORM 添加人员

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_hpsch OF 帮助h PROMPT " 帮助主题(\<V)" ;
	KEY F1, "F1" ;
	MESSAGE "以输入的关键字寻找帮助主题"
DEFINE BAR _mst_about OF 帮助h PROMPT "关于 (\<A)..." ;
	MESSAGE "显示 Visual FoxPro 的版本及版权信息"


*       *********************************************************
*       *                                                         
*       * _2BA1057A8  ON SELECTION PAD                            
*       *