jcsjcd.mpr

来自「这是一个学生用VFP 6.0 完成的毕业设计文档」· MPR 代码 · 共 50 行

*       *********************************************************
*       *                                                         
*       * 05/05/04             JCSJCD.MPR               22:46:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _18a1cswfw OF _MSYSMENU PROMPT "编辑数据" COLOR SCHEME 3
DEFINE PAD _18a1cswfy OF _MSYSMENU PROMPT "查询数据" COLOR SCHEME 3
DEFINE PAD _18a1cswfz OF _MSYSMENU PROMPT "打印报告" COLOR SCHEME 3
DEFINE PAD _18a1cswg0 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _18a1cswfw OF _MSYSMENU ACTIVATE POPUP 编辑数据
ON SELECTION PAD _18a1cswfy OF _MSYSMENU do form chaxun
ON PAD _18a1cswfz OF _MSYSMENU ACTIVATE POPUP 打印报告
ON SELECTION PAD _18a1cswg0 OF _MSYSMENU clear events

DEFINE POPUP 编辑数据 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑数据 PROMPT "输入数据"
DEFINE BAR 2 OF 编辑数据 PROMPT "修改数据"
ON SELECTION BAR 1 OF 编辑数据 do form shuru
ON SELECTION BAR 2 OF 编辑数据 do form xiugai

DEFINE POPUP 打印报告 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印报告 PROMPT "单页打印"
DEFINE BAR 2 OF 打印报告 PROMPT "连续打印"
ON SELECTION BAR 1 OF 打印报告 do form dydy
ON SELECTION BAR 2 OF 打印报告 do form lxdy