統計報表form.Show
End Sub

Private Sub 個人營業表_Click()
    Report_Type = "客房部"
    當日營業員收入表.Show
End Sub

Private Sub 更新發票號_Click()
    Form1.Show
End Sub

Private Sub 掛帳明細表_Click()
    Query_Type = "掛帳明細表"

    餐廳報表.Show

End Sub

Private Sub 國家編碼設置_Click()
    Table_SetType = "GJ"
    會計科目設置.Show
End Sub

Private Sub 黑名單種類設置_Click()
    Table_SetType = "WF"
    會計科目設置.Show
End Sub

Private Sub 客房類型設置_Click()
    Table_SetType = "FL"
    會計科目設置.Show

End Sub


Private Sub 客房帳務提醒_Click()
    客房帳務提醒表.Show
End Sub

Private Sub 客人預付和消費報表_Click()
    QAccount_ID = ""
    Account_ID = ""
    Query_Type = "客人預付和消費報表"
    客人查詢.Show

End Sub

Private Sub 客人資料管理_Click()
    Query_Type = "客人檔案"
    客人查詢.Show

End Sub

Private Sub 快速入住_Click()
    Registration_Type = "快速入住"
    Load_Statu = "使用"
    房態圖FORM.Show
End Sub

Private Sub 簽證類型設置_Click()
    Table_SetType = "QZ"
    會計科目設置.Show
End Sub

Private Sub 全體操作員統計表_Click()
    Query_Type = "全體操作員交班統計表"
    統計報表form.Show
End Sub

Private Sub 日營業收入報表_Click()
    Query_Type = "日營業收入報表"
    餐廳報表.Show

End Sub

Private Sub 入境口岸設置_Click()
    Table_SetType = "KA"
    會計科目設置.Show

End Sub

Private Sub 設置操作人員_Click()
    操作人員設置.Show
End Sub

Private Sub 停留事由設置_Click()
    Table_SetType = "SY"
    會計科目設置.Show
End Sub

Private Sub 夜審之前錄入_Click()
    Table_SetType = "營業收款"
    會計科目設置.Show

End Sub

Private Sub 預訂取消報表_Click()
    Query_Type = "預訂取消報表"
    客人查詢.Show

End Sub

Private Sub 預訂未到報表_Click()
    Query_Type = "預訂未到報表"
    客人查詢.Show
End Sub

Private Sub 當日抵店客人報表_Click()
    Query_Type = "當日抵店客人表"
    客人查詢.Show
End Sub

Private Sub 當日離店客人報表_Click()
    Query_Type = "當日離店客人表"
    客人查詢.Show
End Sub

Private Sub 當日在店客人報表_Click()
    Query_Type = "當日在店客人表"
    客人查詢.Show
End Sub

Private Sub 當日生日客人報表_Click()
    Query_Type = "當日生日客人報表"
    客人查詢.Show
End Sub
Private Sub 房態圖_Click()
    Registration_Type = ""
    Load_Statu = "顯示"
    房態圖FORM.Show
End Sub

Private Sub 更換背景圖象_Click()
    CommonDialog1.DialogTitle = "背景圖象"
    CommonDialog1.Filter = "Bmp File(*.Bmp)|*.bmp|JPG File(*.JPG)|*.jpg"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then
       Exit Sub
    End If
    On Error GoTo errhandler
    BKPicPath = CommonDialog1.FileName
    
    Open App.Path & "\BKPIC.dat" For Output As #1
    'Input #1, BKPicPath
    Write #1, BKPicPath
    Write #1, PianQu
    Write #1, DWMC
    Close #1

    Me.Picture = LoadPicture(BKPicPath)
    

Exit Sub
errhandler:
    If Err = 481 Then
       MsgBox "無效文件", 48, "錯誤"
       CommonDialog1.FileName = ""
    End If

End Sub


Private Sub 黑名單人員_Click()
    Query_Type = "黑名單人員"
    客人查詢.Show
End Sub

Private Sub 黑名單人員登記_Click()
    Query_Type = "黑名單人員登記"
    客人查詢.Show
End Sub


Private Sub 會議記錄維護_Click()
    Query_Type2 = "會議記錄"
    會議團體.Show
End Sub

Private Sub 計算器_Click()
    Call Shell("calc.exe")
End Sub

Private Sub 客房設置_Click()
    客房設置FORM.Show
End Sub

Private Sub 客人檔案_Click()
    Query_Type = "客人檔案"
    客人查詢.Show
End Sub


Private Sub 客史查詢_Click()
    客史查詢form.Show
End Sub

Private Sub 離店客人_Click()
    Query_Type = "離店客人"
    客人查詢.Show
End Sub

Private Sub 內部帳戶管理_Click()
    Query_Type2 = "內部"
    往來帳戶管理.Show

End Sub

Private Sub 上傳數據_Click()
    'If DATA_SERVER = "全局服務器" Then
        上傳.Show 1
    'Else
    '    MsgBox "請注意：現在是在本地服務器上運行，無須上傳數據服務！", 48, "提示"
    'End If

End Sub


Private Sub 輸帳結帳_Click()
    輸帳.Show
End Sub

Private Sub 所有客人_Click()
    Query_Type = "所有客人"
    客人查詢.Show
End Sub

Private Sub 團體記錄維護_Click()
    Query_Type2 = "團隊記錄"
    會議團體.Show

End Sub

Private Sub 退出系統_Click()
    Unload Me
End Sub

Private Sub 外部帳戶單位_Click()
    Query_Type2 = "外部"
    往來帳戶管理.Show

End Sub

Private Sub 下載數據_Click()
    'If DATA_SERVER = "全局服務器" Then
        上傳下載.Show 1
    'Else
    '    MsgBox "請注意：現在是在本地服務器上運行，無須下載數據服務！", 48, "提示"
    'End If
End Sub
Private Sub 修改口令_Click()
    setpasswd.Show
End Sub
Private Sub 夜審操作_Click()
    夜審.Show 1
End Sub
Private Sub 預訂登記_Click()
    Registration_Type = "預訂"
    住宿登錄.Show
End Sub

Private Sub 預訂客人_Click()
    QAccount_ID = ""
    Query_Type = "預訂客人"
    客人查詢.Show
End Sub

Private Sub 預訂客人登記_Click()
    QAccount_ID = ""
    Query_Type = "預訂客人"
    客人查詢.Show

End Sub

Private Sub 在店長住客人報表_Click()
    QAccount_ID = ""
    Query_Type = "在店長住客人表"
    客人查詢.Show

End Sub

Private Sub 在店長住客人報表A_Click()
    QAccount_ID = ""
    Query_Type = "在店長住客人報表"
    客人查詢.Show

End Sub

Private Sub 在店免費客人報表_Click()
    QAccount_ID = ""
    Query_Type = "在店免費客人表"
    客人查詢.Show

End Sub

Private Sub 在店免費客人報表A_Click()
    QAccount_ID = ""
    Query_Type = "在店免費客人報表"
    客人查詢.Show

End Sub

Private Sub 在店特價客人報表_Click()
    QAccount_ID = ""
    Query_Type = "在店特價客人報表"
    客人查詢.Show

End Sub

Private Sub 在店外賓及港澳臺客人報表_Click()
    QAccount_ID = ""
    Query_Type = "在店外賓及港澳臺客人報表"
    客人查詢.Show

End Sub

Private Sub 在住客人_Click()
    QAccount_ID = ""
    Query_Type = "在住客人"
    客人查詢.Show
End Sub

Private Sub 在住客人資料修改_Click()
    QAccount_ID = ""
    Query_Type = "在住客人"
    客人查詢.Show

End Sub

Private Sub 證件種類設置_Click()
    Table_SetType = "ZJ"
    會計科目設置.Show
End Sub

Private Sub 住宿登記_Click()
    Registration_Type = "售出"
    住宿登錄.Show

End Sub

Private Sub 昨日離店客人報表_Click()
    QAccount_ID = ""
    Query_Type = "昨日離店客人報表"
    客人查詢.Show

End Sub