qtfwmenu.mpr

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

 = 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 _12x0p0s5p
 CLOSE DATABASES ALL
 DBCFILE = CHKDBCFILE('czygl','xdczycc','czyjb1','czyjb2','czyjb3')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\bespeakform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5q
 CLOSE DATABASES ALL
 DBCFILE =  ;
      CHKDBCFILE('czygl','czyjb1','czyjb2','czyjb3','xdczycc','kftf','kfydxx','czrz','kldy','mdzbh','jbxx','yskxx','zcxx','deleczy')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\qxkfydform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5t
 CLOSE DATABASES ALL
 SET TALK OFF
 SET SAFETY OFF
 DBCFILE = CHKDBCFILE('yskxx','msxx','mswz')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\yskxx.dbf')
 USE IN 0 yskxx.dbf ALIAS YSKXX
 = UNLOCKDB(DBFDIRECTORY + '\msxx.dbf')
 USE IN 0 msxx.dbf ALIAS MSXX
 = UNLOCKDB(DBFDIRECTORY + '\mswz.dbf')
 USE IN 0 mswz.dbf ALIAS MSWZ
 LOCDATE = CTOT(SUBSTR(TTOC(DATETIME()),1,13))
 IF FILE('temptodaykf.dbf')
    DELETE File temptodaykf.dbf
 ENDIF 
 SELECT YSKXX
 COPY TO temptodaykf.dbf STRUCTURE 
 USE IN 0 temptodaykf ALIAS TEMPTODAYKF
 SELECT TEMPTODAYKF
 ALTER TABLE temptodaykf.dbf ALTER COLUMN NKQDMS C ( 35 )
 SELECT * WHERE KFDECMS <> MYMS INTO CURSOR todaymsxx FROM msxx
 SELECT TODAYMSXX
 COUNT TO M
 FOR I = 1 TO M
    SELECT TODAYMSXX
    GO I
    TODAYKFBH = ALLTRIM(MSBH)
    SELECT MSWZ
    LOCATE FOR ALLTRIM(QHBH) + ALLTRIM(DHBH) + ALLTRIM(LHBH) + ALLTRIM(MHBH) == TODAYKFBH
    TODAYKFDZ =  ;
         ALLTRIM(QHDZ) + '\' + ALLTRIM(DHDZ) + '\' + ALLTRIM(LHDZ) + '\' + ALLTRIM(MHDZ)
    SELECT YSKXX
    LOCATE FOR ALLTRIM(MLINE(NKQDMS,1)) == TODAYKFDZ
    IF FOUND()
       LNKLSH = ALLTRIM(KLSH)
       LNYSDYMC = ALLTRIM(YSDYMC)
       LNYSZL = ALLTRIM(YSZL)
       LNQZSJ = ALLTRIM(QZSJ)
       LNZZSJ = ALLTRIM(ZZSJ)
       LNCZFS = ALLTRIM(CZFS)
       LNCZJB = CZJB
       LNKQMSS = KQMSS
       LNNKQDMS = MLINE(NKQDMS,1)
       POS = ATC('\',LNNKQDMS,3)
       LNNKQDMS = ALLTRIM(SUBSTR(LNNKQDMS,POS + 1))
       LNZDFBZ = ZDFBZ
       LNOPTNAME = ALLTRIM(OPTNAME)
       LNOPTTIME = ALLTRIM(OPTTIME)
       LNCKXM = ALLTRIM(CKXM)
       SELECT TEMPTODAYKF
       APPEND BLANK
       REPLACE OPTNAME WITH LNOPTNAME
       REPLACE OPTTIME WITH LNOPTTIME
       REPLACE CKXM WITH LNCKXM
       REPLACE KLSH WITH LNKLSH
       REPLACE YSDYMC WITH LNYSDYMC
       REPLACE YSZL WITH LNYSZL
       REPLACE QZSJ WITH LNQZSJ
       REPLACE ZZSJ WITH LNZZSJ
       REPLACE CZFS WITH LNCZFS
       REPLACE CZJB WITH LNCZJB
       REPLACE KQMSS WITH LNKQMSS
       REPLACE NKQDMS WITH LNNKQDMS
       REPLACE ZDFBZ WITH LNZDFBZ
    ENDIF 
 ENDFOR 
 SELECT TEMPTODAYKF.CKXM  持卡人 , TEMPTODAYKF.KLSH  卡号 , TEMPTODAYKF.NKQDMS  房号 ,  ;
      TEMPTODAYKF.QZSJ  入住时间 , TEMPTODAYKF.ZZSJ  退房时间 ,  ;
      IIF(TEMPTODAYKF.ZDFBZ,'是','否')  是否钟点房 , TEMPTODAYKF.OPTNAME  发卡人 ,  ;
      TEMPTODAYKF.OPTTIME  发卡时间 , TEMPTODAYKF.CZFS  操作方式 ,  ;
      TEMPTODAYKF.CZJB  操作级别 , TEMPTODAYKF.KQMSS  开启房数 , TEMPTODAYKF.YSDYMC  卡名称  ;
      WHERE  ;
      ALLTRIM(TEMPTODAYKF.YSZL) == '客房模式' .OR. ALLTRIM(TEMPTODAYKF.YSZL) == '客人卡' .OR.  ;
ALLTRIM(TEMPTODAYKF.YSZL) == '退房卡'  ;
      INTO CURSOR todaykffrxfrx FROM temptodaykf
 = LOCKDB(DBFDIRECTORY + '\yskxx.dbf')
 = LOCKDB(DBFDIRECTORY + '\msxx.dbf')
 = LOCKDB(DBFDIRECTORY + '\mswz.dbf')
 SELECT TODAYKFFRXFRX
 DO FORM forms\datahandleform.scx WITH '客房现住情况'
ENDPROC
*------
PROCEDURE _12x0p0s5u
 CLOSE DATABASES ALL
 SET TALK OFF
 SET SAFETY OFF
 DBCFILE = CHKDBCFILE('ysffxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\ysffxx.dbf')
 USE ysffxx.dbf
 IF RECCOUNT() > 0
    FOR I = 1 TO RECCOUNT()
       GO I
       SCATTER MEMO TO TEM FIELDS NKQDMS
       POS = ATC('\',TEM,3)
       TEM = ALLTRIM(SUBSTR(TEM,POS + 1))
       REPLACE KFJC WITH TEM
    ENDFOR 
 ENDIF 
 SELECT YSFFXX.CKXM  持卡人 , YSFFXX.KLSH  卡号 , YSFFXX.KFJC  房号 , YSFFXX.QZSJ   ;
      入住时间 , YSFFXX.ZZSJ  退房时间 , IIF(YSFFXX.ZDFBZ,'是','否')  是否钟点房 ,  ;
      YSFFXX.OPTNAME  发卡人 , YSFFXX.OPTTIME  发卡时间 , YSFFXX.CZFS   ;
      操作方式 , YSFFXX.CZJB  操作级别 , YSFFXX.KQMSS  开启房数 , YSFFXX.YSDYMC  ;
       卡名称 INTO CURSOR ysffxxfrxfrx FROM ysffxx
 SELECT YSFFXXFRXFRX
 DO FORM forms\datahandleform.scx WITH '前台开房记录'
ENDPROC
*------
PROCEDURE _12x0p0s5v
 CLOSE DATABASES ALL
 SET TALK OFF
 SET SAFETY OFF
 DBCFILE = CHKDBCFILE('kftf')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\kftf.dbf')
 USE kftf.dbf
 SELECT KFTF.TFKLSH  退房卡卡号 , KFTF.TFXM  持卡人 , KFTF.TFFH  退房房号 , KFTF.OPTNAME  ;
       操作人 , KFTF.OPTTIME  操作时间 , KFTF.ZFSJ  入住始日期 , KFTF.TFSJ  ;
       住房终日期 , KFTF.TFLX  退房方式 INTO TABLE kftffrxfrx FROM kftf
 SELECT KFTFFRXFRX
 IF RECCOUNT() > 0
    FOR I = 1 TO RECCOUNT()
       GO I
       TEM = ALLTRIM(退房房号)
       POS = ATC('\',TEM,3)
       TEM = ALLTRIM(SUBSTR(TEM,POS + 1))
       REPLACE 退房房号 WITH TEM
    ENDFOR 
 ENDIF 
 DO FORM forms\datahandleform.scx WITH '客房退房'
ENDPROC
*------
PROCEDURE _12x0p0s5w
 CLOSE DATABASES ALL
 SET TALK OFF
 SET SAFETY OFF
 DBCFILE = CHKDBCFILE('kfydxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 = UNLOCKDB(DBFDIRECTORY + '\kfydxx.dbf')
 USE kfydxx.dbf
 SELECT KFYDXX.YDDW  单位名称 , KFYDXX.YDLX  类型 , KFYDXX.YDKFFH  客房房号 ,  ;
      KFYDXX.YDQSDATE  入住时间 , KFYDXX.YDZZDATE  退房时间 , KFYDXX.YDKFGG  客房规格 ,  ;
      KFYDXX.YDKFLB  客房类型 , KFYDXX.YDPHONE  联系电话 INTO TABLE  ;
      kfydxxfrxfrx FROM kfydxx
 SELECT KFYDXXFRXFRX
 IF RECCOUNT() > 0
    FOR I = 1 TO RECCOUNT()
       GO I
       TEM = ALLTRIM(客房房号)
       POS = ATC('\',TEM,3)
       TEM = ALLTRIM(SUBSTR(TEM,POS + 1))
       REPLACE 客房房号 WITH TEM
    ENDFOR 
 ENDIF 
 DO FORM forms\datahandleform.scx WITH '客房预订'
ENDPROC
*------
PROCEDURE _12x0p0s5x
 CLOSE DATABASES ALL
 DBCFILE = CHKDBCFILE('yskxx','ysffxx')
 IF DBCFILE == 'failed'
    RETURN 
 ENDIF 
 DO FORM forms\csklform.scx
ENDPROC
*------
PROCEDURE _12x0p0s5z
 HELP IN SCREEN 
ENDPROC
*------
PROCEDURE _12x0p0s60
 LOCAL LOABOUTBOX
 SET CLASSLIB TO about ADDITIVE
 LOABOUTBOX = CREATEOBJECT('AboutBox')
  LOABOUTBOX.SHOW()
 RELEASE CLASSLIB about.vcx
ENDPROC
*------
PROCEDURE _12x0p0s61
 ISFORM = .T.
 IF _SCREEN.ACTIVEFORM.PARENT.TSTOOLBARQT.VISIBLE = .T.
    _SCREEN.ACTIVEFORM.PARENT.TSTOOLBARQT.VISIBLE = .F.
 ENDIF 
ENDPROC
*------
PROCEDURE _12x0p0s62
 ISFORM = .F.
 IF _SCREEN.ACTIVEFORM.PARENT.TSTOOLBARQT.VISIBLE = .F.
    _SCREEN.ACTIVEFORM.PARENT.TSTOOLBARQT.VISIBLE = .T.
 ENDIF 
ENDPROC
*------*