mymenu.mpr

tsxs.app图书管理系统 tsxs.app图书管理系统 tsxs.app图书管理系统

*       *********************************************************
*       *                                                         
*       * 08/06/04             MYMENU.MPR               01:19:12  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 张桢                                                    
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 山西, 山西  046000                                        
*       * 山西                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1av02tvah OF _MSYSMENU PROMPT "销售管理" COLOR SCHEME 3
DEFINE PAD _1av02tvai OF _MSYSMENU PROMPT "系统设置" COLOR SCHEME 3
DEFINE PAD _1av02tvaj OF _MSYSMENU PROMPT "结束任务" COLOR SCHEME 3
ON PAD _1av02tvah OF _MSYSMENU ACTIVATE POPUP 销售管理
ON PAD _1av02tvai OF _MSYSMENU ACTIVATE POPUP 系统设置
ON PAD _1av02tvaj 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 销售管理 frmmain.frmsale.show
ON SELECTION BAR 3 OF 销售管理 do form frmstore
ON SELECTION BAR 5 OF 销售管理 do form frminfo
ON SELECTION BAR 7 OF 销售管理 do form frmquery

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 1 OF 系统设置 do form frmsysset
ON SELECTION BAR 3 OF 系统设置 do form frmuser
ON SELECTION BAR 5 OF 系统设置 do form frmabout

DEFINE POPUP 结束任务 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 结束任务 PROMPT "退出系统"
ON SELECTION BAR 1 OF 结束任务 clear event