⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mdiform1.frm

📁 Hotel Prog in VB using mdb
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 

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 = "个人操作员交班统计表"
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -