典型对话框.mb

mabasic 经典使用案例。主要关于菜单建立

SUB DXDHK
   M1$="常量选项;变量选项;大量选项;尺寸和位置演示"
   dialog
   title"络屹科技欢迎您使用对话框控件实验程序" 
   position 340,200               
   control radiogroup
   title M1$
   position 30,8
   into R                       
   control okbutton
   title "确定"
   position 20,100
   control cancelbutton
   title "取消"
   position 80,100
   M1$="安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
   IF R=0 THEN EXIT SUB END IF
   IF R=1 THEN GOTO DX01 END IF
   IF R=2 THEN GOTO DX02 END IF
   IF R=3 THEN GOTO DX03 END IF
   IF R=4 THEN GOTO DX04 END IF
DX01:'常量选项
      R=0 
      N=34
      dialog
      title "  本次选择共有"+N+"个对象" 
      position 350,350
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 140  height 10      '140为窗口宽度
      position 30,10            '30为窗口开始坐标 
      into R
      control okbutton
      title "确定"
      position 20,30
      control cancelbutton
      title "取消"
      position 140,30
      if r=0 then EXIT SUB end if
      EXIT SUB
DX02:'变量选项
      R=0 
      M1$="安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      N=34
      dialog
      title "  本次选择共有"+N+"个对象" 
      position 350,350
      control popupmenu
      title M1$
      position 20,5
      width 140  height 10      '140为窗口宽度
      position 30,10            '30为窗口开始坐标 
      into R
      control okbutton
      title "确定"
      position 20,30
      control cancelbutton
      title "取消"
      position 140,30
      if r=0 then EXIT SUB end if
     EXIT SUB
DX03:'大量选项
     R=0 
    z0$="全国省市"
    Open Table "全国省市.TAB"  '打开表
    SELECT COUNT(*) FROM 全国省市          '统计总记录数
    INTO LIT_QUERY                         '结果存入LIT_QUERY表中
    fetch rec 1 from LIT_QUERY             '读LIT_QUERY表中的第一行数
    N=LIT_QUERY.col(1)                     '将总和赋值给N
    M1$=""                                 '对M1$变量清零
    FOR I=1 TO N                           '从1到N
      fetch rec I from 全国省市            '访问"全国省市"表
      P$=全国省市.COL(2)                   '将第二列赋值给P$
      M1$=M1$+";"+P$                       '累加P$
    NEXT                                   '循环出口
      M1$=M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$+M1$
      R=LEN (M1$)                          '测出M1$的字符数
      N=N*13
      M1$=MID$(M1$,2,R-1)                  '去掉最前面的";"符号
      dialog
    title "  本次选择共有"+N+"个对象" 
      position 350,350
      control popupmenu
      title M1$      
      position 20,5
      width 140  height 10      '140为窗口宽度
      position 30,10            '30为窗口开始坐标 
      into R
      control okbutton
      title "确定"
      position 20,30
      control cancelbutton
      title "取消"
      position 140,30
      if r=0 then EXIT SUB end if
    EXIT SUB
DX04:'尺寸和位置演示
   R=0 
   dialog
   title"络屹科技欢迎您使用典型对话框位置和尺寸的演示" 
   position 340,200               
   control radiogroup
   title "对话框位置;对话框尺寸"
   position 30,8
   into R                       
   control okbutton
   title "确定"
   position 20,40
   control cancelbutton
   title "取消"
   position 100,40
   IF R=0 THEN EXIT SUB END IF
   IF R=1 THEN GOTO DH01 END IF
   IF R=2 THEN GOTO DH02 END IF
  DH01:'对话框位置演示   
  OPEN file "对话框文本.MB" FOR INPUT AS #1
   INPUT #1, z0$ M1$=z0$ R3=1
   FOR I=0 TO 700 STEP 50
    FOR J=0 TO 600 STEP 20
    R=0 
    dialog
      title "距左="+I+"  距上="+J+"按<下一位置>继续,按<退出演示>终止" 
      position I,J
      control popupmenu
      title M1$      
      position 20,5
      width 170  height 10      '140为窗口宽度
      position 30,10            '30为窗口开始坐标 
      into R
      control okbutton
      title "下一位置"
      position 20,30
      control cancelbutton
      title "退出演示"
      position 140,30
   INPUT #1, z0$  M1$=STR$(R3)+" "+Z0$+";"+M1$ R3=R3+1
   if r=0 then GOTO DH09 end if
   NEXT  NEXT  
  Close File #1 EXIT SUB   
  DH02:'对话框尺寸演示   
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   INPUT #1, z0$ M1$=z0$ R3=1
    FOR I=0 TO 400 STEP 10
      FOR J=20 TO 300 STEP 10
      R=0
      dialog
      title "宽度="+I+"  高度="+J+"按<下一尺寸>继续,按<退出演示>终止" 
      position 200,40
      control popupmenu
      title M1$      
      position 20,5
      width I height J          'I为窗口宽度
      position 30,10            '30为窗口开始坐标 
      into R
      control okbutton
      title "下一尺寸"
      position 15,J+10
      control cancelbutton
      title "退出演示"
      position I,J+10
 INPUT #1, z0$  M1$=STR$(R3)+" "+Z0$+";"+M1$ R3=R3+1
   if r=0 then GOTO DH09 end if
   NEXT NEXT  
DH09:Close File #1 END SUB