viewpopmenu.mpr

酒店IC卡 餐饮娱乐管理系统源代码使用说明

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: VIEWPOPMENU.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP 快捷菜单 FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT '刷  新(\<F)'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 3 OF 快捷菜单 PROMPT '查  看(\<V)'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 5 OF 快捷菜单 PROMPT '自动对齐(\<A)'
 DEFINE BAR 6 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 7 OF 快捷菜单 PROMPT '排  序(\<U)'
 ON SELECTION BAR 1 OF 快捷菜单  ;
      DO _12x0p0sko  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON BAR 3 OF 快捷菜单 ACTIVATE POPUP 查看V
 ON SELECTION BAR 5 OF 快捷菜单  ;
      DO _12x0p0skp  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON BAR 7 OF 快捷菜单 ACTIVATE POPUP 排序U
 DEFINE POPUP 查看V RELATIVE SHORT
 DEFINE BAR 1 OF 查看V PROMPT '大图标(\<G)'
 DEFINE BAR 2 OF 查看V PROMPT '\-'
 DEFINE BAR 3 OF 查看V PROMPT '小图标(\<M)'
 DEFINE BAR 4 OF 查看V PROMPT '\-'
 DEFINE BAR 5 OF 查看V PROMPT '列表(\<L)'
 DEFINE BAR 6 OF 查看V PROMPT '\-'
 DEFINE BAR 7 OF 查看V PROMPT '详细资料(\<D)'
 ON SELECTION BAR 1 OF 查看V  ;
      DO _12x0p0skr  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 3 OF 查看V  ;
      DO _12x0p0sks  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 5 OF 查看V  ;
      DO _12x0p0skt  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 7 OF 查看V  ;
      DO _12x0p0sku  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 DEFINE POPUP 排序U RELATIVE SHORT
 DEFINE BAR 1 OF 排序U PROMPT '房号(\<M)'
 DEFINE BAR 2 OF 排序U PROMPT '\-'
 DEFINE BAR 3 OF 排序U PROMPT '房态(\<U)'
 DEFINE BAR 4 OF 排序U PROMPT '\-'
 DEFINE BAR 5 OF 排序U PROMPT '开房日期(\<K)'
 DEFINE BAR 6 OF 排序U PROMPT '\-'
 DEFINE BAR 7 OF 排序U PROMPT '退房日期(\<T)'
 ON SELECTION BAR 1 OF 排序U  ;
      DO _12x0p0skv  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 3 OF 排序U  ;
      DO _12x0p0skw  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 5 OF 排序U  ;
      DO _12x0p0skx  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ON SELECTION BAR 7 OF 排序U  ;
      DO _12x0p0sky  IN LOCFILE("\IC门锁3.8C版\VIEWPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is VIEWPOPMENU?")
 ACTIVATE POPUP 快捷菜单

PROCEDURE _12x0p0sko
  _SCREEN.ACTIVEFORM.OLELIST.REFRESH
ENDPROC
*------
PROCEDURE _12x0p0skp
 _SCREEN.ACTIVEFORM.OLELIST.SORTED = .T.
 _SCREEN.ACTIVEFORM.OLELIST.SORTORDER = 0
ENDPROC
*------
PROCEDURE _12x0p0skr
 _SCREEN.ACTIVEFORM.OLELIST.VIEW = 0
ENDPROC
*------
PROCEDURE _12x0p0sks
 _SCREEN.ACTIVEFORM.OLELIST.VIEW = 1
ENDPROC
*------
PROCEDURE _12x0p0skt
 _SCREEN.ACTIVEFORM.OLELIST.VIEW = 2
ENDPROC
*------
PROCEDURE _12x0p0sku
 _SCREEN.ACTIVEFORM.OLELIST.VIEW = 3
ENDPROC
*------
PROCEDURE _12x0p0skv
 _SCREEN.ACTIVEFORM.OLELIST.SORTED = .T.
 _SCREEN.ACTIVEFORM.OLELIST.SORTORDER = 0
ENDPROC
*------
PROCEDURE _12x0p0skw
 _SCREEN.ACTIVEFORM.OLELIST.SORTED = .T.
 _SCREEN.ACTIVEFORM.OLELIST.SORTORDER = 1
ENDPROC
*------
PROCEDURE _12x0p0skx
 _SCREEN.ACTIVEFORM.OLELIST.SORTED = .T.
 _SCREEN.ACTIVEFORM.OLELIST.SORTORDER = 1
ENDPROC
*------
PROCEDURE _12x0p0sky
 _SCREEN.ACTIVEFORM.OLELIST.SORTED = .T.
 _SCREEN.ACTIVEFORM.OLELIST.SORTORDER = 0
ENDPROC
*------*