main_mima.frm

来自「星级酒店客房管理系统一套很不错的系统」· FRM 代码 · 共 903 行 · 第 1/2 页

MDIForm1.客人预付和消费报表.Enabled = False

MDIForm1.全体操作员统计表.Enabled = False

MDIForm1.个人操作员统计表.Enabled = False

MDIForm1.客房帐务提醒.Enabled = False

MDIForm1.客房设置.Enabled = False


   MDIForm1.房态图.Enabled = False

MDIForm1.预订登记修改.Enabled = False


MDIForm1.在住客人资料修改.Enabled = False

MDIForm1.客人资料管理.Enabled = False


MDIForm1.黑名单人员登记.Enabled = False

MDIForm1.在住客人.Enabled = False


MDIForm1.预订客人.Enabled = False

MDIForm1.离店客人.Enabled = False


MDIForm1.所有客人.Enabled = False

MDIForm1.客人档案.Enabled = False


MDIForm1.客史查询.Enabled = False

MDIForm1.黑名单人员.Enabled = False

MDIForm1.航班时刻表.Enabled = False

MDIForm1.火车时刻表.Enabled = False


MDIForm1.旅游景点表.Enabled = False

MDIForm1.部门及个人电话.Enabled = False

MDIForm1.次日来店客人预报.Enabled = False


MDIForm1.次日离店客人报表.Enabled = False

MDIForm1.次日发放餐券客人报表.Enabled = False


MDIForm1.次日客人生日预报表.Enabled = False

MDIForm1.预订取消报表.Enabled = False

MDIForm1.预订未到报表.Enabled = False

MDIForm1.当日抵店客人报表.Enabled = False

MDIForm1.当日离店客人报表.Enabled = False


MDIForm1.当日在店客人报表.Enabled = False

MDIForm1.当日房价变更报表.Enabled = False


MDIForm1.当日房号变更报表.Enabled = False

MDIForm1.当日房态表.Enabled = False

MDIForm1.当日抵店客人发放餐券报表.Enabled = False


MDIForm1.当日抵店客人发放IC卡报表.Enabled = False

MDIForm1.当日生日客人报表.Enabled = False


MDIForm1.当日无预订散客统计表.Enabled = False

MDIForm1.当日有预订散客统计表.Enabled = False

MDIForm1.在店免费客人报表.Enabled = False


MDIForm1.在店特价客人报表.Enabled = False

MDIForm1.在店长住客人报表.Enabled = False


MDIForm1.在店外宾及港澳台客人报表.Enabled = False

MDIForm1.当日在店客人报表A.Enabled = False

MDIForm1.当日离店客人报表A.Enabled = False


MDIForm1.当日抵店客人报表A.Enabled = False

MDIForm1.在店长住客人报表A.Enabled = False


MDIForm1.在店免费客人报表A.Enabled = False

MDIForm1.在店特价客人报表A.Enabled = False

MDIForm1.昨日离店客人报表A.Enabled = False


MDIForm1.夜审之前录入.Enabled = False


'MDIForm1.日营业收入报表.Enabled = False

MDIForm1.客房营业收入表.Enabled = False


MDIForm1.挂帐明细表.Enabled = False

MDIForm1.当日单位帐户帐务报表.Enabled = False

MDIForm1.夜间处理.Enabled = False

MDIForm1.夜审数据恢复.Enabled = False

MDIForm1.本单位定义.Enabled = False

MDIForm1.证件种类设置.Enabled = False
MDIForm1.员工信息.Enabled = False

MDIForm1.签证类型设置.Enabled = False

MDIForm1.客房类型设置.Enabled = False


MDIForm1.币种设置.Enabled = False

MDIForm1.费用项目设置.Enabled = False

MDIForm1.停留事由设置.Enabled = False

MDIForm1.国家编码设置.Enabled = False


MDIForm1.入境口岸设置.Enabled = False

MDIForm1.黑名单种类设置.Enabled = False

MDIForm1.航班时刻表设置.Enabled = False

MDIForm1.火车时刻表设置.Enabled = False

MDIForm1.旅游景点设置.Enabled = False

MDIForm1.部门及电话设置.Enabled = False
MDIForm1.学历种类设置.Enabled = False
MDIForm1.客房出售方式.Enabled = False
      
      ''''''''''''''''''''''
  '初始化权限菜单
 Adodc1.RecordSource = "select * from 菜单 where 使用者 like '%" & Czy_Type & "%'"
Adodc1.Refresh
For i = 1 To Adodc1.Recordset.RecordCount
If Not Adodc1.Recordset.EOF Then
Select Case Adodc1.Recordset.Fields("编号")
      
Case Is = 1
MDIForm1.权限设置.Enabled = True
Case Is = 2
MDIForm1.修改口令.Enabled = True

Case Is = 3
MDIForm1.备份本地数据.Enabled = True
Case Is = 4
MDIForm1.恢复本地数据.Enabled = True

Case Is = 5
MDIForm1.快速入住.Enabled = True
Case Is = 6
MDIForm1.员工信息.Enabled = True

Case Is = 7
MDIForm1.住宿登记.Enabled = True
Case Is = 8
MDIForm1.预订登记.Enabled = True

Case Is = 9
MDIForm1.会议接待.Enabled = True
Case Is = 10
MDIForm1.团体接待.Enabled = True

Case Is = 11
MDIForm1.帐务登记.Enabled = True
Case Is = 12
MDIForm1.外部帐户.Enabled = True

Case Is = 13
MDIForm1.内部帐户.Enabled = True
Case Is = 14
MDIForm1.当日客房个人营业表.Enabled = True
Case Is = 15
MDIForm1.当日收银汇总表.Enabled = True
Case Is = 16
MDIForm1.当日预付款报表.Enabled = True
Case Is = 17
MDIForm1.当日全日房租报表.Enabled = True
Case Is = 18
MDIForm1.当日半日房租报表.Enabled = True
Case Is = 19
MDIForm1.当日钟点房租报表.Enabled = True

 Case Is = 20
MDIForm1.客人预付和消费报表.Enabled = True
Case Is = 21
MDIForm1.全体操作员统计表.Enabled = True
Case Is = 22
MDIForm1.个人操作员统计表.Enabled = True
Case Is = 23
MDIForm1.客房帐务提醒.Enabled = True
Case Is = 24
MDIForm1.客房设置.Enabled = True
Case Is = 25

   MDIForm1.房态图.Enabled = True
Case Is = 26
MDIForm1.预订登记修改.Enabled = True
Case Is = 27

MDIForm1.在住客人资料修改.Enabled = True
Case Is = 28
MDIForm1.客人资料管理.Enabled = True

Case Is = 29
MDIForm1.黑名单人员登记.Enabled = True
Case Is = 30
MDIForm1.在住客人.Enabled = True

Case Is = 31
MDIForm1.预订客人.Enabled = True
Case Is = 32
MDIForm1.离店客人.Enabled = True

Case Is = 33
MDIForm1.所有客人.Enabled = True
Case Is = 34
MDIForm1.客人档案.Enabled = True

   Case Is = 35
MDIForm1.客史查询.Enabled = True
Case Is = 36
MDIForm1.黑名单人员.Enabled = True

Case Is = 37
MDIForm1.航班时刻表.Enabled = True
Case Is = 38
MDIForm1.火车时刻表.Enabled = True

Case Is = 39
MDIForm1.旅游景点表.Enabled = True
Case Is = 40
MDIForm1.部门及个人电话.Enabled = True
Case Is = 41
MDIForm1.次日来店客人预报.Enabled = True
Case Is = 42

MDIForm1.次日离店客人报表.Enabled = True
Case Is = 43
MDIForm1.次日发放餐券客人报表.Enabled = True

 Case Is = 44
MDIForm1.次日客人生日预报表.Enabled = True
Case Is = 45
MDIForm1.预订取消报表.Enabled = True
Case Is = 46
MDIForm1.预订未到报表.Enabled = True
Case Is = 47
MDIForm1.当日抵店客人报表.Enabled = True
Case Is = 48
MDIForm1.当日离店客人报表.Enabled = True
Case Is = 49

MDIForm1.当日在店客人报表.Enabled = True
Case Is = 50
MDIForm1.当日房价变更报表.Enabled = True

 Case Is = 51
MDIForm1.当日房号变更报表.Enabled = True
Case Is = 52
MDIForm1.当日房态表.Enabled = True
Case Is = 53
MDIForm1.当日抵店客人发放餐券报表.Enabled = True
Case Is = 54

MDIForm1.当日抵店客人发放IC卡报表.Enabled = True
Case Is = 55
MDIForm1.当日生日客人报表.Enabled = True

 Case Is = 56
MDIForm1.当日无预订散客统计表.Enabled = True
Case Is = 57
MDIForm1.当日有预订散客统计表.Enabled = True
Case Is = 58
MDIForm1.在店免费客人报表.Enabled = True
Case Is = 59

MDIForm1.在店特价客人报表.Enabled = True
Case Is = 60
MDIForm1.在店长住客人报表.Enabled = True

Case Is = 61
MDIForm1.在店外宾及港澳台客人报表.Enabled = True
Case Is = 62
MDIForm1.当日在店客人报表A.Enabled = True
Case Is = 63
MDIForm1.当日离店客人报表A.Enabled = True
Case Is = 64

MDIForm1.当日抵店客人报表A.Enabled = True
Case Is = 65
MDIForm1.在店长住客人报表A.Enabled = True

Case Is = 66
MDIForm1.在店免费客人报表A.Enabled = True
Case Is = 67
MDIForm1.在店特价客人报表A.Enabled = True
Case Is = 68
MDIForm1.昨日离店客人报表A.Enabled = True
Case Is = 69

MDIForm1.夜审之前录入.Enabled = True
'Case Is = 70
'MDIForm1.夜审之后录入.Enabled = True
'Case Is = 71

'MDIForm1.日营业收入报表.Enabled = True
Case Is = 72
MDIForm1.客房营业收入表.Enabled = True

Case Is = 73
MDIForm1.挂帐明细表.Enabled = True
Case Is = 74
MDIForm1.当日单位帐户帐务报表.Enabled = True
Case Is = 75
MDIForm1.夜间处理.Enabled = True
Case Is = 76
MDIForm1.夜审数据恢复.Enabled = True
'Case Is = 77
'MDIForm1.员工管理.Enabled = True
Case Is = 78
MDIForm1.本单位定义.Enabled = True
Case Is = 79
MDIForm1.证件种类设置.Enabled = True
Case Is = 80

MDIForm1.签证类型设置.Enabled = True
Case Is = 81
MDIForm1.客房类型设置.Enabled = True
Case Is = 82

MDIForm1.币种设置.Enabled = True
Case Is = 83
MDIForm1.费用项目设置.Enabled = True
Case Is = 84
MDIForm1.停留事由设置.Enabled = True
Case Is = 85
MDIForm1.国家编码设置.Enabled = True

  Case Is = 86
MDIForm1.入境口岸设置.Enabled = True
Case Is = 87
MDIForm1.黑名单种类设置.Enabled = True
Case Is = 88
MDIForm1.航班时刻表设置.Enabled = True
Case Is = 89
MDIForm1.火车时刻表设置.Enabled = True
Case Is = 90
MDIForm1.旅游景点设置.Enabled = True
Case Is = 91
MDIForm1.部门及电话设置.Enabled = True
Case Is = 92
MDIForm1.学历种类设置.Enabled = True
Case Is = 93
MDIForm1.客房出售方式.Enabled = True
Case Else
End Select
Adodc1.Recordset.MoveNext
End If
      Next
    '加载杂项设置
    Adodc1.RecordSource = "select * from 杂项"
    Adodc1.Refresh
    QuickMenu = Adodc1.Recordset.Fields("QuickMenu").Value
    '单位定义
    Adodc1.RecordSource = "select * from 本单位定义"
    Adodc1.Refresh
    DWMC = Adodc1.Recordset.Fields("name")
    
      MDIForm1.StatusBar1.Panels(1).Text = "当前操作员:" & CzyName
      MDIForm1.Show
         '是否加载[快速入住]菜单

     Adodc1.RecordSource = "select * from 参数"
     Adodc1.Refresh
     If Adodc1.Recordset.RecordCount = 0 Then
        Account_ID = "000000"
     Else
        Account_ID = Format(Adodc1.Recordset.Fields("帐号"), "000000")
     End If
     
     System_Date = Date
     Half_times = Adodc1.Recordset.Fields("退房半价始时间")
     Half_time = Adodc1.Recordset.Fields("退房半价终时间")
     System_Statu = Trim(Adodc1.Recordset.Fields("系统状态"))
     TongZhi = IIf(IsNull(Adodc1.Recordset.Fields("通知")), "", Adodc1.Recordset.Fields("通知"))
     Adodc1.Recordset.Close
     If TongZhi <> "" Then
        MsgBox "通知：" & Chr(13) & Chr(13) & TongZhi, 64, "通知"
     End If
     If System_Statu = "正常" Then
            Unload Me
        Else
            MsgBox "请稍候：系统现在正处于  [" & System_Statu & "] 状态！", 64, "提示"
            PASSed1 = False
            Unload Me
     End If
  Else
     If tim = 3 Then
        MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
        If MESSAGE = vbOK Then End
            End If
     If czy.Caption = "" Then
        MsgBox ("请选择操作员!")
      Else
        If Text1.Text <> Adodc1.Recordset.Fields("密码") Then
           MsgBox ("密码错误,请重新输入密码!")
           tim = tim + 1
           Text1.SetFocus
        End If
     End If
  End If
End Sub