module1.bas

酒店管理系统

    '------------------------------------------------
 SData(7, 10).房号 = "1511"
 SData(7, 10).x = 10
 SData(7, 10).y = 8
    '------------------------------------------------
 SData(7, 11).房号 = "1512"
 SData(7, 11).x = 11
 SData(7, 11).y = 8
    '------------------------------------------------
 SData(7, 12).房号 = "1515"
 SData(7, 12).x = 12
 SData(7, 12).y = 8
    '------------------------------------------------
 SData(7, 13).房号 = "1509"
 SData(7, 13).x = 8
 SData(7, 13).y = 8
    '------------------------------------------------
 SData(7, 14).房号 = "1507"
 SData(7, 14).x = 6
 SData(7, 14).y = 8
    '------------------------------------------------
 SData(7, 15).房号 = "1506"
 SData(7, 15).x = 5
 SData(7, 15).y = 8
    '------------------------------------------------
 SData(7, 16).房号 = "1505"
 SData(7, 16).x = 4
 SData(7, 16).y = 8
    '------------------------------------------------
 SData(7, 17).房号 = "1503"
 SData(7, 17).x = 3
 SData(7, 17).y = 8
    '------------------------------------------------
 SData(7, 18).房号 = "1502"
 SData(7, 18).x = 2
 SData(7, 18).y = 8
   '------------------------------------------------
 SData(7, 19).房号 = "1501"
 SData(7, 19).x = 1
 SData(7, 19).y = 8
    '------------------------------------------------
 SData(7, 20).房号 = "1526"
 SData(7, 20).x = 22
 SData(7, 20).y = 8
    '------------------------------------------------
 SData(7, 21).房号 = "1525"
 SData(7, 21).x = 21
 SData(7, 21).y = 8
    '------------------------------------------------
 SData(7, 22).房号 = "1527"
 SData(7, 22).x = 23
 SData(7, 22).y = 8
    '------------------------------------------------
 SData(7, 23).房号 = "1528"
 SData(7, 23).x = 24
 SData(7, 23).y = 8
    '------------------------------------------------
 SData(7, 24).房号 = "1529"
 SData(7, 24).x = 25
 SData(7, 24).y = 8
    '------------------------------------------------
 SData(7, 25).房号 = "1530"
 SData(7, 25).x = 26
 SData(7, 25).y = 8
    '------------------------------------------------
 SData(7, 26).房号 = "1531"
 SData(7, 26).x = 27
 SData(7, 26).y = 8
    '------------------------------------------------
 SData(7, 27).房号 = "1532"
 SData(7, 27).x = 28
 SData(7, 27).y = 8
    '------------------------------------------------
 SData(7, 28).房号 = "1523"
 SData(7, 28).x = 20
 SData(7, 28).y = 8
    '------------------------------------------------
 SData(7, 29).房号 = "1522"
 SData(7, 29).x = 19
 SData(7, 29).y = 8
    '------------------------------------------------
 SData(7, 30).房号 = ""
 SData(7, 30).x = 0
 SData(7, 30).y = 0
   '------------------------------------------------
 SData(7, 31).房号 = ""
 SData(7, 31).x = 0
 SData(7, 31).y = 0
    '------------------------------------------------
 SData(7, 32).房号 = ""
 SData(7, 32).x = 0
 SData(7, 32).y = 0
  '********************************************
 SData(8, 2).房号 = "1621"
 SData(8, 2).x = 18
 SData(8, 2).y = 7
  '------------------------------------------------
 SData(8, 3).房号 = "1620"
 SData(8, 3).x = 17
 SData(8, 3).y = 7
   '------------------------------------------------
 SData(8, 4).房号 = "1619"
 SData(8, 4).x = 16
 SData(8, 4).y = 7
   '------------------------------------------------
 SData(8, 5).房号 = "1618"
 SData(8, 5).x = 15
 SData(8, 5).y = 7
   '------------------------------------------------
 SData(8, 6).房号 = "1617"
 SData(8, 6).x = 14
 SData(8, 6).y = 7
   '------------------------------------------------
 SData(8, 7).房号 = "1616"
 SData(8, 7).x = 13
 SData(8, 7).y = 7
   '------------------------------------------------
 SData(8, 8).房号 = "1615"
 SData(8, 8).x = 12
 SData(8, 8).y = 7
    '------------------------------------------------
 SData(8, 9).房号 = "1612"
 SData(8, 9).x = 11
 SData(8, 9).y = 7
    '------------------------------------------------
 SData(8, 10).房号 = "1611"
 SData(8, 10).x = 10
 SData(8, 10).y = 7
    '------------------------------------------------
 SData(8, 11).房号 = "1610"
 SData(8, 11).x = 9
 SData(8, 11).y = 7
    '------------------------------------------------
 SData(8, 12).房号 = "1609"
 SData(8, 12).x = 8
 SData(8, 12).y = 7
    '------------------------------------------------
 SData(8, 13).房号 = "1608"
 SData(8, 13).x = 7
 SData(8, 13).y = 7
    '------------------------------------------------
 SData(8, 14).房号 = "1607"
 SData(8, 14).x = 6
 SData(8, 14).y = 7
    '------------------------------------------------
 SData(8, 15).房号 = "1606"
 SData(8, 15).x = 5
 SData(8, 15).y = 7
    '------------------------------------------------
 SData(8, 16).房号 = "1605"
 SData(8, 16).x = 4
 SData(8, 16).y = 7
    '------------------------------------------------
 SData(8, 17).房号 = "1603"
 SData(8, 17).x = 3
 SData(8, 17).y = 7
    '------------------------------------------------
 SData(8, 18).房号 = "1602"
 SData(8, 18).x = 2
 SData(8, 18).y = 7
   '------------------------------------------------
 SData(8, 19).房号 = "1601"
 SData(8, 19).x = 1
 SData(8, 19).y = 7
    '------------------------------------------------
 SData(8, 20).房号 = "1632"
 SData(8, 20).x = 28
 SData(8, 20).y = 7
    '------------------------------------------------
 SData(8, 21).房号 = "1631"
 SData(8, 21).x = 27
 SData(8, 21).y = 7
    '------------------------------------------------
 SData(8, 22).房号 = "1630"
 SData(8, 22).x = 26
 SData(8, 22).y = 7
    '------------------------------------------------
 SData(8, 23).房号 = "1629"
 SData(8, 23).x = 25
 SData(8, 23).y = 7
    '------------------------------------------------
 SData(8, 24).房号 = "1628"
 SData(8, 24).x = 24
 SData(8, 24).y = 7
    '------------------------------------------------
 SData(8, 25).房号 = "1627"
 SData(8, 25).x = 23
 SData(8, 25).y = 7
    '------------------------------------------------
 SData(8, 26).房号 = "1626"
 SData(8, 26).x = 22
 SData(8, 26).y = 7
    '------------------------------------------------
 SData(8, 27).房号 = "1625"
 SData(8, 27).x = 21
 SData(8, 27).y = 7
    '------------------------------------------------
 SData(8, 28).房号 = "1623"
 SData(8, 28).x = 20
 SData(8, 28).y = 7
    '------------------------------------------------
 SData(8, 29).房号 = "1622"
 SData(8, 29).x = 19
 SData(8, 29).y = 7
    '------------------------------------------------
 SData(8, 30).房号 = ""
 SData(8, 30).x = 0
 SData(8, 30).y = 0
   '------------------------------------------------
 SData(8, 31).房号 = ""
 SData(8, 31).x = 0
 SData(8, 31).y = 0
    '------------------------------------------------
 SData(8, 32).房号 = ""
 SData(8, 32).x = 0
 SData(8, 32).y = 0
 '********************************************
 SData(9, 2).房号 = "1721"
 SData(9, 2).x = 18
 SData(9, 2).y = 6
  '------------------------------------------------
 SData(9, 3).房号 = "1720"
 SData(9, 3).x = 17
 SData(9, 3).y = 6
   '------------------------------------------------
 SData(9, 4).房号 = "1719"
 SData(9, 4).x = 16
 SData(9, 4).y = 6
   '------------------------------------------------
 SData(9, 5).房号 = "1718"
 SData(9, 5).x = 15
 SData(9, 5).y = 6
   '------------------------------------------------
 SData(9, 6).房号 = "1717"
 SData(9, 6).x = 14
 SData(9, 6).y = 6
   '------------------------------------------------
 SData(9, 7).房号 = "1716"
 SData(9, 7).x = 13
 SData(9, 7).y = 6
   '------------------------------------------------
 SData(9, 8).房号 = "1715"
 SData(9, 8).x = 12
 SData(9, 8).y = 6
    '------------------------------------------------
 SData(9, 9).房号 = "1712"
 SData(9, 9).x = 11
 SData(9, 9).y = 6
    '------------------------------------------------
 SData(9, 10).房号 = "1711"
 SData(9, 10).x = 10
 SData(9, 10).y = 6
    '------------------------------------------------
 SData(9, 11).房号 = "1710"
 SData(9, 11).x = 9
 SData(9, 11).y = 6
    '------------------------------------------------
 SData(9, 12).房号 = "1708"
 SData(9, 12).x = 7
 SData(9, 12).y = 6
    '------------------------------------------------
 SData(9, 13).房号 = "1709"
 SData(9, 13).x = 8
 SData(9, 13).y = 6
    '------------------------------------------------
 SData(9, 14).房号 = "1707"
 SData(9, 14).x = 6
 SData(9, 14).y = 6
    '------------------------------------------------
 SData(9, 15).房号 = "1706"
 SData(9, 15).x = 5
 SData(9, 15).y = 6
    '------------------------------------------------
 SData(9, 16).房号 = "1705"
 SData(9, 16).x = 4
 SData(9, 16).y = 6
    '------------------------------------------------
 SData(9, 17).房号 = "1703"
 SData(9, 17).x = 3
 SData(9, 17).y = 6
    '------------------------------------------------
 SData(9, 18).房号 = "1702"
 SData(9, 18).x = 2
 SData(9, 18).y = 6
   '------------------------------------------------
 SData(9, 19).房号 = "1701"
 SData(9, 19).x = 1
 SData(9, 19).y = 6
    '------------------------------------------------
 SData(9, 20).房号 = ""
 SData(9, 20).x = 0
 SData(9, 20).y = 0
    '------------------------------------------------
 SData(9, 21).房号 = "1731"
 SData(9, 21).x = 27
 SData(9, 21).y = 6
    '------------------------------------------------
 SData(9, 22).房号 = "1730"
 SData(9, 22).x = 26
 SData(9, 22).y = 6
    '------------------------------------------------
 SData(9, 23).房号 = "1729"
 SData(9, 23).x = 25
 SData(9, 23).y = 6
    '------------------------------------------------
 SData(9, 24).房号 = "1728"
 SData(9, 24).x = 24
 SData(9, 24).y = 6
    '------------------------------------------------
 SData(9, 25).房号 = "1727"
 SData(9, 25).x = 23
 SData(9, 25).y = 6
    '------------------------------------------------
 SData(9, 26).房号 = "1726"
 SData(9, 26).x = 22
 SData(9, 26).y = 6
    '------------------------------------------------
 SData(9, 27).房号 = "1725"
 SData(9, 27).x = 21
 SData(9, 27).y = 6
    '------------------------------------------------
 SData(9, 28).房号 = ""
 SData(9, 28).x = 0
 SData(9, 28).y = 0
    '------------------------------------------------
 SData(9, 29).房号 = "1722"
 SData(9, 29).x = 19
 SData(9, 29).y = 6
    '------------------------------------------------
 SData(9, 30).房号 = "1723"
 SData(9, 30).x = 20
 SData(9, 30).y = 6
   '------------------------------------------------
 SData(9, 31).房号 = "1732"
 SData(9, 31).x = 28
 SData(9, 31).y = 6
    '------------------------------------------------
 SData(9, 32).房号 = ""
 SData(9, 32).x = 0
 SData(9, 32).y = 0
  '********************************************
 SData(10, 2).房号 = "1821"
 SData(10, 2).x = 18
 SData(10, 2).y = 5
  '------------------------------------------------
 SData(10, 3).房号 = "1820"
 SData(10, 3).x = 17
 SData(10, 3).y = 5
   '------------------------------------------------
 SData(10, 4).房号 = "1819"
 SData(10, 4).x = 16
 SData(10, 4).y = 5
   '------------------------------------------------
 SData(10, 5).房号 = "1818"
 SData(10, 5).x = 15
 SData(10, 5).y = 5
   '------------------------------------------------
 SData(10, 6).房号 = "1816"
 SData(10, 6).x = 13
 SData(10, 6).y = 5
   '------------------------------------------------
 SData(10, 7).房号 = "1810"
 SData(10, 7).x = 9
 SData(10, 7).y = 5
   '------------------------------------------------
 SData(10, 8).房号 = "1815"
 SData(10, 8).x = 12
 SData(10, 8).y = 5
    '------------------------------------------------
 SData(10, 9).房号 = "1812"
 SData(10, 9).x = 11
 SData(10, 9).y = 5
    '------------------------------------------------
 SData(10, 10).房号 = "1817"
 SData(10, 10).x = 14
 SData(10, 10).y = 5
    '------------------------------------------------
 SData(10, 11).房号 = "1811"
 SData(10, 11).x = 10
 SData(10, 11).y = 5
    '------------------------------------------------
 SData(10, 12).房号 = "1809"
 SData(10, 12).x = 8
 SData(10, 12).y = 5
    '------------------------------------------------
 SData(10, 13).房号 = "1808"
 SData(10, 13).x = 7
 SData(10, 13).y = 5
    '------------------------------------------------
 SData(10, 14).房号 = "1807"
 SData(10, 14).x = 6
 SData(10, 14).y = 5
    '------------------------------------------------
 SData(10, 15).房号 = ""
 SData(10, 15).x = 0
 SData(10, 15).y = 0
    '------------------------------------------------
 SData(10, 16).房号 = "1805"
 SData(10, 16).x = 4
 SData(10, 16).y = 5
    '------------------------------------------------
 SData(10, 17).房号 = "1803"
 SData(10, 17).x = 3
 SData(10, 17).y = 5
    '------------------------------------------------
 SData(10, 18).房号 = "1802"
 SData(10, 18).x = 2
 SData(10, 18).y = 5
   '------------------------------------------------
 SData(10, 19).房号 = "1801"
 SData(10, 19).x = 1
 SData(10, 19).y = 5
    '------------------------------------------------
 SData(10, 20).房号 = "1832"
 SData(10, 20).x = 28
 SData(10, 20).y = 5
    '------------------------------------------------
 SData(10, 21).房号 = "1831"
 SData(10, 21).x = 27
 SData(10, 21).y = 5
    '------------------------------------------------
 SData(10, 22).房号 = "1830"
 SData(10, 22).x = 26
 SData(10, 22).y = 5
    '------------------------------------------------
 SData(10, 23).房号 = "1829"
 SData(10, 23).x = 25
 SData(10, 23).y = 5
    '------------------------------------------------
 SData(10, 24).房号 = "1828"
 SData(10, 24).x = 24
 SData(10, 24).y = 5
    '------------------------------------------------
 SData(10, 25).房号 = "1827"
 SData(10, 25).x = 23
 SData(10, 25).y = 5
    '------------------------------------------------
 SData(10, 26).房号 = "1826"
 SData(10, 26).x = 22
 SData(10, 26).y = 5
    '------------------------------------------------
 SData(10, 27).房号 = "1825"
 SData(10, 27).x = 21
 SData(10, 27).y = 5
    '------------------------------------------------
 SData(10, 28).房号 = "1823"
 SData(10, 28).x = 20
 SData(10, 28).y = 5
    '------------------------------------------------
 SData(10, 29).房号 = "1822"
 SData(10, 29).x = 19
 SData(10, 29).y = 5
    '------------------------------------------------
 SData(10, 30).房号 = "1806"
 SData(10, 30).x = 5
 SData(10, 30).y = 5
   '------------------------------------------------
 SData(10, 31).房号 = ""
 SData(10, 31).x = 0
 SData(10, 31).y = 0
    '------------------------------------------------
 SData(10, 32).房号 = ""
 SData(10, 32).x = 0
 SData(10, 32).y = 0
  '********************************************
 SData(11, 2).房号 = "1915"
 SData(11, 2).x = 12
 SData(11, 2).y = 4
  '------------------------------------------------
 SData(11, 3).房号 = "1920"
 SData(11, 3).x = 17
 SData(11, 3).y = 4
   '------------------------------------------------
 SData(11, 4).房号 = "1919"
 SData(11, 4).x = 16
 SData(11, 4).y = 4