图形化割接方案制定软件Word格式文档下载.docx
- 文档编号:21768162
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:86
- 大小:40.08KB
图形化割接方案制定软件Word格式文档下载.docx
《图形化割接方案制定软件Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《图形化割接方案制定软件Word格式文档下载.docx(86页珍藏版)》请在冰豆网上搜索。
DimnodxAsNode
'
DimtheResponder1AsObject
Me.Left=GetSetting(App.Title,"
Settings"
"
MainLeft"
1000)
Me.Top=GetSetting(App.Title,"
MainTop"
Me.Width=GetSetting(App.Title,"
MainWidth"
6500)
Me.Height=GetSetting(App.Title,"
MainHeight"
InitializeMapInfoConnection
Setconnaccess=NewADODB.Connection
Withconnaccess
.ConnectionString="
Provider=Microsoft.Jet.OLEDB.4.0;
PersistSecurityInfo=False;
DataSource="
&
App.Path&
"
\database.mdb"
.CommandTimeout=0
.Open
EndWith
TheInstallPath=App.Path+"
\"
MapInfo.do"
setwindowinfoparent"
fMainForm.picMapFrame.hwnd
setwindowlegendparent"
setwindowrulerparent"
setwindowstatisticsparent"
'
RunMenuCommand
tvTreeView.LineStyle=tvwRootLines'
在兄弟节点和父节点之间显示线
strSQL="
SELECTdistinctmscFROMbsc资源"
rstbts.OpenstrSQL,connaccess,adOpenStatic,adLockOptimistic
WhileNot(rstbts.EOF)
tvTreeView.Nodes.Add,,"
msc"
rstbts!
msc,"
msc
strSQLad="
SELECT*FROMbsc资源wheremsc="
msc&
orderbybscasc"
adRecordset.OpenstrSQLad,connaccess,adOpenStatic,adLockOptimistic
WhileNot(adRecordset.EOF)
Setnodx=tvTreeView.Nodes.Add("
msc,tvwChild,ConvertString(adRecordset!
bsc,"
"
),ConvertString(adRecordset!
))
adRecordset.MoveNext
Wend
SetadRecordset=Nothing
rstbts.MoveNext
Setrstbts=Nothing
WithfMainForm.tvTreeView
.Nodes.Add,,"
EndWith
*clearoutanypreviousinfotoolhits
.Nodes.Clear
IfnHits=0Then
*therewerenohits:
disabletheTreeViewcontrol
noinfo"
<
NoRecords>
.Enabled=False
Else
PrivateSubForm_Paint()
lvListView.View=Val(GetSetting(App.Title,"
ViewMode"
0"
SelectCaselvListView.View
CaselvwIcon
tbToolBar.Buttons(LISTVIEW_MODE0).Value=tbrPressed
CaselvwSmallIcon
tbToolBar.Buttons(LISTVIEW_MODE1).Value=tbrPressed
CaselvwList
tbToolBar.Buttons(LISTVIEW_MODE2).Value=tbrPressed
CaselvwReport
tbToolBar.Buttons(LISTVIEW_MODE3).Value=tbrPressed
EndSelect
PrivateSubForm_Unload(CancelAsInteger)
MapInfo.RunMenuCommandM_FILE_EXIT
DimIAsInteger
closeallsubforms
ForI=Forms.Count-1To1Step-1
UnloadForms(I)
Next
IfMe.WindowState<
>
vbMinimizedThen
SaveSettingApp.Title,"
Me.Left
Me.Top
Me.Width
Me.Height
EndIf
lvListView.View
ShutdownMapInfoConnection
Setconnaccess=Nothing
PrivateSubLayerQuery_Click()
MapInfo.RunMenuCommandM_ANALYZE_SELECT
PrivateSubmenuMapCreateThematic_Click()
MapInfo.RunMenuCommandM_MAP_THEMATIC
MapInfo.do"
SetWindowLegendParent"
fMainForm.hwnd&
Show"
SetLegend"
PrivateSubmenuMapModifyThematic_Click()
MapInfo.RunMenuCommandM_MAP_MODIFY_THEMATIC
PrivateSubmenuMapPreviousView_Click()
MapInfo.RunMenuCommandM_MAP_PREVIOUS
PrivateSubmenuOpenWor_Click()
OnErrorResumeNext
RightIndex="
.WOR"
If(InStr(LeftRightIndex,RightIndex)<
=0)Then
LeftRightIndex="
*.WOR"
If(TheInPathTabOrWor="
)Then
TheInPathTabOrWor=TheInstallPath+"
tab\"
FrmTAB.Show1
fMainForm.dlgOpenTable.CancelError=True
fMainForm.dlgOpenTable.Filter="
MapInfoTables(*.wor)|*.wor"
fMainForm.dlgOpenTable.FilterIndex=1
fMainForm.dlgOpenTable.ShowOpen'
*displaythedialog
IfErr.Number>
0Then
Err.Clear
ExitSub
TheWorFile=fMainForm.dlgOpenTable.FileName'
*getthefileselectedbytheuser
Callmenuallclose_Click
SetNextDocumentParent"
fMainForm.picMapFrame.hwnd&
Style1"
RunApplication"
TheWorFile&
Position(6,5)Width2Height2hide"
winID=CLng(MapInfo.Eval("
FrontWindow()"
mapHWnd=CLng(MapInfo.Eval("
WindowInfo("
winID&
"
WIN_INFO_WND&
)"
thereIsAMap=True
mapWinID=CLng(MapInfo.Eval("
SetCoordSysEarthProjection1,0"
CallUpdateMenuAndToolbar(True)
fMainForm.Caption=Left(TabOrWor
(1),Len(TabOrWor
(1))-4)+"
Map"
UpdateMenuAndToolbar
EnabledMenuAndToolbar
PrivateSubmenuSaveAsWor_Click()
MapInfo.RunMenuCommandM_FILE_SAVE_WORKSPACE
PrivateSubmenuTableColomnUpDate_Click()
MapInfo.RunMenuCommandM_TABLE_UPDATE_COLUMN
PrivateSubmenuTableStruture_Click()
MapInfo.RunMenuCommandM_TABLE_MODIFY_STRUCTURE
PrivateSubmnucutBscCutCreate_Click()
OnErrorGoToOn_Error
在数据库中加入
IfthereIsAMapThen
*there'
salreadyamap.Addthisnewlayertotheexistingmap
AddMapLayer"
tabName
查找conf表,是否存在
nLayerName=CInt(MapInfo.Eval("
MapperInfo("
mapWinID&
9)"
ForI=1TonLayerName
layerName=MapInfo.Eval("
LayerInfo("
I&
1)"
)
If(InStr(layerName,"
割接"
)>
0)Then
bExistTable=True
ExitFor
NextI
IfbExistTableThen
I=MsgBox("
割接表已经打开,是否需要生成新的割接表"
vbYesNo,"
割接表"
IfI=6Then
CloseTable割接"
关表表时,要考虑这时是否还有窗口
IfmapWinID=0Then
CreateTable"
(bscchar(20))file"
\tab\割接.TAB"
TYPENATIVECharset"
WindowsSimpChinese"
CreateMapFor割接CoordSysEarthProjection1,0"
mapfrom割接"
SetMaplayer割接EditableOn"
b=MsgBox("
割接表已生成"
vbInformation,"
AddMapAutoLayer割接"
Else
thereIsAMap=True
EndIf
ExitSub
On_Error:
MsgBoxErr.Description,vbCritical,"
系统提示"
PrivateSubmnucutBscCutOpen_Click()
DimtheFileAsString'
*thefullpathtothefile
DimtabNameAsString'
*theMapInfotablealiasforthefile
*First,displayacommonfiledialogtoopenatable
OnErrorGoToOn_Error'
*hittingcancelinthedlgishandledasanerror
MapInfoTables(*.tab)|*.tab"
theFile=fMainForm.dlgOpenTable.FileName'
tabName=MapInfo.Eval("
PathToTableName$("
theFile&
)"
)'
*gettablealias
IftabName<
Then
MsgBox"
这个图层不是割接图层"
割接表已打成"
OpenTable"
as"
tabName'
*openthetable
SetTable"
tabName&
ReadOnly"
*makeitReadOnly
*now,makesurethetableismappable,otherwise,displayamsgandclosethetable
bybwt
IfMapInfo.Eval("
TableInfo("
TAB_INFO_MAPPABLE&
)="
F"
Thistableisnotmappable.Icanonlyopenmappabletables."
MapInfo.Do"
CloseTable"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图形 化割接 方案 制定 软件
![提示](https://static.bdocx.com/images/bang_tan.gif)