function.bas

来自「一个功能完善,界面比较精美的酒店管理系统」· BAS 代码 · 共 216 行

Attribute VB_Name = "Function"
Public Sub Forms(ByVal i As Integer)
 Select Case i
    Case 1
     Load frmEmployeeAdd
     frmEmployeeAdd.Show
     Unload frmDeleteEmployee
     Unload frmEditemployee
     Unload frmcheckIn
     Unload frmCheckOut
     Unload frmCharges
     Unload frmStatus
     Unload frmChangePassword
     Unload frmSearchGuest
     Unload frmSearchEmp
     Unload frmEditGuest
     Unload frmAbout
     Unload frmChangeRate
     
    Case 2
      Load frmDeleteEmployee
      frmDeleteEmployee.Show
      Unload frmEmployeeAdd
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
    Case 3
      Load frmEditemployee
      frmEditemployee.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 4
      Load frmcheckIn
      frmcheckIn.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 5
      Load frmCheckOut
      frmCheckOut.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 6
      Load frmCharges
      frmCharges.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 7
      Load frmStatus
      frmStatus.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 8
      Load frmChangePassword
      frmChangePassword.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
      Unload frmChangeRate
      
   Case 9
       Load frmSearchGuest
       frmSearchGuest.Show
       Unload frmEmployeeAdd
       Unload frmDeleteEmployee
       Unload frmEditemployee
       Unload frmcheckIn
       Unload frmCheckOut
       Unload frmCharges
       Unload frmStatus
       Unload frmChangePassword
       Unload frmSearchEmp
       Unload frmEditGuest
       Unload frmAbout
       Unload frmChangeRate
       
   Case 10
       Load frmSearchEmp
       frmSearchEmp.Show
       Unload frmEmployeeAdd
       Unload frmDeleteEmployee
       Unload frmEditemployee
       Unload frmcheckIn
       Unload frmCheckOut
       Unload frmCharges
       Unload frmStatus
       Unload frmChangePassword
       Unload frmSearchGuest
       Unload frmEditGuest
       Unload frmAbout
       Unload frmChangeRate
       
   Case 11
      Load frmEditGuest
      frmEditGuest.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmAbout
      Unload frmChangeRate
      
   Case 12
      Load frmAbout
      frmAbout.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmChangeRate
      
   Case 13
      Load frmChangeRate
      frmChangeRate.Show
      Unload frmEmployeeAdd
      Unload frmDeleteEmployee
      Unload frmEditemployee
      Unload frmcheckIn
      Unload frmCheckOut
      Unload frmCharges
      Unload frmStatus
      Unload frmChangePassword
      Unload frmSearchGuest
      Unload frmSearchEmp
      Unload frmEditGuest
      Unload frmAbout
   
  End Select
End Sub