📄 frmmain.frm
字号:
EndProperty
BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":50B0
Key = ""
EndProperty
BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":53CA
Key = ""
EndProperty
BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":56E4
Key = ""
EndProperty
BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":59FE
Key = ""
EndProperty
BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":5D18
Key = ""
EndProperty
BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":6032
Key = ""
EndProperty
BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmMain.frx":634C
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuFile
Caption = "文件"
HelpContextID = 10
Begin VB.Menu mnuFileNew
Caption = "1.新建表"
HelpContextID = 12
Shortcut = ^N
End
Begin VB.Menu mnuFileOpen
Caption = "2.打开表..."
HelpContextID = 13
Shortcut = ^O
End
Begin VB.Menu menuOpenWor
Caption = "3.打开工作空间"
HelpContextID = 14
Shortcut = ^A
End
Begin VB.Menu mnuOld
Caption = "4.缺省工作空间"
HelpContextID = 15
Shortcut = ^D
End
Begin VB.Menu mnuFileClose
Caption = "5.关闭表"
HelpContextID = 16
End
Begin VB.Menu menuAllClose
Caption = "6.全部关闭"
HelpContextID = 17
End
Begin VB.Menu mnuFileBar2
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "7.保存表"
HelpContextID = 18
End
Begin VB.Menu mnuFileSaveAs
Caption = "8.另存表为..."
HelpContextID = 19
End
Begin VB.Menu mnuFileBar3
Caption = "-"
End
Begin VB.Menu menuSaveWor
Caption = "9.保存工作空间(不保存表)..."
HelpContextID = 111
End
Begin VB.Menu menuSaveAsWor
Caption = "10.保存工作空间(保存表)..."
End
Begin VB.Menu mnuSaveDefaultWor
Caption = "11.保存工作空间(缺省)"
HelpContextID = 112
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu menuSaveWindow
Caption = "12.图象存盘..."
HelpContextID = 113
End
Begin VB.Menu menuRecov
Caption = "13.复原表"
HelpContextID = 114
End
Begin VB.Menu mnuFileBar5
Caption = "-"
End
Begin VB.Menu mnuFilePageSetup
Caption = "14.打印设置..."
HelpContextID = 115
End
Begin VB.Menu mnuFilePrint
Caption = "15.打印..."
HelpContextID = 116
Shortcut = ^P
End
Begin VB.Menu mnuFileBar7
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "16.退出"
HelpContextID = 117
End
End
Begin VB.Menu mnuEdit
Caption = "编辑"
HelpContextID = 21
Begin VB.Menu mnuEditUndo
Caption = "撤消"
HelpContextID = 211
Shortcut = ^Z
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditCut
Caption = "剪切"
HelpContextID = 212
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制"
HelpContextID = 213
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴"
HelpContextID = 214
Shortcut = ^V
End
Begin VB.Menu mnuEditDel
Caption = "清除"
HelpContextID = 215
Shortcut = {DEL}
End
Begin VB.Menu mnuEditDelMap
Caption = "只清除地图对象"
HelpContextID = 216
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditShapes
Caption = "修改形状"
HelpContextID = 217
Shortcut = ^R
End
Begin VB.Menu mnuEditNewRow
Caption = "新建行"
HelpContextID = 218
Shortcut = ^E
End
Begin VB.Menu mnuEditBar3
Caption = "-"
End
Begin VB.Menu mnuEditGetInfo
Caption = "获取信息"
HelpContextID = 219
Shortcut = {F7}
End
End
Begin VB.Menu mnuObjects
Caption = "对象"
HelpContextID = 22
Begin VB.Menu mnuObjects_Set_Target
Caption = "设置目标"
HelpContextID = 221
Shortcut = ^T
End
Begin VB.Menu mnuObjects_Clear_Target
Caption = "清除目标"
HelpContextID = 222
End
Begin VB.Menu mnuObjects_Separate0
Caption = "-"
End
Begin VB.Menu mnuObjects_Combine
Caption = "合并..."
HelpContextID = 223
End
Begin VB.Menu mnuObjects_unCombine
Caption = "分解..."
End
Begin VB.Menu mnuObjects_BUFFER
Caption = "缓冲区..."
HelpContextID = 228
End
Begin VB.Menu mnuObjectsConvexHull
Caption = "创建对象的外接多边形..."
HelpContextID = 229
End
Begin VB.Menu mnuObjectsLineClose
Caption = "创建线段的封闭区域"
End
Begin VB.Menu mnuObjects_Separate1
Caption = "-"
End
Begin VB.Menu mnuObjects_SPLIT
Caption = "分割"
HelpContextID = 224
End
Begin VB.Menu mnuObjects_ERASE
Caption = "擦除"
HelpContextID = 225
End
Begin VB.Menu mnuObjects_ERASE_OUT
Caption = "擦除外部"
HelpContextID = 226
End
Begin VB.Menu mnuObjects_OVERLAY
Caption = "叠压节点"
HelpContextID = 227
End
Begin VB.Menu mnuObjects_Separate2
Caption = "-"
End
Begin VB.Menu mnuObjectsCheckRegions
Caption = "检查区域错误..."
HelpContextID = 2210
End
Begin VB.Menu mnuObjectsCheckError
Caption = "清理..."
End
Begin VB.Menu mnuObjects_Separate3
Caption = "-"
End
Begin VB.Menu mnuObjects_SMOOTH
Caption = "平滑"
HelpContextID = 2211
End
Begin VB.Menu mnuObjects_UNSMOOTH
Caption = "撤消平滑"
HelpContextID = 2212
End
Begin VB.Menu mnuObjects_Separate4
Caption = "-"
End
Begin VB.Menu mnuObjects_CVT_PGON
Caption = "转换为区域"
HelpContextID = 2213
End
Begin VB.Menu mnuObjects_CVT_PLINE
Caption = "转换为折线"
HelpContextID = 2214
End
End
Begin VB.Menu mnuQuery
Caption = "查询"
HelpContextID = 27
Begin VB.Menu LayerQuery
Caption = "选择..."
HelpContextID = 271
End
Begin VB.Menu SQLQuery
Caption = "SQL选择..."
HelpContextID = 272
End
Begin VB.Menu AllQuery
Caption = "全选"
HelpContextID = 273
End
Begin VB.Menu AntiAllQuery
Caption = "反选"
End
Begin VB.Menu NotQuery
Caption = "全不选"
HelpContextID = 274
End
Begin VB.Menu gap2
Caption = "-"
End
Begin VB.Menu FindSome
Caption = "查找"
HelpContextID = 275
End
Begin VB.Menu Find_Selection
Caption = "查找选中部分"
HelpContextID = 276
End
Begin VB.Menu gap3
Caption = "-"
End
Begin VB.Menu CalStastics
Caption = "计算统计值"
HelpContextID = 277
End
End
Begin VB.Menu mnuTable
Caption = "表"
HelpContextID = 24
Begin VB.Menu menuTableColomnUpDate
Caption = "更新列"
HelpContextID = 241
End
Begin VB.Menu mnuTableAddRow
Caption = "在表中添加行"
HelpContextID = 242
End
Begin VB.Menu mnuTableSeparate0
Caption = "-"
End
Begin VB.Menu mnuTableGeoCode
Caption = "地理编码"
HelpContextID = 243
End
Begin VB.Menu mnuTableCreatePoint
Caption = "创建点"
HelpContextID = 244
End
Begin VB.Menu mnuTableCombineObject
Caption = "用列合并对象"
HelpContextID = 245
End
Begin VB.Menu mnuTableSeparate1
Caption = "-"
End
Begin VB.Menu mnuTableImport
Caption = "转入"
HelpContextID = 246
End
Begin VB.Menu mnuTableExport
Caption = "转出"
HelpContextID = 247
End
Begin VB.Menu mnuTableSeparate2
Caption = "-"
End
Begin VB.Menu menuTableMaintance
Caption = "维护"
HelpContextID = 248
Begin VB.Menu menuTableStruture
Caption = "表结构"
HelpContextID = 2481
End
Begin VB.Menu mnuTableDelTable
Caption = "删除表"
HelpContextID = 2482
End
Begin VB.Menu mnuTableRenameTable
Caption = "更新表名"
HelpContextID = 2483
End
Begin VB.Menu mnuTablePack
Caption = "压缩表"
HelpContextID = 2484
End
End
End
Begin VB.Menu mnuMap
Caption = "地图"
HelpContextID = 25
Begin VB.Menu mnuMapLayer
Caption = "图层控制"
HelpContextID = 251
Shortcut = ^L
End
Begin VB.Menu mnuMapSeparator0
Caption = "-"
End
Begin VB.Menu mnuMapCreate3DMap
Caption = "创建3DMap..."
HelpContextID = 2515
End
Begin VB.Menu mnuMapCreateLZMap
Caption = "创建棱柱图..."
End
Begin VB.Menu mnuMapSeparator1
Caption = "-"
End
Begin VB.Menu menuMapCreateThematic
Caption = "创建专题地图"
HelpContextID = 252
End
Begin VB.Menu menuMapModifyThematic
Caption = "修改专题地图"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -