📄 menumain.mpr
字号:
* *********************************************************
* *
* * 12/05/06 MENUMAIN.MPR 02:03:30
* *
* *********************************************************
* *
* * 關然佳(JohnsonKwan)
* *
* * 版权所有 (C) 2006 043信息管理班043024109
* * 汕尾職業技術學院
* * 汕尾市, 廣東 526600
* * china
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1yl04etod OF _MSYSMENU PROMPT "销售管理(\<G)" COLOR SCHEME 3 ;
KEY ALT+G, ""
DEFINE PAD _1yl04etoe OF _MSYSMENU PROMPT "进货管理(\<K)" COLOR SCHEME 3 ;
KEY ALT+K, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etof OF _MSYSMENU PROMPT "库房管理(\<Q)" COLOR SCHEME 3 ;
KEY ALT+Q, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etog OF _MSYSMENU PROMPT "调货管理(\<R)" COLOR SCHEME 3 ;
KEY ALT+R, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etoh OF _MSYSMENU PROMPT "财务管理(\<C)" COLOR SCHEME 3 ;
KEY ALT+C, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etoi OF _MSYSMENU PROMPT "帐目管理(\<Z)" COLOR SCHEME 3 ;
KEY ALT+Z, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etoj OF _MSYSMENU PROMPT "基础信息管理(\<B)" COLOR SCHEME 3 ;
KEY ALT+B, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etok OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, "" ;
SKIP FOR purview>4
DEFINE PAD _1yl04etol OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _1yl04etod OF _MSYSMENU ACTIVATE POPUP 销售管理g
ON PAD _1yl04etoe OF _MSYSMENU ACTIVATE POPUP 进货管理k
ON PAD _1yl04etof OF _MSYSMENU ACTIVATE POPUP 库房管理q
ON PAD _1yl04etog OF _MSYSMENU ACTIVATE POPUP 调货管理r
ON PAD _1yl04etoh OF _MSYSMENU ACTIVATE POPUP 财务管理c
ON PAD _1yl04etoi OF _MSYSMENU ACTIVATE POPUP 帐目管理z
ON PAD _1yl04etoj OF _MSYSMENU ACTIVATE POPUP 基础信息管
ON PAD _1yl04etok OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _1yl04etol 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.scx
ON SELECTION BAR 2 OF 销售管理g do form yygl\form\xiaoshouth.scx
ON SELECTION BAR 4 OF 销售管理g do form yygl\form\xiaoshoureports.scx
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.scx
ON SELECTION BAR 2 OF 进货管理k do form yygl\form\rukuth.scx
ON SELECTION BAR 4 OF 进货管理k do form yygl\form\rukureports.scx
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.scx
ON SELECTION BAR 2 OF 库房管理q do form yygl\form\kcpandian.scx
ON SELECTION BAR 4 OF 库房管理q do form yygl\form\kcmodify.scx
ON SELECTION BAR 6 OF 库房管理q do form yygl\form\kcreports.scx
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.scx
ON SELECTION BAR 3 OF 调货管理r do form yygl\form\tiaohuoquery.scx
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.scx
ON SELECTION BAR 2 OF 财务管理c do form yygl\form\shoukquery.scx
ON SELECTION BAR 4 OF 财务管理c do form yygl\form\fukdj.scx
ON SELECTION BAR 5 OF 财务管理c do form yygl\form\fukquery.scx
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.scx
ON SELECTION BAR 2 OF 帐目管理z ;
DO _1yl04etos ;
IN LOCFILE("\VFP&VB進銷存系統_大學畢業設計關然佳\MENU\MENUMAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENUMAIN?")
ON SELECTION BAR 4 OF 帐目管理z do form yygl\form\xiaoshouquery.scx
ON SELECTION BAR 5 OF 帐目管理z do form yygl\form\rukuquery.scx
ON SELECTION BAR 6 OF 帐目管理z do form yygl\form\xsthquery.scx
ON SELECTION BAR 7 OF 帐目管理z do form yygl\form\rkthquery.scx
ON SELECTION BAR 9 OF 帐目管理z do form yygl\form\caiwureports.scx
ON SELECTION BAR 10 OF 帐目管理z do form yygl\form\yuereports.scx
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.scx
ON SELECTION BAR 3 OF 基础信息管 do form yygl\form\ygmanage.scx
ON SELECTION BAR 5 OF 基础信息管 do form yygl\form\khmanage.scx
ON SELECTION BAR 7 OF 基础信息管 do form yygl\form\gysmanage.scx
ON SELECTION BAR 9 OF 基础信息管 do form yygl\form\storageinfo.scx
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.scx
ON SELECTION BAR 2 OF 系统管理s do form yygl\form\fpurview.scx
ON SELECTION BAR 4 OF 系统管理s do form yygl\form\databasebak.scx
ON SELECTION BAR 5 OF 系统管理s do form yygl\form\databasebackup.scx
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.scx
ON SELECTION BAR 3 OF 帮助h do form yygl\form\about.scx
* *********************************************************
* *
* * _1YL04ETOS 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 _1yl04etos
use database\tabyjcsh
if empty(开始日期) AND empty(结束日期)
do form form\yuejie
else
do form form\yuejie1
endif
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -