[分享]：『MB』：mapinfo源程序

studingCAD · 发表于 2005-4-29 16:59:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

为了方便大家可以直接看到，我就没有用打包的形式上传；
为了方便大家对代码的阅读，故用PHP代码的形似帖了上来。

表操作.mb
[php]
'1、新建表Create Table
'2、向表中添加数据Insert
'3、读取表中的数据FetcH
'4、修改表结构Alter Table
'5、修改表的结构Add Column
'6、建立字段索引Creat Index
'7、修改表的结构Creat Map
'8、修改表的结构DropMap
'9、编辑行Update
'10、删除行Delete
'11、删除一个表Drop Table
'12、整理表(删除空记录行)Pack Table
'13、保存表的最新编辑Commit Table
'14、控制表设置Set Table
'15、放弃表的最新编辑Rollback
'16、重命名一个表Rename Table
'17、表的查询Fetch
'18、定位行光标EOT()
'19、迭择数据Select
'20、操作选择命令SelectionInfo()
'21、按地址查找图对象Find
'22、按地址查找图对象FindUsing
'23、按地址查找图对象CommandInfo()
'24、按位置查找图对象SearchPoint()
'25、按位置查找图对象SearchRect()
'26、按位置查找图对象SearchInfo()
'27、获取表的信息NumTables()
'28、获取表的信息TableInfo()
'29、获取列的信息NumCols()
'30、获取列的信息ColumnINfo()
'31、查询一个表的元数据GetMetadata$()
'32、查询一个表的元数据Metadata
'33、查询无缝表TableInfo()
'34、查询无缝表GetSeamlessSheet()
'35、表/文件的输入Import
'36、表/文件的输出Export
SUB BCZ
W$="表操作" CALL BZLBXZ
IF R=0 THEN EXIT SUB END IF
IF R=0 THEN EXIT SUB END IF
IF R=1 THEN GOTO BC01 END IF
IF R=2 THEN GOTO BC02 END IF
IF R=3 THEN GOTO BC03 END IF
IF R=4 THEN GOTO BC04 END IF
IF R=5 THEN GOTO BC05 END IF
IF R=6 THEN GOTO BC06 END IF
IF R=7 THEN GOTO BC07 END IF
IF R=8 THEN GOTO BC08 END IF
IF R=9 THEN GOTO BC09 END IF
IF R=10 THEN GOTO BC10 END IF
IF R=11 THEN GOTO BC11 END IF
IF R=12 THEN GOTO BC12 END IF
IF R=13 THEN GOTO BC13 END IF
IF R=14 THEN GOTO BC14 END IF
IF R=15 THEN GOTO BC15 END IF
IF R=16 THEN GOTO BC16 END IF
IF R=17 THEN GOTO BC17 END IF
IF R=18 THEN GOTO BC18 END IF
IF R=19 THEN GOTO BC19 END IF
IF R=20 THEN GOTO BC20 END IF
IF R=21 THEN GOTO BC21 END IF
IF R=22 THEN GOTO BC22 END IF
' IF R=23 THEN GOTO BC23 END IF
BC01:'新建表Create Table
CALL XJB
Create Table Cust
(name char(20),
Address char(30),
City char(30),
Amount DecimaL (5,2),
rderDate Date,
CustID Integer)
File"C:\MapBasic\cust.tab"
Create Map For Cust
Create Index on Cust (CustID)
Create Index On Cust (name)
Browse * From Cust
EXIT SUB
BC02:'向表中添加数据INSERT
Open Table "当前雨情分析_逐月对照"
Browse * From 当前雨情分析_逐月对照
NOTE "现在已经打开一个空表，是否开始向表中添加数据"
FOR I=1 TO 45
   INSERT INTO 当前雨情分析_逐月对照             '增加一行数据
   VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"丰水年")
NEXT
Browse * From 当前雨情分析_逐月对照
EXIT SUB
BC03:'读取表中的数据
  CALL XJB
  Open Table "当前雨情分析_逐月对照" Interactive
  FOR I=1 TO 45
   INSERT INTO 当前雨情分析_逐月对照
   VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"丰水年")
NEXT
  Browse * From 当前雨情分析_逐月对照
  FetcH First From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用First子句读取的数据是第一行的第一列R="+W$
  FetcH Last From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用Last子句读取的数据是最后一行的第一列R="+W$
  Browse * From 当前雨情分析_逐月对照
  FetcH First From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用First子句读取的数据是第一行第一列R="+W$
  FetcH Next From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用Next子句读取的数据是第一行的下一行的第一列R="+W$
  FetcH Prev From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用Prev子句读取的数据是第一行的第一列R="+W$
  FOR I=1 TO 10
  FetcH Rec I From 当前雨情分析_逐月对照
  W$=当前雨情分析_逐月对照.CoL1
  NOTE "现在使用Rec n子句读取的数据是第"+I+"行第一列R="+W$
  NEXT
  EXIT SUB
BC04:'修改表结构Alter Table
CALL XJB
NOTE"请您观察没有修改的表格,现在开始修改本表格"
Alter Table 当前雨情分析_逐月对照
(Rename 多年平均徐州平均 '改名
Rename 多年最大徐州最大
Rename 多年最小徐州最小
Modify 月份 char(6)
Drop 频率
Add 今年最大 char(8),
明年预测 DECIMAL(6,1)
Order 月份,徐州平均,徐州最大,徐州最小,今年最大,明年预测,
离差系数Cv,离势系数Cs,本年降水,距平值,重现期,丰枯评价)
Interactive
NOTE"现在已经对此表进行了重排序,请您展开表格观察"
EXIT SUB
BC05:'修改表的结构Add Column
Open Table "当前雨情分析_逐月对照"
Add Column 当前雨情分析_逐月对照(多年平均)
Values 31,17,22,24,47,41,66,35,32,88
Browse * From 当前雨情分析_逐月对照
BC06:'建立字段索引Creat Index
Open Table "当前雨情分析_逐月对照" Interactive
NOTE"现在开始对此表的_徐州最小_进行索引"
Create Index on 当前雨情分析_逐月对照(徐州最小)
NOTE"徐州最小_索引进行完毕"
EXIT SUB
BC07:'修改表的结构Creat Map
EXIT SUB
BC08:'修改表的结构DropMap
EXIT SUB
BC09:'编辑行Update
CALL XJB
FOR I=1 TO 45
   INSERT INTO 当前雨情分析_逐月对照             '增加一行数据
   VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"丰水年")
NEXT
Browse * From 当前雨情分析_逐月对照
NOTE "现在开始对本表的多年平均列进行编辑"
Select * From 当前雨情分析_逐月对照
'Where W$="marketing" And 多年平均 > 120
Update 当前雨情分析_逐月对照
Set 多年平均 = 多年平均 * 3.07
Browse * From 当前雨情分析_逐月对照
'Update employees
'Set salary = salary * 1.07
'Where Rowid = 10

'Update sites
'Set Obj = CreatePoint(x, y)
'Where Rowid = 1
EXIT SUB
BC10:'删除行Delete
CALL XJB
Open Table "当前雨情分析_逐月对照"
FOR I=1 TO 45
   INSERT INTO 当前雨情分析_逐月对照             '增加一行数据
   VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"丰水年")
NEXT
Browse * From 当前雨情分析_逐月对照
NOTE "现在要删除当前表的所有行"
Delete From 当前雨情分析_逐月对照
Commit Table 当前雨情分析_逐月对照
EXIT SUB
BC11:'删除一个表Drop Table
CALL XJB
Open Table "当前雨情分析_逐月对照"
Browse * From 当前雨情分析_逐月对照
NOTE "现在将要删除当前表,请注意观察"
Drop Table 当前雨情分析_逐月对照
NOTE "您可以打开当前目录查看"
EXIT SUB
BC12:'整理表(删除空记录行)Pack Table
fi=ASK("请您先运行2'向表中添加数据INSERT,动手删除几个记录,是否完成了?","完成了","没有完成关")
Open Table "当前雨情分析_逐月对照"
Pack Table  当前雨情分析_逐月对照
Graphic Data
  ' Graphic | Data | Graphic Data }  [ Interactive ]
BC13:'保存表的最新编辑Commit Table
bc14:'控制表设置Set Table
Open Table "当前雨情分析_逐月对照"
  Set Table  当前雨情分析_逐月对照
FastEdit On
   Undo On
   ReadOnly
'    Seamless On Preserve
'    UserMap  On
'    UserBrowse On
'    UserClose On
'    UserEdit  On
'    UserRemoveMap On
'    UserDisplayMap On
EXIT SUB

'Import "WORLD.MIF"
'  Type "MIF"
'  Into "world_2.tab"
' Map From world_2
' Open Table "facility"
' Export facility
' Into "FACIL.DXF"
' Type "DXF"
' Overwrite
' Preserve AttributeData
' Preserve MultiPolygonRgns As Blocks
' ASCII DecimalPlaces 3
' Transform (0, 0) (1, 1) (0, 0) (1, 1)
BC15:'放弃表的最新编辑Rollback
BC16:
BC17:'定位行光标Fetch，EOT()
BC18:'迭择数据，操作选择命令Select，SelectionInfo()
BC19:'按地址查找图对象Find，FindUsing，CommandInfo()
BC20:'按位置查找图对象SearchPoint()，SearchRect()，SearchInfo()
BC21:'获取表的信息NumTables()，TableInfo()
BC22:'获取列的信息NumCols()，ColumnINfo()
BC23:'查询一个表的元数据GetMetadata$()，Metadata
'BC18:'查询无缝表TableInfo()，GetSeamlessSheet()
'BC19:'表/文件的输入Import，Export
'BC20:
'BC21:
'BC22:
'BC23:

END SUB

SUB XJB '新建表Create Table
CREATE TABLE 当前雨情分析_逐月对照             '建立当前雨情_逐月对照表格
(月份 char(4),
多年平均 DECIMAL(6,1),  '表格个字段
多年最大 DECIMAL(6,0),
多年最小 DECIMAL(6,1),
离差系数Cv DECIMAL(2,6),
离势系数Cs DECIMAL(2,6),
本年降水 DECIMAL(6,2),
距平值 DECIMAL(6,1),
频率 DECIMAL(2,6),
重现期 DECIMAL(6,1),
丰枯评价 char(6))
FILE"当前雨情分析_逐月对照.TAB" '指定存入目录
Browse * From 当前雨情分析_逐月对照
END SUB
[/php]

studingCAD · 发表于 2005-4-29 17:03:14

按钮标识符..MB
[PHP]

MI_CURSOR_ARROW
MI_CURSOR_IBEAM
MI_CURSOR_FINGER_LEFT
MI_CURSOR_ZOOM_IN
MI_CURSOR_ZOOM_OUT
MI_CURSOR_DRAG_OBJ
MI_CURSOR_GRABBER
MI_CURSOR_CHANGE_WIDTH
MI_CURSOR_FINGER_UP
MI_CURSOR_IBEAM_CROSS
MI_CURSOR_CROSSHAIR

'*----------------------------------------------------*
'屹 Defines for different DrawModes for the custom tool.
'*-----------------------------------------------------*
DM_CUSTOM_CIRCLE    30
DM_CUSTOM_ELLIPSE 31
DM_CUSTOM_RECT    32
DM_CUSTOM_LINE    33
DM_CUSTOM_POINT    34
DM_CUSTOM_POLYGON 35
DM_CUSTOM_POLYLINE 36

'*--------------------------------------------------------------*
' Defined constants for icons built into MapInfo.
' 电Available to be used on the ButtonPads.
'*--------------------------------------------------------------*

MI_ICON_ARROW       0
MI_ICON_SEARCH_RECT 1
MI_ICON_SEARCH_RADIUS  2
MI_ICON_SEARCH_BDY    3
MI_ICON_ZOOM_IN       4
MI_ICON_ZOOM_OUT    5
MI_ICON_ZOOM_QUESTION  6
MI_ICON_GRABBER       7
MI_ICON_INFO          8
MI_ICON_LABEL       9
MI_ICON_LAYERS       10
MI_ICON_RULER       11
MI_ICON_LEGEND       12
MI_ICON_STATISTICS    13
MI_ICON_DISTRICT_MANY  14
MI_ICON_DISTRICT_SAME  15

脑
MI_ICON_SYMBOL       16
MI_ICON_LINE          17
MI_ICON_POLYLINE    18
MI_ICON_ARC          19
MI_ICON_POLYGON       20
MI_ICON_ELLIPSE       21
MI_ICON_RECT          22
MI_ICON_ROUND_RECT    23
MI_ICON_TEXT          24
MI_ICON_WINDOW_FRAME 25
MI_ICON_RESHAPE       26
MI_ICON_ADD_NODE    27
MI_ICON_SYMBOL_STYLE 28
MI_ICON_LINE_STYLE    29
MI_ICON_REGION_STYLE 30
MI_ICON_TEXT_STYLE    31

科
MI_ICON_RUN          32
MI_ICON_WRENCH       33
MI_ICON_CROSSHAIR    34
MI_ICON_CLIP_MODE    35
MI_ICON_CLIP_REGION 36
MI_ICON_DRAG_HANDLE 37
技
MI_ICON_NEW_DOC       38
MI_ICON_OPEN_FILE    39
MI_ICON_SAVE_FILE    40
MI_ICON_PRINT       41
MI_ICON_CUT          42
MI_ICON_COPY          43
MI_ICON_PASTE       44
MI_ICON_UNDO          45
MI_ICON_HELP          46

应
MI_ICON_ARROW_1       47
MI_ICON_ARROW_2       48
MI_ICON_ARROW_3       49
MI_ICON_ARROW_4       50
MI_ICON_ARROW_5       51
MI_ICON_ARROW_6       52
MI_ICON_ARROW_7       53
MI_ICON_ARROW_8       54
MI_ICON_ARROW_9       55
MI_ICON_ARROW_10    56
MI_ICON_ARROW_11    57
MI_ICON_ARROW_12    58
MI_ICON_ARROW_13    59
MI_ICON_ARROW_14    60
MI_ICON_ARROW_15    61
MI_ICON_ARROW_16    62
MI_ICON_ARROW_17    63
MI_ICON_ARROW_18    64
MI_ICON_ARROW_19    65
MI_ICON_ARROW_20    66
MI_ICON_ARROW_21    67

用
MI_ICON_COMMUNICATION_1 68
MI_ICON_COMMUNICATION_2 69
MI_ICON_COMMUNICATION_3 70
MI_ICON_COMMUNICATION_4 71
MI_ICON_COMMUNICATION_5 72
MI_ICON_COMMUNICATION_6 73
MI_ICON_COMMUNICATION_7 74
MI_ICON_COMMUNICATION_8 75
MI_ICON_COMMUNICATION_9 76
MI_ICON_COMMUNICATION_10  77
MI_ICON_COMMUNICATION_11  78
MI_ICON_COMMUNICATION_12  79

研
MI_ICON_EMERGENCY_1    80
MI_ICON_EMERGENCY_2    81
MI_ICON_EMERGENCY_3    82
MI_ICON_EMERGENCY_4    83
MI_ICON_EMERGENCY_5    84
MI_ICON_EMERGENCY_6    85
MI_ICON_EMERGENCY_7    86
MI_ICON_EMERGENCY_8    87
MI_ICON_EMERGENCY_9    88
MI_ICON_EMERGENCY_10    89
MI_ICON_EMERGENCY_11    90
MI_ICON_EMERGENCY_12    91
MI_ICON_EMERGENCY_13    92
MI_ICON_EMERGENCY_14    93
MI_ICON_EMERGENCY_15    94
MI_ICON_EMERGENCY_16    95
MI_ICON_EMERGENCY_17    96
MI_ICON_EMERGENCY_18    97

究
MI_ICON_LETTERS_A       98
MI_ICON_LETTERS_B       99
MI_ICON_LETTERS_C       100
MI_ICON_LETTERS_D       101
MI_ICON_LETTERS_E       102
MI_ICON_LETTERS_F       103
MI_ICON_LETTERS_G       104
MI_ICON_LETTERS_H       105
MI_ICON_LETTERS_I       106
MI_ICON_LETTERS_J       107
MI_ICON_LETTERS_K       108
MI_ICON_LETTERS_L       109
MI_ICON_LETTERS_M       110
MI_ICON_LETTERS_N       111
MI_ICON_LETTERS_O       112
MI_ICON_LETTERS_P       113
MI_ICON_LETTERS_Q       114
MI_ICON_LETTERS_R       115
MI_ICON_LETTERS_S       116
MI_ICON_LETTERS_T       117
MI_ICON_LETTERS_U       118
MI_ICON_LETTERS_V       119
MI_ICON_LETTERS_W       120
MI_ICON_LETTERS_X       121
MI_ICON_LETTERS_Y       122
MI_ICON_LETTERS_Z       123

所
MI_ICONS_MAPS_1          124
MI_ICONS_MAPS_1          125
MI_ICONS_MAPS_3          126
MI_ICONS_MAPS_4          127
MI_ICONS_MAPS_5          128
MI_ICONS_MAPS_6          129
MI_ICONS_MAPS_7          130
MI_ICONS_MAPS_8          131
MI_ICONS_MAPS_9          132
MI_ICONS_MAPS_10       133
MI_ICONS_MAPS_11       134
MI_ICONS_MAPS_12       135
MI_ICONS_MAPS_13       136
MI_ICONS_MAPS_14       137
MI_ICONS_MAPS_15       138

向
MI_ICON_MAPSYMB_1       139
MI_ICON_MAPSYMB_2       140
MI_ICON_MAPSYMB_3       141
MI_ICON_MAPSYMB_4       142
MI_ICON_MAPSYMB_5       143
MI_ICON_MAPSYMB_6       144
MI_ICON_MAPSYMB_7       145
MI_ICON_MAPSYMB_8       146
MI_ICON_MAPSYMB_9       147
MI_ICON_MAPSYMB_10       148
MI_ICON_MAPSYMB_11       149
MI_ICON_MAPSYMB_12       150
MI_ICON_MAPSYMB_13       151
MI_ICON_MAPSYMB_14       152
MI_ICON_MAPSYMB_15       153
MI_ICON_MAPSYMB_16       154
MI_ICON_MAPSYMB_17       155
MI_ICON_MAPSYMB_18       156
MI_ICON_MAPSYMB_19       157
MI_ICON_MAPSYMB_20       158
MI_ICON_MAPSYMB_21       159
MI_ICON_MAPSYMB_22       160
MI_ICON_MAPSYMB_23       161
MI_ICON_MAPSYMB_24       162
MI_ICON_MAPSYMB_25       163
MI_ICON_MAPSYMB_26       164

您
MI_ICON_MARITIME_1       165
MI_ICON_MARITIME_2       166
MI_ICON_MARITIME_3       167
MI_ICON_MARITIME_4       168
MI_ICON_MARITIME_5       169
MI_ICON_MARITIME_6       170
MI_ICON_MARITIME_7       171
MI_ICON_MARITIME_8       172
MI_ICON_MARITIME_9       173
MI_ICON_MARITIME_10    174

致
MI_ICON_MB_1             175
MI_ICON_MB_2             176
MI_ICON_MB_3             177
MI_ICON_MB_4             178
MI_ICON_MB_5             179
MI_ICON_MB_6             180
MI_ICON_MB_7             181
MI_ICON_MB_8             182
MI_ICON_MB_9             183
MI_ICON_MB_10          184
MI_ICON_MB_11          185
MI_ICON_MB_12          186
MI_ICON_MB_13          187
MI_ICON_MB_14          188

以
MI_ICON_MISC_1          189
MI_ICON_MISC_2          190
MI_ICON_MISC_3          191
MI_ICON_MISC_4          192
MI_ICON_MISC_5          193
MI_ICON_MISC_6          194
MI_ICON_MISC_7          195
MI_ICON_MISC_8          196
MI_ICON_MISC_9          197
MI_ICON_MISC_10          198
MI_ICON_MISC_11          199
MI_ICON_MISC_12          200
MI_ICON_MISC_13          201
MI_ICON_MISC_14          202
MI_ICON_MISC_15          203
MI_ICON_MISC_16          204
MI_ICON_MISC_17          205
MI_ICON_MISC_18          206
MI_ICON_MISC_19          207
MI_ICON_MISC_20          208
MI_ICON_MISC_21          209
MI_ICON_MISC_22          210
MI_ICON_MISC_23          211
MI_ICON_MISC_24          212
MI_ICON_MISC_25          213
MI_ICON_MISC_26          214
MI_ICON_MISC_27          215
MI_ICON_MISC_28          216
MI_ICON_MISC_29          217
MI_ICON_MISC_30          218
MI_ICON_MISC_31          219
最
MI_ICON_NUMBERS_1       220
MI_ICON_NUMBERS_2       221
MI_ICON_NUMBERS_3       222
MI_ICON_NUMBERS_4       223
MI_ICON_NUMBERS_5       224
MI_ICON_NUMBERS_6       225
MI_ICON_NUMBERS_7       226
MI_ICON_NUMBERS_8       227
MI_ICON_NUMBERS_9       228
MI_ICON_NUMBERS_10       229
MI_ICON_NUMBERS_11       230
MI_ICON_NUMBERS_12       231
MI_ICON_NUMBERS_13       232
MI_ICON_NUMBERS_14       233
MI_ICON_NUMBERS_15       234
MI_ICON_NUMBERS_16       235
MI_ICON_NUMBERS_17       236
MI_ICON_NUMBERS_18       237
MI_ICON_NUMBERS_19       238
MI_ICON_NUMBERS_20       239
MI_ICON_NUMBERS_21       240
MI_ICON_NUMBERS_22       241
MI_ICON_NUMBERS_23       242
MI_ICON_NUMBERS_24       243
MI_ICON_NUMBERS_25       244
MI_ICON_NUMBERS_26       245
MI_ICON_NUMBERS_27       246
MI_ICON_NUMBERS_28       247
MI_ICON_NUMBERS_29       248
MI_ICON_NUMBERS_30       249
MI_ICON_NUMBERS_31       250
MI_ICON_NUMBERS_32       251
亲
MI_ICON_REALESTATE_1    252
MI_ICON_REALESTATE_2    253
MI_ICON_REALESTATE_3    254
MI_ICON_REALESTATE_4    255
MI_ICON_REALESTATE_5    256
MI_ICON_REALESTATE_6    257
MI_ICON_REALESTATE_7    258
MI_ICON_REALESTATE_8    259
MI_ICON_REALESTATE_9    260
MI_ICON_REALESTATE_10    261
MI_ICON_REALESTATE_11    262
MI_ICON_REALESTATE_12    263
MI_ICON_REALESTATE_13    264
MI_ICON_REALESTATE_14    265
MI_ICON_REALESTATE_15    266
MI_ICON_REALESTATE_16    267
MI_ICON_REALESTATE_17    268
MI_ICON_REALESTATE_18    269
MI_ICON_REALESTATE_19    270
MI_ICON_REALESTATE_20    271
MI_ICON_REALESTATE_21    272
MI_ICON_REALESTATE_22    273
MI_ICON_REALESTATE_23    274
切
MI_ICON_SIGNS_1          275
MI_ICON_SIGNS_2          276
MI_ICON_SIGNS_3          277
MI_ICON_SIGNS_4          278
MI_ICON_SIGNS_5          279
MI_ICON_SIGNS_6          280
MI_ICON_SIGNS_7          281
MI_ICON_SIGNS_8          282
MI_ICON_SIGNS_9          283
MI_ICON_SIGNS_10       284
MI_ICON_SIGNS_11       285
MI_ICON_SIGNS_12       286
MI_ICON_SIGNS_13       287
MI_ICON_SIGNS_14       288
MI_ICON_SIGNS_15       289
MI_ICON_SIGNS_16       290
MI_ICON_SIGNS_17       291
MI_ICON_SIGNS_18       292
MI_ICON_SIGNS_19       293
的
MI_ICON_TRANSPORT_1    294
MI_ICON_TRANSPORT_2    295
MI_ICON_TRANSPORT_3    296
MI_ICON_TRANSPORT_4    297
MI_ICON_TRANSPORT_5    298
MI_ICON_TRANSPORT_6    299
MI_ICON_TRANSPORT_7    300
MI_ICON_TRANSPORT_8    301
MI_ICON_TRANSPORT_9    302
MI_ICON_TRANSPORT_10    303
MI_ICON_TRANSPORT_11    304
MI_ICON_TRANSPORT_12    305
MI_ICON_TRANSPORT_13    306
MI_ICON_TRANSPORT_14    307
MI_ICON_TRANSPORT_15    308
MI_ICON_TRANSPORT_16    309
MI_ICON_TRANSPORT_17    310
MI_ICON_TRANSPORT_18    311
MI_ICON_TRANSPORT_19    312
MI_ICON_TRANSPORT_20    313
MI_ICON_TRANSPORT_21    314
MI_ICON_TRANSPORT_22    315
MI_ICON_TRANSPORT_23    316
MI_ICON_TRANSPORT_24    317
MI_ICON_TRANSPORT_25    318
MI_ICON_TRANSPORT_26    319
MI_ICON_TRANSPORT_27    320
问
MI_ICON_ODBC_OPEN       321
MI_ICON_ODBC_REFRESH    322
MI_ICON_ODBC_UNLINK    323
MI_ICON_ODBC_MAPPABLE    324
MI_ICON_ODBC_SYMBOL    325
侯
MI_ICON_COMPASS_EXPAND 326
MI_ICON_COMPASS_CONTRACT  327
MI_ICON_COMPASS_TAG    328
MI_ICON_COMPASS_UNTAG    329
MI_ICON_COMPASS_CIRCLE_TA 330
MI_ICON_COMPASS_POLY_TA 331

M1$="络;屹;电;脑;科;技;应;用;研;究;所;向;您;致;以;最;亲;切;的;问;候;全部"
dialog
title"络屹科技欢迎您使用按钮盒演示程序"
position 440,0
control radiogroup
title M1$
position 30,2
into R
control okbutton
title "确定"
position 5,320
control cancelbutton
title "取消"
position 50,320
IF R=0 THEN EXIT SUB END IF
IF R=1 THEN GOTO AN01 END IF
IF R=2 THEN GOTO AN02 END IF
IF R=3 THEN GOTO AN03 END IF
IF R=4 THEN GOTO AN04 END IF
IF R=5 THEN GOTO AN05 END IF
IF R=6 THEN GOTO AN06 END IF
IF R=7 THEN GOTO AN07 END IF
IF R=8 THEN GOTO AN08 END IF
IF R=9 THEN GOTO AN09 END IF
IF R=10 THEN GOTO AN10 END IF
IF R=11 THEN GOTO AN11 END IF
IF R=12 THEN GOTO AN12 END IF
IF R=13 THEN GOTO AN13 END IF
IF R=14 THEN GOTO AN14 END IF
IF R=15 THEN GOTO AN15 END IF
IF R=16 THEN GOTO AN16 END IF
IF R=17 THEN GOTO AN17 END IF
IF R=18 THEN GOTO AN18 END IF
IF R=19 THEN GOTO AN19 END IF
IF R=20 THEN GOTO AN20 END IF
IF R=21 THEN GOTO AN21 END IF
IF R=22 THEN GOTO AN01 END IF
AN01:
Create ButtonPad "络" As PushButton Icon MI_CURSOR_ARROW Calling DXDHK HELPMSG "络" show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_IBEAM       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_FINGER_LEFT  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_ZOOM_IN    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_ZOOM_OUT    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_DRAG_OBJ    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_GRABBER    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_CHANGE_WIDTH Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_FINGER_UP Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_IBEAM_CROSS  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "络" Add Separator Add PushButton Icon MI_CURSOR_CROSSHAIR Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN02:
Create ButtonPad "屹" As PushButton Icon MI_CURSOR_ARROW Calling DXDHK HELPMSG "屹" show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_CIRCLE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_ELLIPSE  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_RECT    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_LINE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_POINT Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_POLYGON  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "屹" Add Separator Add PushButton Icon DM_CUSTOM_POLYLINE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN03:
Create ButtonPad "电" As PushButton Icon MI_CURSOR_ARROW Calling DXDHK HELPMSG "电" show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_SEARCH_RECT Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_SEARCH_RADIUS Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_SEARCH_BDY Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_ZOOM_IN    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_ZOOM_OUT    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_ZOOM_QUESTION Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_GRABBER    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_INFO       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_LABEL       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_LAYERS       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_RULER       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_LEGEND       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_STATISTICS Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_DISTRICT_MANY Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "电" Add Separator Add PushButton Icon MI_ICON_DISTRICT_SAME Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN04:
Create ButtonPad "脑" As PushButton Icon MI_ICON_SYMBOL Calling DXDHK HELPMSG "脑" show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_LINE          Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_POLYLINE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_ARC          Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_POLYGON       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_ELLIPSE       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_RECT          Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_ROUND_RECT    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_TEXT          Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_WINDOW_FRAME Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_RESHAPE       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_ADD_NODE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_SYMBOL_STYLE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_LINE_STYLE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_REGION_STYLE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "脑" Add Separator Add PushButton Icon MI_ICON_TEXT_STYLE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN05:
Create ButtonPad "科" As PushButton Icon MI_ICON_RUN Calling DXDHK HELPMSG "科" show
Alter ButtonPad "科" Add Separator Add PushButton Icon MI_ICON_WRENCH    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "科" Add Separator Add PushButton Icon MI_ICON_CROSSHAIR Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "科" Add Separator Add PushButton Icon MI_ICON_CLIP_MODE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "科" Add Separator Add PushButton Icon MI_ICON_CLIP_REGION Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "科" Add Separator Add PushButton Icon MI_ICON_DRAG_HANDLE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN06:
Create ButtonPad "技" As PushButton Icon MI_ICON_NEW_DOC Calling DXDHK HELPMSG "技" show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_OPEN_FILE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_SAVE_FILE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_PRINT    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_CUT       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_COPY       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_PASTE    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_UNDO       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "技" Add Separator Add PushButton Icon MI_ICON_HELP       Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN07:
Create ButtonPad "应" As PushButton Icon MI_ICON_ARROW_1 Calling DXDHK HELPMSG "应" show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "应" Add Separator Add PushButton Icon MI_ICON_ARROW_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN08:
Create ButtonPad "用" As PushButton Icon MI_ICON_COMMUNICATION_1 Calling DXDHK HELPMSG "用" show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "用" Add Separator Add PushButton Icon MI_ICON_COMMUNICATION_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN09:
Create ButtonPad "研" As PushButton Icon MI_ICON_EMERGENCY_1 Calling DXDHK HELPMSG "研" show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "研" Add Separator Add PushButton Icon MI_ICON_EMERGENCY_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN10:
Create ButtonPad "究" As PushButton Icon MI_ICON_LETTERS_A Calling DXDHK HELPMSG "究" show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_B Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_C Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_D Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_E Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_F Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_G Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_H Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_I Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_J Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_K Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_L Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_M Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_N Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_O Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_P Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_Q Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_R Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_S Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_T Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_U Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_V Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_W Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_X Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_Y Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "究" Add Separator Add PushButton Icon MI_ICON_LETTERS_Z Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN11:
Create ButtonPad "所" As PushButton Icon MI_ICONS_MAPS_1 Calling DXDHK HELPMSG "所" show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "所" Add Separator Add PushButton Icon MI_ICONS_MAPS_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN12:
Create ButtonPad "向" As PushButton Icon MI_ICON_MAPSYMB_1 Calling DXDHK HELPMSG "向" show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_22 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_23 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_24 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_25 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "向" Add Separator Add PushButton Icon MI_ICON_MAPSYMB_26 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN13:
Create ButtonPad "您" As PushButton Icon MI_ICON_MARITIME_1 Calling DXDHK HELPMSG "您" show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "您" Add Separator Add PushButton Icon MI_ICON_MARITIME_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN14:
Create ButtonPad "致" As PushButton Icon MI_ICON_MB_1 Calling DXDHK HELPMSG "致" show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "致" Add Separator Add PushButton Icon MI_ICON_MB_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN15:
Create ButtonPad "以" As PushButton Icon MI_ICON_MISC_1 Calling DXDHK HELPMSG "以" show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_22 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_23 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_24 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_25 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_26 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_27 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_28 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_29 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_30 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "以" Add Separator Add PushButton Icon MI_ICON_MISC_31 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN16:
Create ButtonPad "最" As PushButton Icon MI_ICON_NUMBERS_1 Calling DXDHK HELPMSG "最" show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_22 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_23 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_24 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_25 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_26 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_27 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_28 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_29 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_30 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_31 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "最" Add Separator Add PushButton Icon MI_ICON_NUMBERS_32 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN17:
Create ButtonPad "亲" As PushButton Icon MI_ICON_REALESTATE_1 Calling DXDHK HELPMSG "亲" show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_22 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "亲" Add Separator Add PushButton Icon MI_ICON_REALESTATE_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN18:
Create ButtonPad "切" As PushButton Icon MI_ICON_SIGNS_1 Calling DXDHK HELPMSG "切" show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "切" Add Separator Add PushButton Icon MI_ICON_SIGNS_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN19:
Create ButtonPad "的" As PushButton Icon MI_ICON_TRANSPORT_1 Calling DXDHK HELPMSG "的" show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_2 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_3 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_4 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_5 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_6 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_7 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_8 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_9 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_10 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_11 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_12 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_13 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_14 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_15 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_16 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_17 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_18 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_19 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_20 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_21 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_22 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_23 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_24 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_25 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_26 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "的" Add Separator Add PushButton Icon MI_ICON_TRANSPORT_27 Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN20:
Create ButtonPad "问" As PushButton Icon MI_ICON_ODBC_OPEN Calling DXDHK HELPMSG "问" show
Alter ButtonPad "问" Add Separator Add PushButton Icon MI_ICON_ODBC_REFRESH  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "问" Add Separator Add PushButton Icon MI_ICON_ODBC_UNLINK Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "问" Add Separator Add PushButton Icon MI_ICON_ODBC_MAPPABLE Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "问" Add Separator Add PushButton Icon MI_ICON_ODBC_SYMBOL Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF
AN21:
Create ButtonPad "侯" As PushButton Icon MI_ICON_COMPASS_EXPAND Calling DXDHK HELPMSG "侯" show
Alter ButtonPad "侯" Add Separator Add PushButton Icon MI_ICON_COMPASS_CONTRACT  Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "侯" Add Separator Add PushButton Icon MI_ICON_COMPASS_TAG    Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "侯" Add Separator Add PushButton Icon MI_ICON_COMPASS_UNTAG Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "侯" Add Separator Add PushButton Icon MI_ICON_COMPASS_CIRCLE_TA Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
Alter ButtonPad "侯" Add Separator Add PushButton Icon MI_ICON_COMPASS_POLY_TA Calling DXDHK HELPMSG "DisplaysthequerydialognQuery" Show
IF R<> 22 THEN EXIT SUB END IF

[/PHP]

studingCAD · 发表于 2005-4-29 17:05:08

表查询.mb
[PHP]
'定位行光标Fetch
'定位行光标EOT()
'迭择数据Select
'操作选择命令SelectionInfo()
'获取表的信息NumTables()
'获取表的信息TableInfo()
'获取列的信息NumCols()
'获取列的信息ColumnINfo()
'查询一个表的元数据GetMetadata$()
'查询一个表的元数据Metadata
'查询无缝表TableInfo()
'查询无缝表GetSeamlessSheet()
'按地址查找图对象Find
'按地址查找图对象FindUsing
'按地址查找图对象CommandInfo()
'按位置查找图对象SearchPoint()
'按位置查找图对象SearchRect()
'按位置查找图对象SearchInfo()
SUB BCX
END SUB
[/PHP]

studingCAD · 发表于 2005-4-29 17:06:33

操纵窗口.mb
[php]
SUB CZCK
'精彩演示
P$="R0300179" R=1
FOR I=0 TO 8  STEP 4
   FOR J=0 TO 8 STEP 4
      P$="界面"+STR$(R)
      Open Table P$
      Map From P$
      PositIon (J,I) Units "in"
      Height 3 Units "in"    '窗口高度16最大
      Width 4 Units  "in"    ' 宽度12
   R=R+1 IF R>10 THEN R=1 END IF
   NEXT NEXT
Close All Interactive
  FOR I=1 TO 0 STEP 6
   P$="界面"+STR$(I+1)
   Open Table P$
   Map From P$
   PositIon (I,I) Units "in"
   Height 3 Units "in"    '窗口高度16最大
   Width 4 Units  "in"    ' 宽度12
  NEXT
Close All Interactive
  FOR I=6 TO 0 STEP -1
   P$="界面"+STR$(I+1)
   Open Table P$
   Map From P$
   PositIon (I,I) Units "in"
   Height 3 Units "in"    '窗口高度16最大
   Width 4 Units  "in"    ' 宽度12
  NEXT
Close All Interactive
R=1
FOR I=8 TO 0 STEP -4
FOR J=0 TO 8 STEP 4
P$="界面"+STR$(R)
Open Table P$
Map From P$
PositIon (I,J) Units "in"
Height 3 Units "in"    '窗口高度16最大
Width 4 Units  "in"    ' 宽度12
R=R+1
NEXT
NEXT
Close All Interactive
R=2
FOR I=0 TO 8 STEP 4
FOR J=0 TO 8 STEP 4
P$="界面"+STR$(R)
Open Table P$
Map From P$
PositIon (I,J) Units "in"
Height 3 Units "in"    '窗口高度16最大
Width 4 Units  "in"    ' 宽度12
R=R+1
NEXT
NEXT
R=0
M1$="用Map From语句指定窗口的尺寸和位置;用Set Window语句指定窗口的尺寸和位置"
dialog
title"络屹科技欢迎您使用地图操作实验程序"
position 340,200
control radiogroup
title M1$
position 30,8
into R
control okbutton
title "确定"
position 50,220
control cancelbutton
title "取消"
position 130,220
IF R=0 THEN EXIT SUB END IF
IF R=1 THEN GOTO DH01 END IF
IF R=2 THEN GOTO DH02 END IF
IF R=3 THEN GOTO DH03 END IF
IF R=4 THEN GOTO DH04 END IF
IF R=5 THEN GOTO DH05 END IF
IF R=6 THEN GOTO DH06 END IF
IF R=7 THEN GOTO DH07 END IF
IF R=8 THEN GOTO DH08 END IF
IF R=9 THEN GOTO DH09 END IF
IF R=10 THEN GOTO DH10 END IF
IF R=11 THEN GOTO DH11 END IF
IF R=12 THEN GOTO DH12 END IF
IF R=13 THEN GOTO DH13 END IF
IF R=14 THEN GOTO DH14 END IF
DH01:'用Map From语句指定窗口的尺寸和位置
Close All Interactive
Open Table "R0300179"
Map From R0300179
PositIon (I,I) Units "in"
Height 3 Units "in"    '窗口高度16最大
Width 4 Units  "in"    ' 宽度12
DH02:'用Set Window语句指定窗口的尺寸和位置
Close All Interactive
Open Table "world"
Map From world
r=FrontWindow()
NOTE "当前窗口号为"+R
Set Window r Width 3 Height 4
EXIT SUB

DH03:
DH04:'EditText控件(对话框尺寸演示)
FOR I=20 TO 200 STEP 10
   FOR J=10 TO 200 STEP 10
      dialog
      title "宽度="+I+"高度="+J
      Control EditText
      Value "EditText控件"
      Into M1$
      position I,J
   NEXT
NEXT EXIT SUB
DH05:'GroupBox控件
dialog
title "GroupBox控件实验"
Control GroupBox
Title "络屹科技广交朋友"
PositIon 50,20
width 80 height 40
EXIT SUB
DH05:'penpicker控件(选择线型)
dialog
title "络屹科技请您选择线型"
position 450,250 '前数为距左距离
control penpicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH06:'BrushPicker控件(填充样式)
dialog
title "络屹科技请您选择填充样式"
position 450,250 '前数为距左距离
control BrushPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH07:'FontPicker控件(字符样式)
dialog
title "络屹科技请您选择字符样式"
position 450,250 '前数为距左距离
control FontPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH08:'SymbolPicker控件(选择符号)
dialog
title "络屹科技请您选择符号"
position 450,250 '前数为距左距离
control SymbolPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH09:'MultiListBox控件
dialog
title"络屹科技欢迎您使用对话框实验程序"
position 440,150
control MultiListBox
title M1$
position 40,20
into R
control okbutton
title "确定"
position 20,120
control cancelbutton
title "取消"
position 90,120
DH10:'PopupMenu控件
dialog
title "络屹科技请您运行PopupMenu控件"
position 450,250
Control PopupMenu
title M1$
Value 2
Into R
ID 6
position 90,5
EXIT SUB
DH11:'CheckBox控件
dialog
title "络屹科技请您运行CheckBox控件"
position 450,350
Control CheckBox
Title "功能确认框"
ID 7
PositIon 50,20
EXIT SUB
DH12:'OkButton和CancelButton控件
dialog
title "络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
title "确定"
position 20,30
'Calling r
Control CancelButton
title "取消"
EXIT SUB
DH13:'默认位置和尺寸的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
Title"查找"
Control CancelButton
Title"取消"
EXIT SUB
DH14:'指出位置的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
   width 200 height 50    '200为宽度,50为高度
Control OkButton
Title"查找符合条件的对象"
position 15,30
Control CancelButton
Title"取消查找对象"
position 115,30
EXIT SUB
END SUB

[/php]

studingCAD · 发表于 2005-4-29 17:07:58

创建新地图.mb
[php]
SUB XDT
Create Menu "地图[&M]" As
"图层控制" Calling M_MAP_LAYER_CONTROL,
"前一视图" Calling 806,
"选项" Calling 703
'alter menu bar add "地图"
END SUB
[/php]

studingCAD · 发表于 2005-4-29 17:09:30

单选对话框.mb
[php]
SUB DXDH
z$(1)="分区（单站）分析"
z$(2)="分区综合分析"
dialog
title"欢迎您选择工作分区"
position 440,200
control radiogroup
title "分区（单站）;分区综合分析"
position 30,0 '30,8
into R
control okbutton
title "确定"
position 10,40
control cancelbutton
title "取消"
position 60,40
IF R=0 THEN EXIT SUB END IF
NOTE  "您选择了"+z$(R)
END SUB
[/php]

studingCAD · 发表于 2005-4-29 17:23:56

典型对话框.mb
[php]
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

[/php]

studingCAD · 发表于 2005-4-29 17:26:25

动态界面.MB
[php]
SUB DTJM
P$="R0300179" R=1
   FOR I=0 TO 8  STEP 4
   FOR J=0 TO 8 STEP 4
      P$="界面"+STR$(R)
      Open Table P$
      Map From P$
      PositIon (J,I) Units "in"
      Height 3 Units "in"    '窗口高度16最大
      Width 4 Units  "in"    ' 宽度12
      R=R+1 IF R>10 THEN R=1 END IF
   NEXT NEXT
END SUB
[/php]

studingCAD · 发表于 2005-4-29 17:27:47

对话框控件实验.mb
[php]
SUB DHSY
W$="对话框控件实验"
CLOSE ALL OPEN file W$+".MB"
FOR INPUT AS #1
M1$=""
FOR I=1 TO 14
INPUT #1,z0$
R=LEN (Z0$)
Z3$=MID$(z0$,2,R-1)
M1$=M1$+";"+Z3$
NEXT Close File #1
R=LEN (M1$)
M1$=MID$(M1$,2,R-1)
R=0
dialog
title"络屹科技欢迎您使用对话框控件实验程序"
position 340,0
control radiogroup
title M1$
position 30,8
into R
control okbutton
title "确定"
position 50,220
control cancelbutton
title "取消"
position 130,220
M1$="安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
IF R=0 THEN EXIT SUB END IF
IF R=1 THEN GOTO DH01 END IF
IF R=2 THEN GOTO DH02 END IF
IF R=3 THEN GOTO DH03 END IF
IF R=4 THEN GOTO DH04 END IF
IF R=5 THEN GOTO DH05 END IF
IF R=6 THEN GOTO DH06 END IF
IF R=7 THEN GOTO DH07 END IF
IF R=8 THEN GOTO DH08 END IF
IF R=9 THEN GOTO DH09 END IF
IF R=10 THEN GOTO DH10 END IF
IF R=11 THEN GOTO DH11 END IF
IF R=12 THEN GOTO DH12 END IF
IF R=13 THEN GOTO DH13 END IF
IF R=14 THEN GOTO DH14 END IF
DH01:'没有title语句的对话框
dialog
control statictext
title "同时按二次Ctrl^Alt^Del才能退出"
position 30,10
EXIT SUB
DH02:'statictext控件(对话框尺寸演示)
FOR I=20 TO 200 STEP 10
   FOR J=10 TO 200 STEP 10
      dialog
      title "宽度="+I+"高度="+J
      control statictext
      title "statictext控件实验"
      position I,J
   NEXT
NEXT EXIT SUB
DH03:'EditText控件(对话框尺寸演示)
FOR I=20 TO 200 STEP 10
   FOR J=10 TO 200 STEP 10
      dialog
      title "宽度="+I+"高度="+J
      Control EditText
      Value "EditText控件"
      Into M1$
      position I,J
   NEXT
NEXT EXIT SUB
DH04:'GroupBox控件
FOR I=50 TO 90 STEP 10
   FOR J=0 TO 60 STEP 5
      dialog
      title "GroupBox控件实验  高="+I+"宽="+J
      Control GroupBox
      Title "络屹科技广交朋友"
      PositIon I,J
      width I-20 height J-10
NEXT NEXT
EXIT SUB
DH05:'penpicker控件(选择线型)
FOR I=0 TO 900 STEP 100 FOR J=0 TO 600 STEP 50
   dialog
   title "络屹科技请您选择线型"
   position I,J       '前数为距左距离
   control statictext
   title "距左I值="+I+"  距上J值="+J+" 按右上角的X,进行下一个位置"
   control penpicker
   position 80,20    '前数为边框宽度后为高度
   width 10 height 10  '10为方框
NEXT NEXT
EXIT SUB
DH06:'BrushPicker控件(填充样式)
dialog
title "络屹科技请您选择填充样式"
position 450,250 '前数为距左距离
control BrushPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH07:'FontPicker控件(字符样式)
dialog
title "络屹科技请您选择字符样式"
position 450,250 '前数为距左距离
control FontPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH08:'SymbolPicker控件(选择符号)
dialog
title "络屹科技请您选择符号"
position 450,250 '前数为距左距离
control SymbolPicker
position 60,20    '前数为边框宽度后为高度
width 10 height 10  '10为方框
EXIT SUB
DH09:'MultiListBox控件
dialog
title"络屹科技欢迎您使用对话框实验程序"
position 440,150
control MultiListBox
title M1$
position 40,20
into R
control okbutton
title "确定"
position 20,120
control cancelbutton
title "取消"
position 90,120
DH10:'PopupMenu控件
dialog
title "络屹科技请您运行PopupMenu控件"
position 450,250
Control PopupMenu
title M1$
Value 2
Into R
ID 6
position 90,5
EXIT SUB
DH11:'CheckBox控件
dialog
title "络屹科技请您运行CheckBox控件"
position 450,350
Control CheckBox
Title "功能确认框"
ID 7
PositIon 50,20
EXIT SUB
DH12:'OkButton和CancelButton控件
dialog
title "络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
title "确定"
position 20,30
'Calling r
Control CancelButton
title "取消"
EXIT SUB
DH13:'默认位置和尺寸的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
Control OkButton
Title"查找"
Control CancelButton
Title"取消"
EXIT SUB
DH14:'指出位置的OkButton和CancelButton控件
Dialog
Title"络屹科技请您运行OkButtonh和CancelButton控件"
width 200 height 50    '200为宽度,50为高度
Control OkButton
Title"查找符合条件的对象"
position 15,30
Control CancelButton
Title"取消查找对象"
position 115,30
EXIT SUB
END SUB

[/php]

studingCAD · 发表于 2005-4-29 17:29:43

对话框文本.mb
[php]
络屹科技向您致意!
络屹科技向您问好!
络屹科技面向全国!
络屹科技走向世界!
络屹科技致力于推广GIS技术!
络屹科技面向经济建设服务!
以下是络屹电脑科技应用研究所的产品:
《水利地理信息与MAPINFO应用》教程
《城市地理信息系统》教程（电子版）
GIS在政府各部门的应用及其方案
MAPINFO5.0操作图解
地理信息开发过程与评价
MAPINFO实用技术（包括1张软盘）
MAPINFO环境下等值线（等值面）的绘制方法
MAPBASIC程序设计技巧
MAPINFO在城市水资源管理中的应用
地理信息系统与MAPBASIC语言编程
APBASIC编程模版
防汛防旱地理信息系统
降水量统计分析预测地理信息系统（包括实例数据2张软盘）
等值线绘制系统（高质量光盘一张）
R2V 扫描矢量化软件
PC ARC/INFO、ARCVIEW GIS、MAPINFO5.5 、MAPBASIC5.5、MAPX
GIS论文集:
1、GIS的现状及其技术系统的研究动向
2、GIS多源数据集成模式评述
3、GIS访问网络数据库中若干技术问题探讨
4、GIS地理特征的制图概括的理论和方法
5、GIS空间数据的误差校正
6、GIS位置不确定性模型的进一步探讨
7、GIS在城市规划行业中的应用研究
8、GIS组件化与组件式GIS研究
9、INTERNET/INTRANET上的空间信息浏览
10、用JAVA/JDBC实现GIS操作管理及处理
11、INTRANET GIS概述
12、地理信息系统的定义
13、地理信息系统的类型
14、GIS能做什么?
15、地理信息系统与相关学科的关系
16、地理信息系统发展简史
17、MAPGIS二次开发库的设计与实现简介
18、MAPGIS网络管理分析系统的设计及实现
19、MAPGIS在数字制图上的应用
20、MAPGIS中扫描矢量化及其相关技术
21、MAPINFO在城市地理信息系统中的应用
22、世界标准的桌面地图信息系统
23、MAPINFO世界标准的桌面地图信息系统
24、MAPBASIC4.1-理想完备的应用开发环境
25、MAPMAPX-方便快捷、功能强大OCX组件
26、MAPXTREME-/INTRANET地图应用服务器
27、MICROSTATION 符号制作剖析
28、MRSID技术在GIS中的应用
29、MAPSTAR数字化成图系统
30、纵横断面图绘制程序
31、SUPERMAP矢量地图符号库交换文件格式
32、剖析地理信息系统(GIS)
33、WEBGIS--基于INTERNET的地理信息系统
34、地籍信息系统中宗地数据库的设计
35、地理信息技术在地籍管理系统中的应用
36、地理信息系统标准化的范畴与进展
37、地理信息系统标准化的内容与作用
38、地理信息系统的基本技术与发展动态
39、GIS的现状及其技术系统的研究动向
40、地理信息系统集成平台框架结构研究
41、理信息系统技术开发、应用与产品化
42、GIS可视化专题制图要素分级探讨
43、地理信息系统网络化模式初探
44、地理信息系统在国内外应用现状
45、GIS系统支持的土地资源信息系统研究
46、地理信息系统支持下的广东省耕地变化
47、GIS的常规网络分析功能及相关算法
48、地理信息系统中地图出版的彩色处理
49、符号库的面向对象技术与引用接口设计
50、对地球信息科学的思考
51、多媒体技术在地理信息系统中的应用
52、多数据源图象点变换的快速可视化算法
53、多源空间数据无缝集成(SIMS)技术研究
54、多源图象处理与分析系统的设计
55、国土资源信息系统标准化的有关问题
56、海洋初级生产力遥感与GIS评估模型
57、互联网时代的地理信息系统
58、基于COM技术的分布式栅格数据引擎设计方案与
59、基于GIS鄱阳湖湿地遥感调查实验研究
60、GIS水质数值模拟—上海市苏州河为例
61、基于GIS的土地资源评价单元确定与属性数据获
62、基于GIS图形数据库的油气资源评价
63、INTERNET的地理信息系统的研究和开发
64、基于MAPGIS的地下管线信息系统设计
65、地理要素的资源与环境数据的组织方法
66、基于特征的地学可视化数据模型
67、基于组件对象模型的GIS——校园GIS
68、空间决策支持系统中的模型标准化问题
69、GIS空气质量监测的若干核心问题
70、控制测量程序(CSP)的安装与使用
71、美国空间数据转换标准（SDTS）介绍
72、网络化GIS中数据传输技术的探讨
73、位图文件内部初探
74、我国GIS软件产业发展初探
75、无边界游程编码及其矢栅直接相互转换
76、线性四叉树和线性八叉树邻域寻找的一种新算法
77、一种三维GIS矢量数据结构的研究——
78、中国东部第四纪海面变化信息系统研究
79、桌面地图信息管理系统
80、综合RS与GIS方法提取青藏高原冰川变化信息81、组件技术与GIS的发展
82、组件式地理信息系统研究与开发
83、异曲同工的桌面地图信息系统——ARCVIEW与MAPINFO评析
《地理信息与MAPINFO操作和应用》目录
第一章概论 1
1．1 地理信息 1
1．2 地理信息系统 2
1．3 地理信息系统应用概述 4
1．4 地理信息系统在各个领域的应用 6
一、在政府工作决策支持中的应用 6
二、在社会公共事业中的应用 12
三、在第三产业中的应用 14
1．5  GIS技术概述 16
一、GIS的组成 16
二、GIS的工作原理 18
三、GIS的功能 18
四、应用型地理信息系统功能分析 19
五、空间数据的采集与输入 22
六、地理信息系统的评价 23
1．6 地理信息系统的开发平台 25
一、系统平台的一般特征 25
二、系统平台的基本功能 25
三、GIS相关技术 27
1．7  MAPINFO 系统简介 27
一、MAPINFO的基本功能 28
二、MAPINFO的运行环境 28
二、系统界面 28
第二章实战MAPINFO 30
2．1 表的基本概念 30
2．2 栅格图象 32
一、栅格图象的获取 32
二、栅格图象用途 32
2．3 地图图层化 33
一、分层地图 33
二、特殊的图层 34
三、图层控制 35
2．4 地图对象 36
一、点对象 36
二、线对象 36
三、区域对象 36
2．5 栅格图象处理 37
一、栅格图象的预处理 37
二、确定栅格图象的坐标体系 37
三、栅格图象的显示 38
四、栅格图象的拼接 39
五、栅格图象的调整 39
2．6 配准栅格图象 42
一、在纸张地图上标出坐标 42
二、在屏幕上确定坐标 43
三、坐标的单位和换算 44
2．7 创建新图层 45
一、创建新表和图层 45
二、屏幕数字化 46
三、使地图对象与数据表关联 47
2．8 历史数据的应用 48
一、数据转换 49
二、创建点对象 49
2．9 报表制作 51
一、访问REPORT WIZARD 51
二、报表制作概念 51
三、创建报表 52
2．10 制作统计图 53
2．11 如何解决区域包蕴问题 56
2．12 地理编码 60
一、按地址编码 60
二、地理编码模式 62
三、精确地理编码搜索 64
四、查找和检查未地理编码的记录 66
五、撤消地理编码 66
第三章  MAPINFO 菜单命令的使用 67
3．1 文件菜单 67
一、新建表 67
二、打开表 69
三、打开ODBC表 70
四、打开一个工作空间 70
五、关闭表 70
六、全部关闭 70
七、保存查询 71
八、保存表 71
九、另存为 71
十、保存工作空间 71
十一、另存窗口 71
十二、复原窗口 72
十三、运行MAPBASIC程序 72
十四、页面设置 72
十五、打印 72
十六、退出 72
3．2 编辑菜单 72
一、撤消 73
二、剪切 73
三、粘贴 73
四、复制 74
五、清除 74
六、只清除地图对象 75
七、整形 75
八、新建行 75
九、获取信息 75
3．3 对象菜单 76
一、设置目标 76
二、清除目标 77
三、合并 77
四、分割 81
五、擦除 81
六、擦除外部 82
七、叠压节点 83
八、缓冲区 83
九、平滑 83
十、撤消平滑 84
十一、转换为区域 84
十二、转换为折线 85
3．4 查询菜单 85
一、选择 85
二、SQL选择 86
三、全部选中 87
四、全不选 87
五、查找 88
六、查找选中部分 89
七、计算统计值 89
3．5 选项菜单 90
一、线样式 90
二、区域样式 90
三、符号样式 91
四、文本样式 91
五、工具条 92
六、显示／隐藏图例窗口 92
七、显示／隐藏统计窗口 92
八、显示／隐藏MAPBASIC窗口 92
九、显示／隐藏状态条 93
十、自定义颜色 93
十一、系统参数 93
3．6 地图菜单 94
一、图层控制 94
二、创建专题地图 95
三、修改专题地图 95
四、改变视图 96
五、副本视图 96
六、前一视图 96
七、查看整个图层 96
八、清除自定义标注 96
九、保存装饰对象 97
十、清除装饰图层 97
十一、设置剪裁区域 97
十二、关闭裁剪区域 97
十三、数字化仪设置 98
十四、选项 98
3．7 窗口菜单 98
一、新建浏览窗口 98
二、新建地图窗口 99
三、新建统计图窗口 100
四、重画窗口 101
五、平铺窗口 101
六、层叠窗口 102
七、排列图标 102
八、新建布局窗口 102
九、新建重新分区 103
第四章表的操作、管理和使用 104
4．1 选择和打开表、电子表格和文件 105
一、打开MAPINFO表： 105
二、打开DBASE DBF文件 105
三、打开分界ASCII文件 105
四、打开EXCEL或LOTUS电子表格： 106
五、打开多张表 106
4．2 插入表 106
4．3 关闭表 106
一、关闭表 106
二、关闭所有打开的表： 107
三、关闭查询表 107
4．4 显示表中的数据 107
一、显示记录的数据 107
二、以统计图方式显示表 107
三、以地图方式显示表 108
4．5 编辑表 108
一、向浏览窗口增加字段 108
二、用表达式创建新列 108
三、用选择工具编辑表 108
四、编辑定义列的表达式 109
五、将图形信息放入可视列 109
六、删除表中的字段 110
七、删除表中的图形对象 110
八、删除表中所有对象： 110
九、选择表中所有对象 110
十、不可更新的表 110
十一、撤消上一动作 110
4．6 转出表 111
一、ASCII转出 111
二、AUTOCAD DXF转出 111
三、DBASE DBF转出 111
四、以不同投影转出地图 111
五、转出单个表 112
六、MIF转出 112
4．7 转入表 112
一、支持的文件格式 112
二、转入图形文件 113
三、转入MAPINFO FOR DOS文件 113
四、MIF转入信息 113
五、打开与转入 113
4．8 手动连接表 114
一、地理的和描述性的连接 114
二、使用自动连接 114
三、设定基于描述性规则的连接 115
四、基于地理规则设定连接 115
4．9 重命名表 116
4．10 查询表 116
一、关闭查询表 116
二、保存对表的修改 116
三、更新SQL选择查询表 117
4．11 保存表 117
一、以不同投影保存表的副本 117
二、保存对表的修改 117
三、保存为MAPINFO文件格式或DBF文件格式 117
4．12 表的统计 118
一、显示或隐藏统计窗口 118
二、执行统计计算 118
4．13 更新表 118
一、新增临时列 118
二、不可更新的表 119
三、更新SQL选择查询表 119
四、更新表的子集中信息 119
4．14 使用表、电子表格和文件 119
一、删除表 119
二、显示记录数据 120
三、修改表 120
五、打开与转入 121
六、紧缩表 121
七、复原为先前版本 122
八、以不同投影（缺省坐标系统）保存副本 122
九、使用电子表格 122
4．15 以表的形式使用数据 123
一、关于浏览窗口格式 123
二、增加和编辑浏览窗口中的文本 123
三、选择表中文本的字体 123
四、选择显示在浏览窗口中的字段 124
五、重排表中列的次序 124
六、改变表中列的大小 124
七、滚动表 124
第五章  MAPINFO的工具条 125
5．1 常用工具条 125
5．2 主工具条 127
5．3 绘图工具条 130
5．4 工具工具条 132
5．5 ODBC工具条 132
5．6 INTELLIMOUSE的使用 133
5．7 工具条的管理 134
第六章创建专题地图 134
6．1 创建专题地图的步骤 135
一、选择专题地图类型 135
二、选择专题值 135
三、自定义专题地图 137
6．2 专题地图的操作 137
一、在专题地图中使用表达式 137
二、范围值地图 138
三、直方图地图 138
四、饼图地图 140
五、等级符号地图 142
六、点密度地图 143
七、独立值地图 144
八、自定义专题地图的图例 145
九、修改专题地图 145
6．3 使用地图 146
一、改变地图的显示参数 146
二、裁剪地图区域 147
三、查找和显示选中对象 148
四、移动地图或布局 148
五、保存地图的裁剪区域 148
六、以不同投影保存表的副本 148
七、设定地图的比例和位置 149
八、滚动地图 149
九、设定地图窗口的测量单位 149
十、设定非地球地图的坐标 150
十一、显示前一地图或布局 150
十二、放大地图或布局 150
十三、缩小地图或布局 150
第七章布局窗口 151
7．1 布局窗口 151
一、向布局中增加最大化窗口 151
二、创建布局窗口 152
三、布局窗口描述 152
四、布局对象的排序 152
五、打印布局窗口的内容 152
六、使用数字键设置缩放 153
7．2 创建布局框架 153
一、改变布局中地图的边界和比例 153
二、创建布局框架 153
三、浏览窗口在布局中如何显示 154
四、统计图在布局中如何显示 154
五、地图图例在布局中如何显示 155
六、设定框架对象属性 155
7．3 使用布局 155
一、排列布局窗口中的对象 155
二、将布局对象置后 155
三、创建阴影 156
四、测量两点间距离 156
五、移动地图或布局 156
六、设定布局的缩放水平 157
七、设定是否显示标尺和/或分页符 157
八、设定布局的页数 157
九、设定何时显示框架内容 157
十、显示前一地图或布局 157
十一、放大地图或布局 158
十二、缩小地图或布局 158
第八章 SQL查询和选择 158
8．1 "选择"和"SQL选择"的区别 158
8．2 "SQL选择"的主要选项 159
8．3 使用SQL选择的一般过程 160
8．4 "选择列"字段 161
一、计算派生列 161
二、选择显示在结果表中的列 163
三、使用“SQL选择"对话框选择列字段 163
8．5"条件"字段 163
一、按行序连接表 163
二、按地理关系连接表(使用地理运算符) 164
三、连接两个或多个表 165
四、执行子选择 166
五、设置过滤规则 167
六、使用“SQL选择"对话框的"条件"字段 167
8．6"按列排序"字段 168
一、选择升序或降序排序 168
二、使用“按列排序”字段排序结果表 168
8．7"按列分组"字段 169
一、按列分组示例 169
二、使用“按列分组”字段分类汇总结果表 170
第九章MAPINFO 的标注 171
9．1 高级标注 171
一、加载LABELER程序 171
二、将标注保存为文本对象 171
三、标注当前选择 172
四、创建手工文本标注 172
五、配置LABELER.MBX为自动运行 172
9．2 自动标注 173
一、改变区域中心 173
二、使自动标注失效 173
三、绘制自动标注 173
四、移动自动标注、图表和点 174
9．3 标注工具 174
一、移动手工创建的标注 174
二、删除标注 174
三、使用标注工具 174
9．4 标注样式 175
一、改变标注样式 175
二、编辑标注 175
三、标注位置 175
四、标注大小 175
9．5 用表达式标注 176
一、创建地图标注表达式的示例 176
二、用表达式创建标注 176
9．6 标注选项 176
一、生成标注引注 176
二、保存标注 177
三、设定标注选项 177
第十章用数字化仪进行地图数字化 177
一、在开始数字化之前 178
二、常见数字化问题 179
三、数字化仪设备驱动程序 180
四、数字化仪支持 180
五、为控制点输入名称 180
六、完成或取消对数字化仪的设置 181
七、选择和增加控制点 181
八、删除控制点 181
九、设置数字化仪按钮 181
十、设置地图的投影方式 182
十一、设定地图投影 182
十二、设定地图单位 182
十三、跟踪折线和多边形 182
十四、与数字化仪一起使用工具 183
十五、虚拟数字化仪接口特性 183
第十一章 ODBC表的下载和地图化 184
参考文献： 190
《MAPBASIC地理信息与MAPBASIC编程》目录
第一章 BASIC语言史话 5
1．1 BASIC语言产生的背景 5
1．2 初期的BASIC 6
1．3 微机BASIC 6
1．4 结构化BASIC 7
1．5 PC-1500袖珍计算机BASIC 8
1．6 在WINDOWS环境下运行的BASIC 8
1．7 BASIC的发展前景 9
第二章 MAPBASIC基础 10
2．1 MAPBASIC概述 10
2．2 MAPBASIC的安装 12
一、软硬件要求 12
二、安装MAPBASIC 12
2．3 MAPBASIC集成环境及菜单命令 16
一、集成环境 16
二、MAPBASIC的菜单命令 17
2．4 MAPBASIC的程序结构 26
一、MAPBASIC的用户文件 26
二、MAPBASIC的程序结构分析 26
三、创建一个简单的用户程序 27
四、运行MAPBASIC程序的方法 28
2．5 MAPBASIC程序的基本元素 31
一、基本字符集 31
二、以用途分类的函数和语句 32
三、调用标准语句和函数定义语句 37
四、过程和过程说明语句 39
五、变量和变量说明语句 41
六、用户函数 44
七、表达式 44
2．6 MAPBASIC程序编辑、编译 49
一、MAPBASIC程序的编辑 49
二、MAPBASIC程序的编译 50
三、MAPBASIC程序的编译错误与运行错误 50
四、如何尽快找到出错行 51
五、错误的捕获 51
2．7 MAPBASIC程序调试和运行 52
一、用NEW命令建立新程序 52
二、用OPEN装入磁盘程序文件 54
第三章 MAPBASIC语句和语法规则 55
一、MAPBASIC的基本语句 55
四、流程控制结构 57
六、事件处理程序 60
第四章用户界面的设计和制作 62
4．1 用户事件的处理 62
一、菜单事件的处理 62
二、按钮盒事件的处理 62
三、对话框事件的处理 63
4．2 启动画面的设计及制作 63
一、精选画面内容 63
二、制作启动界面 63
4．3 用户菜单(MENUS) 66
一、创建全新的菜单 67
二、增加新的菜单项 67
三、MAPINFO标准菜单的ID代码 68
四、移去旧的菜单项 68
五、创建二级和多级菜单 69
六、修改一个菜单项 72
七、重定义菜单栏 73
八、快捷键和热键的定义 73
4．4 MAPBASIC调用MAPINFO标准菜单命令 74
4．5 标准和用户对话框 77
一、对话框语句和控件 77
二、显示信息对话框NOTE语句 83
三、显示信息对话框PRINT语句 84
四、询问对话框 84
五、选择文件对话框 85
六、输入信息对话框 86
七、典型对话框 87
八、单选对话框 88
九、列表选择对话框 89
十、对话框尺寸和位置的讨论 90
十一、对话框选择对象数的探讨 91
十二、综合对话框的演示程序： 91
4．6 窗口设计 93
4．7 按钮盒设计 95
一、选择按钮盒的处埋 95
二、与按钮盒相联系的MAPINFO语句 96
三、TOOLHANDLER过程 96
四、创建触发式按钮 96
五、向”主”按钮盒增加一个按钮 97
六、创建工具按钮 97
七、选择按钮图标 98
第五章工作表的操作 99
一、MAPINFO表的显示 99
二、MAPINFO图层信息的显示 99
三、INTERACTIVE子句的作用 99
四、关闭一个或多个表 100
五、新建一个空表 100
六、向表格添加数据 102
七、访问DBASE、FOXBASE、EXCEL或文本文件 103
八、保存表的最新编辑 103
九、删除空记录行 103
十一、访问表的指定行和列 103
十二、修改表结构 104
第六章数据文件的建立和使用 105
6. 1 数据文件的基本概念和操作 105
一、文件的分类 105
二、文件、记录和文件名 106
三、文件的输入、输出（读写）、缓冲区和指针 107
五、删除一个文件KILL 107
六、重命名一个文件RENAME FILE 107
七、复制一个文件SAVE FILE 107
八、转变一个文件成表REGISTER TABLE 107
6. 2 顺序文件的操作 108
一、顺序文件的基本概念 108
二、顺序文件的输入（读文件） 108
三、顺序文件的输出（写文件） 109
三、顺序文件有关的函数 110
四、顺序文件的修改 110
6．5 随机文件的操作 111
一、随机文件的建立、 111
二、访问随机文件 112
三、二进制文件的输入/输出 112
四、随机文件的输出 113
第七章地图对象的使用 116
7. 1 使用对象变量 116
7.2 使用对象列 116
一、创建对象列 117
二、对象列的基本限制 117
7.3创建新对象 118
一、创建对象语句 118
二、创建对象函数 118
三、保存对象到表中 118
7.4 修改对象 119
一、修改对象的一般过程 119
二、重定位一个对象 119
三、修改一个对象的PEN，BRUSH、FONT或SYMBOL式样 119
四、删除一个对象的部分 119
7．5 地图查询 120
一、使用地图比较运算符 120
二、在表中查询对象 120
三、用子选择进行地图SQL查询 120
第八章 MAPBASIC的系统集成和编程技巧 121
一、连接多个模块成一个项目 121
二、如何解决程序容量限制的问题 123
三、解决一维数组限制的问题 124
四、应用程序与MAPINFO的链接 124
五、如何利用OLE功能进行程序的编辑 125
六、栅格图象的集成 125
七、大型应用程序的编制和调试 125
八、MAPINFO系统菜单的集成 125
错误信息 125
附录一、MAPBASIC的函数 128
附录二、以字母为序的全部保留字 135
结束 138

                                       Raster2Vector 3.x（R2V）使用说明

   Raster2Vector 3.x（R2V） forWindows95/NT是一种高级光栅图矢量化软件系统。该软件系统将强有力的智能自动数字化技术，
与方便易用的菜单驱动图形用户界面有机地结合到Windows&NT环境中，为用户提供了全面的自动化光栅图像到矢量图形的转换，它可
以处理多种格式的光栅（扫描）图像，是一个可以用扫描光栅图像为背景的矢量编辑工具。由于该软件的良好的适应性和高精确度，
其非常适合于GIS、地形图、CAD及科学计算等应用。
R2V提供简便及完整的将光栅图像数字化为矢量数据的解决方案，这些光栅图像可以是扫描的图纸、航摄照片或是卫星图片。整个
的光栅图像矢量化过程可以是全自动的，且不需要人工干预（也可选人工干预）。你仅需要将扫描图像显示在屏幕上并选择矢量化命
令，所有的线段在数秒钟即可识别出来并显示在图像上供你校正与编辑。强大的编辑及处理功能可用于矢量的编辑、大地坐标校正及
高程数据标注。
拥有R2V，你可以忘掉缓慢而又不准确的数字化仪人工手动跟踪描绘。你可以在草稿纸上画草图，你只需扫描你的图纸，然后让
R2V高精度地自动或半自动矢量化它们。一张典型的地形图或区划地图，通常以200DPI的黑白或灰度扫描，在Pentium级PC上数秒内即
可完成矢量化。
你可以在同一个显示窗口下处理各种类型的数据，这些数据包括线、点、多边形、文本标注、光栅点以及控制点。使用R2V，你就
可以自动地矢量化地图及其它图纸，快速智能地完成航片或卫片的数字化及地理解析工作，用最新的航摄照片或其它图像更新你现存
的矢量数据集。
R2V for Windows &NT非常易于使用，其基本的转换和编辑功能，拥有不同技术背景的用户都可快速掌握。
   二、主要特点Key Features
   *  图像格式：支持1位黑白、8位灰度及彩色（4位、8位及24位）的TIFF、GeoTIFF和BMP图像文件格式。支持大多数TIFF压缩模式。
软件无图像尺寸限制。同时支持SPOT卫星图像格式。在R2V中，可对光栅图像进行地理坐标参照（Geo-refrence）并将其存储为Geo TIFF
文件格式。
   *  矢量输出/输入：ArcView(形文件)、Arc/Info、DXF、MapInfo(MIF/MID)、MapGuide SDL、3D网格文件、3D DEM (兼容USGS DEM)
及3D XYZ矢量文件格式。更多的矢量文件格式将在以后的版本中加入。
   *  高级矢量化：R2V支持三种矢量化方式：
1.全自动矢量化
仅用一个命令即可在分秒内高质量地矢量化你的扫描图像。批处理方式允许你矢量化一系列扫描图像而无需任何用户干涉。可以编
写用户批处理命令文本用以在矢量化图像之前对其进行用户化的处理，以及矢量化后对矢量线段进行必要的处理。
2.交互式矢量跟踪
在光栅图像上选择两点后让R2V为你自动进行矢量追索。方便、精确并具有智能化，对于复杂的地图或其它图纸，使用交互方式可有
选择地进行矢量化。另外使用多线追踪功能，仅需点击两下即可矢量化一系列线段。
3.手动屏幕数字化
使用R2V方便的矢量编辑器，你可以以光栅图像为背景，简单地描绘线段矢量、放大缩小自如，为你特有的应用快速生成所需数据。
*  完整的矢量编辑：系统提供了一个以图像为背景的屏幕矢量编辑器。线段可以被生成、移动、连接、断开、删除、改变颜色及
标注ID。
*  矢量标注和地形图数字化：线段可以用不同的ID值来标注，在将矢量输出了地图系统或GIS软件包时这些值可作为特定属性来存
储。系统提供半自动的等高线标注功能用于快速的指定等高线的高程值。
*  多层管理：利用R2V的层管理器可以按需要定义任意多的层并可在进不同的层中组织数据。R2V中生成的层结构完全兼容那些支持
多层数据结构的输出矢量文件格式。运用多层定义，矢量数据可以以层为单位进行处理、编辑和显示，也可以在不同图层中移动。
*  点数字化：完全支持点数字化。可以生成、移动和标注点，点数据可以在所有支持的矢量文件格式中输出。
*  自动多边形层生成：仅用一个命令即可全自动生成多边形层，封闭多边形可以用R2V的线编辑器进行编辑、标注。
*  功能强大的光栅图像编辑器：R2V提供强有力的光栅图像编辑器，用以轻松地编辑和修复光栅图像点。图像编辑工具支持所有的图
像格式，包括1位黑白、灰度、8位以及24位彩色图像。光栅点映射（Pixelmapping）功能可以容易地将某一光栅点值映射到整个图像中的
其它同值的光栅点上，该功能可用来消除噪声点、清除图像背景或用于融合颜色层。
*  地理坐标参照(Geo-refrencing)和GeoTIFF兼容：矢量数据可以进行地理编码，或使用控制点及世界文件(Worldfile -TFW)将矢量
数据修正映射到真实地理坐标系统（如：UTM，经度/纬度）上。光栅图像同样可以用由ESRTs Arc/Info, ArcView生成的世界文件(worldf
ile)或由MapInfo的TAB文件进行地理坐标参照。光栅图像橡皮页变换(Image rubber sheeting)功能将光栅图像进行几何修正或将其与一
个新坐标系统对齐。R2V支持双线性(bi-linear)及三角网法两种几何变换。经过地理坐标参照的光栅图像可以存为GeoTIFF文件格式，并
与其它支持GeoTIFF格式的地理信息软件包完全兼容。
*  自动文本探测与识别：系统能够自动探测和识别任意字形、任意大小的西文字符。灵活的编辑器可方便地修改和删除文本。另外，
不规则的交叉符号也可被探测和更正。
*  多图拼合：使用R2V分别矢量化单个图件，通过指定适当的控制点即可将单个图件拼合成一个整体。拼合后的矢量数据文件可在R2V
中再编辑，并作为单独的图形文件处理。
*  强大的图像处理功能：系统提供图像的垂直与水平翻转、转置、旋转、暗背景清除、边缘探测、图像重采样、区域剪裁、图像圆滑、
分割、翘曲以及反像等处理。内置的监管与非监管分类功能有助于处理彩色航片与卫星图像。色彩分离、灰度图像增强和图像类型转换等
操作均可在R2V中完成。
*  具色带图像的三维显示：自动从已标注的线段生成三维数据，并用R2V的高级三维显示功能来显示。以任意角度和距离观察带有彩色
条带的三维数据。三维数据文件的输入输出均支持3DDEM (兼容USGS DEM格式) 和网格格式。
三、运行环境 BaseRun
系统最低需求：操作系统：R2V 32位版本需要Windows 95或Windows NT才能运行。
CPU：486或以上更好
RAM：8MB（建议32MB以上）
硬盘容量：安装软件需要2MB，更多的空间用于存储你的扫描图像及矢量化数据。
显示设备：8位256色或更好的SVGA兼容显示卡
四、例子 How to use
请按下述教学步骤来实践该软件包，你就会更好地理解数据是怎样处理的，同时你也会了解使用该软件来矢量化光栅图像是多么容易。
第一步：双击R2V for Windows图标起动程序。
第二步：选择File/Open Image or Project（打开图像或工程文件）打开一光栅图像文件，在打开文件对话框中输入图像文件名（*.TIF
或*.BMP）。原始光栅图像文件显示在图像窗口中。
第三步：通过拖动鼠标调整图像窗口尺寸，图像会按正确的纵横比缩放。现在你可以做一些显示方面的操作：选定一个矩形区域后按F2
键可放大窗口，按F3键则缩小显示。光标键及PgUp及PgDn键可用于在图像的不同部位移动放大的窗口。
如果光栅图像为1位黑白图像，你可以通过View/Set Image Color选项调整图像显示颜色。如果是灰度图像，则使用Adjust Contrast选
项来改变图像显示质量。
现在，我们可以应用图像处理功能来提高矢量化的质量。例如，在灰度图像上使用图像圆滑(Imagesmoothing)处理、在黑白图像上使用
去点(Despeckle)均可相应地去掉图像“噪点”。要改变图像的方向，可以使用Image菜单下的垂直翻转(VerticalFlip)、水平翻转
(HorizontalFlip)、任意角度旋转(Rotate)、90度转置(Transpose)等选项进行操作，而重采样(Resample)可以改变图像的分辨率。如果你
仅需处理部分图像，则可以使用Image/CropRegion操作来保留选定的区域而去掉图像其它部分，或使用Image/Set ROI命令。如果你扫描的
图像分辨率太高，可以使用Resample命令降低图像分辨率，缩小图像尺寸，这样可加快处理速度。在你应用上述图像处理命令后，你也许
应该将图像另存为新的图像文件，以保存所作的改变。
对于黑白或灰度图像，你可以直接转入下一步开始进行图像矢量处理了。
如果是彩色图像，在进行矢量化处理之前你应该首先对其进行颜色分类(classification)操作以使图像更清晰。对于有“噪点”的彩色
图像，可以利用Image/PixelTool下的选取项来去除“噪点”，Map Pixel Values选项可以修正色彩，而重画光栅点可以清除不需要的点。
第四步：如果你的图像上仅有单一类型的线条，如地形等高线图或仅有分区线的区划图，你就可以用Vector/Auto Vectorize命令直接
矢量化之。
如果你需要生成几个层来组织矢量化数据，现在就来定义层供使用。使用命令Edit/Layer Define可以做这件事。所需层定义好后，选
择一层作当前层来保存自动或手动矢量化的数据。该层数据矢量化完成后，选择其它层作为当前层在其上作其它的矢量化工作。建议你仅
仅打开你的当前层而关掉所有的其它层，这样在编辑或处理时，仅有当前层的数据才被处理而不致影响到其它层的数据。
如果扫描图像质量够好，你也可以选择Vector/Auto Vectorize直接进行全自动矢量化。系统会显示一对话框供设置撩量化参数，选择START
即可开始矢量化处理。此时光标变成一个沙钟处理表示系统正在忙于处理，处理结束后，光标会变回箭头状。识别出的矢量线段将以绿色显
示在图像窗口中。使用View/Overlay中的选项可以打开或关闭某些显示要素，如线的结点、线的端点及线段的ID号（如果你指定了的话）。
线段的颜色可以使用Use Layer Color命令按照其所处的层的定义来改变，如果该线段标注有ID号，也可使用View/Set Line Color By ID命
令按其ID号来改变颜色。
如果你的图像比较复杂，有各种图素混和在一起，你就须使用R2V的交互跟踪功能进行有选择的矢量化。为进行交互跟踪，先选择
Edit/Lines进入线编辑器，进入线编辑器后，通过选择主菜单、工具条或弹出菜单条中选项光标处于New Line(新线)编辑状态，并确认Auto
Trace项被选中。先用鼠标左键在要跟踪矢量的线上点一起点，再用同样的方法在该线上另点一点以便系统跟踪，在有图像交叉或断裂的地
方，跟踪会暂仃等候你点下一点继续跟踪。可以用<Backspace>键删掉最后的跟踪点，当一条线跟踪矢量完后，按<Space>空格键或其它键结
束。重复上面的步骤，跟踪矢量其它的线段。如果要在其它层上进行跟踪矢量化，仅需选将其设为当前层，然后进行跟踪处理即可。
如果需要同时矢量化一组线，如地形等高线，可以使用线编辑器中的Multi-Line Trace(多线跟踪)功能。在主菜单、工具条或弹出菜单条中
选择Multi-Line Trace模式，按下鼠标左键横跨需要跟踪的一组线段画一直线，R2V会自动矢量化所选择的这些线。对其它的线重复这样操
作即可。
第五步：使用Edit/Lines命令编辑矢量化过的线段，用鼠标右键可调出编辑选项弹出式菜单。编辑功能可从主菜单Edit/Line Editor调
用或直接按主菜单下的工具条。使用编辑器，可以添加线，添加、移动、删除结点，断开线，删除线，删除选择区或所有的线。在设置ID值
参数后，线可被指定的ID值标注。各种矢量数据后处理及显示命令在Vector菜单项下可选用。
第六步：为了将生成的矢量数据转换到特定的投影坐标系统中，如UTM，使用Vector/Select Control Points选项去设定控制点。可以选
择4点或更多的点并指定其目的坐标。需要注意的是，在矢量数据被输出到矢量文件之前，控制点并未作用于矢量数据。只有在数据输出到
文件时，坐标校正才起作用。
使用控制点可将光栅图像进行地理参照(Geo-reference)生成图像世界文件(Image World File)。光栅图像也可使用Image/Warp命令与选
择的控制点进行坐标对齐或几何校正。
第七步：使用Save
Project命令将所有的数据存储为R2V工程(Project)文件，如果你完成了所有的处理及编辑操作，可选择File/Export Vector输出矢量数
据。生成的矢量数据可被存储为Arc/Info (ARC)、ArcView形文件(SHP)、MapInfo (MIF)、 XYZ (三维点文件)、DXF及MapGuide SDL文件格式。
在输出特定的矢量格式文件时，系统会提示你设置一些选项，如是否使用控制点校正矢量数据，需要使用何种变换方法等。选择使控制点有
效并设置转换方法（如双线性法Bi-Linear）后，即可输出数据。
至此，你已经从扫描光栅图像中提取了矢量数据并将其存为了其它GIS或CAD软件可用的文件格式了。如果你还不明白，可以再次重复上
面的步骤，同时使用R2V的联机帮助或其它手册了解更多的命令信息。
五、问题解答 Question & Answer
1.在R2V中，怎样将矢量数据与投影坐标系统校准？
R2V提供将生成的矢量数据与任何投影坐标系统(如UTM)对准的功能。为了完成坐标校正，可按下述步骤进行：
A. 在所有的矢量数据均生成后，选择Vector菜单下的Define Control
Point(定义控制点)选项起动控制点选择工具，当光标移进图像窗口时会变成十字光标，此时，点按鼠标右键可弹出控制点编辑选项。
B.将光标定位到已知点并单击鼠标左键，会弹出控制点对话框要求你输入该点的校准坐标值。也就是说，如果你想将光栅坐标位置
(10,10)映射到新的投影坐标系统位置(1000,1000)，那么，源坐标应输入(10,10)而目的坐标则应输入(1000,1000)。通常情况下，尽管你可
以选择更多的控制点但4个已经足够进行坐标校正了。你应该注意的是：坐标校正的精度主要取决于控制点的选择质量而不是选择的多少。
C.此时有一些编辑选项可用，如移动、删除、添加、改变ID值等。这些选择项可以通过单击鼠标右键弹出，选择Done即完成选择。
D. 调用File菜单下的Vector Export(矢量输出)命令，R2V将询问你是否进行控制点坐标校正，选择Yes并提供文件名存储校正后的矢量
数据，生成的矢量文件就可以在GIS或其它CAD软件中使用了。
注意：一但矢量数据被变换到新的坐标系统中，它们不会再与原始光栅图像对齐了。所以你应保存一份未校正的矢量数据，使你以后能
够用原图像作背景编辑修改之。
2.我知道使用R2V数字化地图要比手工的数字化板输入来得方便快捷得多，但它会比数字化板输入精确吗？
从原理上讲，自动化的光栅图像矢量化程序完成与用数字化板手工数字化地图相同的工作。然而，有很多因素会影响到数字化处理的精
度，如分辨率、连贯性、稳定性及其它一些因素。
通常人手可以达到的分辨率约为1/40(每英寸40点)，开始数字化处理时，你可以认为你的数字化是绝对准确的，而不考虑手的操作状况
(抖动、出汗、心烦意乱、疲惫、懒散、急燥等)。操作员必须倾心倾力地花上一两个小时才能完成一小块区域的数字化，你也许可以认为
现在完成的90%的数字化点都在1/40英寸的精度内，但要完成整个数字化工作（也许得花上几天甚至几周），你都能保证有这样的精度吗？
那当然是难以做到的。
而另一方面，光学扫描仪有比人手高得多的分辨率（从200DPI到800DPI甚至更高），有了高分辨率的扫描图像，R2V就能获得足够的信
息，以扫描的精度查找图形的中心线或边界线。在自动化矢量过程中不会产生空间错位，矢量数据忠实地再现了图形。使用R2V的批处理
功能，你还能自动地处理一批图纸，而不需人为干涉。这样就可以节约大量的时间，这是一种全新的地图数字化方法。
扫描过程消除了许多人为的干扰（编辑时除外，那是不可避免的），忠实地再现其所见。因此可以说，在现阶段，自动矢量化图纸要比手
工数字化精度高得多。
3. 使用R2V怎样从扫描的彩色航片中提取矢量数据？
R2V有几项彩色图像处理功能，由于彩色光栅图像的复杂性，通常需要综合运用这些功能才能正确地从彩色图像中提取矢量数据。R2V
支持3类彩色图像，接下来将解释每类彩色图像以及怎样矢量化它们：
A. 8位彩色。光栅点为8位彩色编码并显示。
对于8位彩色光栅图，需要选择一个训练或叫特征区域来指定将要矢量化的颜色。例如，如果你想得到所有水域边界的矢量数据，先在
表示水域（河或湖）的颜色块中选定一矩形区域，当矩形区域显示在屏幕上后，选择Vector/Auto Vectorize命令，在弹出对话框中选边
界线选项，即可矢化区域边界。重复该操作矢量化其它特征颜色，将其矢量数据加入到当前矢量数据集中。
B. 24位真彩色图像。每一光栅点有3个彩色值：红、绿、兰。
方法1：与上述8位彩色图同。
方法2：先将图像进行彩色归类(Classify)后再矢量化。选择Image/Classification命令进行彩色归类。彩色归类是基于聚类算法的，
速度非常快。在选择分类数时，不要选择太大的数，以免图像碎块过多。多试验一下，看看对于特定的图像应该选用多大的分类数。图像
归类后，在某一类颜色上绘矩形选择区域，然后选择Vector/Auto Vectorize命令就能得到其边界矢量数据。重复该步骤，可以处理其它色
类区域的矢量数据。
C. 使用R2V彩色归类命令从24位彩色图像中得到的8位分类色图像。
方法1：同24位彩色图像处理的方法2。
方法2：如果你想有选择地矢量化边界线或中心线，可将分类后的图像转换为8位彩色图像，它们之间是可以互为转换的。然后按A介绍
的方法处理即可。
4.我有一张大尺寸图纸，比我的扫描仪能处理的范围要大得多，所以我将其扫描成了四块。问题是我能否使用R2V矢量化这些图块并将
它们拼合成单独的矢量数据集呢？
  当然可以。你可以利用控制点来帮助你将分块图拼合成一个整体。下面是具体步骤：
A. 首先记下你的图纸是怎样被分割的。如，可将图纸分成4个相等面积的图块。
B.分别矢量化每一个分块图。对于每一块图，选择4个控制点（参见问题1选择、编辑控制点）。控制点的定义较简单，可以把分块图想
象成由一台足够大的扫描仪扫入的完整图像，就易理解了。如每一图块为100(x)×100(y)像素，则可选择图像的四个角点作为控制点并定义
如下：
图块1（左上）：不需要校正。
图块2（右上）：
点1（左上角）：源(0, 0), 目标(100, 0)
点2（右上角）：源(100, 0), 目标(200, 0)
点3（左下角）：源(0, 100), 目标(100, 100)
点4（右下角）：源(100, 100), 目标(200, 100)
图块3（左下）：
点1（左上角）：源(0, 0), 目标(0, 100)
点2（右上角）：源(100, 0), 目标(100, 100)
点3（左下角）：源(0, 100), 目标(0, 200)
点4（右下角）：源(100, 100), 目标(100, 200)
图块4（右下）：
点1（左上角）：源(0, 0), 目标(100, 100)
点2（右上角）：源(100, 0), 目标(200, 100)
点3（左下角）：源(0, 100), 目标(100, 200)
点4（右下角）：源(100, 100), 目标(200, 200)
C. 使用不同的名字将各图块的矢量数据存为ARC格式，并使控制点起作用。
D. 选择File/New命令打开一个空窗口。
E. 用File/Import
Vector命令将每个图块修正后的矢量数据读入新窗口。完成后将拼合完整的矢量数据集。你还可以用线编辑器或其它矢量处理命令编辑
数据。
F. 最后别忘记用File/Export Vector命令存储拼合后的矢量数据。
5. 我的扫描软件生成的TIFF文件与R2V不兼容，我该咋办？
R2V支持大多数TIFF文件格式，然而，有超过200种的TIFF文件格式被众多的软硬件商们使用，某些非标准格式可能会与R2V不兼容。如果
你在读入TIFF文件时遇到问题，可按下面的方法来解决：
A.测定一下你的扫描软件，确认其扫描的图像是否被R2V支持。R2V支持1位黑白、8位灰度和24位真彩色图像。
B.如果图像太大，你需要核实一下你的系统是不断有足够的内存装入图像。如果是内存问题，则可以通过添加内存、增加虚拟内存文件
尺寸或降低扫描图像分辨率等措施来解决问题。
C.如果是R2V支持的文件格式，还应检查一下其使用的压缩方式。R2V支持大多数压缩类型，如Pack-bits、LZW、Group III 及Group IV
等。
如果R2V可以读入文件，但显示有问题，多半都是其压缩类型与R2V不兼容。这种情况下，重新生成图像而不要压缩它。
D.如果问题仍然存在，试着将图像文件用第三方的图像处理软件读入并校正后，存储为新的R2V支持的TIFF文件格式。
6.我已经扫描了一幅24位真彩色图像，我怎样才能将彩色分离出来，并为每种颜色分层进行矢量化？
下面是进行彩色分离处理的建议步骤：
A.用Image/Classification命令将图像包含的几种颜色归类。注意：该命令对8位彩色图像无效。如果你要对图像进行多层矢量化处理，
先将图像存储到一新文件中。
B. 在你想提取的颜色上定义一矩形选择区域，然后用Image/ Conversion/ Classified -> 1-bit Bi-level命令将归类后的图像转换为
1位单色图像。
  重新装入步骤A存储的图像来重复B步就可得到其它的颜色层。
7. R2V使用什么样的扫描仪最好？我需要买一台吗？
为了使用R2V进行自动数字化处理，你首先需要扫描你的图纸。由于R2V支持大多数的图像文件格式，1位单色、8位灰度、8位彩色及24
位真彩色图像。所以大多数高质量的扫描仪都能胜任图纸的扫描工作。对于典型的图纸，从200DPI到800DPI的扫描分辨率都可工作得很好，
通常你不需要更高的扫描精度，因为大多数图纸制作分辨率都不是很高。太低的分辨率将会出现断线情况，多做一些试验有助于你针对不
同类型的图纸选用合适的扫描分辨率。
如果你需要进行彩色扫描，你就需要特别的关注。如果以8位彩色扫描图像，R2V强大的颜色分类功能将不会有效，而由于彩色信息的
局限，将不可能得到较高的矢量化质量。对于24位彩色图像扫描，空间分辨率固然重要，而扫描仪精确的彩色分辨能力更为重要。图中某
一种颜色可能与另外区域的颜色相近，你应尝试将图像进行彩色分离去观察色彩在整个图像上是否一致。要获得高精度的矢量化数据这一
点是至关重要的。彩色扫描仪扫描质量相当高，绝对是物有所值。
你是否需要购买自己的扫描仪呢？这个问题取决于你的预算以及你将要数字化的图纸量。对于大多数只有少量图纸需要数字化的用户，
利用扫描服务机构为它们扫描图像，自己用R2V进行矢量化是最经济有效的方法。由于扫描仪属贵重外设，而且难于维护。有很多扫描服
务机构为用户快捷的扫描服务，而且收费低廉。
如果你是一个大公司，经常性的数字化图纸，购买你自己的扫描仪也许更方便和经济。在你决定这样做之前，考察一些扫描仪供应商，
获得有关扫描分辨率、失真度、支持何种扫描格式、扫描速度等信息。更重要的是，是否适应于你的图纸数字化。你应该获取一些扫描样
品，特别是你自己图纸的扫描样品，在R2V上测试它们，以做出最佳的选择。
8.在对矢量化图形进行控制点校正时，该用那种方法：Bi-Linear（双线性法）或是Triangulation（三角网法）？
无论Bi-Linear（双线性法）或是Triangulation（三角网法）都将产生几何变换，将矢量化数据从一个坐标系统（一般是原始光栅坐标
系统）转换到另一个坐标系统（一般是GIS或CAD软件的坐标系统）。然而，这两种方法处理数据的方法有很大差异，你必须选择一种最适
合于你的应用程序的方法。
这里有一些指导性建议：
A.Bi-Linear（双线性法）可以有效地修正全局失真，而Triangulation（三角网法）对于局部误差失真修正效果更好。双线性法运用最
小方差生成变换规则并作用于整个图像，而不论你选择控制点的多少。控制点的位置在转换后并不能保持在原位。如果你的图像并没有太
大的局部失真，并且只有少量的控制点，如只有角上4个，那么建议使用双线性法。
B.Triangulation（三角网法）采用不同的方法进行变换。该方法按给定的控制点分割将图像为很多小三角形，并为每个小三角形生成变换
规则。在变换过程中控制点的位置保持不变，局部失真被有效修正。然而，由于扫描图像的四角（注意不是图纸的四角）在三角网法处理时
要被修正，如果在四角没有任何控制点的话，其它控制点离四角太远而又会产生新的失真。所以，你必须有足够多的控制点分布在整个图像
上，包括图像的四角，才能获得更精确的变换结果。多少才是足够呢？你至少应有4点分布在四角，另外四点分布在其它位置。以我们自己
和众多用户的经验，多于8个控制点可以获得较好的结果。
C.如要将矢量化数据覆盖或补充已有数据，目标变换坐标系统类型对于决定采用何种变换方法同样重要。如果要将数据用TFW文件格式输出
到Arc/Info和ArcView系统中，双线性法是最好的选择，因为Arc/Info和ArcView系统采用与R2V相同的双线性法处理数据。
如果将数据输出到MapInfo系统中，将把控制点散布在整个图像上（TAB文件格式），三角网法则是最好选择，道理相同，MapInfo采用与R2V
相同的三角网法处理数据。
9. R2V能够矢量化选定的图像区域吗？
可以。你可以用Image/Set ROI命令指定感兴趣的区域进行矢量化。可以重复使用该命令矢量化多个区域，将这些矢量数据放在一层上。若
需要将不同区域的矢量数据放在不同的层上，使用多层管理功能即可。
10.我们的地图是一种区划图，有大量的多边形，怎样使用R2V获得所有的多边形矢量数据？
R2V有一个特别为区划图数字化设计的的功能。按下列步骤，可以完成区划图的数字化：
A.首先用R2V的自动矢量化命令矢量化区划图，若图中大部分线段较直的话，应选择CAD图作为图源选项。如果扫描图像为灰度或彩色，你还
需要作适当的预处理。
B. 整理、清绘线段数据。可以用Remove Lines By Length命令清除较短小的点划状线，用Smooth Lines命令将线段修整圆滑，使用线编辑
器进行其它必要的处理，清除不需要的杂线。在线的交点处应多加小心。较宽的线断口需用线编辑器来移动节点使之闭合。若线段处于交点
处，不要连接它，它们将用于多边形的生成。同样，在三线交点处，如没有检测到线端点的话，你需要手工断开它。
C.如图上有文本字符串与区划边界连在一起的话，你需要用线编辑器将其分开。如果要删除文本字符串的矢量化线段，可以先用Detect
Text Blocks命令标定，然后用文本块编辑器清除它们。
D. 当数据准备好后，起动Create Polygon
Layer命令来生成闭合多边形。正式生成之前，用多种不同的参数试验以获得满意的结果。当然应注意适时存储矢量数据，以备随时恢复使用。
11. 我们需要在矢量化的多边形中输入标注文本，在R2V中该怎样做？
在地图被矢量化并生成封闭多边形后，可以起动R2V的文本结点编辑器输入文本标注。若你需要用线或多边形的ID值来标注它们以供数据库使
用，可用线编辑器的线标注或等高线标注功能来指定线或多边形的ID值。
12. 使用R2V的OCR引擎识别图像中的文本的步骤是什么？
在这里我们给出使用R2V的OCR引擎识别图像中的文本的简单步骤，详细信息请参见R2V的用户联机手册。
A. 用自动矢量化命令矢量化图像。
B. 进行必要的后处理或编辑。一般情况包括捕捉线、圆滑线及其它编辑。
C. 使用Vector/Detect Text Blocks命令检测所有文本块。文本块将被自动组合并显示在窗口中。
D. 起动OCR/Text Block编辑器。先用编辑器清除被错误检测的文本块，添加没有检测到的文本块，并修正组合。然后用TrainOCR命令训练
OCR符号集，在编辑器内测试OCR功能。
E.为了训练字符识别，需转至训练OCR状态，用鼠标左健在包含字符的文本块中点击，将弹出对话框输入正确的字符或字母。
F.要测试字符是否能被正确识别，需转至OCR测试状态，用鼠标左健在包含字符的文本块中点击，识别的字符或字母将显示在图像窗口的底
部状态行内。如果识别不正确，就用该文本块再训练一次。
G. 当这些编辑训练完成后，使用Vector/Convert Text Blocks to Text
Notes命令，该命令使用OCR引擎处理所有的文本块，将其转换成R2V的文本结点数据。
H. 必要时使用文本节点编辑器编辑文本结点。
I. 存储工程文件，确定文本结点数据被存储。
J. 以GIS或地图处理系统矢量文件格式输出矢量数据。
13.对于灰度的航空照片，怎样分解并矢量化各种物体（如房顶、停车场或其它性质相同的区域）的边界？
R2V专门为此目的设计了灰度分解功能。如果图像质量够好，可直接使用Image/Segmentation命令。图像被分解后，系统将提示你选择灰度
阙值，调整此阙值，欲矢量化的区域就会以红色显示出来，通过调阙值，确认要矢量化的区域已从图像中分离出来。按OK按纽继续处理，边
界线就会自动地矢量化出来并显示在分解了的灰度图像上。
编辑线段，连接断口，可用捕捉线、按线长度删除线等功能清除多余线段。
编辑并整理了线段后，如果需要可用Vector/Create Polygon Layer命令生成封闭多边形。
14.我的图上有不规则的交点符号如圆、方块或小泡泡，它们被按其显示的状态矢量化，用R2V怎样才能将它们简化为单一的交叉结点？
R2V有一些命令可以处理不规则线交叉点问题。建议步骤如下：
A. 用自动矢量化工具矢量图像。
B.在单一交叉点周围绘一矩形选择框。矩形选择框的尺寸特别重要，仅需比矢量化后的交叉符号大一点即可，多做些试验会对你有帮助。
C. 使用Vector/Detect Intersection Symbols命令检测符号，围绕交叉符号的兰色的矩形框将显示出来。其它一些小的线段或图案也会被
标志为交叉符号，不过不会引起任何问题。
D.现在开始改正或收缩交叉符号。下面的步骤会改变矢量数据，在处理之前应该保存数据。由于可能会识别错符号，你应该分区分区地使用
称号收缩命令。先在符号被正确识别的区域用鼠标左健绘选择区，然后才使用Vector/Shrink
Intersection Symbols去处理。在其它区域重复操作即可。
E. 如果你想单个地修正符号，可以使用线编辑器的Intersection
Symbol工具来做。起动线编辑器并切换到交叉点符号编辑状态。点击交叉符号框完成修正。如果出错，可以用Undo命令恢复。如果称号没有
用检测处理过程识别，你可用鼠标左键（按住Shift键）绘选择框，然后选择Intersection
Symbol项进行改正。
Copyright * 1998 Fatpro Co. All rights reserved.

[/php]

studingCAD · 发表于 2005-4-29 17:33:50

多级菜单.mb
[php]
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

[/php]

账号		自动登录	找回密码
密码			立即注册

[分享]：『MB』：mapinfo源程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

按钮标识符

表查询.mb

操纵窗口

创建新地图

单选对话框.mb

典型对话框