menumain.mpr

一个完整的FoxPro 6.0编写的医药管理系统

*       *********************************************************
*       *                                                         
*       * 06/20/2003           MENUMAIN.MPR             17:30:04  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * wgh                                                     
*       *                                                         
*       * 版权所有 (C) 2003 mr                                   
*       * 长春市人民大街8号                                       
*       * 长春市, 吉林  130051                                      
*       * china                                             
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0zc11iegl OF _MSYSMENU PROMPT "销售管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _0zc11iegn OF _MSYSMENU PROMPT "进货管理(\<K)" COLOR SCHEME 3 ;
	KEY ALT+K, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iegp OF _MSYSMENU PROMPT "库房管理(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iegr OF _MSYSMENU PROMPT "调货管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11ieh9 OF _MSYSMENU PROMPT "财务管理(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iehb OF _MSYSMENU PROMPT "帐目管理(\<Z)" COLOR SCHEME 3 ;
	KEY ALT+Z, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iehd OF _MSYSMENU PROMPT "基础信息管理(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iehf OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "" ;
	SKIP FOR purview>4
DEFINE PAD _0zc11iehg OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0zc11iegl OF _MSYSMENU ACTIVATE POPUP 销售管理g
ON PAD _0zc11iegn OF _MSYSMENU ACTIVATE POPUP 进货管理k
ON PAD _0zc11iegp OF _MSYSMENU ACTIVATE POPUP 库房管理q
ON PAD _0zc11iegr OF _MSYSMENU ACTIVATE POPUP 调货管理r
ON PAD _0zc11ieh9 OF _MSYSMENU ACTIVATE POPUP 财务管理c
ON PAD _0zc11iehb OF _MSYSMENU ACTIVATE POPUP 帐目管理z
ON PAD _0zc11iehd OF _MSYSMENU ACTIVATE POPUP 基础信息管
ON PAD _0zc11iehf OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _0zc11iehg OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 销售管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售管理g PROMPT "销售登记(\<O)" ;
	SKIP FOR pxsgl=.f.
DEFINE BAR 2 OF 销售管理g PROMPT "销售退货(\<T)" ;
	SKIP FOR pxsgl=.f.
DEFINE BAR 3 OF 销售管理g PROMPT "\-"
DEFINE BAR 4 OF 销售管理g PROMPT "销售报表(\<R)" ;
	SKIP FOR pxsgl=.f.
DEFINE BAR 5 OF 销售管理g PROMPT "\-"
DEFINE BAR 6 OF 销售管理g PROMPT "退出(\<X)" ;
	KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF 销售管理g do form yygl\form\xiaoshoudj
ON SELECTION BAR 2 OF 销售管理g do form yygl\form\xiaoshouth
ON SELECTION BAR 4 OF 销售管理g do form yygl\form\xiaoshoureports
ON SELECTION BAR 6 OF 销售管理g quit

DEFINE POPUP 进货管理k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货管理k PROMPT "入库登记" ;
	SKIP FOR pjhgl=.f.
DEFINE BAR 2 OF 进货管理k PROMPT "入库退货" ;
	SKIP FOR pjhgl=.f.
DEFINE BAR 3 OF 进货管理k PROMPT "\-"
DEFINE BAR 4 OF 进货管理k PROMPT "入库报表" ;
	SKIP FOR pjhgl=.f.
ON SELECTION BAR 1 OF 进货管理k do form yygl\form\rukudj
ON SELECTION BAR 2 OF 进货管理k do form yygl\form\rukuth
ON SELECTION BAR 4 OF 进货管理k do form yygl\form\rukureports

DEFINE POPUP 库房管理q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库房管理q PROMPT "库存查询" ;
	SKIP FOR pkfgl=.f.
DEFINE BAR 2 OF 库房管理q PROMPT "库存盘点" ;
	SKIP FOR pkfgl=.f.
DEFINE BAR 3 OF 库房管理q PROMPT "\-"
DEFINE BAR 4 OF 库房管理q PROMPT "库存修改" ;
	SKIP FOR pkfgl=.f.
DEFINE BAR 5 OF 库房管理q PROMPT "\-"
DEFINE BAR 6 OF 库房管理q PROMPT "库存报表" ;
	SKIP FOR pkfgl=.f.
ON SELECTION BAR 1 OF 库房管理q do form yygl\form\kcquery
ON SELECTION BAR 2 OF 库房管理q do form yygl\form\kcpandian
ON SELECTION BAR 4 OF 库房管理q do form yygl\form\kcmodify
ON SELECTION BAR 6 OF 库房管理q do form yygl\form\kcreports

DEFINE POPUP 调货管理r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 调货管理r PROMPT "调货登记" ;
	SKIP FOR pthgl=.f.
DEFINE BAR 2 OF 调货管理r PROMPT "\-"
DEFINE BAR 3 OF 调货管理r PROMPT "调货查询" ;
	SKIP FOR pthgl=.f.
ON SELECTION BAR 1 OF 调货管理r do form yygl\form\tiaohuodj
ON SELECTION BAR 3 OF 调货管理r do form yygl\form\tiaohuoquery

DEFINE POPUP 财务管理c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 财务管理c PROMPT "收款单" ;
	SKIP FOR pcwgl=.f.
DEFINE BAR 2 OF 财务管理c PROMPT "收款查询" ;
	SKIP FOR pcwgl=.f.
DEFINE BAR 3 OF 财务管理c PROMPT "\-"
DEFINE BAR 4 OF 财务管理c PROMPT "付款单" ;
	SKIP FOR pcwgl=.f.
DEFINE BAR 5 OF 财务管理c PROMPT "付款查询" ;
	SKIP FOR pcwgl=.f.
ON SELECTION BAR 1 OF 财务管理c do form yygl\form\shoukdj
ON SELECTION BAR 2 OF 财务管理c do form yygl\form\shoukquery
ON SELECTION BAR 4 OF 财务管理c do form yygl\form\fukdj
ON SELECTION BAR 5 OF 财务管理c do form yygl\form\fukquery

DEFINE POPUP 帐目管理z MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帐目管理z PROMPT "财务结帐" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 2 OF 帐目管理z PROMPT "当月结帐" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 3 OF 帐目管理z PROMPT "\-"
DEFINE BAR 4 OF 帐目管理z PROMPT "销售查询统计" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 5 OF 帐目管理z PROMPT "入库查询统计" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 6 OF 帐目管理z PROMPT "销售退货查询" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 7 OF 帐目管理z PROMPT "入库退货查询" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 8 OF 帐目管理z PROMPT "\-"
DEFINE BAR 9 OF 帐目管理z PROMPT "财务报表" ;
	SKIP FOR pzmgl=.f.
DEFINE BAR 10 OF 帐目管理z PROMPT "查询月报表" ;
	SKIP FOR pzmgl=.f.
ON SELECTION BAR 1 OF 帐目管理z do form yygl\form\cwjz
ON SELECTION BAR 2 OF 帐目管理z ;
	DO _0zc11ieim ;
	IN LOCFILE("YYGL\MENU\MENUMAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENUMAIN?")
ON SELECTION BAR 4 OF 帐目管理z do form yygl\form\xiaoshouquery
ON SELECTION BAR 5 OF 帐目管理z do form yygl\form\rukuquery
ON SELECTION BAR 6 OF 帐目管理z do form yygl\form\xsthquery
ON SELECTION BAR 7 OF 帐目管理z do form yygl\form\rkthquery
ON SELECTION BAR 9 OF 帐目管理z do form yygl\form\caiwureports
ON SELECTION BAR 10 OF 帐目管理z do form yygl\form\yuereports

DEFINE POPUP 基础信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基础信息管 PROMPT "药品信息" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 2 OF 基础信息管 PROMPT "\-"
DEFINE BAR 3 OF 基础信息管 PROMPT "员工信息" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 4 OF 基础信息管 PROMPT "\-"
DEFINE BAR 5 OF 基础信息管 PROMPT "客户信息" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 6 OF 基础信息管 PROMPT "\-"
DEFINE BAR 7 OF 基础信息管 PROMPT "供应商信息" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 8 OF 基础信息管 PROMPT "\-"
DEFINE BAR 9 OF 基础信息管 PROMPT "仓库基本信息" ;
	SKIP FOR pjcinfo=.f.
ON SELECTION BAR 1 OF 基础信息管 do form yygl\form\ypmanage
ON SELECTION BAR 3 OF 基础信息管 do form yygl\form\ygmanage
ON SELECTION BAR 5 OF 基础信息管 do form yygl\form\khmanage
ON SELECTION BAR 7 OF 基础信息管 do form yygl\form\gysmanage
ON SELECTION BAR 9 OF 基础信息管 do form yygl\form\storageinfo

DEFINE POPUP 系统管理s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理s PROMPT "操作员管理" ;
	SKIP FOR psysgl=.f.
DEFINE BAR 2 OF 系统管理s PROMPT "权限管理" ;
	SKIP FOR psysgl=.f.
DEFINE BAR 3 OF 系统管理s PROMPT "\-"
DEFINE BAR 4 OF 系统管理s PROMPT "数据备份" ;
	SKIP FOR psysgl=.f.
DEFINE BAR 5 OF 系统管理s PROMPT "数据恢复" ;
	SKIP FOR psysgl=.f.
ON SELECTION BAR 1 OF 系统管理s do form yygl\form\modifypassword
ON SELECTION BAR 2 OF 系统管理s do form yygl\form\fpurview
ON SELECTION BAR 4 OF 系统管理s do form yygl\form\databasebak
ON SELECTION BAR 5 OF 系统管理s do form yygl\form\databasebackup

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助"
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "关于本软件..."
ON SELECTION BAR 1 OF 帮助h do form yygl\form\help
ON SELECTION BAR 3 OF 帮助h do form yygl\form\about


*       *********************************************************
*       *                                                         
*       * _0ZC11IEIM  ON SELECTION BAR 2 OF POPUP 帐目管理z       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENUMAIN.MPR,            Record:   47       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 帐目管理z       
*       * Prompt:     当月结帐                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0zc11ieim
use database\tabyjcsh
if empty(开始日期) AND empty(结束日期)
   do form form\yuejie
else
   do form form\yuejie1
endif