qtfwmenu.mpr

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

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


 SET SYSMENU TO
 SET SYSMENU AUTOMATIC 
 DEFINE PAD _12X0P0S58 OF _MSYSMENU PROMPT '开房/续房/退房(\<O)' COLOR SCHEME 3 KEY  ;
      ALT+O , ''
 DEFINE PAD _12X0P0S59 OF _MSYSMENU PROMPT '订房登记/取消订房(\<A)' COLOR SCHEME 3 KEY  ;
      ALT+A , ''
 DEFINE PAD _12X0P0S5A OF _MSYSMENU PROMPT '客房信息查询(\<Q)' COLOR SCHEME 3 KEY ALT+Q ,  ;
      ''
 DEFINE PAD _12X0P0S5B OF _MSYSMENU PROMPT '系统帮助(\<H)' COLOR SCHEME 3 KEY ALT+H , ''
 DEFINE PAD _12X0P0S5C OF _MSYSMENU PROMPT '模块转换(\<N)' COLOR SCHEME 3 KEY ALT+N , ''
  DEFINE PAD _12x0p0s5d OF _MSYSMENU PROMPT "服务台交接班(&T)" COLOR SCHEME 3
 DEFINE PAD _12X0P0S5E OF _MSYSMENU PROMPT '退出系统(\<X)' COLOR SCHEME 3 KEY ALT+X , ''
 ON PAD _12X0P0S58 OF _MSYSMENU ACTIVATE POPUP 开房续房退
 ON PAD _12X0P0S59 OF _MSYSMENU ACTIVATE POPUP 订房登记取
 ON PAD _12X0P0S5A OF _MSYSMENU ACTIVATE POPUP 客房信息查
 ON PAD _12X0P0S5B OF _MSYSMENU ACTIVATE POPUP 新菜单项
 ON SELECTION PAD _12X0P0S5C OF _MSYSMENU  ;
      DO _12x0p0s5f  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION PAD _12X0P0S5D OF _MSYSMENU  ;
      DO _12x0p0s5g  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION PAD _12X0P0S5E OF _MSYSMENU  ;
      DO _12x0p0s5h  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 DEFINE POPUP 开房续房退 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 开房续房退 PROMPT '开房登记(\<F)' KEY F5 , 'F5'
 DEFINE BAR 2 OF 开房续房退 PROMPT '团体入住(\<A)'
 DEFINE BAR 3 OF 开房续房退 PROMPT '\-'
 DEFINE BAR 4 OF 开房续房退 PROMPT '客人续房(\<P)' KEY F6 , 'F6'
 DEFINE BAR 5 OF 开房续房退 PROMPT '\-'
 DEFINE BAR 6 OF 开房续房退 PROMPT '持卡退房(\<M)' KEY F7 , 'F7'
 DEFINE BAR 7 OF 开房续房退 PROMPT '无卡退房(\<D)' KEY F8 , 'F8'
 DEFINE BAR 8 OF 开房续房退 PROMPT '\-'
 DEFINE BAR 9 OF 开房续房退 PROMPT '退出系统(\<Q)'
 ON SELECTION BAR 1 OF 开房续房退  ;
      DO _12x0p0s5j  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 2 OF 开房续房退  ;
      DO _12x0p0s5k  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 4 OF 开房续房退  ;
      DO _12x0p0s5l  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 6 OF 开房续房退  ;
      DO _12x0p0s5m  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 7 OF 开房续房退  ;
      DO _12x0p0s5n  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 9 OF 开房续房退  ;
      DO _12x0p0s5o  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 DEFINE POPUP 订房登记取 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 订房登记取 PROMPT '客人订房(\<O)' KEY F9 , 'F9'
 DEFINE BAR 2 OF 订房登记取 PROMPT '\-'
 DEFINE BAR 3 OF 订房登记取 PROMPT '取消订房(\<P)' KEY F4 , 'F4'
 ON SELECTION BAR 1 OF 订房登记取  ;
      DO _12x0p0s5p  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 3 OF 订房登记取  ;
      DO _12x0p0s5q  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 DEFINE POPUP 客房信息查 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 客房信息查 PROMPT '现住客房(\<T)' KEY F11 , 'F11'
 DEFINE BAR 2 OF 客房信息查 PROMPT '\-'
 DEFINE BAR 3 OF 客房信息查 PROMPT '开房记录(\<R)' KEY F12 , 'F12'
 DEFINE BAR 4 OF 客房信息查 PROMPT '\-'
 DEFINE BAR 5 OF 客房信息查 PROMPT '退房记录(\<X)' KEY F2 , 'F2'
 DEFINE BAR 6 OF 客房信息查 PROMPT '\-'
 DEFINE BAR 7 OF 客房信息查 PROMPT '订房记录(\<Y)' KEY F3 , 'F3'
 DEFINE BAR 8 OF 客房信息查 PROMPT '\-'
 DEFINE BAR 9 OF 客房信息查 PROMPT '客人住房查询(\<P)'
 ON SELECTION BAR 1 OF 客房信息查  ;
      DO _12x0p0s5t  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 3 OF 客房信息查  ;
      DO _12x0p0s5u  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 5 OF 客房信息查  ;
      DO _12x0p0s5v  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 7 OF 客房信息查  ;
      DO _12x0p0s5w  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 9 OF 客房信息查  ;
      DO _12x0p0s5x  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 DEFINE POPUP 新菜单项 COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF 新菜单项 PROMPT '帮助主题..(\<T)'
 DEFINE BAR 2 OF 新菜单项 PROMPT '\-'
 DEFINE BAR 3 OF 新菜单项 PROMPT '关于...(\<A)'
 DEFINE BAR 4 OF 新菜单项 PROMPT '\-'
 DEFINE BAR 5 OF 新菜单项 PROMPT '隐藏快捷按钮条(\<H)'
 DEFINE BAR 6 OF 新菜单项 PROMPT '\-'
 DEFINE BAR 7 OF 新菜单项 PROMPT '显示快捷按钮条(\<L)'
 ON SELECTION BAR 1 OF 新菜单项  ;
      DO _12x0p0s5z  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 3 OF 新菜单项  ;
      DO _12x0p0s60  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 5 OF 新菜单项  ;
      DO _12x0p0s61  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")
 ON SELECTION BAR 7 OF 新菜单项  ;
      DO _12x0p0s62  IN LOCFILE("\IC门锁3.8C版\QTFWMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is QTFWMENU?")

PROCEDURE _12x0p0s5f
 PUBTMPCZYXMP = M.CZYXMP
 CONVALUE = 1
 DO FORM forms\mkloginform.scx
 IF CONVALUE = 0
    RETURN 
 ENDIF 
 POPTYPE = 2
 DO htclmenu.mpr
 DO XTQXCTL WITH M.CZYXMP
ENDPROC
*------
PROCEDURE _12x0p0s5g
 DO FORM forms\jjbloginform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5h
 EXIT = MESSAGEBOX('确实退出吗？',36,'退出提示')
 IF EXIT = 7
    RETURN 
 ENDIF 
 ZZRQ = DTOC(DATE())
 KSSJ = TIME()
 CLOSE DATABASES ALL
 = UNLOCKDB(DBFDIRECTORY + '\mslogininfor.dbf')
 USE mslogininfor.dbf
 GO BOTTOM
 REPLACE OUTDATE WITH ZZRQ
 REPLACE OUTTIME WITH KSSJ
 CLOSE DATABASES ALL
 = LOCKDB(DBFDIRECTORY + '\mslogininfor.dbf')
 CLEAR EVENTS 
 CLEAR DLLS
 ON SHUTDOWN do exit.prg
 QUIT 
ENDPROC
*------
PROCEDURE _12x0p0s5j
 CLOSE DATABASES ALL
 DBCFILE =  ;
      CHKDBCFILE('msc','mswz','jbxx','yskxx','ysffxx','fjgg','czrz','msxx','kfydxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\msc.dbf')
 = UNLOCKDB(DBFDIRECTORY + '\mswz_id.dbf')
 = UNLOCKDB(DBFDIRECTORY + '\msxx.dbf')
 USE IN 0 msc.dbf ALIAS MSC
 USE IN 0 mswz_id.dbf ALIAS MSWZ_ID
 SELECT MSWZ_ID
 COUNT TO M
 IF M = 0
    = MESSAGEBOX('客房不能为空！',64,'信息提示')
    CLOSE DATABASES ALL
    RETURN 
 ENDIF 
 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 _12x0p0s5k
 CLOSE DATABASES ALL
 DBCFILE =  ;
      CHKDBCFILE('msc','mswz','jbxx','yskxx','ysffxx','fjgg','czrz','msxx','kfydxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 USE IN 0 msc.dbf ALIAS MSC
 USE IN 0 mswz_id.dbf ALIAS MSWZ_ID
 SELECT MSWZ_ID
 COUNT TO M
 IF M = 0
    = MESSAGEBOX('客房不能为空！',64,'信息提示')
    CLOSE DATABASES ALL
    RETURN 
 ENDIF 
 CLOSE DATABASES ALL
 DO FORM forms\团体入住.scx
ENDPROC
*------
PROCEDURE _12x0p0s5l
 CLOSE DATABASES ALL
 DBCFILE = CHKDBCFILE('msc','mswz','jbxx','yskxx','czrz','msxx','ysffxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\klxfform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5m
 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 _12x0p0s5n
 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\wktfform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5o
 EXIT = MESSAGEBOX('确实退出吗？',36,'退出提示')
 IF EXIT = 7
    RETURN 
 ENDIF 
 ZZRQ = DTOC(DATE())
 KSSJ = TIME()
 CLOSE DATABASES ALL