多级菜单.mb

很好的MAPINFO源代码可以下载下来看看哦对学习又很的帮助

SUB DJCD
   Create Menu "邹庄镇地形图" AS
      "四户"	Calling 	四户镇,"(-",
      "城关镇"	Calling 	城关镇,"(-",
      "宋楼镇"	Calling 	宋楼镇,"(-",
      "大沙河镇"  Calling 	大沙河镇,"(-",
      "龙固镇"	Calling 	龙固镇,"(-",
      "杨屯乡"	Calling 	杨屯乡,"(-",
      "何桥乡"	Calling 	何桥乡,"(-",
      "黄集乡"	Calling 	黄集乡,"(-",
      "邱集乡"	Calling 	邱集乡,"(-",
      "王林乡"	Calling 	王林乡,"(-",
      "红旗乡"	Calling 	红旗乡,"(-",
      "邳城镇"	Calling 	邳城镇,"(-",
      "新安乡"	Calling 	新安乡,"(-",
      "墨河乡"	Calling 	墨河乡
   Create Menu "连防镇地形图" AS
      "港上"	Calling 	港上镇,"(-",
      "邹庄镇地形图" AS "邹庄镇地形图","(-",
      "邢楼"	Calling 	邢楼乡
   Create Menu "四户镇地形图" AS
      "港上"	Calling 	港上镇,"(-",
      "邹庄"	Calling 	邹庄镇,"(-",
      "连防镇地形图" AS "连防镇地形图","(-",
      "岔河"	Calling 	岔河乡,"(-",
      "邢楼"	Calling 	邢楼乡
   Create Menu "邢楼乡地形图" AS
      "港上"	Calling 	港上镇,"(-",
      "邹庄"	Calling 	邹庄镇,"(-",
      "连防"	Calling 	连防乡,"(-",
      "四户镇地形图" AS "四户镇地形图","(-",
      "岔河"	Calling 	岔河乡,"(-",
      "邢楼"	Calling 	邢楼乡
    Create Menu "利国地形图" AS
      "四户"	Calling 	四户镇,"(-",
      "岔河"	Calling 	岔河乡,"(-",
      "邢楼乡地形图" AS "邢楼乡地形图"
    Create Menu "毛庄乡地形图"AS
      "吕梁"	Calling 	吕梁乡,"(-",
      "石屯镇"	Calling 	石屯镇,"(-",
      "火花乡"	Calling 	火花乡,"(-",
      "利国地形图" AS "利国地形图"
    Create Menu "张集乡地形图"AS
      "大许" Calling 大许乡,"(-",
      "毛庄乡地形图" AS "毛庄乡地形图"
      
   Create Menu "沙庄乡地形图"AS
      "张集乡地形图" AS "张集乡地形图","(-",
      "吴桥" Calling 吴桥乡,"(-",
      "单集" Calling 单集乡
   Create Menu "贾汪镇地形图"AS
      "沙庄乡地形图" AS "沙庄乡地形图","(-",
      "单楼乡"Calling 单楼乡   
   Create Menu "城关镇地形图"AS
     "塔山乡地形图" Calling 塔山乡,"(-",
     "青山泉镇地形图" Calling 青山泉镇,"(-",
     "贾汪镇地形图" AS "贾汪镇地形图"
  Create Menu "丰县地形图" AS
     "刘王楼乡地形图" Calling	刘王楼乡,"(-",
     "城关镇地形图" AS "城关镇地形图"
  Create Menu "徐州市地形图" AS
     "睢宁县地形图" Calling 江苏省地图,"(-",
     "丰县地形图" AS "丰县地形图"
  Create Menu "徐州全市地图" AS
     "徐州市地图" Calling 地图,"(-","(-",
     "徐州市区地图" Calling 市区地图,"(-","(-",
     "徐州市地图" Calling 地图,"(-",
     "徐州市地形图" AS  "徐州市地形图"
  Create Menu "选择地图" AS
     "江苏省地图" Calling 江苏省地图,"(-",
     "中国地图" Calling 中国地图,"(-",
     "徐州全市地图" AS "徐州全市地图"
  Create Menu "徐州市"  AS
     "1.大泉镇"  Calling     大泉镇,"(-",
     "2.汴塘镇"	Calling 	汴塘镇,"(-",
     "3.大吴镇"	Calling 	大吴镇
   Create Menu "贾汪区"  AS
     "1.大泉镇"    Calling     大泉镇,"(-",
     "2.汴塘镇"	Calling 	汴塘镇,"(-",
     "3.大吴镇"	Calling 	大吴镇,"(-",
     "贾汪镇"	Calling 	贾汪镇
  Create Menu "鼓楼区" AS"(-",
     "1.朱庄乡"	Calling 	朱庄乡,"(-",
     "2.下淀乡"	Calling 	下淀乡
   Create Menu "云龙区" AS
     "1.狮子山乡"	Calling 	狮子山乡
   Create Menu "泉山区" AS
     "1.奎山乡"	Calling 	奎山乡
   Create Menu "九里区" AS
     "1.石屯镇"	Calling 	石屯镇,"(-",
     "2.火花乡"	Calling 	火花乡
   Create Menu "丰县"  AS
     "1.城关镇"	Calling 	城关镇,"(-",
     "2.宋楼镇"	Calling 	宋楼镇,"(-",
     "3.大沙河镇"	Calling 	大沙河镇
   Create Menu "沛县" AS
     "1.龙固镇"	Calling 	龙固镇,
     "2.杨屯乡"	Calling 	杨屯乡
   Create Menu "铜山县" AS
     "1.何桥乡"	Calling 	何桥乡,
     "2.黄集乡"	Calling 	黄集乡
   Create Menu "睢宁县" AS
     "5.邱集乡"	Calling 	邱集乡,
     "6.王林乡"	Calling 	王林乡
   Create Menu "邳州市" AS
     "1.红旗乡"	Calling 	红旗乡,
     "2.邳城镇"	Calling 	邳城镇
  Create Menu "新沂市" AS
     "1.新安乡"	Calling 	新安乡,
     "2.墨河乡"	Calling 	墨河乡
  Create Menu "徐州县市区" AS
     "丰县" As "丰县",   "(-",      
     "沛县" As "沛县",   "(-",
    "铜山县" As "铜山县", "(-", 
    "睢宁县" As "睢宁县", "(-", 
    "邳州市" As "邳州市", "(-",  
    "新沂市" As "新沂市", "(-", 
    "贾汪区" As "贾汪区", "(-", 
    "鼓楼区" As "鼓楼区", "(-",    
    "云龙区" As "云龙区", "(-",  
    "泉山区" As "泉山区", "(-",  
    "九里区" As "九里区"  
    Create Menu "行政区划" AS   "徐州市" AS "徐州市","(-",  "徐州县市区" AS "徐州县市区"
    ALTER MENU bar ADD "多级菜单"  ALTER MENU "多级菜单" ADD "(-",  "选择地图" As "选择地图"   
    ALTER MENU bar ADD "多级菜单"  ALTER MENU "多级菜单" ADD "(-",  "行政区划" As "行政区划"     
END SUB