主菜单程序.prg

XX大学固定资产管理系统

*       *********************************************************
*       *                                                         
*       * 08/13/04           主菜单程序.PRG             21:29:30  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1b21a2bf4 OF _MSYSMENU PROMPT "系统工具(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1b21a2bf5 OF _MSYSMENU PROMPT "系统维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1b21a2bf6 OF _MSYSMENU PROMPT "系统帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1b21a2bf7 OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _1b21a2bf4 OF _MSYSMENU ACTIVATE POPUP 系统工具s
ON PAD _1b21a2bf5 OF _MSYSMENU ACTIVATE POPUP 系统维护w
ON PAD _1b21a2bf6 OF _MSYSMENU ACTIVATE POPUP 关于系统a
ON SELECTION PAD _1b21a2bf7 OF _MSYSMENU quit

DEFINE POPUP 系统工具s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统工具s PROMPT "系统表单(\<S)"
DEFINE BAR 2 OF 系统工具s PROMPT "条件查询(\<T)"
DEFINE BAR 3 OF 系统工具s PROMPT "单一查询(\<D)"
DEFINE BAR 4 OF 系统工具s PROMPT "分类统计(\<F)"
DEFINE BAR 5 OF 系统工具s PROMPT "资产录入(\<A)"
DEFINE BAR 6 OF 系统工具s PROMPT "分类明细(\<M)"
ON SELECTION BAR 1 OF 系统工具s do form main
ON SELECTION BAR 2 OF 系统工具s do form 高等学校固定资产登记卡
ON SELECTION BAR 3 OF 系统工具s do form 高等学校固定资产登记
ON SELECTION BAR 4 OF 系统工具s do form 分类统计
ON SELECTION BAR 5 OF 系统工具s do form 资产录入
ON SELECTION BAR 6 OF 系统工具s do form 分类明细表
DO FORM 系统背景

DEFINE POPUP 系统维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护w PROMPT "修改用户密码(\<X)"
DEFINE BAR 2 OF 系统维护w PROMPT "添加删除用户(\<N)"
ON SELECTION BAR 1 OF 系统维护w do form 修改密码
ON SELECTION BAR 2 OF 系统维护w do form 添加删除用户验证

DEFINE POPUP 关于系统a MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 关于系统a PROMPT "关于系统(\<A)"
ON SELECTION BAR 1 OF 关于系统a do form about