module1.bas

酒店管理系统

   '------------------------------------------------
 SData(11, 5).房号 = ""
 SData(11, 5).x = 0
 SData(11, 5).y = 0
   '------------------------------------------------
 SData(11, 6).房号 = "1917"
 SData(11, 6).x = 14
 SData(11, 6).y = 4
   '------------------------------------------------
 SData(11, 7).房号 = "1916"
 SData(11, 7).x = 13
 SData(11, 7).y = 4
   '------------------------------------------------
 SData(11, 8).房号 = "1921"
 SData(11, 8).x = 18
 SData(11, 8).y = 4
    '------------------------------------------------
 SData(11, 9).房号 = "1912"
 SData(11, 9).x = 11
 SData(11, 9).y = 4
    '------------------------------------------------
 SData(11, 10).房号 = "1911"
 SData(11, 10).x = 10
 SData(11, 10).y = 4
    '------------------------------------------------
 SData(11, 11).房号 = "1910"
 SData(11, 11).x = 9
 SData(11, 11).y = 4
    '------------------------------------------------
 SData(11, 12).房号 = "1909"
 SData(11, 12).x = 8
 SData(11, 12).y = 4
    '------------------------------------------------
 SData(11, 13).房号 = "1908"
 SData(11, 13).x = 7
 SData(11, 13).y = 4
    '------------------------------------------------
 SData(11, 14).房号 = "1907"
 SData(11, 14).x = 6
 SData(11, 14).y = 4
    '------------------------------------------------
 SData(11, 15).房号 = "1906"
 SData(11, 15).x = 5
 SData(11, 15).y = 4
    '------------------------------------------------
 SData(11, 16).房号 = "1905"
 SData(11, 16).x = 4
 SData(11, 16).y = 4
    '------------------------------------------------
 SData(11, 17).房号 = "1903"
 SData(11, 17).x = 3
 SData(11, 17).y = 4
    '------------------------------------------------
 SData(11, 18).房号 = "1902"
 SData(11, 18).x = 2
 SData(11, 18).y = 4
   '------------------------------------------------
 SData(11, 19).房号 = "1901"
 SData(11, 19).x = 1
 SData(11, 19).y = 4
    '------------------------------------------------
 SData(11, 20).房号 = "1932"
 SData(11, 20).x = 28
 SData(11, 20).y = 4
    '------------------------------------------------
 SData(11, 21).房号 = "1931"
 SData(11, 21).x = 27
 SData(11, 21).y = 4
    '------------------------------------------------
 SData(11, 22).房号 = "1930"
 SData(11, 22).x = 26
 SData(11, 22).y = 4
    '------------------------------------------------
 SData(11, 23).房号 = "1929"
 SData(11, 23).x = 25
 SData(11, 23).y = 4
    '------------------------------------------------
 SData(11, 24).房号 = "1928"
 SData(11, 24).x = 24
 SData(11, 24).y = 4
    '------------------------------------------------
 SData(11, 25).房号 = "1927"
 SData(11, 25).x = 23
 SData(11, 25).y = 4
    '------------------------------------------------
 SData(11, 26).房号 = "1926"
 SData(11, 26).x = 22
 SData(11, 26).y = 4
    '------------------------------------------------
 SData(11, 27).房号 = "1925"
 SData(11, 27).x = 21
 SData(11, 27).y = 4
    '------------------------------------------------
 SData(11, 28).房号 = "1923"
 SData(11, 28).x = 20
 SData(11, 28).y = 4
    '------------------------------------------------
 SData(11, 29).房号 = "1922"
 SData(11, 29).x = 19
 SData(11, 29).y = 4
    '------------------------------------------------
 SData(11, 30).房号 = "1918"
 SData(11, 30).x = 15
 SData(11, 30).y = 4
   '------------------------------------------------
 SData(11, 31).房号 = ""
 SData(11, 31).x = 0
 SData(11, 31).y = 0
    '------------------------------------------------
 SData(11, 32).房号 = ""
 SData(11, 32).x = 0
 SData(11, 32).y = 0
  '********************************************
 SData(12, 2).房号 = "2021"
 SData(12, 2).x = 18
 SData(12, 2).y = 3
  '------------------------------------------------
 SData(12, 3).房号 = "2020"
 SData(12, 3).x = 17
 SData(12, 3).y = 3
   '------------------------------------------------
 SData(12, 4).房号 = "2019"
 SData(12, 4).x = 16
 SData(12, 4).y = 3
   '------------------------------------------------
 SData(12, 5).房号 = "2018"
 SData(12, 5).x = 15
 SData(12, 5).y = 3
   '------------------------------------------------
 SData(12, 6).房号 = "2017"
 SData(12, 6).x = 14
 SData(12, 6).y = 3
   '------------------------------------------------
 SData(12, 7).房号 = "2016"
 SData(12, 7).x = 13
 SData(12, 7).y = 3
   '------------------------------------------------
 SData(12, 8).房号 = "2012"
 SData(12, 8).x = 11
 SData(12, 8).y = 3
    '------------------------------------------------
 SData(12, 9).房号 = "2015"
 SData(12, 9).x = 12
 SData(12, 9).y = 3
    '------------------------------------------------
 SData(12, 10).房号 = "2011"
 SData(12, 10).x = 10
 SData(12, 10).y = 3
    '------------------------------------------------
 SData(12, 11).房号 = "2010"
 SData(12, 11).x = 9
 SData(12, 11).y = 3
    '------------------------------------------------
 SData(12, 12).房号 = "2009"
 SData(12, 12).x = 8
 SData(12, 12).y = 3
    '------------------------------------------------
 SData(12, 13).房号 = "2008"
 SData(12, 13).x = 7
 SData(12, 13).y = 3
    '------------------------------------------------
 SData(12, 14).房号 = "2007"
 SData(12, 14).x = 6
 SData(12, 14).y = 3
    '------------------------------------------------
 SData(12, 15).房号 = "2006"
 SData(12, 15).x = 5
 SData(12, 15).y = 3
    '------------------------------------------------
 SData(12, 16).房号 = "2005"
 SData(12, 16).x = 4
 SData(12, 16).y = 3
    '------------------------------------------------
 SData(12, 17).房号 = "2003"
 SData(12, 17).x = 3
 SData(12, 17).y = 3
    '------------------------------------------------
 SData(12, 18).房号 = "2002"
 SData(12, 18).x = 2
 SData(12, 18).y = 3
   '------------------------------------------------
 SData(12, 19).房号 = "2001"
 SData(12, 19).x = 1
 SData(12, 19).y = 3
    '------------------------------------------------
 SData(12, 20).房号 = "2032"
 SData(12, 20).x = 28
 SData(12, 20).y = 3
    '------------------------------------------------
 SData(12, 21).房号 = "2031"
 SData(12, 21).x = 27
 SData(12, 21).y = 3
    '------------------------------------------------
 SData(12, 22).房号 = "2030"
 SData(12, 22).x = 26
 SData(12, 22).y = 3
    '------------------------------------------------
 SData(12, 23).房号 = "2029"
 SData(12, 23).x = 25
 SData(12, 23).y = 3
    '------------------------------------------------
 SData(12, 24).房号 = "2028"
 SData(12, 24).x = 24
 SData(12, 24).y = 3
    '------------------------------------------------
 SData(12, 25).房号 = "2027"
 SData(12, 25).x = 23
 SData(12, 25).y = 3
    '------------------------------------------------
 SData(12, 26).房号 = "2026"
 SData(12, 26).x = 22
 SData(12, 26).y = 3
    '------------------------------------------------
 SData(12, 27).房号 = "2025"
 SData(12, 27).x = 21
 SData(12, 27).y = 3
    '------------------------------------------------
 SData(12, 28).房号 = "2022"
 SData(12, 28).x = 19
 SData(12, 28).y = 3
    '------------------------------------------------
 SData(12, 29).房号 = "2023"
 SData(12, 29).x = 20
 SData(12, 29).y = 3
    '------------------------------------------------
 SData(12, 30).房号 = ""
 SData(12, 30).x = 0
 SData(12, 30).y = 0
   '------------------------------------------------
 SData(12, 31).房号 = ""
 SData(12, 31).x = 0
 SData(12, 31).y = 0
    '------------------------------------------------
 SData(12, 32).房号 = ""
 SData(12, 32).x = 0
 SData(12, 32).y = 0
  '********************************************
 SData(13, 2).房号 = "2119"
 SData(13, 2).x = 16
 SData(13, 2).y = 2
  '------------------------------------------------
 SData(13, 3).房号 = "2118"
 SData(13, 3).x = 15
 SData(13, 3).y = 2
   '------------------------------------------------
 SData(13, 4).房号 = "2117"
 SData(13, 4).x = 14
 SData(13, 4).y = 2
   '------------------------------------------------
 SData(13, 5).房号 = "2116"
 SData(13, 5).x = 13
 SData(13, 5).y = 2
   '------------------------------------------------
 SData(13, 6).房号 = "2115"
 SData(13, 6).x = 12
 SData(13, 6).y = 2
   '------------------------------------------------
 SData(13, 7).房号 = "2112"
 SData(13, 7).x = 11
 SData(13, 7).y = 2
   '------------------------------------------------
 SData(13, 8).房号 = "2111"
 SData(13, 8).x = 10
 SData(13, 8).y = 2
    '------------------------------------------------
 SData(13, 9).房号 = "2110"
 SData(13, 9).x = 9
 SData(13, 9).y = 2
    '------------------------------------------------
 SData(13, 10).房号 = "2109"
 SData(13, 10).x = 8
 SData(13, 10).y = 2
    '------------------------------------------------
 SData(13, 11).房号 = "2108"
 SData(13, 11).x = 7
 SData(13, 11).y = 2
    '------------------------------------------------
 SData(13, 12).房号 = "2106"
 SData(13, 12).x = 5
 SData(13, 12).y = 2
    '------------------------------------------------
 SData(13, 13).房号 = "2107"
 SData(13, 13).x = 6
 SData(13, 13).y = 2
    '------------------------------------------------
 SData(13, 14).房号 = "2105"
 SData(13, 14).x = 4
 SData(13, 14).y = 2
    '------------------------------------------------
 SData(13, 15).房号 = "2103"
 SData(13, 15).x = 3
 SData(13, 15).y = 2
    '------------------------------------------------
 SData(13, 16).房号 = "2126"
 SData(13, 16).x = 22
 SData(13, 16).y = 2
    '------------------------------------------------
 SData(13, 17).房号 = "2125"
 SData(13, 17).x = 21
 SData(13, 17).y = 2
    '------------------------------------------------
 SData(13, 18).房号 = "2123"
 SData(13, 18).x = 20
 SData(13, 18).y = 2
   '------------------------------------------------
 SData(13, 19).房号 = "2122"
 SData(13, 19).x = 19
 SData(13, 19).y = 2
    '------------------------------------------------
 SData(13, 20).房号 = "2121"
 SData(13, 20).x = 18
 SData(13, 20).y = 2
    '------------------------------------------------
 SData(13, 21).房号 = "2120"
 SData(13, 21).x = 17
 SData(13, 21).y = 2
    '------------------------------------------------
 SData(13, 22).房号 = "总1"
 SData(13, 22).x = 1
 SData(13, 22).y = 0
    '------------------------------------------------
 SData(13, 23).房号 = "总2"
 SData(13, 23).x = 2
 SData(13, 23).y = 0
    '------------------------------------------------
 SData(13, 24).房号 = "总3"
 SData(13, 24).x = 3
 SData(13, 24).y = 0
    '------------------------------------------------
 SData(13, 25).房号 = "总4"
 SData(13, 25).x = 4
 SData(13, 25).y = 0
    '------------------------------------------------
 SData(13, 26).房号 = "总5"
 SData(13, 26).x = 5
 SData(13, 26).y = 0
    '------------------------------------------------
 SData(13, 27).房号 = "总6"
 SData(13, 27).x = 6
 SData(13, 27).y = 0
    '------------------------------------------------
 SData(13, 28).房号 = "总7"
 SData(13, 28).x = 7
 SData(13, 28).y = 0
    '------------------------------------------------
 SData(13, 29).房号 = "总8"
 SData(13, 29).x = 8
 SData(13, 29).y = 0
    '------------------------------------------------
 SData(13, 30).房号 = "总9"
 SData(13, 30).x = 9
 SData(13, 30).y = 0
   '------------------------------------------------
 SData(13, 31).房号 = "总10"
 SData(13, 31).x = 10
 SData(13, 31).y = 0
    '------------------------------------------------
 SData(13, 32).房号 = "2102"
 SData(13, 32).x = 2
 SData(13, 32).y = 2
  '********************************************
 SData(14, 2).房号 = "2217"
 SData(14, 2).x = 14
 SData(14, 2).y = 1
  '------------------------------------------------
 SData(14, 3).房号 = "2216"
 SData(14, 3).x = 13
 SData(14, 3).y = 1
   '------------------------------------------------
 SData(14, 4).房号 = "2215"
 SData(14, 4).x = 12
 SData(14, 4).y = 1
   '------------------------------------------------
 SData(14, 5).房号 = "2212"
 SData(14, 5).x = 11
 SData(14, 5).y = 1
   '------------------------------------------------
 SData(14, 6).房号 = "2211"
 SData(14, 6).x = 10
 SData(14, 6).y = 1
   '------------------------------------------------
 SData(14, 7).房号 = "2210"
 SData(14, 7).x = 9
 SData(14, 7).y = 1
   '------------------------------------------------
 SData(14, 8).房号 = "2209"
 SData(14, 8).x = 8
 SData(14, 8).y = 1
    '------------------------------------------------
 SData(14, 9).房号 = "2208"
 SData(14, 9).x = 7
 SData(14, 9).y = 1
    '------------------------------------------------
 SData(14, 10).房号 = "2207"
 SData(14, 10).x = 6
 SData(14, 10).y = 1
    '------------------------------------------------
 SData(14, 11).房号 = "2206"
 SData(14, 11).x = 5
 SData(14, 11).y = 1
    '------------------------------------------------
 SData(14, 12).房号 = "2205"
 SData(14, 12).x = 4
 SData(14, 12).y = 1
    '------------------------------------------------
 SData(14, 13).房号 = "2203"
 SData(14, 13).x = 3
 SData(14, 13).y = 1
    '------------------------------------------------
 SData(14, 14).房号 = "2202"
 SData(14, 14).x = 2
 SData(14, 14).y = 1
    '------------------------------------------------
 SData(14, 15).房号 = "2201"
 SData(14, 15).x = 1
 SData(14, 15).y = 1
    '------------------------------------------------
 SData(14, 16).房号 = "2223"
 SData(14, 16).x = 20
 SData(14, 16).y = 1
    '------------------------------------------------
 SData(14, 17).房号 = "2222"
 SData(14, 17).x = 19
 SData(14, 17).y = 1
    '------------------------------------------------
 SData(14, 18).房号 = "2221"
 SData(14, 18).x = 18
 SData(14, 18).y = 1
   '------------------------------------------------
 SData(14, 19).房号 = "2220"
 SData(14, 19).x = 17
 SData(14, 19).y = 1
    '------------------------------------------------
 SData(14, 20).房号 = "2219"
 SData(14, 20).x = 16
 SData(14, 20).y = 1
    '------------------------------------------------
 SData(14, 21).房号 = "2218"
 SData(14, 21).x = 15
 SData(14, 21).y = 1
    '------------------------------------------------
 SData(14, 22).房号 = "行1"
 SData(14, 22).x = 21
 SData(14, 22).y = 0
    '------------------------------------------------
 SData(14, 23).房号 = "行2"
 SData(14, 23).x = 22
 SData(14, 23).y = 0
    '------------------------------------------------
 SData(14, 24).房号 = "行3"
 SData(14, 24).x = 23
 SData(14, 24).y = 0
    '------------------------------------------------
 SData(14, 25).房号 = "行4"
 SData(14, 25).x = 24
 SData(14, 25).y = 0
    '------------------------------------------------
 SData(14, 26).房号 = "行5"
 SData(14, 26).x = 25
 SData(14, 26).y = 0
    '------------------------------------------------
 
   ' Dim fLogin As New frmLogin
  '  fLogin.Show vbModal
 '   If Not fLogin.OK Then
        '登录失败，退出应用程序
 '       End
'    End If
'    Unload fLogin

   ' Set fMainForm = New frmMain
    FrmWIK.Show
End Sub