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

📄 mdiform1.frm

📁 酒店管理系统实现了员工管理
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
         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
      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
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) = "系统日期：" & Date
    StatusBar1.Panels(5) = "使用单位：" & DWMC
    StatusBar1.Panels(6) = "本地应用"
    Me.Caption = DWMC & "管理系统"
    
    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

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()
123

⌨️ 快捷键说明

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