main.mpr

电话卡管理软件

*       *********************************************************
*       *                                                         
*       * 08/22/03              MAIN.MPR                21:24:40  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _11319w40a OF _MSYSMENU PROMPT "数据管理" COLOR SCHEME 3 ;
	SKIP FOR qx1=0
DEFINE PAD _11319w40b OF _MSYSMENU PROMPT "报表系统" COLOR SCHEME 3 ;
	SKIP FOR qx6=0
DEFINE PAD _11319w40c OF _MSYSMENU PROMPT "查询系统" COLOR SCHEME 3 ;
	SKIP FOR qx11=0
DEFINE PAD _11319w40d OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3 ;
	SKIP FOR qx17=0
DEFINE PAD _11319w40e OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _11319w40a OF _MSYSMENU ACTIVATE POPUP 数据管理
ON PAD _11319w40b OF _MSYSMENU ACTIVATE POPUP 报表系统
ON PAD _11319w40c OF _MSYSMENU ACTIVATE POPUP 查询系统
ON PAD _11319w40d OF _MSYSMENU ACTIVATE POPUP 系统维护
ON SELECTION PAD _11319w40e OF _MSYSMENU quit

DEFINE POPUP 数据管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理 PROMPT "入库处理" ;
	SKIP FOR qx2=0
DEFINE BAR 2 OF 数据管理 PROMPT "出库处理" ;
	SKIP FOR qx3=0
DEFINE BAR 3 OF 数据管理 PROMPT "领卡单位销售" ;
	SKIP FOR qx4=0
DEFINE BAR 4 OF 数据管理 PROMPT "综合管理" ;
	SKIP FOR qx5=0
ON SELECTION BAR 1 OF 数据管理 do form 入库
ON SELECTION BAR 2 OF 数据管理 do form 出库
ON SELECTION BAR 3 OF 数据管理 do form 销售
ON SELECTION BAR 4 OF 数据管理 do form 综合管理

DEFINE POPUP 报表系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表系统 PROMPT "电话卡月报表" ;
	SKIP FOR qx7=0
DEFINE BAR 2 OF 报表系统 PROMPT "电话卡月汇总表" ;
	SKIP FOR qx8=0
DEFINE BAR 3 OF 报表系统 PROMPT "领卡单位月报表" ;
	SKIP FOR qx9=0
DEFINE BAR 4 OF 报表系统 PROMPT "领卡单位月汇总表" ;
	SKIP FOR qx10=0
ON SELECTION BAR 1 OF 报表系统 do form lins
ON SELECTION BAR 2 OF 报表系统 do form 电话卡月汇总表
ON SELECTION BAR 3 OF 报表系统 do form lins
ON SELECTION BAR 4 OF 报表系统 do form lins

DEFINE POPUP 查询系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询系统 PROMPT "库存查询" ;
	SKIP FOR qx12=0
DEFINE BAR 2 OF 查询系统 PROMPT "入库查询" ;
	SKIP FOR qx13=0
DEFINE BAR 3 OF 查询系统 PROMPT "领用查询" ;
	SKIP FOR qx14=0
DEFINE BAR 4 OF 查询系统 PROMPT "卡编码规则" ;
	SKIP FOR qx16=0
ON SELECTION BAR 1 OF 查询系统 do form 库存查询
ON SELECTION BAR 2 OF 查询系统 do form rkcx
ON SELECTION BAR 3 OF 查询系统 do form ckcx
ON SELECTION BAR 4 OF 查询系统 do form 卡编码规则

DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "密码修改" ;
	SKIP FOR qx18=0
DEFINE BAR 2 OF 系统维护 PROMPT "修改操作者" ;
	SKIP FOR qx19=0
DEFINE BAR 3 OF 系统维护 PROMPT "操作权限管理" ;
	SKIP FOR qx20=0
ON SELECTION BAR 1 OF 系统维护 do form 密码修改
ON SELECTION BAR 2 OF 系统维护 do form 修改操作者
ON SELECTION BAR 3 OF 系统维护 do form 操作权限管理