mymenu.mpr

不俄方体会人挺好同一话题依然教育局天涯海角天涯教育局

*       *********************************************************
*       *                                                         
*       * 09/18/07             MYMENU.MPR               16:44:00  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Johney                                                  
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _26m0zv5kd OF _MSYSMENU PROMPT "基本设置" COLOR SCHEME 3
DEFINE PAD _26m0zv5ke OF _MSYSMENU PROMPT "日常收支" COLOR SCHEME 3
DEFINE PAD _26m0zv5kf OF _MSYSMENU PROMPT "银行往来" COLOR SCHEME 3
DEFINE PAD _26m0zv5kg OF _MSYSMENU PROMPT "资产账户" COLOR SCHEME 3
DEFINE PAD _26m0zv5kh OF _MSYSMENU PROMPT "数据统计" COLOR SCHEME 3
DEFINE PAD _26m0zv5ki OF _MSYSMENU PROMPT "用户管理" COLOR SCHEME 3
DEFINE PAD _26m0zv5kj OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _26m0zv5kd OF _MSYSMENU ACTIVATE POPUP 日常收支
ON PAD _26m0zv5ke OF _MSYSMENU ACTIVATE POPUP 银行往来
ON PAD _26m0zv5kf OF _MSYSMENU ACTIVATE POPUP _1a40sc0t1
ON PAD _26m0zv5kg OF _MSYSMENU ACTIVATE POPUP 资产账户
ON PAD _26m0zv5kh OF _MSYSMENU ACTIVATE POPUP 基本设置
ON PAD _26m0zv5ki OF _MSYSMENU ACTIVATE POPUP 用户管理
ON PAD _26m0zv5kj OF _MSYSMENU 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 "家庭成员录入"
DEFINE BAR 4 OF 日常收支 PROMPT "家庭成员浏览"
DEFINE BAR 5 OF 日常收支 PROMPT "收支分类设置"
DEFINE BAR 6 OF 日常收支 PROMPT "\-"
DEFINE BAR 7 OF 日常收支 PROMPT "退出系统"
ON SELECTION BAR 1 OF 日常收支 do form [Forms\银行信息录入]
ON SELECTION BAR 2 OF 日常收支 do form [Forms\银行信息浏览]
ON SELECTION BAR 3 OF 日常收支 do form [Forms\家庭成员录入]
ON SELECTION BAR 4 OF 日常收支 do form [Forms\家庭成员浏览]
ON SELECTION BAR 5 OF 日常收支 do form [Forms\收支分类设置]
ON SELECTION BAR 7 OF 日常收支 QUIT

DEFINE POPUP 银行往来 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 银行往来 PROMPT "日常收支录入"
DEFINE BAR 2 OF 银行往来 PROMPT "日常收支浏览"
ON SELECTION BAR 1 OF 银行往来 do form [Forms\日常收支录入]
ON SELECTION BAR 2 OF 银行往来 do form [Forms\日常收支浏览]

DEFINE POPUP _1a40sc0t1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1a40sc0t1 PROMPT "银行交易录入"
DEFINE BAR 2 OF _1a40sc0t1 PROMPT "银行交易浏览"
ON SELECTION BAR 1 OF _1a40sc0t1 do form [Forms\银行交易录入]
ON SELECTION BAR 2 OF _1a40sc0t1 do form [Forms\银行交易浏览]

DEFINE POPUP 资产账户 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 资产账户 PROMPT "资产账户录入"
DEFINE BAR 2 OF 资产账户 PROMPT "资产账户浏览"
ON SELECTION BAR 1 OF 资产账户 do form [Forms\资产账户录入]
ON SELECTION BAR 2 OF 资产账户 do form [Forms\资产账户浏览]

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 [Forms\统计_日常收支]
ON SELECTION BAR 2 OF 基本设置 DO FORM [Forms\统计_银行交易]
ON SELECTION BAR 3 OF 基本设置 DO FORM [Forms\统计_家庭资产]

DEFINE POPUP 用户管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 用户管理 PROMPT "增加用户"
DEFINE BAR 2 OF 用户管理 PROMPT "修改密码"
ON SELECTION BAR 1 OF 用户管理 Do Form [Forms\增加用户]
ON SELECTION BAR 2 OF 用户管理 Do Form [Forms\修改密码]

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于..."
ON SELECTION BAR 1 OF 帮助 Do Form [Forms\关于]