⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 menu.mpr

📁 进销存源码
💻 MPR
字号:
🔍 
*       
*                                                                
*        1998.09.06             MENU.MPR               20:16:29  
*                                                                
*       
*                                                                
*        庄稼                                                    
*                                                                
*        版权(C) 1998 佳凡电脑服务中心                     
*        地址                                                    
*        城市,     邮政编码                                      
*        国家/地区                                         
*                                                                
*        说明：                                            
*        本程序由 GENMENU 自动生成。    
*                                                                
*       


*       
*                                                                
*                                菜单定义                        
*                                                                
*       
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _rxz17gfg2 OF _MSYSMENU PROMPT "系统(S)" COLOR SCHEME 3 ;
	KEY ALT+S, "ALT+S" ;
	MESSAGE '系统本身的有关维护'
DEFINE PAD _rxz17gfgm OF _MSYSMENU PROMPT "进货(J)" COLOR SCHEME 3 ;
	KEY ALT+J, "ALT+J" ;
	MESSAGE '总部进货管理'
DEFINE PAD _rxz17gfgo OF _MSYSMENU PROMPT "销售(X)" COLOR SCHEME 3 ;
	KEY ALT+X, "ALT+X" ;
	MESSAGE '总部直接销售管理'
DEFINE PAD _rxz17gfgp OF _MSYSMENU PROMPT "代销(D)" COLOR SCHEME 3 ;
	KEY ALT+D, "ALT+D" ;
	MESSAGE '代销商管理'
DEFINE PAD _rxz17gfgr OF _MSYSMENU PROMPT "库存(K)" COLOR SCHEME 3 ;
	KEY ALT+K, "ALT+K" ;
	MESSAGE '总部库存管理'
DEFINE PAD _rxz17gfgt OF _MSYSMENU PROMPT "维护(W)" COLOR SCHEME 3 ;
	KEY ALT+W, "ALT+W" ;
	MESSAGE '工作人员、商品库等的管理'
ON PAD _rxz17gfg2 OF _MSYSMENU ACTIVATE POPUP a系统s
ON PAD _rxz17gfgm OF _MSYSMENU ACTIVATE POPUP ab进货j
ON PAD _rxz17gfgo OF _MSYSMENU ACTIVATE POPUP 销售x
ON PAD _rxz17gfgp OF _MSYSMENU ACTIVATE POPUP 代销d
ON PAD _rxz17gfgr OF _MSYSMENU ACTIVATE POPUP 库存k
ON PAD _rxz17gfgt OF _MSYSMENU ACTIVATE POPUP 维护w

DEFINE POPUP a系统s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF a系统s PROMPT "备份" ;
	KEY CTRL+B, "^B" ;
	MESSAGE '用于将数据备份到软盘上'
DEFINE BAR 2 OF a系统s PROMPT "取备份" ;
	KEY CTRL+Q, "^Q" ;
	MESSAGE '用于从软盘上取回备份的数据'
DEFINE BAR 3 OF a系统s PROMPT "\-"
DEFINE BAR 4 OF a系统s PROMPT "整理数据" ;
	KEY CTRL+Z, "^Z" ;
	MESSAGE '当发现数据异常时，请用此功能对数据进行整理'
DEFINE BAR 5 OF a系统s PROMPT "\-"
DEFINE BAR 6 OF a系统s PROMPT "退出" ;
	KEY CTRL+E, "^E" ;
	MESSAGE '退出天时进销存系统'
ON SELECTION BAR 1 OF a系统s do bf
ON SELECTION BAR 2 OF a系统s do qbf
ON SELECTION BAR 4 OF a系统s do zlsj
ON SELECTION BAR 6 OF a系统s do tcxt

DEFINE POPUP ab进货j MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF ab进货j PROMPT "进货单录入" ;
	MESSAGE '录入进货的有关数据'
DEFINE BAR 2 OF ab进货j PROMPT "进货单打开" ;
	MESSAGE '打开进货单以便查看和修改'
DEFINE BAR 3 OF ab进货j PROMPT "缺货清单打开" ;
	KEY CTRL+A, "^A" ;
	MESSAGE '打开进货计划表查看、录入及修改进货计划'
DEFINE BAR 4 OF ab进货j PROMPT "进货数据统计" ;
	MESSAGE '统计进货的有关数据'
DEFINE BAR 5 OF ab进货j PROMPT "\-"
DEFINE BAR 6 OF ab进货j PROMPT "退货退厂" ;
	KEY CTRL+D, "^D" ;
	MESSAGE '打开退货给厂家（供应商）的商品清单'
DEFINE BAR 7 OF ab进货j PROMPT "保修退厂" ;
	KEY CTRL+C, "^C" ;
	MESSAGE '打开送厂家（供应商）保修的商品清单'
DEFINE BAR 8 OF ab进货j PROMPT "\-"
DEFINE BAR 9 OF ab进货j PROMPT "供应商库" ;
	KEY CTRL+F, "^F" ;
	MESSAGE '打开供应商清单查看和修改'
ON SELECTION BAR 1 OF ab进货j do jhdlr
ON SELECTION BAR 2 OF ab进货j do jhddk
ON SELECTION BAR 3 OF ab进货j do qhqd
ON BAR 4 OF ab进货j ACTIVATE POPUP 进货数据统
ON SELECTION BAR 6 OF ab进货j do thtc
ON SELECTION BAR 7 OF ab进货j do bxtc
ON SELECTION BAR 9 OF ab进货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 "销售保修" ;
	MESSAGE '打开销售保修清单'
DEFINE BAR 6 OF 销售x PROMPT "\-"
DEFINE BAR 7 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 5 OF 销售x do xsbx
ON SELECTION BAR 7 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 "销售帐管理" ;
	KEY CTRL+L, "^L" ;
	MESSAGE '打开有关代销商的销售数据，以便查看、录入和修改'
DEFINE BAR 4 OF 代销d PROMPT "销售帐自动录入"
DEFINE BAR 5 OF 代销d PROMPT "\-"
DEFINE BAR 6 OF 代销d PROMPT "代销退货" ;
	KEY CTRL+N, "^N" ;
	MESSAGE '查看、录入、修改代销商退货回来的有关数据'
DEFINE BAR 7 OF 代销d PROMPT "代销保修" ;
	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 3 OF 代销d  do dxzdk
ON BAR 4 OF 代销d ACTIVATE POPUP 新数据项
ON SELECTION BAR 6 OF 代销d do dxth
ON SELECTION BAR 7 OF 代销d do dxbx
ON SELECTION BAR 9 OF 代销d do dxrjz
ON SELECTION BAR 10 OF 代销d do dxzz
ON BAR 11 OF 代销d ACTIVATE POPUP 代销商盘点
ON BAR 13 OF 代销d ACTIVATE POPUP 代销数据统
ON SELECTION BAR 15 OF 代销d do dxs

DEFINE POPUP 新数据项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新数据项 PROMPT "电话线录入"
DEFINE BAR 2 OF 新数据项 PROMPT "软盘录入"
ON SELECTION BAR 1 OF 新数据项 do xszzdlr with 1
ON SELECTION BAR 2 OF 新数据项 do xszzdlr with 2

DEFINE POPUP 代销商盘点 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 代销商盘点 PROMPT "生成盘点表" ;
	KEY CTRL+S, "^S" ;
	MESSAGE '生成代销商的库存盘点表，其中有所有商品及当前的余额'
DEFINE BAR 2 OF 代销商盘点 PROMPT "打开盘点表" ;
	KEY CTRL+T, "^T" ;
	MESSAGE '打开代销商的库存盘点表，并可将盘点表打印出以用于实际盘点'
ON SELECTION BAR 1 OF 代销商盘点 do dxpdbsc
ON SELECTION BAR 2 OF 代销商盘点 do dxpdbdk

DEFINE POPUP 代销数据统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 代销数据统 PROMPT "金额"
DEFINE BAR 2 OF 代销数据统 PROMPT "数量"
DEFINE BAR 3 OF 代销数据统 PROMPT "出货型号数量"
ON SELECTION BAR 1 OF 代销数据统 do dxtj
ON SELECTION BAR 2 OF 代销数据统 do dxtjsl
ON SELECTION BAR 3 OF 代销数据统 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 盘点
ON SELECTION BAR 6 OF 库存k do kctj

DEFINE POPUP 盘点 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 盘点 PROMPT "生成盘点表" ;
	KEY CTRL+W, "^W" ;
	MESSAGE '产生目前仓库的盘点表，其中有所有商品及当前的余额'
DEFINE BAR 2 OF 盘点 PROMPT "打开盘点表" ;
	KEY CTRL+X, "^X" ;
	MESSAGE '打开盘点表，还可将盘点表打印出来以用于实际盘点'
ON SELECTION BAR 1 OF 盘点 do pdbsc
ON SELECTION BAR 2 OF 盘点 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 '打开操作日志库，以查看何人何做过何种操作'
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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -