📄 main.mpr
字号:
* *********************************************************
* *
* * 01/19/00 MAIN.MPR 15:03:22
* *
* *********************************************************
* *
* * 作者姓名
* *
* * 版权(C) 2000 公司名
* * 地址
* * 城市, 邮政编码
* * 国家/地区
* *
* * 说明：
* * 本程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 安装代码
* *
* *********************************************************
*
#INCLUDE ..\INCLUDE\MYAPP.H
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD Pad OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3 ;
KEY ALT+F, "ALT+F" ;
MESSAGE "建立, 保存, 删除, 和恢复记录, 关闭表单, 或退出IT"
DEFINE PAD Edit OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3 ;
KEY ALT+E, "ALT+E" ;
MESSAGE "文本编辑"
DEFINE PAD _00j0w9r66 OF _MSYSMENU PROMPT "进销存管理" COLOR SCHEME 3
DEFINE PAD _msm_file OF _MSYSMENU PROMPT "维护" COLOR SCHEME 3 ;
KEY ALT+A, "ALT+A" ;
MESSAGE "登录, 修改口领, 访问所有的维护表单"
DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3 ;
KEY ALT+H, "ALT+H" ;
MESSAGE "显示IT的帮助信息"
ON PAD Pad OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD Edit OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _00j0w9r66 OF _MSYSMENU ACTIVATE POPUP 进销存管理
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP 维护
ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP 帮助
DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件 PROMPT "打印机设置" ;
MESSAGE "修改报表页面设置和打印机设置"
DEFINE BAR 2 OF 文件 PROMPT "\-"
DEFINE BAR 3 OF 文件 PROMPT "退出"
ON SELECTION BAR 1 OF 文件 ;
DO _00j0w9r7o ;
IN LOCFILE("\MEDICINE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MAIN?")
ON SELECTION BAR 3 OF 文件 ;
DO _00j0w9r8m ;
IN LOCFILE("\MEDICINE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MAIN?")
DEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑 PROMPT "撒消" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE "撒消对当前表单中当前记录的"
DEFINE BAR _med_redo OF 编辑 PROMPT "重复" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE "重复对当前表单中当前控件的上一次操作"
DEFINE BAR 3 OF 编辑 PROMPT "\-"
DEFINE BAR _med_cut OF 编辑 PROMPT "剪切" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "剪切当前选定文件，并放入剪切板"
DEFINE BAR _med_copy OF 编辑 PROMPT "复制" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "复制选定的文本到切板"
DEFINE BAR _med_paste OF 编辑 PROMPT "粘贴" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "粘贴剪切板的内容"
DEFINE BAR 7 OF 编辑 PROMPT "\-"
DEFINE BAR _med_slcta OF 编辑 PROMPT "选择全部" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "选择当前表单中当前控件的全部文本"
DEFINE POPUP 进销存管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进销存管理 PROMPT "销售录入" ;
SKIP FOR wexist("sales")
DEFINE BAR 2 OF 进销存管理 PROMPT "进货录入" ;
SKIP FOR wexist("purchase")
DEFINE BAR 3 OF 进销存管理 PROMPT "盘点管理" ;
SKIP FOR wexist("inv")
DEFINE BAR 4 OF 进销存管理 PROMPT "\-"
DEFINE BAR 5 OF 进销存管理 PROMPT "当前库存"
DEFINE BAR 6 OF 进销存管理 PROMPT "\-"
DEFINE BAR 7 OF 进销存管理 PROMPT "销售查询" ;
SKIP FOR wexist("qrysales")
DEFINE BAR 8 OF 进销存管理 PROMPT "进货查询" ;
SKIP FOR wexist("qrypurch")
DEFINE BAR 9 OF 进销存管理 PROMPT "盘点查询" ;
SKIP FOR wexist("qryinv")
ON SELECTION BAR 1 OF 进销存管理 do form sales
ON SELECTION BAR 2 OF 进销存管理 do form purchase
ON SELECTION BAR 3 OF 进销存管理 do form inv
ON SELECTION BAR 5 OF 进销存管理 do form stocks
ON SELECTION BAR 7 OF 进销存管理 do form qrysales
ON SELECTION BAR 8 OF 进销存管理 do form qrypurch
ON SELECTION BAR 9 OF 进销存管理 do form qryinv
DEFINE POPUP 维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 维护 PROMPT "登录" ;
SKIP FOR !EMPTY(WONTOP()) ;
MESSAGE "以另一用户口领登录"
DEFINE BAR 2 OF 维护 PROMPT "修改口令" ;
SKIP FOR !EMPTY(WONTOP()) ;
MESSAGE "修改当前用户的口令"
DEFINE BAR 3 OF 维护 PROMPT "数据维护" ;
SKIP FOR !EMPTY(WONTOP())
DEFINE BAR 4 OF 维护 PROMPT "\-"
DEFINE BAR 5 OF 维护 PROMPT "员工管理" ;
SKIP FOR wexist("frmemployee") ;
MESSAGE "修改员工信息"
DEFINE BAR 6 OF 维护 PROMPT "\-"
DEFINE BAR 7 OF 维护 PROMPT "药品维护" ;
SKIP FOR wexist("frmMedicine")
DEFINE BAR 8 OF 维护 PROMPT "销售方式维护" ;
SKIP FOR wexist("frmPayment")
ON SELECTION BAR 1 OF 维护 ;
DO _00j0w9rd9 ;
IN LOCFILE("\MEDICINE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MAIN?")
ON SELECTION BAR 2 OF 维护 DO FORM chngpswd
ON SELECTION BAR 3 OF 维护 do form rebuild
ON SELECTION BAR 5 OF 维护 DO FORM employee
ON SELECTION BAR 7 OF 维护 do form medicine
ON SELECTION BAR 8 OF 维护 do form payment
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mst_help OF 帮助 PROMPT "内容" ;
MESSAGE "显示帮助文件内容"
DEFINE BAR _mst_hpsch OF 帮助 PROMPT "查找帮助主题" ;
MESSAGE "按关键字查找帮助主题"
DEFINE BAR 3 OF 帮助 PROMPT "\-"
DEFINE BAR 4 OF 帮助 PROMPT "关于本程序" ;
MESSAGE "显示关于该程序的信息和系统配置"
ON SELECTION BAR 4 OF 帮助 ;
DO _00j0w9rep ;
IN LOCFILE("\MEDICINE\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MAIN?")
ON SELECTION POPUP 文件
* *********************************************************
* *
* * 清理代码和过程
* *
* *********************************************************
*
IF UPPER(oApp.GetUserLevel()) <> "APPLICATIONS DEVELOPER"
RELEASE PAD Utilities OF _MSYSMENU
ENDIF
IF !INLIST(UPPER(oApp.GetUserLevel()) , "APPLICATIONS DEVELOPER", "OPERATIONS MANAGER")
RELEASE BAR 1 OF ADMINBAR_LOC && Login
RELEASE BAR 2 OF ADMINBAR_LOC && Change Password
RELEASE BAR 3 OF ADMINBAR_LOC && Separator
ENDIF
* *********************************************************
* *
* * _00J0W9R7O ON SELECTION BAR 1 OF POPUP 文件
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 文件
* * Prompt: 打印机设置
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _00j0w9r7o
LOCAL lcOldError
lcOldError = ON('ERROR')
ON ERROR *
=SYS(1037)
ON ERROR &lcOldError
* *********************************************************
* *
* * _00J0W9R8M ON SELECTION BAR 3 OF POPUP 文件
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 8
* * Called By: ON SELECTION BAR 3 OF POPUP 文件
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _00j0w9r8m
*- cleanup will be done in the oApp object's Do method
CLEAR EVENTS
* *********************************************************
* *
* * _00J0W9RD9 ON SELECTION BAR 1 OF POPUP 维护
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 34
* * Called By: ON SELECTION BAR 1 OF POPUP 维护
* * Prompt: 登录
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _00j0w9rd9
LOCAL lcUserLevel
lcUserLevel = oApp.GetUserLevel()
=oApp.Login()
IF oApp.GetUserLevel() <> lcUserLevel
oApp.DoMenu()
ENDIF
* *********************************************************
* *
* * _00J0W9REP ON SELECTION BAR 4 OF POPUP 帮助
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 50
* * Called By: ON SELECTION BAR 4 OF POPUP 帮助
* * Prompt: 关于本程序
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _00j0w9rep
LOCAL loAboutBox
loAboutBox = CREATEOBJECT("AboutBox", ;
APP_LOC, ;
'VERSION 1.0', ;
'COPYRIGHT 1999-2000', ;
'ALL RIGHT RESERVE')
loAboutBox.Show()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -