module1.bas

酒店管理系统

    '------------------------------------------------
 SData(3, 15).房号 = "1006"
 SData(3, 15).x = 5
 SData(3, 15).y = 12
    '------------------------------------------------
 SData(3, 16).房号 = "1005"
 SData(3, 16).x = 4
 SData(3, 16).y = 12
    '------------------------------------------------
 SData(3, 17).房号 = "1003"
 SData(3, 17).x = 3
 SData(3, 17).y = 12
    '------------------------------------------------
 SData(3, 18).房号 = "1002"
 SData(3, 18).x = 2
 SData(3, 18).y = 12
   '------------------------------------------------
 SData(3, 19).房号 = "1001"
 SData(3, 19).x = 1
 SData(3, 19).y = 12
    '------------------------------------------------
 SData(3, 20).房号 = "1032"
 SData(3, 20).x = 28
 SData(3, 20).y = 12
    '------------------------------------------------
 SData(3, 21).房号 = "1031"
 SData(3, 21).x = 27
 SData(3, 21).y = 12
    '------------------------------------------------
 SData(3, 22).房号 = "1030"
 SData(3, 22).x = 26
 SData(3, 22).y = 12
    '------------------------------------------------
 SData(3, 23).房号 = "1029"
 SData(3, 23).x = 25
 SData(3, 23).y = 12
    '------------------------------------------------
 SData(3, 24).房号 = "1028"
 SData(3, 24).x = 24
 SData(3, 24).y = 12
    '------------------------------------------------
 SData(3, 25).房号 = "1027"
 SData(3, 25).x = 23
 SData(3, 25).y = 12
    '------------------------------------------------
 SData(3, 26).房号 = "1026"
 SData(3, 26).x = 22
 SData(3, 26).y = 12
    '------------------------------------------------
 SData(3, 27).房号 = "1025"
 SData(3, 27).x = 21
 SData(3, 27).y = 12
    '------------------------------------------------
 SData(3, 28).房号 = "1023"
 SData(3, 28).x = 20
 SData(3, 28).y = 12
    '------------------------------------------------
 SData(3, 29).房号 = "1022"
 SData(3, 29).x = 19
 SData(3, 29).y = 12
    '------------------------------------------------
 SData(3, 30).房号 = ""
 SData(3, 30).x = 0
 SData(3, 30).y = 0
   '------------------------------------------------
 SData(3, 31).房号 = ""
 SData(3, 31).x = 0
 SData(3, 31).y = 0
    '------------------------------------------------
 SData(3, 32).房号 = ""
 SData(3, 32).x = 0
 SData(3, 32).y = 0
  '********************************************
 SData(4, 2).房号 = "1121"
 SData(4, 2).x = 18
 SData(4, 2).y = 11
  '------------------------------------------------
 SData(4, 3).房号 = "1120"
 SData(4, 3).x = 17
 SData(4, 3).y = 11
   '------------------------------------------------
 SData(4, 4).房号 = "1119"
 SData(4, 4).x = 16
 SData(4, 4).y = 11
   '------------------------------------------------
 SData(4, 5).房号 = "1118"
 SData(4, 5).x = 15
 SData(4, 5).y = 11
   '------------------------------------------------
 SData(4, 6).房号 = "1117"
 SData(4, 6).x = 14
 SData(4, 6).y = 11
   '------------------------------------------------
 SData(4, 7).房号 = "1116"
 SData(4, 7).x = 13
 SData(4, 7).y = 11
   '------------------------------------------------
 SData(4, 8).房号 = "1115"
 SData(4, 8).x = 12
 SData(4, 8).y = 11
    '------------------------------------------------
 SData(4, 9).房号 = "1112"
 SData(4, 9).x = 11
 SData(4, 9).y = 11
    '------------------------------------------------
 SData(4, 10).房号 = "1111"
 SData(4, 10).x = 10
 SData(4, 10).y = 11
    '------------------------------------------------
 SData(4, 11).房号 = "1110"
 SData(4, 11).x = 9
 SData(4, 11).y = 11
    '------------------------------------------------
 SData(4, 12).房号 = "1109"
 SData(4, 12).x = 8
 SData(4, 12).y = 11
    '------------------------------------------------
 SData(4, 13).房号 = "1108"
 SData(4, 13).x = 7
 SData(4, 13).y = 11
    '------------------------------------------------
 SData(4, 14).房号 = "1107"
 SData(4, 14).x = 6
 SData(4, 14).y = 11
    '------------------------------------------------
 SData(4, 15).房号 = "1106"
 SData(4, 15).x = 5
 SData(4, 15).y = 11
    '------------------------------------------------
 SData(4, 16).房号 = "1105"
 SData(4, 16).x = 4
 SData(4, 16).y = 11
    '------------------------------------------------
 SData(4, 17).房号 = "1103"
 SData(4, 17).x = 3
 SData(4, 17).y = 11
    '------------------------------------------------
 SData(4, 18).房号 = "1102"
 SData(4, 18).x = 2
 SData(4, 18).y = 11
   '------------------------------------------------
 SData(4, 19).房号 = "1101"
 SData(4, 19).x = 1
 SData(4, 19).y = 11
    '------------------------------------------------
 SData(4, 20).房号 = "1132"
 SData(4, 20).x = 28
 SData(4, 20).y = 11
    '------------------------------------------------
 SData(4, 21).房号 = "1131"
 SData(4, 21).x = 27
 SData(4, 21).y = 11
    '------------------------------------------------
 SData(4, 22).房号 = "1130"
 SData(4, 22).x = 26
 SData(4, 22).y = 11
    '------------------------------------------------
 SData(4, 23).房号 = "1129"
 SData(4, 23).x = 25
 SData(4, 23).y = 11
    '------------------------------------------------
 SData(4, 24).房号 = "1128"
 SData(4, 24).x = 24
 SData(4, 24).y = 11
    '------------------------------------------------
 SData(4, 25).房号 = "1127"
 SData(4, 25).x = 23
 SData(4, 25).y = 11
    '------------------------------------------------
 SData(4, 26).房号 = "1126"
 SData(4, 26).x = 22
 SData(4, 26).y = 11
    '------------------------------------------------
 SData(4, 27).房号 = "1125"
 SData(4, 27).x = 21
 SData(4, 27).y = 11
    '------------------------------------------------
 SData(4, 28).房号 = "1122"
 SData(4, 28).x = 19
 SData(4, 28).y = 11
    '------------------------------------------------
 SData(4, 29).房号 = "1123"
 SData(4, 29).x = 20
 SData(4, 29).y = 11
    '------------------------------------------------
 SData(4, 30).房号 = ""
 SData(4, 30).x = 0
 SData(4, 30).y = 0
   '------------------------------------------------
 SData(4, 31).房号 = ""
 SData(4, 31).x = 0
 SData(4, 31).y = 0
    '------------------------------------------------
 SData(4, 32).房号 = ""
 SData(4, 32).x = 0
 SData(4, 32).y = 0
 '********************************************
 SData(5, 2).房号 = "1221"
 SData(5, 2).x = 18
 SData(5, 2).y = 10
  '------------------------------------------------
 SData(5, 3).房号 = "1220"
 SData(5, 3).x = 17
 SData(5, 3).y = 10
   '------------------------------------------------
 SData(5, 4).房号 = "1219"
 SData(5, 4).x = 16
 SData(5, 4).y = 10
   '------------------------------------------------
 SData(5, 5).房号 = "1218"
 SData(5, 5).x = 15
 SData(5, 5).y = 10
   '------------------------------------------------
 SData(5, 6).房号 = "1217"
 SData(5, 6).x = 14
 SData(5, 6).y = 10
   '------------------------------------------------
 SData(5, 7).房号 = "1216"
 SData(5, 7).x = 13
 SData(5, 7).y = 10
   '------------------------------------------------
 SData(5, 8).房号 = "1215"
 SData(5, 8).x = 12
 SData(5, 8).y = 10
    '------------------------------------------------
 SData(5, 9).房号 = "1212"
 SData(5, 9).x = 11
 SData(5, 9).y = 10
    '------------------------------------------------
 SData(5, 10).房号 = "1211"
 SData(5, 10).x = 10
 SData(5, 10).y = 10
    '------------------------------------------------
 SData(5, 11).房号 = "1210"
 SData(5, 11).x = 9
 SData(5, 11).y = 10
    '------------------------------------------------
 SData(5, 12).房号 = "1209"
 SData(5, 12).x = 8
 SData(5, 12).y = 10
    '------------------------------------------------
 SData(5, 13).房号 = "1208"
 SData(5, 13).x = 7
 SData(5, 13).y = 10
    '------------------------------------------------
 SData(5, 14).房号 = "1207"
 SData(5, 14).x = 6
 SData(5, 14).y = 10
    '------------------------------------------------
 SData(5, 15).房号 = "1206"
 SData(5, 15).x = 5
 SData(5, 15).y = 10
    '------------------------------------------------
 SData(5, 16).房号 = "1205"
 SData(5, 16).x = 4
 SData(5, 16).y = 10
    '------------------------------------------------
 SData(5, 17).房号 = "1203"
 SData(5, 17).x = 3
 SData(5, 17).y = 10
    '------------------------------------------------
 SData(5, 18).房号 = "1202"
 SData(5, 18).x = 2
 SData(5, 18).y = 10
   '------------------------------------------------
 SData(5, 19).房号 = "1201"
 SData(5, 19).x = 1
 SData(5, 19).y = 10
    '------------------------------------------------
 SData(5, 20).房号 = "1232"
 SData(5, 20).x = 28
 SData(5, 20).y = 10
    '------------------------------------------------
 SData(5, 21).房号 = "1231"
 SData(5, 21).x = 27
 SData(5, 21).y = 10
    '------------------------------------------------
 SData(5, 22).房号 = "1230"
 SData(5, 22).x = 26
 SData(5, 22).y = 10
    '------------------------------------------------
 SData(5, 23).房号 = "1229"
 SData(5, 23).x = 25
 SData(5, 23).y = 10
    '------------------------------------------------
 SData(5, 24).房号 = "1228"
 SData(5, 24).x = 24
 SData(5, 24).y = 10
    '------------------------------------------------
 SData(5, 25).房号 = "1227"
 SData(5, 25).x = 23
 SData(5, 25).y = 10
    '------------------------------------------------
 SData(5, 26).房号 = "1226"
 SData(5, 26).x = 22
 SData(5, 26).y = 10
    '------------------------------------------------
 SData(5, 27).房号 = "1225"
 SData(5, 27).x = 21
 SData(5, 27).y = 10
    '------------------------------------------------
 SData(5, 28).房号 = "1223"
 SData(5, 28).x = 20
 SData(5, 28).y = 10
    '------------------------------------------------
 SData(5, 29).房号 = "1222"
 SData(5, 29).x = 19
 SData(5, 29).y = 10
    '------------------------------------------------
 SData(5, 30).房号 = ""
 SData(5, 30).x = 0
 SData(5, 30).y = 0
   '------------------------------------------------
 SData(5, 31).房号 = ""
 SData(5, 31).x = 0
 SData(5, 31).y = 0
    '------------------------------------------------
 SData(5, 32).房号 = ""
 SData(5, 32).x = 0
 SData(5, 32).y = 0
 '********************************************
 SData(6, 2).房号 = "1421"
 SData(6, 2).x = 18
 SData(6, 2).y = 9
  '------------------------------------------------
 SData(6, 3).房号 = "1420"
 SData(6, 3).x = 17
 SData(6, 3).y = 9
   '------------------------------------------------
 SData(6, 4).房号 = "1418"
 SData(6, 4).x = 15
 SData(6, 4).y = 9
   '------------------------------------------------
 SData(6, 5).房号 = "1419"
 SData(6, 5).x = 16
 SData(6, 5).y = 9
   '------------------------------------------------
 SData(6, 6).房号 = "1417"
 SData(6, 6).x = 14
 SData(6, 6).y = 9
   '------------------------------------------------
 SData(6, 7).房号 = "1416"
 SData(6, 7).x = 13
 SData(6, 7).y = 9
   '------------------------------------------------
 SData(6, 8).房号 = "1415"
 SData(6, 8).x = 12
 SData(6, 8).y = 9
    '------------------------------------------------
 SData(6, 9).房号 = "1412"
 SData(6, 9).x = 11
 SData(6, 9).y = 9
    '------------------------------------------------
 SData(6, 10).房号 = "1411"
 SData(6, 10).x = 10
 SData(6, 10).y = 9
    '------------------------------------------------
 SData(6, 11).房号 = "1410"
 SData(6, 11).x = 9
 SData(6, 11).y = 9
    '------------------------------------------------
 SData(6, 12).房号 = "1409"
 SData(6, 12).x = 8
 SData(6, 12).y = 9
    '------------------------------------------------
 SData(6, 13).房号 = "1408"
 SData(6, 13).x = 7
 SData(6, 13).y = 9
    '------------------------------------------------
 SData(6, 14).房号 = "1407"
 SData(6, 14).x = 6
 SData(6, 14).y = 9
    '------------------------------------------------
 SData(6, 15).房号 = "1406"
 SData(6, 15).x = 5
 SData(6, 15).y = 9
    '------------------------------------------------
 SData(6, 16).房号 = ""
 SData(6, 16).x = 0
 SData(6, 16).y = 0
    '------------------------------------------------
 SData(6, 17).房号 = "1405"
 SData(6, 17).x = 4
 SData(6, 17).y = 9
    '------------------------------------------------
 SData(6, 18).房号 = "1403"
 SData(6, 18).x = 3
 SData(6, 18).y = 9
   '------------------------------------------------
 SData(6, 19).房号 = "1402"
 SData(6, 19).x = 2
 SData(6, 19).y = 9
    '------------------------------------------------
 SData(6, 20).房号 = "1401"
 SData(6, 20).x = 1
 SData(6, 20).y = 9
    '------------------------------------------------
 SData(6, 21).房号 = "1432"
 SData(6, 21).x = 28
 SData(6, 21).y = 9
    '------------------------------------------------
 SData(6, 22).房号 = "1431"
 SData(6, 22).x = 27
 SData(6, 22).y = 9
    '------------------------------------------------
 SData(6, 23).房号 = "1403"
 SData(6, 23).x = 26
 SData(6, 23).y = 9
    '------------------------------------------------
 SData(6, 24).房号 = "1429"
 SData(6, 24).x = 25
 SData(6, 24).y = 9
    '------------------------------------------------
 SData(6, 25).房号 = "1428"
 SData(6, 25).x = 24
 SData(6, 25).y = 9
    '------------------------------------------------
 SData(6, 26).房号 = "1427"
 SData(6, 26).x = 23
 SData(6, 26).y = 9
    '------------------------------------------------
 SData(6, 27).房号 = "1426"
 SData(6, 27).x = 22
 SData(6, 27).y = 9
    '------------------------------------------------
 SData(6, 28).房号 = "1425"
 SData(6, 28).x = 21
 SData(6, 28).y = 9
    '------------------------------------------------
 SData(6, 29).房号 = "1423"
 SData(6, 29).x = 20
 SData(6, 29).y = 9
    '------------------------------------------------
 SData(6, 30).房号 = "1422"
 SData(6, 30).x = 19
 SData(6, 30).y = 9
   '------------------------------------------------
 SData(6, 31).房号 = ""
 SData(6, 31).x = 0
 SData(6, 31).y = 0
    '------------------------------------------------
 SData(6, 32).房号 = ""
 SData(6, 32).x = 0
 SData(6, 32).y = 0
 '**********************= ""**********************
 SData(7, 2).房号 = "1521"
 SData(7, 2).x = 18
 SData(7, 2).y = 8
  '------------------------------------------------
 SData(7, 3).房号 = "1520"
 SData(7, 3).x = 17
 SData(7, 3).y = 8
   '------------------------------------------------
 SData(7, 4).房号 = "1519"
 SData(7, 4).x = 16
 SData(7, 4).y = 8
   '------------------------------------------------
 SData(7, 5).房号 = "1518"
 SData(7, 5).x = 15
 SData(7, 5).y = 8
   '------------------------------------------------
 SData(7, 6).房号 = "1517"
 SData(7, 6).x = 14
 SData(7, 6).y = 8
   '------------------------------------------------
 SData(7, 7).房号 = "1516"
 SData(7, 7).x = 13
 SData(7, 7).y = 8
   '------------------------------------------------
 SData(7, 8).房号 = "1508"
 SData(7, 8).x = 7
 SData(7, 8).y = 8
    '------------------------------------------------
 SData(7, 9).房号 = "1510"
 SData(7, 9).x = 9
 SData(7, 9).y = 8