📄 title.mpr
字号:
* *********************************************************
* *
* * 11/06/03 TITLE.MPR 11:16:30
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1370o600e OF _MSYSMENU PROMPT "进货管理(J)" COLOR SCHEME 3 ;
KEY ALT+J, "ALT+J" ;
MESSAGE '总部进货管理'
DEFINE PAD _1370o600f OF _MSYSMENU PROMPT "销售管理(X)" COLOR SCHEME 3 ;
KEY ALT+X, "ALT+X" ;
MESSAGE '总部直接销售管理'
DEFINE PAD _1370o600g OF _MSYSMENU PROMPT "代销管理(D)" COLOR SCHEME 3 ;
KEY ALT+D, "ALT+D" ;
MESSAGE '代销商管理'
DEFINE PAD _1370o600h OF _MSYSMENU PROMPT "库存管理(K)" COLOR SCHEME 3 ;
KEY ALT+K, "ALT+K" ;
MESSAGE '总部库存管理'
DEFINE PAD _1370o600i OF _MSYSMENU PROMPT "系统维护(W)" COLOR SCHEME 3 ;
KEY ALT+W, "ALT+W" ;
MESSAGE '工作人员、商品库等的管理、系统本身的有关维护'
DEFINE PAD _1370o600j OF _MSYSMENU PROMPT "其他(T)" COLOR SCHEME 3 ;
KEY ALT+T, "ALT+T" ;
MESSAGE '关于系统和退出系统'
ON PAD _1370o600e OF _MSYSMENU ACTIVATE POPUP 进货管理j
ON PAD _1370o600f OF _MSYSMENU ACTIVATE POPUP 销售管理x
ON PAD _1370o600g OF _MSYSMENU ACTIVATE POPUP 代销管理d
ON PAD _1370o600h OF _MSYSMENU ACTIVATE POPUP 库存管理k
ON PAD _1370o600i OF _MSYSMENU ACTIVATE POPUP 系统维护w
ON PAD _1370o600j OF _MSYSMENU ACTIVATE POPUP 其他t
DEFINE POPUP 进货管理j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货管理j PROMPT "录入进货单" ;
MESSAGE '录入进货的有关数据'
DEFINE BAR 2 OF 进货管理j PROMPT "打开进货单" ;
MESSAGE '打开进货单以便查看和修改'
DEFINE BAR 3 OF 进货管理j PROMPT "打开缺货清单" ;
MESSAGE '打开进货计划表查看、录入及修改进货计划'
DEFINE BAR 4 OF 进货管理j PROMPT "统计进货数据" ;
MESSAGE '统计进货的有关数据'
DEFINE BAR 5 OF 进货管理j PROMPT "\-"
DEFINE BAR 6 OF 进货管理j PROMPT "退货退厂" ;
KEY CTRL+D, "^D" ;
MESSAGE '打开退货给厂家（供应商）的商品清单'
DEFINE BAR 7 OF 进货管理j PROMPT "\-"
DEFINE BAR 8 OF 进货管理j PROMPT "供应商库" ;
KEY CTRL+F, "^F" ;
MESSAGE '打开供应商清单查看和修改'
ON SELECTION BAR 1 OF 进货管理j do jhdlr
ON SELECTION BAR 2 OF 进货管理j do jhddk
ON SELECTION BAR 3 OF 进货管理j do qhqd
ON BAR 4 OF 进货管理j ACTIVATE POPUP 新菜单项
ON SELECTION BAR 6 OF 进货管理j do thtc
ON SELECTION BAR 8 OF 进货管理j do ghs
DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "供货商"
DEFINE BAR 2 OF 新菜单项 PROMPT "商品"
ON SELECTION BAR 1 OF 新菜单项 do jhtj with .t.
ON SELECTION BAR 2 OF 新菜单项 do jhtj with .f.
DEFINE POPUP 销售管理x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售管理x PROMPT "录入销售日记帐" ;
KEY F4, "F4" ;
MESSAGE '录入销售的有关数据'
DEFINE BAR 2 OF 销售管理x PROMPT "打开销售日记帐" ;
KEY F5, "F5" ;
MESSAGE '打开销售日记帐以便查看和修改'
DEFINE BAR 3 OF 销售管理x PROMPT "\-"
DEFINE BAR 4 OF 销售管理x PROMPT "销售退货" ;
MESSAGE '打开销售退货清单'
DEFINE BAR 5 OF 销售管理x PROMPT "\-"
DEFINE BAR 6 OF 销售管理x PROMPT "统计销售数据" ;
KEY CTRL+I, "^I" ;
MESSAGE '统计销售的有关数据'
ON SELECTION BAR 1 OF 销售管理x do xszlr
ON SELECTION BAR 2 OF 销售管理x do xszdk
ON SELECTION BAR 4 OF 销售管理x do xsth
ON SELECTION BAR 6 OF 销售管理x do xstj
DEFINE POPUP 代销管理d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 代销管理d PROMPT "录入送货单" ;
MESSAGE '录入出货单的有关数据'
DEFINE BAR 2 OF 代销管理d PROMPT "打开送货单" ;
MESSAGE '打开出货单以便查看和修改'
DEFINE BAR 3 OF 代销管理d PROMPT "\-"
DEFINE BAR 4 OF 代销管理d PROMPT "管理销售帐" ;
KEY CTRL+L, "^L" ;
MESSAGE '打开有关代销商的销售数据，以便查看、录入和修改'
DEFINE BAR 5 OF 代销管理d PROMPT "自动录入销售帐"
DEFINE BAR 6 OF 代销管理d PROMPT "\-"
DEFINE BAR 7 OF 代销管理d PROMPT "代销退货" ;
KEY CTRL+N, "^N" ;
MESSAGE '查看、录入、修改代销商退货回来的有关数据'
DEFINE BAR 8 OF 代销管理d PROMPT "\-"
DEFINE BAR 9 OF 代销管理d PROMPT "仓库日记帐" ;
KEY CTRL+O, "^O" ;
MESSAGE '打开代销商仓库日记帐'
DEFINE BAR 10 OF 代销管理d PROMPT "仓库总帐" ;
KEY CTRL+P, "^P" ;
MESSAGE '打开代销商仓库总帐'
DEFINE BAR 11 OF 代销管理d PROMPT "代销商盘点" ;
MESSAGE '对代销商的库存商品进行盘点'
DEFINE BAR 12 OF 代销管理d PROMPT "\-"
DEFINE BAR 13 OF 代销管理d PROMPT "统计代销数据" ;
MESSAGE '统计有关代销的数据'
DEFINE BAR 14 OF 代销管理d PROMPT "\-"
DEFINE BAR 15 OF 代销管理d PROMPT "代销商管理"
ON SELECTION BAR 1 OF 代销管理d do chdlr
ON SELECTION BAR 2 OF 代销管理d do chddk
ON SELECTION BAR 4 OF 代销管理d do dxzdk
ON BAR 5 OF 代销管理d ACTIVATE POPUP _0xj04o3eq
ON SELECTION BAR 7 OF 代销管理d do dxth
ON SELECTION BAR 9 OF 代销管理d do dxrjz
ON SELECTION BAR 10 OF 代销管理d do dxzz
ON BAR 11 OF 代销管理d ACTIVATE POPUP _0xj04vjjc
ON BAR 13 OF 代销管理d ACTIVATE POPUP _0xj04yntm
ON SELECTION BAR 15 OF 代销管理d do dxs
DEFINE POPUP _0xj04o3eq MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0xj04o3eq PROMPT "电话线录入"
DEFINE BAR 2 OF _0xj04o3eq PROMPT "软盘录入"
ON SELECTION BAR 1 OF _0xj04o3eq do xszzdlr with 1
ON SELECTION BAR 2 OF _0xj04o3eq do xszzdlr with 2
DEFINE POPUP _0xj04vjjc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0xj04vjjc PROMPT "生成盘点表" ;
KEY CTRL+S, "^S" ;
MESSAGE '生成代销商的库存盘点表，其中有所有商品及当前的余额'
DEFINE BAR 2 OF _0xj04vjjc PROMPT "打开盘点表" ;
KEY CTRL+T, "^T" ;
MESSAGE '打开代销商的库存盘点表，并可将盘点表打印出以用于实际盘点'
ON SELECTION BAR 1 OF _0xj04vjjc do dxpdbsc
ON SELECTION BAR 2 OF _0xj04vjjc do dxpdbdk
DEFINE POPUP _0xj04yntm MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0xj04yntm PROMPT "金额"
DEFINE BAR 2 OF _0xj04yntm PROMPT "数量"
DEFINE BAR 3 OF _0xj04yntm PROMPT "出货型号数量"
ON SELECTION BAR 1 OF _0xj04yntm do dxtj
ON SELECTION BAR 2 OF _0xj04yntm do dxtjsl
ON SELECTION BAR 3 OF _0xj04yntm do dxchxh
DEFINE POPUP 库存管理k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 库存管理k PROMPT "仓库帐审核录入" ;
KEY F7, "F7" ;
MESSAGE '审核各模块的进出库数据，并将审核通过后的数据录入总部仓库日记帐和总帐'
DEFINE BAR 2 OF 库存管理k PROMPT "仓库日记帐" ;
KEY F8, "F8" ;
MESSAGE '打开仓库日记帐，进行查看和修改'
DEFINE BAR 3 OF 库存管理k PROMPT "仓库总帐" ;
KEY F9, "F9" ;
MESSAGE '打开仓库总帐查看'
DEFINE BAR 4 OF 库存管理k PROMPT "盘点" ;
MESSAGE '对总部仓库进行盘点'
DEFINE BAR 5 OF 库存管理k PROMPT "\-"
DEFINE BAR 6 OF 库存管理k PROMPT "统计库存数据" ;
KEY CTRL+Y, "^Y" ;
MESSAGE '统计库存的有关数据'
ON SELECTION BAR 1 OF 库存管理k do ckzsl
ON SELECTION BAR 2 OF 库存管理k do ckrjz
ON SELECTION BAR 3 OF 库存管理k do ckzz
ON BAR 4 OF 库存管理k ACTIVATE POPUP _0xj0551to
ON SELECTION BAR 6 OF 库存管理k do kctj
DEFINE POPUP _0xj0551to MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0xj0551to PROMPT "生成盘点表" ;
KEY CTRL+W, "^W" ;
MESSAGE '产生目前仓库的盘点表，其中有所有商品及当前的余额'
DEFINE BAR 2 OF _0xj0551to PROMPT "打开盘点表" ;
KEY CTRL+X, "^X" ;
MESSAGE '打开盘点表，还可将盘点表打印出来以用于实际盘点'
ON SELECTION BAR 1 OF _0xj0551to do pdbsc
ON SELECTION BAR 2 OF _0xj0551to do pdbdk
DEFINE POPUP 系统维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护w PROMPT "操作员管理" ;
KEY CTRL+G, "^G" ;
MESSAGE '增另、删除工作人员，设定工作人员密码'
DEFINE BAR 2 OF 系统维护w PROMPT "商品库管理" ;
MESSAGE '输入及修改商品清单库'
DEFINE BAR 3 OF 系统维护w PROMPT "颜色库管理" ;
MESSAGE '打开颜色库，以便增添和修改颜色'
DEFINE BAR 4 OF 系统维护w PROMPT "操作日志管理" ;
MESSAGE '打开操作日志库，以查看何人何做过何种操作'
DEFINE BAR 5 OF 系统维护w PROMPT "\-"
DEFINE BAR 6 OF 系统维护w PROMPT "数据备份" ;
KEY CTRL+B, "^B" ;
MESSAGE '用于将数据备份到软盘上'
DEFINE BAR 7 OF 系统维护w PROMPT "数据恢复" ;
KEY CTRL+Q, "^Q" ;
MESSAGE '用于从软盘上取回备份的数据'
DEFINE BAR 8 OF 系统维护w PROMPT "\-"
DEFINE BAR 9 OF 系统维护w PROMPT "整理数据" ;
KEY CTRL+Z, "^Z" ;
MESSAGE '当发现数据异常时，请用此功能对数据进行整理'
ON SELECTION BAR 1 OF 系统维护w do gzrr
ON SELECTION BAR 2 OF 系统维护w do spk
ON SELECTION BAR 3 OF 系统维护w do ysk
ON SELECTION BAR 4 OF 系统维护w do czrz
ON SELECTION BAR 6 OF 系统维护w do bf
ON SELECTION BAR 7 OF 系统维护w do qbf
ON SELECTION BAR 9 OF 系统维护w do zlsj
DEFINE POPUP 其他t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 其他t PROMPT "关于系统" ;
KEY CTRL+A, "^A"
DEFINE BAR 2 OF 其他t PROMPT "\-"
DEFINE BAR 3 OF 其他t PROMPT "退出系统" ;
KEY CTRL+E, "^E" ;
MESSAGE '退出医药进销存系统'
ON SELECTION BAR 1 OF 其他t ;
DO _1370o600o ;
IN LOCFILE("JXC\TITLE" ,"MPX;MPR|FXP;PRG" ,"WHERE is TITLE?")
ON SELECTION BAR 3 OF 其他t do tcxt
* *********************************************************
* *
* * _1370O600O ON SELECTION BAR 1 OF POPUP 其他t
* *
* * Procedure Origin:
* *
* * From Menu: TITLE.MPR, Record: 87
* * Called By: ON SELECTION BAR 1 OF POPUP 其他t
* * Prompt: 关于系统
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1370o600o
hide wind main
do form about
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -