预测对话框.mb

mapinfo的代码合集

SUB 预测对话框 
    Z$(1)="降水量" Z$(2)="降水日数" Z$(3)="汛期6_9月降水量"
    Z$(4)="小麦生长期10_5月降水量" Z$(5)="抗旱期4月15_10月15最小70天降水"
    Z$(6)="抗旱期4月15_10月15最小90天降水"  Z$(7)="最大一日降水量"
    Z$(8)="最大三日降水量"  Z$(9)="最大七日降水量" 
    Z$(10)="最大十五日降水量" Z$(11)="最大三十日降水量" Z$(12)="最长持续无雨日"
    P$="" FOR I=1 TO 11 P$=P$+Z$(I)+";" NEXT P$=P$+Z$(I) N=12
    dialog  title "请您选择预测的输出方式、路径数学模型:"  position 380,250 
    control statictext title "选择输出方式:" position 5,5 
    control popupmenu title "显  示;打  印;文  件" position 20,15 into X
    control statictext title "选择开始时间:" position 75,5 
    control popupmenu title "从今天开始;指定开始时间" position 65,15 into X
    control statictext title "选择文件输出路径:" position 35,30 
    control popupmenu title "D:\地理信息\降水\;A:\;C:\;D\" position 35,40 into X
    control statictext title N+"个"+"数学模型供您选择:" position 5,55  
    control listbox title P$ width 130 height 60 into X
    control statictext title "您如果不选,按<确定>,就等于全部选中!"
    control okbutton  title "确定" control cancelbutton  title "取消"
END SUB