菜单1.mpr

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 菜单1.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _0UN0PUXOX OF _MSYSMENU PROMPT '文件(\<F)' COLOR SCHEME 3 KEY ALT+F , ''
 DEFINE PAD _0UN0PUXOY OF _MSYSMENU PROMPT '编辑(\<E)' COLOR SCHEME 3 KEY ALT+E , ''
 DEFINE PAD _0UN0PUXOZ OF _MSYSMENU PROMPT '显示(\<V)' COLOR SCHEME 3 KEY ALT+V , ''
 ON PAD _0UN0PUXOX OF _MSYSMENU ACTIVATE POPUP _0NQ0TUTWK
 ON PAD _0UN0PUXOY OF _MSYSMENU ACTIVATE POPUP 编辑E
 ON PAD _0UN0PUXOZ OF _MSYSMENU ACTIVATE POPUP 显示V
 DEFINE POPUP _0NQ0TUTWK COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF _0NQ0TUTWK PROMPT '新建' KEY CTRL+N , 'CTRL+N' HALFHEIGHT 'bmp\new.bmp'
 DEFINE BAR 2 OF _0NQ0TUTWK PROMPT '打开' KEY CTRL+O , 'CTRL+O' HALFHEIGHT  ;
      'bmp\open.bmp'
 DEFINE BAR 3 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR 4 OF _0NQ0TUTWK PROMPT '修改' SKIP FOR  .NOT. USED() KEY CTRL+M , 'CTRL+M'  ;
      HALFHEIGHT 'bmp\修改.bmp'
 DEFINE BAR 5 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR 6 OF _0NQ0TUTWK PROMPT '新建报表(\<R)' HALFHEIGHT 'bmp\dblview.bmp'
 DEFINE BAR 7 OF _0NQ0TUTWK PROMPT '修改报表(\<M)' HALFHEIGHT  ;
      '..\jxc通用7\bmp\打开设计.bmp'
 DEFINE BAR 8 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR 9 OF _0NQ0TUTWK PROMPT '命令(\<C)' HALFHEIGHT 'bmp\定位.bmp'
 DEFINE BAR 10 OF _0NQ0TUTWK PROMPT '执行文件...' O肙F;1虳ELETE;1腞ECYCLE; _MPR_SP100
 DEFINE BAR 11 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR _MFI_REVRT OF _0NQ0TUTWK PROMPT '另存为(\<A)...' MESSAGE  ;
      '用新文件名保存当前改动了的文件'
 DEFINE BAR 13 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR _MFI_IMPORT OF _0NQ0TUTWK PROMPT '页面设置(\<U)...' MESSAGE  ;
      '修改页面布局和打印机设置' O肙F;1虳ELETE;1腞ECYCLE; _MFI_IMPORT
 DEFINE BAR _MFI_PGSET OF _0NQ0TUTWK PROMPT '打印预览(\<V)' MESSAGE  ;
      '在打印前显示整个页面' O肙F;1虳ELETE;1腞ECYCLE; _MFI_PGSET
 DEFINE BAR _MFI_PRNTONECPY OF _0NQ0TUTWK PROMPT '打印(\<P)...' MESSAGE  ;
      '打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容' KEY CTRL+P , 'Ctrl+P'  ;
      O肙F;1虳ELETE;1腞ECYCLE; _MFI_PRNTONECPY
 DEFINE BAR 17 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR 18 OF _0NQ0TUTWK PROMPT '\'
 DEFINE BAR 19 OF _0NQ0TUTWK PROMPT '\-'
 DEFINE BAR 20 OF _0NQ0TUTWK PROMPT '返回(\<X)' HALFHEIGHT 'bmp\退出.bmp'
 ON SELECTION BAR 1 OF _0NQ0TUTWK  ;
      DO _0un0puxp4  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 2 OF _0NQ0TUTWK  ;
      DO _0un0puxp5  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 4 OF _0NQ0TUTWK  ;
      DO _0un0puxp6  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 6 OF _0NQ0TUTWK  ;
      DO _0un0puxp7  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 7 OF _0NQ0TUTWK  ;
      DO _0un0puxp8  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 9 OF _0NQ0TUTWK  ;
      DO _0un0puxp9  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 10 OF _0NQ0TUTWK  ;
      DO _0un0puxpa  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 20 OF _0NQ0TUTWK  ;
      DO _0un0puxpb  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 DEFINE POPUP 编辑E COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR _MED_REDO OF 编辑E PROMPT '撤消(\<U)' MESSAGE '撤消上一次命令或操作' KEY  ;
      CTRL+Z , 'Ctrl+Z' O肙F;1虳ELETE;1腞ECYCLE; _MED_REDO
 DEFINE BAR _MED_SP100 OF 编辑E PROMPT '重做(\<D)' MESSAGE '重复上一次命令或操作' KEY  ;
      CTRL+R , 'Ctrl+R' O肙F;1虳ELETE;1腞ECYCLE; _MED_SP100
 DEFINE BAR 3 OF 编辑E PROMPT '\-'
 DEFINE BAR _MED_COPY OF 编辑E PROMPT '剪切(\<T)' MESSAGE '移去选定内容并将其放入剪贴板'  ;
      KEY CTRL+X , 'Ctrl+X' O肙F;1虳ELETE;1腞ECYCLE; _MED_COPY
 DEFINE BAR _MED_PASTE OF 编辑E PROMPT '复制(\<C)' MESSAGE '将选定内容复制到剪贴板上'  ;
      KEY CTRL+C , 'Ctrl+C' O肙F;1虳ELETE;1腞ECYCLE; _MED_PASTE
 DEFINE BAR _MED_PSTLK OF 编辑E PROMPT '粘贴(\<P)' MESSAGE '粘贴剪贴板上的内容' KEY  ;
      CTRL+V , 'Ctrl+V' O肙F;1虳ELETE;1腞ECYCLE; _MED_PSTLK
 DEFINE POPUP 显示V COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 显示V PROMPT '记录浏览' SKIP FOR  .NOT. USED() KEY CTRL+B , 'CTRL+B'  ;
      HALFHEIGHT '..\jxc通用7\bmp\定位.bmp'
 DEFINE BAR 2 OF 显示V PROMPT '排序过滤' SKIP FOR  .NOT. USED() KEY CTRL+F , 'CTRL+F'  ;
      HALFHEIGHT 'c:\bmp\tlbr_w95\sortasc.bmp'
 DEFINE BAR 3 OF 显示V PROMPT '\-'
 DEFINE BAR 4 OF 显示V PROMPT '记录复制' SKIP FOR  .NOT. USED() KEY CTRL+A , 'CTRL+A'  ;
      HALFHEIGHT 'bmp\copy.bmp'
 DEFINE BAR 5 OF 显示V PROMPT '记录粘贴' SKIP FOR  .NOT. USED() KEY CTRL+T , 'CTRL+T'  ;
      O肙F;1虳ELETE;1腞ECYCLE; _MED_PSTLK
 DEFINE BAR 6 OF 显示V PROMPT '\-'
 DEFINE BAR 7 OF 显示V PROMPT '重建索引' SKIP FOR  .NOT. USED() KEY CTRL+R , 'CTRL+R'  ;
      HALFHEIGHT '..\jxc通用7\bmp\密码.bmp'
 ON SELECTION BAR 1 OF 显示V  ;
      DO _0un0puxpe  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 2 OF 显示V  ;
      DO _0un0puxpf  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 4 OF 显示V  ;
      DO _0un0puxpg  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 5 OF 显示V  ;
      DO _0un0puxph  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
 ON SELECTION BAR 7 OF 显示V  ;
      DO _0un0puxpi  IN LOCFILE("\JXC\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")

PROCEDURE _0un0puxp4
 CREATE 
ENDPROC
*------
PROCEDURE _0un0puxp5
 C_FILE = GETFILE('dbf')
 IF  .NOT. EMPTY(C_FILE)
    USE EXCLUSIVE (C_FILE)
 ENDIF 
ENDPROC
*------
PROCEDURE _0un0puxp6
 IF USED()
    MODIFY STRUCTURE 
 ENDIF 
ENDPROC
*------
PROCEDURE _0un0puxp7
 CREATE REPORT
ENDPROC
*------
PROCEDURE _0un0puxp8
 C_FILE = GETFILE('frx')
 IF  .NOT. EMPTY(C_FILE)
    MODIFY REPORT (C_FILE)
 ENDIF 
 C_COPY = .F.
ENDPROC
*------
PROCEDURE _0un0puxp9
 DO FORM d:\jxc\命令
ENDPROC
*------
PROCEDURE _0un0puxpa
 C_FILE = GETFILE('exe|app')
 IF  .NOT. EMPTY(C_FILE)
    C_COM = 'do ' + C_FILE
     &c_com
 ENDIF 
ENDPROC
*------
PROCEDURE _0un0puxpb
 DO d:\jxc\sys_menu.mpr
 CLOSE TABLE ALL
ENDPROC
*------
PROCEDURE _0un0puxpe
 IF USED()
    BROWSE TITLE '浏览'
 ENDIF 
ENDPROC
*------
PROCEDURE _0un0puxpf
 IF USED()
    DO FORM d:\jxc\排序
 ENDIF 
ENDPROC
*------
PROCEDURE _0un0puxpg
 DO FORM d:\jxc\复制记录
ENDPROC
*------
PROCEDURE _0un0puxph
 APPEND FROM ARRAY N_ARRAY
ENDPROC
*------
PROCEDURE _0un0puxpi
 IF USED()
    REINDEX 
 ENDIF 
ENDPROC
*------*