?? mdiform1.frm

?? Hotel Prog in VB using mdb
?? FRM
?? 第 1 頁 / 共 4 頁
字號:
      End
      Begin VB.Menu 預訂客人 
         Caption         =   "預訂客人"
      End
      Begin VB.Menu 離店客人 
         Caption         =   "離店客人"
      End
      Begin VB.Menu 所有客人 
         Caption         =   "所有客人"
      End
      Begin VB.Menu line41 
         Caption         =   "-"
      End
      Begin VB.Menu 客人檔案 
         Caption         =   "客人檔案"
      End
      Begin VB.Menu 客史查詢 
         Caption         =   "客史查詢"
      End
      Begin VB.Menu 黑名單人員 
         Caption         =   "黑名單人員"
      End
      Begin VB.Menu line45 
         Caption         =   "-"
      End
      Begin VB.Menu 航班時刻表 
         Caption         =   "航班時刻表"
         Enabled         =   0   'False
      End
      Begin VB.Menu 火車時刻表 
         Caption         =   "火車時刻表"
         Enabled         =   0   'False
      End
      Begin VB.Menu 旅游景點表 
         Caption         =   "旅游景點表"
         Enabled         =   0   'False
      End
      Begin VB.Menu 部門及個人電話 
         Caption         =   "部門及個人電話"
      End
   End
   Begin VB.Menu 報表統計 
      Caption         =   "報表統計"
      Begin VB.Menu 預報報表 
         Caption         =   "預報報表"
         Begin VB.Menu 次日來店客人預報 
            Caption         =   "次日來店客人預報"
         End
         Begin VB.Menu 次日離店客人報表 
            Caption         =   "次日離店客人報表"
         End
         Begin VB.Menu 次日發放餐券客人報表 
            Caption         =   "次日發放餐券客人報表"
         End
         Begin VB.Menu 次日客人生日預報表 
            Caption         =   "次日客人生日預報表"
         End
         Begin VB.Menu 預訂取消報表 
            Caption         =   "預訂取消報表"
         End
         Begin VB.Menu 預訂未到報表 
            Caption         =   "預訂未到報表"
         End
      End
      Begin VB.Menu 接待報表 
         Caption         =   "接待報表"
         Begin VB.Menu 當日抵店客人報表 
            Caption         =   "當日抵店客人報表"
         End
         Begin VB.Menu 當日離店客人報表 
            Caption         =   "當日離店客人報表"
         End
         Begin VB.Menu 當日在店客人報表 
            Caption         =   "當日在店客人報表"
         End
         Begin VB.Menu 當日房價變更報表 
            Caption         =   "當日房價變更報表"
         End
         Begin VB.Menu 當日房號變更報表 
            Caption         =   "當日房號變更報表"
         End
         Begin VB.Menu 當日房態表 
            Caption         =   "當日房態表"
         End
         Begin VB.Menu 當日抵店客人發放餐券報表 
            Caption         =   "當日抵店客人發放餐券報表"
         End
         Begin VB.Menu 當日抵店客人發放IC卡報表 
            Caption         =   "當日抵店客人發放IC卡報表"
         End
         Begin VB.Menu 當日生日客人報表 
            Caption         =   "當日生日客人報表"
         End
         Begin VB.Menu 當日無預訂散客統計表 
            Caption         =   "當日無預訂散客統計表"
         End
         Begin VB.Menu 當日有預訂散客統計表 
            Caption         =   "當日有預訂散客統計表"
         End
         Begin VB.Menu 在店免費客人報表 
            Caption         =   "在店免費客人報表"
         End
         Begin VB.Menu 在店特價客人報表 
            Caption         =   "在店特價客人報表"
         End
         Begin VB.Menu 在店長住客人報表 
            Caption         =   "在店長住客人報表"
         End
         Begin VB.Menu 在店外賓及港澳臺客人報表 
            Caption         =   "在店外賓及港澳臺客人報表"
         End
      End
      Begin VB.Menu 財務報表 
         Caption         =   "財務報表"
         Begin VB.Menu 當日在店客人報表A 
            Caption         =   "當日在店客人報表"
         End
         Begin VB.Menu 當日離店客人報表A 
            Caption         =   "當日離店客人報表"
         End
         Begin VB.Menu 當日抵店客人報表A 
            Caption         =   "當日抵店客人報表"
         End
         Begin VB.Menu 在店長住客人報表A 
            Caption         =   "在店長住客人報表"
         End
         Begin VB.Menu 在店免費客人報表A 
            Caption         =   "在店免費客人報表"
         End
         Begin VB.Menu 在店特價客人報表A 
            Caption         =   "在店特價客人報表"
         End
         Begin VB.Menu 昨日離店客人報表 
            Caption         =   "昨日離店客人報表"
         End
      End
   End
   Begin VB.Menu 夜間稽核 
      Caption         =   "夜間稽核"
      Begin VB.Menu 當日營業收款 
         Caption         =   "當日營業收款"
         Begin VB.Menu 夜審之前錄入 
            Caption         =   "夜審之前錄入"
         End
         Begin VB.Menu 夜審之后錄入 
            Caption         =   "夜審之后錄入"
         End
      End
      Begin VB.Menu 夜審操作 
         Caption         =   "夜間處理"
      End
      Begin VB.Menu 夜審報表 
         Caption         =   "夜審報表"
         Begin VB.Menu 日營業收入報表 
            Caption         =   "日營業收入報表"
         End
         Begin VB.Menu 客房營業收入表 
            Caption         =   "客房營業收入表"
         End
         Begin VB.Menu 餐廳營業收入表 
            Caption         =   "餐廳營業收入表"
         End
         Begin VB.Menu 掛帳明細表 
            Caption         =   "掛帳明細表"
         End
         Begin VB.Menu 當日單位帳戶帳務報表 
            Caption         =   "當日單位帳戶帳務報表"
         End
      End
      Begin VB.Menu line61 
         Caption         =   "-"
      End
      Begin VB.Menu 夜審數據恢復 
         Caption         =   "夜審數據恢復"
      End
   End
   Begin VB.Menu 電腦中心 
      Caption         =   "電腦中心"
      Begin VB.Menu 設置操作人員 
         Caption         =   "設置操作人員"
      End
      Begin VB.Menu 設置各類項目 
         Caption         =   "設置各類項目編碼"
         Begin VB.Menu 證件種類設置 
            Caption         =   "證件種類設置"
         End
         Begin VB.Menu 簽證類型設置 
            Caption         =   "簽證類型設置"
         End
         Begin VB.Menu 客房類型設置 
            Caption         =   "客房類型設置"
         End
         Begin VB.Menu 幣種設置 
            Caption         =   "幣種設置"
         End
         Begin VB.Menu 費用項目設置 
            Caption         =   "費用項目設置"
         End
         Begin VB.Menu 停留事由設置 
            Caption         =   "停留事由設置"
         End
         Begin VB.Menu 國家編碼設置 
            Caption         =   "國家編碼設置"
         End
         Begin VB.Menu 入境口岸設置 
            Caption         =   "入境口岸設置"
         End
         Begin VB.Menu 黑名單種類設置 
            Caption         =   "黑名單種類設置"
         End
      End
      Begin VB.Menu 公共信息 
         Caption         =   "公共信息"
         Begin VB.Menu 航班時刻表設置 
            Caption         =   "航班時刻表設置"
            Enabled         =   0   'False
         End
         Begin VB.Menu 火車時刻表設置 
            Caption         =   "火車時刻表設置"
            Enabled         =   0   'False
         End
         Begin VB.Menu 旅游景點設置 
            Caption         =   "旅游景點設置"
            Enabled         =   0   'False
         End
         Begin VB.Menu 部門及電話設置 
            Caption         =   "部門及電話設置"
         End
      End
      Begin VB.Menu line05 
         Caption         =   "-"
      End
      Begin VB.Menu 操作員菜單權限設置 
         Caption         =   "操作員菜單權限設置"
      End
   End
   Begin VB.Menu 其他 
      Caption         =   "其他"
      Begin VB.Menu 更換背景圖象 
         Caption         =   "更換背景圖象"
      End
      Begin VB.Menu 修改口令 
         Caption         =   "修改口令"
      End
      Begin VB.Menu line21 
         Caption         =   "-"
      End
      Begin VB.Menu 計算器 
         Caption         =   "計算器"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'歡迎你下載使用本代碼，本份代碼由程序太平洋提供下載學習之用
'聲明:
'1.本站所有代碼的版權歸原作者所有，如果你使用了在本站下載的源代碼
'  引起的一切糾紛(后果)與本站無關,請您尊重原作者的勞動成果！
'2.若本站在代碼上有侵權之處請您與站長聯系，站長會及時更正。
'網站：http://www.dapha.net
'論壇：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理時間：2003-12-8 12:22:14

'星級酒店管理系統最初功能演示版,提供所有星級酒店管理中的客房管理,
'房態管理,客史管理,客人資料管理,帳務管理,報表管理,餐飲收費管理
'菜譜管理,夜審處理,數據庫備份等功能.所有功能皆可以運行,(但有一些BUG未處理)
'此代碼完全可以完成星級酒店上述管理功能.(提供者:帥)
'--------------------------------------------------------------
'代碼編寫于:2001.12  系統分析:帥   代碼編寫:帥    版權所有:帥
'--------------------------------------------------------------
'本份代碼僅提供給程序太平洋的所有朋友學習,研究之用.
'其它網站一律不得轉載,否則為侵權行為,本人保留法律追訴權力.
'這也是本人最早的VB版程序,代碼質量不好.望笑納.:)
'--------------------------------------------------------------
'提供日期:2003-05-31    提供者:帥
'--------------------------------------------------------------
'系統提從與ACCESS或SQL相接,在登錄時,選擇全局數據庫,就與SQL數據庫
'連接,字符串存放在SERVER.DAT文本文件中;選擇本地數據庫,與本地ACCESS
'數據庫相連,連接字符串存放在LOCAT.DAT文件中.(當前存放為e:\hotel2\room.mdb)
'---------------------------------------------------------------
'將ACCESS中所有表導入SQL中,并將有的表中的ID字段改為自動編碼,就可以使用.
'---------------------------------------------------------------------
'
'


Private Sub MDIForm_Activate()
    'StatusBar1.Panels(2) = "片區：" & PianQu

    If Not PASSed1 Then
    
        'abc = sysquit()
        'Unload Me
        End
    End If

End Sub

Private Sub MDIForm_Load()
    Dim abc
    
    PIC_load = True
    
    menuload = True
    DENGLU_LB = 1
    SF_LB = 1
    
    
    login.Show 1
    
    'MsgBox PianQu
    If PASSed1 Then
    
    If menuload Then
        Call MenuReLoad
        menuload = False
    End If


    If Not Dir(BKPicPath) = "" Then
        Me.Picture = LoadPicture(BKPicPath)
    Else
        MsgBox "提示：背景圖片不存在，請重新設置！", 48, "提示信息"
    End If
    StatusBar1.Panels(1) = "操作員：" & CzyName
    StatusBar1.Panels(2) = "系統狀態：" & System_Statu
    StatusBar1.Panels(3) = "系統日期：" & System_Date
    StatusBar1.Panels(5) = "使用單位：" & DWMC
    StatusBar1.Panels(6) = DATA_SERVER
    Me.Caption = DWMC & "管理系統(網絡版 Ver2.0)"
    
    End If
End Sub

Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
    
        PopupMenu 其他
    
    
    End If

End Sub
?? 文件大小 548 K
?? 上傳用戶 LOOK1980
?? 所屬分類其他數據庫
??? 相關標簽

#Hotel #using #Prog #mdb
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mdiform1.frm

?? 快捷鍵說明
