?? mdiform1.frm

?? Hotel Prog in VB using mdb
?? FRM
?? 第 1 頁 / 共 4 頁
字號:

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("您確認要退出系統嗎？", 17, "退出系統提示") = vbOK Then
        Cancel = 0
    Else
        Cancel = 1
    End If

End Sub



Private Sub Timer1_Timer()
    Adodc20.ConnectionString = My_PROVIDER
    Adodc20.CommandType = adCmdText
    Adodc20.RecordSource = "select * from 參數"
    Adodc20.Refresh
    System_Statu = Adodc20.Recordset.Fields("系統狀態")
    Adodc20.Recordset.Close
    StatusBar1.Panels(2) = "系統狀態：" & System_Statu
    If System_Statu <> "正常" Then
        MsgBox "請稍候：系統現在正處于  [" & System_Statu & "] 狀態！", 64, "提示"
        Unload Me
    End If
End Sub

Private Sub 備份本地數據_Click()
Dim result As Long, fileop As SHFILEOPSTRUCT
With fileop
        .hwnd = Me.hwnd
        .wFunc = FO_COPY
        .pFrom = App.Path & "\*.mdb" & vbNullChar & vbNullChar
        .pTo = App.Path & "\backup" & vbNullChar & vbNullChar
        .fFlags = FOF_SIMPLEPROGRESS Or FOF_FILESONLY
End With
result = SHFileOperation(fileop)
If result <> 0 Then
        ' Operation failed
        MsgBox Err.LastDllError
Else
        If fileop.fAnyOperationsAborted <> 0 Then
                      MsgBox "Operation Failed"
         End If
End If

MsgBox "請注意：當前數據庫已備份到 " & App.Path & "\backup 文件夾中", 48, "提示"

End Sub

Private Sub 幣種設置_Click()
    Table_SetType = "BZ"
    會計科目設置.Show
End Sub

Private Sub 部門及電話設置_Click()
    Table_SetType = "部門"
    會計科目設置.Show
End Sub

Private Sub 餐廳當日營業報表_Click()
    Report_Type = "餐飲部"
    當日營業員收入表.Show
End Sub

Private Sub 餐廳收銀_Click()
    餐廳收銀FORM.Show
End Sub

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

End Sub

Private Sub 操作員菜單權限設置_Click()
    setmenu.Show
End Sub




Private Sub MenuReLoad()
    menudata.ConnectionString = My_PROVIDER
    menudata.CommandType = adCmdText
    menudata.RecordSource = "select * from 菜單"
    menudata.Refresh

    menudata.Recordset.MoveFirst
    While Not menudata.Recordset.EOF
        If InStr(1, menudata.Recordset.Fields("usertype"), Trim(CzyType)) > 0 Then
            If menudata.Recordset.Fields("menu") = "11" Then 預訂登記.Enabled = True
            If menudata.Recordset.Fields("menu") = "12" Then 會議記錄維護.Enabled = True
            If menudata.Recordset.Fields("menu") = "13" Then 團體記錄維護.Enabled = True
            If menudata.Recordset.Fields("menu") = "14" Then 備份本地數據.Enabled = True
            If menudata.Recordset.Fields("menu") = "15" Then 下載數據.Enabled = True
            If menudata.Recordset.Fields("menu") = "16" Then 上傳數據.Enabled = True
            If menudata.Recordset.Fields("menu") = "17" Then 退出系統.Enabled = True

            If menudata.Recordset.Fields("menu") = "21" Then 登記表.Enabled = True
            If menudata.Recordset.Fields("menu") = "22" Then 住宿登記.Enabled = True
            If menudata.Recordset.Fields("menu") = "23" Then 快速入住.Enabled = True
            If menudata.Recordset.Fields("menu") = "24" Then 預訂客人登記.Enabled = True
            If menudata.Recordset.Fields("menu") = "25" Then 在住客人資料修改.Enabled = True
            If menudata.Recordset.Fields("menu") = "26" Then 客人資料管理.Enabled = True
            If menudata.Recordset.Fields("menu") = "27" Then 黑名單人員登記.Enabled = True
            
            If menudata.Recordset.Fields("menu") = "31" Then 輸帳結帳.Enabled = True
            If menudata.Recordset.Fields("menu") = "32" Then 帳戶管理.Enabled = True
            If menudata.Recordset.Fields("menu") = "33" Then 個人營業表.Enabled = True
            If menudata.Recordset.Fields("menu") = "34" Then 當日收銀匯總表.Enabled = True
            If menudata.Recordset.Fields("menu") = "35" Then 當日預付款報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "36" Then 當日房租表.Enabled = True
            If menudata.Recordset.Fields("menu") = "37" Then 客人預付和消費報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "38" Then 交班統計表.Enabled = True
            If menudata.Recordset.Fields("menu") = "39" Then 客房帳務提醒.Enabled = True
            
            If menudata.Recordset.Fields("menu") = "41" Then 客房設置.Enabled = True
            If menudata.Recordset.Fields("menu") = "42" Then 房態圖.Enabled = True
            
            If menudata.Recordset.Fields("menu") = "51" Then 餐廳收銀.Enabled = True
            If menudata.Recordset.Fields("menu") = "52" Then 餐廳當日營業報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "54" Then 在住客人.Enabled = True
            If menudata.Recordset.Fields("menu") = "55" Then 預訂客人.Enabled = True
            If menudata.Recordset.Fields("menu") = "56" Then 離店客人.Enabled = True
            If menudata.Recordset.Fields("menu") = "57" Then 所有客人.Enabled = True
            
            If menudata.Recordset.Fields("menu") = "61" Then 客人檔案.Enabled = True
            If menudata.Recordset.Fields("menu") = "62" Then 客史查詢.Enabled = True
            If menudata.Recordset.Fields("menu") = "63" Then 黑名單人員.Enabled = True
            If menudata.Recordset.Fields("menu") = "64" Then 航班時刻表.Enabled = True
            If menudata.Recordset.Fields("menu") = "65" Then 火車時刻表.Enabled = True
            If menudata.Recordset.Fields("menu") = "66" Then 旅游景點表.Enabled = True
            If menudata.Recordset.Fields("menu") = "67" Then 部門及個人電話.Enabled = True

            If menudata.Recordset.Fields("menu") = "71" Then 預報報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "72" Then 接待報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "73" Then 財務報表.Enabled = True
            
            If menudata.Recordset.Fields("menu") = "81" Then 當日營業收款.Enabled = True
            If menudata.Recordset.Fields("menu") = "82" Then 夜審操作.Enabled = True
            If menudata.Recordset.Fields("menu") = "83" Then 夜審報表.Enabled = True
            If menudata.Recordset.Fields("menu") = "84" Then 夜審數據恢復.Enabled = True
            If menudata.Recordset.Fields("menu") = "91" Then 設置操作人員.Enabled = True
            If menudata.Recordset.Fields("menu") = "92" Then 設置各類項目.Enabled = True
            If menudata.Recordset.Fields("menu") = "93" Then 公共信息.Enabled = True
            If menudata.Recordset.Fields("menu") = "94" Then 操作員菜單權限設置.Enabled = True
        Else
            If menudata.Recordset.Fields("menu") = "11" Then 預訂登記.Enabled = False
            If menudata.Recordset.Fields("menu") = "12" Then 會議記錄維護.Enabled = False
            If menudata.Recordset.Fields("menu") = "13" Then 團體記錄維護.Enabled = False
            If menudata.Recordset.Fields("menu") = "14" Then 備份本地數據.Enabled = False
            If menudata.Recordset.Fields("menu") = "15" Then 下載數據.Enabled = False
            If menudata.Recordset.Fields("menu") = "16" Then 上傳數據.Enabled = False
            If menudata.Recordset.Fields("menu") = "17" Then 退出系統.Enabled = False

            If menudata.Recordset.Fields("menu") = "21" Then 登記表.Enabled = False
            If menudata.Recordset.Fields("menu") = "22" Then 住宿登記.Enabled = False
            If menudata.Recordset.Fields("menu") = "23" Then 快速入住.Enabled = False
            If menudata.Recordset.Fields("menu") = "24" Then 預訂客人登記.Enabled = False
            If menudata.Recordset.Fields("menu") = "25" Then 在住客人資料修改.Enabled = False
            If menudata.Recordset.Fields("menu") = "26" Then 客人資料管理.Enabled = False
            If menudata.Recordset.Fields("menu") = "27" Then 黑名單人員登記.Enabled = False
            
            If menudata.Recordset.Fields("menu") = "31" Then 輸帳結帳.Enabled = False
            If menudata.Recordset.Fields("menu") = "32" Then 帳戶管理.Enabled = False
            If menudata.Recordset.Fields("menu") = "33" Then 個人營業表.Enabled = False
            If menudata.Recordset.Fields("menu") = "34" Then 當日收銀匯總表.Enabled = False
            If menudata.Recordset.Fields("menu") = "35" Then 當日預付款報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "36" Then 當日房租表.Enabled = False
            If menudata.Recordset.Fields("menu") = "37" Then 客人預付和消費報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "38" Then 交班統計表.Enabled = False
            If menudata.Recordset.Fields("menu") = "39" Then 客房帳務提醒.Enabled = False
            
            If menudata.Recordset.Fields("menu") = "41" Then 客房設置.Enabled = False
            If menudata.Recordset.Fields("menu") = "42" Then 房態圖.Enabled = False
            
            If menudata.Recordset.Fields("menu") = "51" Then 餐廳收銀.Enabled = False
            If menudata.Recordset.Fields("menu") = "52" Then 餐廳當日營業報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "54" Then 在住客人.Enabled = False
            If menudata.Recordset.Fields("menu") = "55" Then 預訂客人.Enabled = False
            If menudata.Recordset.Fields("menu") = "56" Then 離店客人.Enabled = False
            If menudata.Recordset.Fields("menu") = "57" Then 所有客人.Enabled = False
            
            If menudata.Recordset.Fields("menu") = "61" Then 客人檔案.Enabled = False
            If menudata.Recordset.Fields("menu") = "62" Then 客史查詢.Enabled = False
            If menudata.Recordset.Fields("menu") = "63" Then 黑名單人員.Enabled = False
            If menudata.Recordset.Fields("menu") = "64" Then 航班時刻表.Enabled = False
            If menudata.Recordset.Fields("menu") = "65" Then 火車時刻表.Enabled = False
            If menudata.Recordset.Fields("menu") = "66" Then 旅游景點表.Enabled = False
            If menudata.Recordset.Fields("menu") = "67" Then 部門及個人電話.Enabled = False

            If menudata.Recordset.Fields("menu") = "71" Then 預報報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "72" Then 接待報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "73" Then 財務報表.Enabled = False
            
            If menudata.Recordset.Fields("menu") = "81" Then 當日營業收款.Enabled = False
            If menudata.Recordset.Fields("menu") = "82" Then 夜審操作.Enabled = False
            If menudata.Recordset.Fields("menu") = "83" Then 夜審報表.Enabled = False
            If menudata.Recordset.Fields("menu") = "84" Then 夜審數據恢復.Enabled = False
            If menudata.Recordset.Fields("menu") = "91" Then 設置操作人員.Enabled = False
            If menudata.Recordset.Fields("menu") = "92" Then 設置各類項目.Enabled = False
            If menudata.Recordset.Fields("menu") = "93" Then 公共信息.Enabled = False
            If menudata.Recordset.Fields("menu") = "94" Then 操作員菜單權限設置.Enabled = False
    
    
        End If
        menudata.Recordset.MoveNext
    Wend
    menudata.Recordset.Close
    menuload = False
    StatusBar1.Panels(1) = "操作員：" & CzyName

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 = "當日半日房租報表"
    統計報表form.Show

End Sub

Private Sub 當日單位帳戶帳務報表_Click()
    Query_Type = "當日單位帳戶帳務報表"

    餐廳報表.Show

End Sub

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

End Sub

Private Sub 當日抵店客人發放IC卡報表_Click()
    Query_Type = "當日抵店客人發放IC卡報表"
    客人查詢.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 當日離店客人報表A_Click()
    Query_Type = "當日離店客人報表"
    客人查詢.Show

End Sub

Private Sub 當日無預訂散客統計表_Click()
    Query_Type = "當日無預訂散客統計表"
    客人查詢.Show

End Sub

Private Sub 當日有預訂散客統計表_Click()
    Query_Type = "當日有預訂散客統計表"
    客人查詢.Show

End Sub

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

End Sub

Private Sub 當日鐘點房租報表_Click()
    Query_Type = "當日鐘點房租報表"
    統計報表form.Show

End Sub

Private Sub 當日房號變更報表_Click()
    Query_Type = "當日房號變更報表"
    客人查詢.Show

End Sub

Private Sub 當日全日房租報表_Click()
    Query_Type = "當日全日房租報表"
    統計報表form.Show

End Sub

Private Sub 當日收銀匯總表_Click()
    Query_Type = "當日收銀匯總表"
    統計報表form.Show

End Sub


Private Sub 當日預付款報表_Click()
    Query_Type = "當日收預付款報表"
    統計報表form.Show

End Sub

Private Sub 登記表_Click()
    Registration_Type = "預訂"
    住宿登錄.Show
End Sub

Private Sub 費用項目設置_Click()
    Table_SetType = "會計科目"
    會計科目設置.Show
End Sub

Private Sub 個人操作員統計表_Click()
    Query_Type = "個人操作員交班統計表"
?? 文件大小 548 K
?? 上傳用戶 LOOK1980
?? 所屬分類其他數據庫
??? 相關標簽

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

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

?? mdiform1.frm

?? 快捷鍵說明
