module1.bas

来自「利用VB开发的作品!包括宾馆系统的开发,名片管理系统,查询系统及字库查询 希望」· BAS 代码 · 共 80 行

Attribute VB_Name = "Module1"
Public key1 As Boolean
Public kk As Integer
Public Sub 切换(i As Integer)
Unload system
Unload hotel
Unload check
Unload bookhotel
Unload changeroom
Unload roominfer
Unload help
Unload stander
Unload setroo
Unload addmoney
Select Case i
   Case 1
     Load system
   Case 2
     Load hotel
   Case 3
     Load bookhotel
   Case 4
     Load changeroom
   Case 5
     Load check
   Case 6
     Load roominfer
   Case 7
     Load stander
    Case 8
     Load setroo
    Case 9
    Load addmoney
   Case Else
     Unload system
     Unload hotel
     Unload check
     Unload roominfer
     Unload bookhotel
     Unload changeroom
     Unload help
     Unload stander
     Unload setroo
     Unload findroom
   End Select
   i = 0
End Sub

Public Sub able(i As Integer)
Select Case i
  Case 0
    main.hot.Enabled = False
    main.ch.Enabled = False
    main.find.Enabled = False
    main.roo.Enabled = False
    main.roomset.Enabled = False
    main.standerset.Enabled = False
  Case 1
    main.hot.Enabled = True
    main.ch.Enabled = True
    main.roo.Enabled = True
    main.find.Enabled = True
  Case 2
    main.hot.Enabled = True
    main.ch.Enabled = True
    main.roo.Enabled = True
    main.find.Enabled = True
    main.roomset.Enabled = True
    main.standerset.Enabled = True
  Case Else
    main.hot.Enabled = False
    main.ch.Enabled = False
    main.find.Enabled = False
    main.roo.Enabled = False
    main.roomset.Enabled = False
    main.standerset.Enabled = False
End Select
i = 0
End Sub