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

📄 form1.frm

📁 酒店管理系统 主要是实现了酒店的客房管理
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        tfdjj.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Show
        
       
  Case 2
         Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        krhff.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Show
    Case 3
        Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Show
  Case 4
 
      Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Show
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 5
         Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Show
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 6
          Form2.Show
        bjyjj.Show
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 7
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Show
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 8
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Show
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 9
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Show
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 10
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Show
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 11
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Show
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 12
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Show
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        Case 13
          Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Show
        DataReport2.Hide
        Case 14
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Show
        Case 15
         If gly <> "0" Then
ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

Exit Sub
End If
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Show
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
     
      Case 16
      ' If gly <> "0" Then
'ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

'Exit Sub
'End If
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Show
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
        
        Case 17
         If gly <> "0" Then
ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

Exit Sub
End If
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Show
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
       
        Case 18
        If gly <> "0" Then
ms = MsgBox("只有管理员才能进行操作，请与管理员联系！", 48, "警告")

Exit Sub
End If
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Show
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
      
        Case 19
            Form2.Show
        bjyjj.Hide
        bqxxx.Show
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Hide
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
        Case 20
            Form2.Show
        bjyjj.Hide
        bqxxx.Hide
        cfrzz.Hide
        hfrzz.Hide
        kfbjj.Hide
        kfyd.Hide
        kfztt.Hide
        main_csh.Hide
        main_czysz.Hide
        main_mmsz.Hide
        xfrzz.Hide
        xtjss.Show
        ydrzz.Hide
        yhckk.Hide
        zdkrb.Hide
        kfdjj.Hide
        zdfdjj.Hide
        tfdjj.Hide
        krhff.Hide
        DataReport1.Hide
        DataReport2.Hide
  
       
   End Select
   For i = 0 To 20
     Label1.Item(i).Tag = "0"
   Next
     Label1.Item(Index).Tag = "1"
End Sub
123

⌨️ 快捷键说明

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