?? mdiform1.frm
字號:
統計報表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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -