zcd.mpr

来自「用VF所编的管理系统」· MPR 代码 · 共 65 行

*       *********************************************************
*       *                                                         
*       * 04-03-01               ZCD.MPR                14:10:16  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 陈寿松                                                  
*       *                                                         
*       * Copyright (c) 2004 Company Name                         
*       * 国顺路117弄33号401室                                    
*       * 上海市,     200433                                      
*       * 中国                                              
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _16h0udgvk OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _16h0udgvl OF _MSYSMENU PROMPT "查找" COLOR SCHEME 3
DEFINE PAD _16h0udgvm OF _MSYSMENU PROMPT "浏览" COLOR SCHEME 3
DEFINE PAD _16h0udgvn OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _16h0udgvk OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _16h0udgvl OF _MSYSMENU ACTIVATE POPUP 查找
ON PAD _16h0udgvm OF _MSYSMENU ACTIVATE POPUP 浏览
ON PAD _16h0udgvn OF _MSYSMENU ACTIVATE POPUP 退出

DEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑 PROMPT "添加"
DEFINE BAR 2 OF 编辑 PROMPT "删除"
ON SELECTION BAR 1 OF 编辑 do add.spr
ON SELECTION BAR 2 OF 编辑 do delete.spr

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 xmcz.spr
ON SELECTION BAR 2 OF 查找 do sjhmcz.spr
ON SELECTION BAR 3 OF 查找 do ck.spr

DEFINE POPUP 浏览 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 浏览 PROMPT "报表浏览"
DEFINE BAR 2 OF 浏览 PROMPT "标签浏览"
ON SELECTION BAR 1 OF 浏览 report form txl prev
ON SELECTION BAR 2 OF 浏览 label form txl prev

DEFINE POPUP 退出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出 PROMPT "退回到foxpro"
DEFINE BAR 2 OF 退出 PROMPT "退回到桌面"
ON SELECTION BAR 1 OF 退出 do tuihui.prg
ON SELECTION BAR 2 OF 退出 quit