main.bak

自编加学习的简单管理系统,希望指教

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0vq1b9v23 OF _MSYSMENU PROMPT "操作(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, ""
DEFINE PAD _0vq1b9v2m OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""

DEFINE PAD _0vq1b9v2o OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _0vq1b9v23 OF _MSYSMENU ACTIVATE POPUP 操作o
ON PAD _0vq1b9v2m OF _MSYSMENU ACTIVATE POPUP 编辑e

ON SELECTION PAD _0vq1b9v2o OF _MSYSMENU Clear event

DEFINE POPUP 操作o MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 操作o PROMPT "器材入库"
DEFINE BAR 2 OF 操作o PROMPT "器材出库"

DEFINE BAR 3 OF 操作o PROMPT "退出"
ON SELECTION BAR 1 OF 操作o do form rkd.dbf
ON SELECTION BAR 2 OF 操作o do form ckd.dbf
ON SELECTION BAR 3 OF 操作o Clear event

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 3
DEFINE BAR 1 OF 编辑e PROMPT "编辑浏览出入库单"
DEFINE BAR 2 OF 编辑e PROMPT "浏览个人工具卡"
DEFINE BAR 3 OF 编辑e PROMPT "基本设置"
ON SELECTION BAR 1 OF 编辑e do form llxg.dbf
ON SELECTION BAR 2 OF 编辑e do form grgj.dbf
ON SELECTION BAR 3 OF 编辑e do form system.dbf