qtpopmenu.mpr

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

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


 DEFINE POPUP 快捷菜单 FROM MROW() , MCOL() RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT ' 开   房...(\<O)'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 3 OF 快捷菜单 PROMPT ' 续   房...(\<P)'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 5 OF 快捷菜单 PROMPT ' 退   房...(\<M)'
 DEFINE BAR 6 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 7 OF 快捷菜单 PROMPT ' 订   房...(\<A)'
 ON SELECTION BAR 1 OF 快捷菜单  ;
      DO _12x0p0s1w  IN LOCFILE("\IC门锁3.8C版\QTPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTPOPMENU?")
 ON SELECTION BAR 3 OF 快捷菜单  ;
      DO _12x0p0s1y  IN LOCFILE("\IC门锁3.8C版\QTPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTPOPMENU?")
 ON SELECTION BAR 5 OF 快捷菜单  ;
      DO _12x0p0s1z  IN LOCFILE("\IC门锁3.8C版\QTPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTPOPMENU?")
 ON SELECTION BAR 7 OF 快捷菜单  ;
      DO _12x0p0s20  IN LOCFILE("\IC门锁3.8C版\QTPOPMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTPOPMENU?")
 ACTIVATE POPUP 快捷菜单

PROCEDURE _12x0p0s1w
 CLOSE DATABASES ALL
 DBCFILE =  ;
      CHKDBCFILE('msc','mswz','jbxx','yskxx','ysffxx','fjgg','czrz','msxx','kfydxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\msc.dbf')
 USE IN 0 msc.dbf ALIAS MSC
 SELECT MSC
 LOCATE FOR ALLTRIM(CONT) == 'jbsmkkf'
 IF ALLTRIM(DATA) == '1'
    CLOSE DATABASES ALL
    = LOCKDB(DBFDIRECTORY + '\msc.dbf')
    DO FORM forms\yzdfsupplyform.scx
 ELSE 
    LOCATE FOR ALLTRIM(CONT) == 'zdfkf'
    IF FOUND()
       LNKFFORMBZ = ALLTRIM(DATA)
       CLOSE DATABASES ALL
       = LOCKDB(DBFDIRECTORY + '\msc.dbf')
       DO CASE 
       CASE LNKFFORMBZ == '1'
          DO FORM forms\yzdfsupplyform.scx
       CASE LNKFFORMBZ == '0'
          DO FORM forms\wzdfsupplyform.scx
       OTHERWISE 
          DO FORM forms\yzdfsupplyform.scx
       ENDCASE 
    ELSE 
       CLOSE DATABASES ALL
       = LOCKDB(DBFDIRECTORY + '\msc.dbf')
       DO FORM forms\yzdfsupplyform.scx
    ENDIF 
 ENDIF 
ENDPROC
*------
PROCEDURE _12x0p0s1y
 CLOSE DATABASES ALL
 DBCFILE = CHKDBCFILE('msc','mswz','jbxx','yskxx','czrz','msxx','ysffxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\klxfform.scx
ENDPROC
*------
PROCEDURE _12x0p0s1z
 CLOSE DATABASES ALL
 DBCFILE =  ;
      CHKDBCFILE('czrz','mswz','qh_id','dh_id','lh_id','mh_id','mswz_id','mswz','yskxx','ysffxx','kftf','fjgg','msxx','zcxx')
 IF DBCFILE = 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\cktfform.scx
ENDPROC
*------
PROCEDURE _12x0p0s20
 CLOSE DATABASES ALL
 DBCFILE = CHKDBCFILE('czygl','xdczycc','czyjb1','czyjb2','czyjb3')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\bespeakform.scx
ENDPROC
*------*