第4章 GIS常用工具开发
第4章GIS常用工具开发
GIS常用工具和方法除了前面介绍的Legend以外，还有指示图(Locator map)、比例尺(ScaleBar)和状态栏(StatuBar)、打印功能的设置、鼠标提示(TipText)的设置以及查看属性设置等。
4.1使用指示图
一般地理信息系统在主窗口的附近都有一个指示图(Locator map)。指示图用显著颜色的方框显示目前主窗口在全图的位置，并可以拖动方框或其它方式，在全图中迅速定位。
4.1.1 添加指示窗口
以下实例可以在指示窗口中显示主窗口边界(红色边框)，并使2个窗口连动。
在Form中添加Map1和Map2，用Form_Load、Mapl_AfterLayerDraw、Mapl_AfterLayerDraw过程来添加指示窗口，在Map1_MouseDown过程添加放大缩小功能，以检查指示窗口的连动功能。
添加程序如下：
（工程Chapter401－Form01）
‘左键放大，右键缩小；
Option Explicit
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As MapObject2.Rectangle
If Button = vbLeftButton Then
Set Map1.Extent = Map1.TrackRectangle
ElseIf Button = vbRightButton Then
Set r=Map1.Extent
r.ScaleRectangle 1.5
Map1.Extent=r
End If
End Sub
‘使Map1和Map2连动；
Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)
If Index = 0 Then
Map2.TrackingLayer.Refresh True
End If
End Sub
‘在Map2上画红色指示框
Private Sub Map2_AfterTrackingLayerDraw(ByVal hdc As stdole.OLE_HANDLE)
Dim sym As New Symbol
sym.OutlineColor = moRed
sym.Style = moTransparentFill
Map2.DrawShape Map1.Extent, sym
End Sub
Private Sub Form_Load()
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States")
layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers")
layer.Symbol.Color = moRed
layer.Symbol.Style = 1
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("states")
layer.Symbol.Color = moPaleYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map2.Refresh
End Sub
示例的效果如图4.1所示。
4.1.2在指示窗口中改变主窗口大小
添加以下程序，可以在小窗口中点击移动大窗口位置，还可以画方框改变大窗口的大小：（工程Chapter401－Form02）
Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim curRectangle As MapObjects2.Rectangle
Dim pt As New MapObjects2.Point
'画方框改变Map1窗口
Set curRectangle = Map2.TrackRectangle
Set Map1.Extent = curRectangle
图4.1添加指示窗口
'点击改变Map1位置
Set pt = Map2.ToMapPoint(x, y)
Map1.CenterAt pt.x, pt.y
End Sub
4.1.3在指示窗口中拖运方框
要实现在指示窗口中拖动方框的功能，程序比较复杂，好在MO提供了类模块DragFeedback，只要在工程中添加类模块DragFeedback就可以了。
在上面的程序中添加如下代码：
（工程Chapter401－Form03）
Option Explicit
Dim g_feedback As DragFeedback
Private Sub Map2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'将点击转换为Map2上的点对象；
Dim p As Point
Set p = Map2.ToMapPoint(x, y)
'如果点击发生在方框内，开始拖动；
If Map1.Extent.IsPointIn(p) Then
Set g_feedback = New DragFeedback
g_feedback.DragStart Map1.Extent, Map2, x, y
End If
End Sub
'开始拖动方框
Private Sub Map2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) If Not g_feedback Is Nothing Then
g_feedback.DragMove x, y
End If
End Sub
'拖动完成，并在Map1中显示新位置；
Private Sub Map2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Not g_feedback Is Nothing Then
Map1.Extent = g_feedback.DragFinish(x, y)
Set g_feedback = Nothing
End If
End Sub
'左键放大，右键缩小；
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim r As MapObjects2.Rectangle
If Button = vbLeftButton Then
Set Map1.Extent = Map1.TrackRectangle
ElseIf Button = vbRightButton Then
Set r = Map1.Extent
r.ScaleRectangle 2
Map1.Extent = r
End If
End Sub
'使Map2和Map1联动；
Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)
If Index = 0 Then
Map2.TrackingLayer.Refresh True
End If
End Sub
'在Map2上画红色指示框；
Private Sub Map2_AfterTrackingLayerDraw(ByVal hdc As stdole.OLE_HANDLE)
Dim sym As New Symbol
sym.OutlineColor = moRed
sym.Size = 2
sym.Style = moTransparentFill
Map2.DrawShape Map1.Extent, sym
End Sub
Private Sub Form_Load()
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States")
layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers")
layer.Symbol.Color = moRed
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("states")
layer.Symbol.Color = moPaleYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map2.Refresh
End Sub
4.2属性显示
在地理信息系统中，常常要查询地图上对象的属性，这时就要用属性显示的程序设计方法了。
4.2.1 显示一个区域的属性
先介绍简单的演示性的例子。在FORM上添加Mapl和ListView1(参见附录E.2)，程序如下：
（工程Chapter401－Form04）
Option Explicit
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ly1 As MapObjects2.MapLayer
Dim fld As MapObjects2.Field
Dim newItem As Object
Dim p As MapObjects2.Point
Dim recs As MapObjects2.Recordset
Set ly1 = https://www.wendangku.net/doc/5712743512.html,yers("States")
Set p = Map1.ToMapPoint(x, y)
Set recs = ly1.SearchShape(p, moPointInPolygon, "")
If Not recs.EOF Then
ListView1.ListItems.Clear
For Each fld In recs.Fields ' iterate over the fields
Set newItem = ListView1.ListItems.Add
newItem.text = https://www.wendangku.net/doc/5712743512.html,
newItem.SubItems(1) = fld.ValueAsString ' get the value
Next fld
End If
End Sub
Private Sub Form_Load()
Dim col As Object
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States")
layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers")
layer.Symbol.Color = moRed
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set col = ListView1.ColumnHeaders.Add()
col.text = "属性名称"
Set col = ListView1.ColumnHeaders.Add()
col.text = "属性值"
End Sub
如果加一个Combo控件显示，可以使用ListBox，避免使用复杂的ListView，如下例所示。
4.2.2显示所有对象的属性
在地理信息系统的应用中，点击一个位置，往往包含多个对象。如一个城市可能在一条河流上，而同时又位于一个地区内。程序用一个Combo控件来区分不同的对象。在Combo 中选择一个对象后，这个对象就闪烁，然后在一个ListBox显示其属性。
添加一个Map1、一个Combo1、一个List1、5个Label（Label1~ Label5），如图4.2所示。
图4.2属性显示示例设计窗口
程序如下：
（工程Chapter401－Form05）
Option Explicit
Private Const SEARCHTOLPIXELS = 3
Dim Loc As New MapObjects2.Point
Dim Recs2() As MapObjects2.Recordset
Dim layerName() As String
Dim layerNum() As Long
'根据点击的坐标选择对象；
Sub Identify(x As Single, y As Single)
Dim curCount As Long, layerCount As Long, layer_c As Long Dim Loc As New MapObjects2.Point
Dim theTol As Double
Dim featCount As Long, fCount As Long
Dim aLayer As Object
Dim recs As MapObjects2.Recordset
Dim aName As String, theItem As String
Dim aField As Object
Dim xStr As String, yStr As String
'设置参数；
layer_c = https://www.wendangku.net/doc/5712743512.html,yers.Count
ReDim layerName(layer_c)
ReDim Recs2(layer_c)
Screen.MousePointer = 11
Combo1.Clear
List1.Clear
Set Loc = Map1.ToMapPoint(x, y)
'坐标处理；
If Loc.x > 1000 Or Loc.y > 1000 Then
xStr = Int(Loc.x): yStr = Int(Loc.y)
Else
xStr = Loc.x: yStr = Loc.y
End If
xStr = Format(xStr, "0.000")
yStr = Format(yStr, "0.000")
Label1.Caption = "x=" + xStr & ",y=" + yStr
featCount = 0
layerCount = -1
'设置误差；
theTol = Map1.ToMapDistance(SEARCHTOLPIXELS * Screen.TwipsPerPixelX)
'选择对象；
For Each aLayer In https://www.wendangku.net/doc/5712743512.html,yers
If aLayer.Visible And https://www.wendangku.net/doc/5712743512.html,yerType = moMapLayer Then
Set recs = aLayer.SearchByDistance(Loc, theTol, "")
layerCount = layerCount + 1
layerName(layerCount) = https://www.wendangku.net/doc/5712743512.html,
Set Recs2(layerCount) = recs
curCount = -1
If recs.Count <> 0 Then
aName = "Featureid"
For Each aField In recs.Fields
If aField.Type = moString Then
aName = https://www.wendangku.net/doc/5712743512.html,
Exit For
End If
Next
End If
While Not recs.EOF
ReDim Preserve layerNum(2, featCount + 1)
curCount = curCount + 1
layerNum(1, featCount) = layerCount
layerNum(2, featCount) = curCount
featCount = featCount + 1
Select Case https://www.wendangku.net/doc/5712743512.html,
Case "States": theItem = recs("NAME").ValueAsString
Case "Rivers": theItem = recs("NAME").ValueAsString
Case "Cities": theItem = recs("NAME").ValueAsString
End Select
Combo1.AddItem theItem
recs.MoveNext
Wend
End If
Next aLayer
If featCount = 0 Then
Label2.Caption = "没有找到任何对象"
Else
Label2.Caption = Str(featCount) + "个对象被找到"
End If
If featCount > 0 Then
Combo1.ListIndex = 0
End If
Screen.MousePointer = 0
End Sub
'点击后显示属性；
Sub Identify_list()
Dim curRec As MapObjects2.Recordset
Dim curIndex As Long, aIndex As Long, aRec As Long, i As Long Dim aField As Object
Dim aName As String
'设置
curIndex = Combo1.ListIndex
If IsNull(Combo1.List(aIndex)) Then
Exit Sub
End If
aIndex = layerNum(1, curIndex)
aRec = layerNum(2, curIndex)
aName = layerName(aIndex)
Set curRec = Recs2(aIndex)
curRec.MoveFirst
If aRec > 0 Then
For i = 1 To aRec
curRec.MoveNext
Next i
End If
'闪烁
Map1.FlashShape curRec("shape").Value, 3
'写属性；
List1.Clear
For Each aField In curRec.Fields
Select Case aField.Type
Case moString
List1.AddItem https://www.wendangku.net/doc/5712743512.html, + " = " + aField.Value
Case moPoint
Label3.Caption = "对象形状: 点"
Case moLine
Label3.Caption = "对象形状: 线"
Case moPolygon
Label3.Caption = "对象形状: 多边形"
Case Else
List1.AddItem https://www.wendangku.net/doc/5712743512.html, + " = " + aField.ValueAsString
End Select
Next aField
End Sub
Private Sub combo1_Click()
Identify_list
End Sub
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Call Identify(x, y)
End Sub
Sub DrawLayer()
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States")
layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers")
layer.Symbol.Color = moRed
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Cities")
layer.Symbol.Color = moBlue
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
End Sub
Private Sub Form_Load()
DrawLayer
Label1.Caption = "点击位置"
Label2.Caption = "找到信息"
Label3.Caption = "对象类型"
Label4.Caption = "对象名称"
Label5.Caption = "属性"
End Sub
运行结果如图4.3所示
图4.3属性显示示例一
4.2.3属性窗口的隐藏和位置改变
在实际应用中，GIS的主窗口有时功能较多，排列很紧凑，不能给一个ListBox的空间。这时需要在不同属性窗口时将它隐藏，用时再显示，而且要显示在远离点击处的角落上。以下程序可以完成这些功能。
在主Form（Form06）上添加一个Map1，再建立一个属性显示Form（frmIdentify），其
上添加一个Combol1（coIDList）、一个List1（lstFeatList）、6个Label（从上到下分别为）lblFeatFound、lblFeature、lblAttributes、lblTheme、lblShapeType、lblLocation），如图4.4所示。
图4.4frmIdentify界面设计
（工程Chapter401－Form06）
在Form06中和程序：
Option Explicit
Dim zbx1 As Integer, zbx2 As Integer, zby1 As Integer, zby2 As Integer
Dim Xmid As Long, Ymid As Long
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim p As MapObjects2.Point
Dim ly1 As MapObjects2.MapLayer
Set p = Map1.ToMapPoint(x, y)
If p.x < Xmid Then '判断位置，分别放在4个角上；
frmIdentify.Left = zbx2
Else
frmIdentify.Left = zbx1
End If
If p.y < Ymid Then
frmIdentify.Top = zby2
Else
frmIdentify.Top = zby1
End If
Call frmIdentify.Identify(x, y)
frmIdentify.ZOrder 0
End Sub
Sub DrawLayer()
Dim dc As New DataConnection
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States") layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers") layer.Symbol.Color = moRed
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Cities") layer.Symbol.Color = moBlue
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
End Sub
Private Sub Form_Load()
DrawLayer
zbx1 = 200
zbx2 = Map1.Width
zby1 = 200
zby2 = Int(Map1.Height / 2) + 1000
Xmid = Map1.Extent.Left + Int(Map1.Extent.Width / 2) Ymid = Map1.Extent.Top - Int(Map1.Extent.Height / 2) End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload frmIdentify
End Sub
在frmIdentify中的程序：
Option Explicit
Private Const SEARCHTOLPIXELS = 3
Dim Loc As New MapObjects2.Point
Dim Recs2() As MapObjects2.Recordset
Dim layerName() As String
Dim ThisForm As Form
'根据点击的坐标选择对象；
Sub Identify(x As Single, y As Single)
Dim curCount As Long, layerCount As Long, layer_c As Long
Dim Loc As New MapObjects2.Point
Dim theTol As Double
Dim featCount As Long, fCount As Long
Dim aLayer As Object
Dim recs As MapObjects2.Recordset
Dim aName As String, theItem As String
Dim aField As Object
Dim xStr As String
Dim yStr As String
'设置参数；
layer_c = https://www.wendangku.net/doc/5712743512.html,yers.Count
ReDim layerName(layer_c)
ReDim Recs2(layer_c)
Screen.MousePointer = 11
cboIDList.Clear
lstFeatList.Clear
'坐标处理；
Set Loc = ThisForm.Map1.ToMapPoint(x, y)
If Loc.x > 1000 Or Loc.y > 1000 Then
xStr = Int(Loc.x)
yStr = Int(Loc.y)
Else
xStr = Loc.x: yStr = Loc.y
End If
lblLocation.Caption = "位置:x=" & Int(xStr) & ",y=" & Int(yStr)
featCount = 0
layerCount = -1
'设置误差；
theTol = ThisForm.Map1.ToMapDistance(SEARCHTOLPIXELS * Screen.TwipsPerPixelX)
'选择对象；
For Each aLayer In https://www.wendangku.net/doc/5712743512.html,yers
If aLayer.Visible And https://www.wendangku.net/doc/5712743512.html,yerType = moMapLayer Then
Set recs = aLayer.SearchByDistance(Loc, theTol, "")
layerCount = layerCount + 1
layerName(layerCount) = https://www.wendangku.net/doc/5712743512.html,
Set Recs2(layerCount) = recs
curCount = -1
If recs.Count <> 0 Then
aName = "Featureid"
For Each aField In recs.Fields
If aField.Type = moString Then
aName = https://www.wendangku.net/doc/5712743512.html,
Exit For
End If
Next
End If
While Not recs.EOF
ReDim Preserve layerNum(2, featCount + 1)
curCount = curCount + 1
layerNum(1, featCount) = layerCount
layerNum(2, featCount) = curCount
featCount = featCount + 1
Select Case https://www.wendangku.net/doc/5712743512.html,
Case "States": theItem = recs("NAME").ValueAsString
Case "Rivers": theItem = recs("NAME").ValueAsString
Case "Cities": theItem = recs("NAME").ValueAsString
End Select
cboIDList.AddItem theItem
recs.MoveNext
Wend
End If
Next aLayer
Visible = True
If featCount = 0 Then
lblFeatFound.Caption = "没有找到任何对象"
Else
lblFeatFound.Caption = Str(featCount) + "个对象被找到" End If
If featCount > 0 Then
cboIDList.ListIndex = 0
Call Identify_list
End If
Screen.MousePointer = 0
End Sub
'点击后显示属性；
Sub Identify_list()
Dim curRec As MapObjects2.Recordset
Dim curIndex As Long, aIndex As Long, aRec As Long, i As Long Dim aField As Object
Dim aName As String
'设置
curIndex = cboIDList.ListIndex
If IsNull(cboIDList.List(aIndex)) Then
Exit Sub
End If
aIndex = layerNum(1, curIndex)
aRec = layerNum(2, curIndex)
aName = layerName(aIndex)
Set curRec = Recs2(aIndex)
curRec.MoveFirst
If aRec > 0 Then
For i = 1 To aRec
curRec.MoveNext
Next i
End If
'闪烁
ThisForm.Map1.FlashShape curRec("shape").Value, 2
'写属性；
lblTheme.Caption = "图层名: " + aName
lstFeatList.Clear
For Each aField In curRec.Fields
Select Case aField.Type
Case moString
lstFeatList.AddItem https://www.wendangku.net/doc/5712743512.html, + " = " + aField.Value
Case moPoint
lblShapeType.Caption = "对象形状: 点"
Case moLine
lblShapeType.Caption = "对象形状: 线"
Case moPolygon
lblShapeType.Caption = "对象形状: 多边形"
End Select
Next aField
End Sub
'选择对象
Private Sub cboIDList_Click()
Identify_list
End Sub
Private Sub Form_Load()
Set ThisForm = Form06
Me.Move ThisForm.Left + ThisForm.Width, ThisForm.Top
If (Me.Left + Me.Width) > Screen.Width Then
Me.Left = Screen.Width - Me.Width
End If
lblFeatFound.Caption = "查找. . ."
lblTheme.Caption = "图层名:"
lblShapeType.Caption = "形状:"
End Sub
运行时的界面如图4.5所示
图4.5属性显示示例二
4.3其它GIS常用工具
4.3.1 地图比例尺工具ScaleBar
ScaleBar控件可以动态显示图的比例，还可以把鼠标的移动坐标写到StatusBar上。ScaleBar控件要和ActiveBar控件一起安装后才能使用。
在［工程］／［部件］中选择ScaleBar组件，在Form上添加一个ScaleBar1控件。一般设置为：
MapUnits=2;
MinticSpace=0.4;
ScaleBarUnits=2;‘（比例尺为米，地图比例大时选3，为公里）
ScreenUnits=1;
为了有效地显示比例信息，ScaleBar的宽度属性width最少为1700，Hight为600，然后添加程序：
（工程Chapter401－Form07）
Option Explicit
Private Sub refreshScale()
sbScaleBar1.MapExtent.MaxX = Map1.Extent.Right
sbScaleBar1.MapExtent.MinX = Map1.Extent.Left
sbScaleBar1.MapExtent.MaxY = Map1.Extent.Bottom
sbScaleBar1.MapExtent.MinY = Map1.Extent.Top
sbScaleBar1.PageExtent.MinX = Map1.Left / Screen.TwipsPerPixelX
sbScaleBar1.PageExtent.MinY = Map1.Top / Screen.TwipsPerPixelY
sbScaleBar1.PageExtent.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX
sbScaleBar1.PageExtent.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY
sbScaleBar1.Refresh
End Sub
‘放大移动用，测试程序；
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Set Map1.Extent = Map1.TrackRectangle
ElseIf Button = vbRightButton Then
Map1.Pan
End If
End Sub
Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)
Call refreshScale
End Sub
Sub DrawLayer()
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
End If
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("States")
layer.Symbol.Color = moYellow
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Rivers")
layer.Symbol.Color = moRed
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
Map1.Refresh
Set layer = New MapLayer
Set layer.GeoDataset = dc.FindGeoDataset("Cities")
layer.Symbol.Color = moBlue
https://www.wendangku.net/doc/5712743512.html,yers.Add layer
End Sub
Private Sub Form_Load()
DrawLayer
End Sub
运行程序，效果如图4.6所示。
4.3.2状态栏StatusBar
可以把鼠标移动位置坐标写到StatusBar上，还可以在StatusBar上面添加其它有关信息。
在［工程］/［部件］中引用“Microsoft Windows Common Control 6.0 (SPS)”，在Form 上添加StatusBar（StatusBar1），再在其［属性］中设置为4个窗格，并设置其宽度。程序为：（工程Chapter401－Form08）
Option Explicit
Private Sub refreshScale()
sbScaleBar1.MapExtent.MaxX = Map1.Extent.Right
sbScaleBar1.MapExtent.MinX = Map1.Extent.Left
sbScaleBar1.MapExtent.MaxY = Map1.Extent.Bottom
sbScaleBar1.MapExtent.MinY = Map1.Extent.Top
sbScaleBar1.PageExtent.MinX = Map1.Left / Screen.TwipsPerPixelX
sbScaleBar1.PageExtent.MinY = Map1.Top / Screen.TwipsPerPixelY
sbScaleBar1.PageExtent.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX
sbScaleBar1.PageExtent.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY
sbScaleBar1.Refresh
StatusBar1.Panels(1).text = "比例 1 : " & Format$(sbScaleBar1.RFScale, "###,###,###,###,###")
End Sub
Private Sub Map1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim pt As New MapObjects2.Point
Set pt = Map1.ToMapPoint(x, y)
StatusBar1.Panels(2).text = " x= " & pt.x
StatusBar1.Panels(3).text = " y= " & pt.y
'm_mapTip.MouseMove x, y 'TIPTEXT程序用
End Sub
Private Sub Map2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim pt As New MapObjects2.Point
Set pt = Map1.ToMapPoint(x, y)
StatusBar1.Panels(2).text = " x= " & pt.x
StatusBar1.Panels(3).text = " y= " & pt.y
End Sub
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
Set Map1.Extent = Map1.TrackRectangle
ElseIf Button = vbRightButton Then
Map1.Pan
End If
End Sub
Private Sub Map1_AfterLayerDraw(ByVal Index As Integer, ByVal canceled As Boolean, ByVal hdc As stdole.OLE_HANDLE)
Call refreshScale
End Sub
Sub DrawLayer()
Dim dc As New DataConnection
Dim layer As MapLayer
dc.Database = App.Path + "\..\" + "Mexico"
If Not dc.Connect Then
MsgBox "在指定的文件夹下没找到图层数据文件！"
End
【】GIS系统建设项目技术开发合同-样例【】
合同登记编号： 技术开发合同 项目名称：FF 地理信息平台 项目编号： 合同编号： 委托人： （甲方） FF 信息中心 研究开发人： （乙方） AA 股份有限公司 签订地点： TT 市 签订日期： 2014 年 11 月 5 日
依据《中华人民共和国合同法》及其他有关法律法规，遵循平等、自愿、公平和诚实信用的原则，甲、乙双方就FF地理信息平台升级及建设发展系统项目相关事项达成一致意见，签订本合同。 一、标的技术的内容、范围及要求 （一）项目目标 根据高新区在“十二五”信息化规划中“智慧园区”建设的总体要求，结合高新区地理信息系统建设和应用现状，制定高新区基础地理信息数据入库、更新、管理、交换和共享应用的政策制度体系和技术标准，整理、入库高新区现有基础空间数据和规划、国土、重点项目和产业经济等建设发展业务数据，在现有地理信息系统基础上升级部署统一的基础GIS平台，搭建高新区地理信息共享平台，为高新区构建一个以高新区基础地理空间数据为核心，以完善的地理空间数据管理体系和服务体系为主要结构的面向高新区政府、企业和公众用户的开放式的空间信息服务平台。并在此平台之上，以真实的三维场景为底图，实现招商项目从项目规划、土地利用、建设过程和经济效益等全生命周期的信息查询、展示、统计和管理，进行不同阶段的数据产生、数据流转及数据共享与展示，为高新区的项目管理，部门间的数据共享，以及领导的分析决策提供强有力的支撑 （二）建设内容 本项目建设内容为：升级改造高新区现有地理信息系统，参考国家和TT市地理空间框架建设标准规范，并结合高新区地理信息应用实际需要，整合高新区空间信息资源，升级地理信息平台硬件运行环境，搭建高新区地理信息平台，完成高新区“智慧园区”的核心平台建设，为高新区对内政府管理和对外社会服务的各应用系统提供空间资源支撑。并在此之上，建设高新区三维电子地图展示系统、高新区建设发展系统等，为领导城市发展决策提供城市信息化支撑，具体建设内容如下： 2.1整合基础空间数据与建设发展数据资源 通过本项目建设，完成现有基础地图和影像数据更新入库，建设发展专题数据（规划、国土、重点项目、产业经济）收集和入库。
数据中心运维管理框架
6.2数据中心运维管理框架 6.2.1.运维管理框架4Ps概述 所谓数据中心运维管理框架是指管理一个数据中心所使用的方法与手段的总称。那么，应该用什么样的方法与手段来管理数据中心呢?在此，信息技术基础架构库(InformationTechnologyInfrastructureLibrary，ITIL)给出了一个比较好的管理框架，即所谓的4Ps。数据中心运维管理框架如图6-3所示。 图6-3数据中心运维管理框架 1.人员 人员是数据中心运维管理的基础，也是数据中心运维管理的核心。一个好的数据中心运维管理框架，少不了合适的技术和管理人员。从前面数据中心运维管理概述中，可以看到数据中心所需要管理的对象，包括基础设施、IT设备、系统与数据、管理工具和人员等。只有具备相应知识背景与管理经验的人，才能有效地整合上述资源，为客户提供符合质量与合同要求的IT服务。因此，在考虑建设数据中心运维管理框架时，必须要考虑到：如何建立起一套科学合理的包括选、用、培养、考核及解聘的人员管理生命周期;如何通过合理的组织架构设计与人员分工，最大限度地发挥个人的主观能动性，为组织目标贡献力量等。 2.流程
流程是数据中心运维管理质量的保证。作为客户IT服务的物理载体，数据中心存在的目的就是保证服务可以按质、按量地提供。服务与产品有着许多的不同，其中最核心的不同在于服务本身是看不见、摸不着的，但又是能通过服务商与客户的互动为客户所感受到的。为确保最终提供给客户的服务是符合服务合同的要求，数据中心需要把现在的管理工作抽象成不同的管理流程，并把流程之间的关系、流程的角色、流程的触发点、流程的输入与输出等进行详细定义。通过这种流程的建立，一方面可以使数据中心的人员能够对工作有一个统一的认识，更重要的是通过这些服务工作的流程化使得整个服务提供过程可被监控、管理，形成真正意义上的“IT服务车间”。 3.产品 产品是数据中心运维管理的加速器。数据中心运维管理涉及的对象庞杂，且重复性工作较多。若完全依靠人工去完成这些工作，一方面对人员的技能与数量有较高的要求，另一方面在工作质量的保证方面也存在风险。为此，越来越多的数据中心在开展运维管理工作时使用大量工具，目的是通过这些工具的部署取代一些监控、操作、配置文件、工作流管理等大量重复性工作，最终实现提升运维水平、降低运维风险、减少运维成本的目的。 4.服务商 服务商是数据中心运维管理的支持者。作为专业化的数据中心运维管理，有效地整合数据中心管理对象，并最终为用户提供专业化的服务才是数据中心服务提供者的核心价值所在。而且，数据中心运维管理中涉及了太多不同种类的设备，数据中心也不可能把所有的技术与管理工作独自承担。聘用一批既懂变压器、发电机、UPS，又了解空调、消防、防火设备，同时还精通IT相关软硬件的人员，对于任何一个企业或机构均是极大的成本支出。所以，数据中心需要与许多设备供应和服务提供商建立良好的战略合作关系。 6.2.2.运维管理的人员要求 如前所述，人员既是数据中心运维管理的基础，也是数据中心运维管理的核心。一个数据中心组建团队时应注意什么呢?以下重点就人员技能、人员分工与人员管理三个方面谈一下数据中心运维管理方面的人员要求。 1.人员技能
常用工具软件期末考试试题及部分答案
精品文档 《 常用工具软件 》课程试卷 一、单选题（2分*10=20分） 1. Winamp 媒体播放器不能支持的音频格式为：（D ） A. MP3 B. MP2 C. XM D. RM 12 2. 超级解霸全屏显示的快捷键为：（A ） A. Ctrl+Home B. Shift+Home C. Ctrl+C D. Shift+C 3.使用SnagIt 进行屏幕捕捉时，如果希望捕捉一个菜单的一部分菜单选项，应该使用以下哪种模式：( B ) A.屏幕模式 B. 区域模式 C. 窗口模式 D. 活动窗口模式 4.在使用防毒软件Norton AntiVirus 时，隔离区中的文件与计算机的其他部分相隔离，它们（ A ） A.无法进行传播或再次感染用户的计算机 B.可以进行传播或再次感染用户的计算机 C.无法进行传播，但能再次感染用户的计算机 D.可以进行传播，但不能再次感染用户的计算机 5.用ACDSee 浏览和修改图像实例时，用户可以对图片进行修改的类型为：（ C ） A.颜色、透明度 B.颜色、形状及文件格式 C.颜色、透明度、形状及文件格式 D.透明度、形状及文件格式 6.SnagIt 提供的捕获对象为：（B ） A.【视频捕获】、【图像捕获】、【音频捕获】、【文字捕获】和【网络捕获】 B.【图像捕获】、【文字捕获】、【视频捕获】、【网络捕获】和【打印捕获】 C.【图像捕获】、【音频捕获】、【网络捕获】、【视频捕获】和【打印捕获】 D.【视频捕获】、【文字捕获】、【音频捕获】、【网络捕获】和【打印捕获】 7.WinRAR 是一个强大的压缩文件管理工具。它提供了对RAR 和ZIP 文件的完整支持，不能解压（ B ）格式文件 A.CAB B.ArP C. LZH D. ACE 8.豪杰超级解霸3000的多功能调节，可对影片的（A ）进行任意调节。 A.色差、亮度、播放速度以及声音的左声、右声、立体声和立体混合声 B.色差、透明度、形状及文件格式 C.亮度、播放速度、形状及文件格式 D.声音的左声、右声、立体声、立体混合声和文件格式 9.RealOne Player 提供了（ C ）种播放模式。 A. 1 B. 2 C. 3 D. 4 10.在以下选项中，网际快车（FlashGet ）不具有的功能为：（ D ） A.断点续传 B.多点连接 C.镜像功能 D.加快网速 三、填空题（2分*20空=20分） 1、软件安装类型可分为三种_____________、________________、___________________。 2、列出三个常用的下载工具软件名称_____________、________________、___________________。 3、列出三个常见的图像格式_____________、________________、___________________。 4、列出三个常用的视频播放软件名称_____________、________________、 得分 评分人 得分 评分人 线 订 装 班级： 姓名： 学号：
质量管理工具和办法
精心整理 质量管理工具和方法 第一节质量控制工具和方法 一、调查表 （一）定义 调查表（Data-collectionForm ）：又称检查表、核对表、统计分析表，是用来系统地收集和积累数据，确认事实，并对数据进行粗略整理和分析的统计图表。 （二）种类 在现场质量管理中，可根据收集数据的目的和数据类型等，自行设计所用的表格，常用的调查1． 23而 4（1（2（3 （4 （5有综合性。为了能够真实反映产品质量波动的真实原因和变化规律，必须对质量数据、意见等进行适当地归类和整理，这种方法也被称为分层法。分层法又叫分类法、分组法，是指按照一定标志，把搜集到的大量有关某一特定主题的统计数据、意见等加以归类、整理和汇总。 （二）目的和用途 分层的目的在于把杂乱无章和错综复杂的数据和意见加以归类汇总，使之更能确切地反映客观事实。分层的目的不同，分层的标志也不一样。 分层的原则是：同一层次内的数据波动（意见和观点差别）幅度尽可能小，层与层之间的差别尽可能大。这样才能达到归类汇总的目的。 基于不同的分层标志，有多种分层方法，常用的分层标志有5M1E 、时间、意见和观点等，可根据具体情况灵活选用和细分，也可以在质量管理活动中不断开发出新的分层标志。
分层法常用于归纳整理所搜集到的统计数据，或归纳汇总由“头脑风暴”法所产生的意见和想法。分层法常与其他方法结合起来应用，如分层直方图法、分层排列图法、分层控制图法、分层散布图法、分层因果图法和分层调查表法等等。 （三）应用程序 分层法应用过程包括以下步骤： 1．收集数据和意见； 2．将采集到的数据或意见根据目的不同选择分层标志； 3．分层； 4．按层归类； 5．画分层归类图。 三、因果图（CauseandEffectDiagram） QC 1 2 3 4 5 1 2 3 4 5 （一）定义 排列图又称为帕累托图，它是将质量改进项目从重要到次要进行排序的一种图示技术。排列图由一个横坐标，两个纵坐标、几个按高低顺序排列的矩形和一条累计百分比折线组成。如图10-3所示。 排列图建立在帕累托原理的基础上。意大利经济学家帕累托研究社会财富分布状况时发现：在社会中，拥有财富最大部分者只占总体人口的较小百分比，而大多数的人只拥有财富的较小部分，即“关键的少数和次要的多数”原理。美国质量管理学家朱兰最先把这一原理运用到质量改进活动之中，同社会财富的分布状况类似，在质量改进的项目中，其中的少数部分起着主要的、决定性的作用，通过区分“关键的少数和次要的多数”，就可找到最具改进潜力的问题，从而用最小的努力获得最大的改进。 （二）目的和用途 排列图有两个主要作用，一是按重要顺序显示出每个质量改进项目对整个质量问题的影响和作
校企共建GIS实验室战略合作合同协议范本模板
甲方：___________________________ 乙方：___________________________ 为充分发挥校企双方优势，发挥职业技术教育，向企业输送更多高素质的应用型技能人才，同时也为技工类毕业生提供更多的就业机会，实现教学与实践挂钩，双方建立稳定的校企合作关系，促进互利双赢，在平等自愿的基础上，经双方友好协商，现就校企合作事项达成如下协议： 一、合作方式及内容 （一）培训内容 “6+1”GIS教育合作方案，即_________个主要方面 + _________个高端论坛，具体如下： ①教学平台共建、②高校师资培训、③科技成果转化 ④校园科技活动、⑤专业技术认证、⑥就业促进工程 高等院校地理信息系统（GIS）论坛 ①、教学平台共建 1）共建 GIS人才培养基地。中地数码根据高校的学科情况及教学现状，向高校提供教学、科研所需要的GIS软件，并提供必要的技术支持。共建 GIS人才培养基地在一定程度上解决了高校GIS实验软件数量不足的问题，帮助学校实现了“学校所教即社会所用”的目标。 2）教学（生产）实习基地。中地数码为众多高等院校提供了高校实习基地，有利于学生动手能力的提高。 3）网络教学平台。为了让高校师生不出校门即可学习企业最新的培训课程，中地数码搭建了国内先进的网络学习及远程教育平台，为高校的GIS 教育提供了巨大的支持。 ②、高校师资培训 1）高校教师暑期免费培训班。 为了支持和帮助各高校的师资队伍建设，中地数码每年暑期定期举办高校教师免费现场培训班，培训班开设MapGIS 基础平台、二次开发等课程，每期培训班课时均在_________课时以上，连续_________年的暑期培训班共培训高校师生_________余人次，为高校GIS专业师资队伍的建设提供了有力保障。
gis软件开发
《gis软件开发》（2013-2014学年第二学期） 专业：地理信息科学 姓名：李金超
姓名：1126104252 实验人：李金超 实验时间：2014年6月3日---2014年6月12日 实验目的：（1）了解和掌握基于ArcGIS平台和.NET编程环境进行GIS二次开发的基础知识。 （2）熟悉vs软件，建立ArcGIS Engine 应用程序框架，实现地图浏览和添加shp数据和实现窗口联动的功能。 实验环境：在Windows XP环境下，使用C#语言，在Visual Studio 2010中进行GIS软件设计开发，程序的编程。 实验内容： 实验原理：（1）Visual studio 2010(简称VS)是一个基本完整的开发工具集，它包括整个软件生命周期中所需要的大部分工具，如UML工具、代码管控工具、集成开发环境等。本实验使用Visual Studio 2010版本。VS是使用C#语言进行程序编码的良好开发环境，对C#语言和。 （2）ArcGIS Engine是ArcObjects组件跨平台应用的核心集合，它提供多种开发的接口，可以适应C++等开发环境。开发者可以使用这些组件来开发定制的GIS和地图应用。 （3）使用ArcGIS Engine在Visual studio 环境中二次开发GIS程序，可以使用程序创建向导来建立开发程序的框架，并在Visual studio 集成开发环境中使用ArcGIS Engine 提供的控件来建立基于窗体的应用程序，同时添加ArcGIS Engine组件并基于组件编写GIS应用系统。 实验步骤：
1、新建项目 启动VS2010，选择“文件|新建|项目”，在项目类型中选择Visual C#，再选择Windows 应用程序模板，输入名称“My Map”，点击确定。 2、添加控件 选择工具箱中的“菜单和工具栏|StatusStrip(状态栏)”，将其拖入到窗体。 选择工具箱中的“ArcGIS Windows Forms”节，将“AxToolbarControl”控件拖入窗体，并将其属性中的Dock 设置为Top。 选择工具箱中的“容器|SplitContainer(容器)”拖入窗体，并将其属性中的Dock 设置为Fill。将TabControl 控件拖入Panel1，将Alignment 属性设置为Bottom，Dock 属性设置为Fill。点击TabPages 属性右边的按钮，弹出TabPage 集合编辑器，将tabPage1 的Name 设置为“Layer”，Text 设置为“图层”；将tabPage2 的Name 设置为“Property”，Text 设置为“属性”。如下所示：
云计算数据中心的运维管理
云计算数据中心的运维管理 现代信息中心已成为人们日常生活中不可缺少的部分，因此信息中心机房设备的运行正常与否就非常关键。在数据中心生命周期中，数据中心运维管理是数据中心生命周期中最后一个、也是历时最长的一个阶段。加强对云计算运维管理的要点以及相应改进方面措施的研究与探讨，以此不断提高IT运维质量，实现高效的运维管理。这就给运维是否到位提出了严格要求。 1 运维在机房中的地位 在数据中心生命周期中，数据中心运维管理是数据中心生命周期中最后一个、也是历时最长的一个阶段。数据中心运维管理是，为提供符合要求的信息系统服务，而对与该信息系统服务有关的数据中心各项管理对象进行系统地计划、组织、协调与控制，是信息系统服务有关各项管理工作的总称。数据中心运维管理主要肩负合规性、可用性、经济性、服务性等四大目标。 在信息中心机房配备有运维人员，但大都是“全才”的，即什么都管，尤其是对供电系统大都是由主机运维的人员代管。当电源系统出故障时，此代管人员一问三不知，甚至连配电柜门都没开过。这实际上就是把机房的运维放在了一个次要的地位。 当然也有的地方有所分工，看似重视，实际上也没得到真正地重视。比如说机房设备长时间一直运行正常，这时如果运维人员提出要增添运维方面的测量设备，有的领导就认为多余，很难得到批准。但他不知道机房设备所以长时间一直运行正常，正是由于这些运维人员的细心维护和努力保养所获得的。并不是这些人员每天闲着无事可干，他们的这些工作一般是领导看不见的。比如同样多款的UPS在同样的环境条件下，在某卫星地面站就极少出故障，而在同系统别的地方机房同一家同规格的机器就故障连连。原来是前者的运维人员每天都在细心观察和分析机器面板LCD上显示的数据，一旦发现异常苗头及时采取措施;而后者只限于每天抄写这些数据就算完成任务，使异常苗头不断积累，以致于导致故障。比如断路器在额定闭合状态发现触点处温度高了，就要检查是不是电流过大到超过额定值，如果不是就要检查触点接触是否牢靠，是否需要再紧固一下。这样一来，故障隐患就排除了。如果一直不管不问久而久之就会导致跳闸而使系统崩溃。这都是一些小的动作，都是在巡查中顺便做的事情。所以同是运维人员在巡查，但前者在做事而后者只是走马观花。这就是数据中心可靠与不可靠的区别。 运维人员就像幼儿园的保育员和老师。孩子交到幼儿园后，起主要作用的就是保育员和老师，这时保育员和老师就是主体。机器就好比是幼儿园的孩子，孩子是否健康成长，机器是否正常运行，除去本身的健康(可靠性质量)状况外，那就是运维人员的责任了。由于云计算的要求弹性、灵活快速扩展、降低运维成本、自动化资源监控、多租户环境等特性，除基于ITIL(IT 基础设施库)的常规数据中心运维管理理念之外，以下运维管理方面的内容，需要我们加以重点关注。 2 云计算数据中心运维管理的要点 (1)理清云计算数据中心的运维对象 数据中心的运维管理指的是与数据中心信息服务相关的管理工作的总称。云计算数据中心运维对象一般可分成5大类： ①机房环境基础设施 这里主要指的是为保障数据中心所管理的设备正常运行所必需的网络通信、供配电系统、环境系统、消防系统和安保系统等。这部分设备对于用户来说几乎是透明的，比如大多数用
常用工具软件期末考试试题及部分答案汇编
学习-----好资料 《 常用工具软件 》课程试卷 一、单选题（2分*10=20分） 1. Winamp 媒体播放器不能支持的音频格式为：（D ） A. MP3 B. MP2 C. XM D. RM 12 2. 超级解霸全屏显示的快捷键为：（A ） A. Ctrl+Home B. Shift+Home C. Ctrl+C D. Shift+C 3.使用SnagIt 进行屏幕捕捉时，如果希望捕捉一个菜单的一部分菜单选项，应该使用以下哪种模式：( B ) A.屏幕模式 B. 区域模式 C. 窗口模式 D. 活动窗口模式 4.在使用防毒软件Norton AntiVirus 时，隔离区中的文件与计算机的其他部分相隔离，它们（ A ） A.无法进行传播或再次感染用户的计算机 B.可以进行传播或再次感染用户的计算机 C.无法进行传播，但能再次感染用户的计算机 D.可以进行传播，但不能再次感染用户的计算机 5.用ACDSee 浏览和修改图像实例时，用户可以对图片进行修改的类型为：（ C ） A.颜色、透明度 B.颜色、形状及文件格式 C.颜色、透明度、形状及文件格式 D.透明度、形状及文件格式 6.SnagIt 提供的捕获对象为：（B ） A.【视频捕获】、【图像捕获】、【音频捕获】、【文字捕获】和【网络捕获】 B.【图像捕获】、【文字捕获】、【视频捕获】、【网络捕获】和【打印捕获】 C.【图像捕获】、【音频捕获】、【网络捕获】、【视频捕获】和【打印捕获】 D.【视频捕获】、【文字捕获】、【音频捕获】、【网络捕获】和【打印捕获】 7.WinRAR 是一个强大的压缩文件管理工具。它提供了对RAR 和ZIP 文件的完整支持，不能解压（ B ）格式文件 A.CAB B.ArP C. LZH D. ACE 8.豪杰超级解霸3000的多功能调节，可对影片的（A ）进行任意调节。 A.色差、亮度、播放速度以及声音的左声、右声、立体声和立体混合声 B.色差、透明度、形状及文件格式 C.亮度、播放速度、形状及文件格式 D.声音的左声、右声、立体声、立体混合声和文件格式 9.RealOne Player 提供了（ C ）种播放模式。 A. 1 B. 2 C. 3 D. 4 10.在以下选项中，网际快车（FlashGet ）不具有的功能为：（ D ） A.断点续传 B.多点连接 C.镜像功能 D.加快网速 三、填空题（2分*20空=20分） 1、软件安装类型可分为三种_____________、________________、___________________。 2、列出三个常用的下载工具软件名称_____________、________________、___________________。 3、列出三个常见的图像格式_____________、________________、___________________。 4、列出三个常用的视频播放软件名称_____________、________________、 得分 评分人 得分 评分人 线 订 装 班级： 姓名： 学号：
四川省建设工程合同备案管理信息系统操作手册
四川省建设工程合同备案管理信息系统 操作手册 四川省住房和城乡建设厅 2018年1月
目录 1.系统运行环境 (1) 1.1系统支持 (1) 1.2最低硬件配置 (1) 1.3设置IE (2) 2.业务功能 (3) 2.1系统登录 (3) 2.2造价企业合同备案 (6) 2.2.1合同备案 (6) 2.2.2合同变更 (10) 2.3施工企业合同备案 (12) 2.3.1施工总承包合同备案 (12) 2.3.2专业承包合同备案 (12) 2.3.3劳务分包合同备案 (13) 2.4监理企业合同备案 (13) 2.5招标代理机构合同备案 (13) 2.6勘察单位合同备案 (13) 2.7设计单位合同备案 (14) 2.8项目管理合同备案 (14) 2.9其他工程类型合同备案 (14) 2.10工程总承包（EPC）合同备案 (14) 1.系统运行环境 1.1系统支持 本系统需在windows操作系统环境下运行，浏览器版本Internet Ex?plorer9.0或以上版本。 1.2最低硬件配置 CPU：P4 2.0以上，内存：大于512M，低于此配置，会影响系统运行速度，甚至无法正
常使用。 1.3设置IE 登录本系统时，将四川省住房和城乡建设厅网址（https://www.wendangku.net/doc/5712743512.html,）加入为可信任站点。步骤如下： 1)打开IE浏览器，点击菜单栏的工具选项，在下拉列表中选择 2)在弹出的窗口中选择插页，选择然后点击按钮。 3)在弹出窗口中，将本系统网址添加到区域中，点击按钮，再点击 按钮即可。如图1-3所示：
2.业务功能 2.1系统登录 打开IE浏览器（Internet Explorer）,在地址栏中输入“https://www.wendangku.net/doc/5712743512.html,/”，按回车键，进入四川省住房和城乡建设厅网站首页，在界面中点击“建筑市场监管与诚信一体化平台”，如下图所示：
质量管理常用的工具及方法
学习导航 通过学习本课程，你将能够： ●掌握因果图和排列图的使用法； ●掌握关联图的特点、分类和绘制法； ●熟悉系统图的应用围和绘制法； ●了解PDPC发的特点、份额里和应用围； 质量管理的常用工具与手法 一、因果图和排列图 1.因果图 因果图又名“鱼刺图”，由日本著名的质量管理专家川兴发明。因果图是用来思考和显示已知结果及潜在原因之间关系的图，通过对因果关系进行分析和表达，便于解决问题。 因果图的程序 一般而言，因果图的程序主要有五个： 第一，简明扼要地规定结果。 第二，规定可能原因的主要类别。 第三，在右边框理画出结果，在左边画出主要类别，作为结果框的输入。 第四，寻找所有下层次的原因，并画在相应的主枝上，然后继续寻找。 第五，从最高层次原因中选取和识别少量的、看起来对结果影响最大的原因，并对它们开展进一步的研究。 因果图的应用 图1所示的是因果分析图。
图1 因果分析案例图 从图1可见，首先要画一个粗箭头，把问题放到右边，作为结果框的输出。如电灯不亮，需要从灯泡问题、电源问题、电线问题、开关问题等面进行分析。然后再逐一细查原因，步步深化。灯泡原因分析完后，再用同样的办法从电源上、电线上、开关上分析原因。这种分析的思路就是因果图的思路。 2.排列图 排列图又名排队图，是为了对最主要到最次要的项目进行排列而作出的简单图示。 排列图的作用 一般而言，排列图主要有三个用途： 第一，按重要性顺序显示出每个项目对整个问题的作用。 第二，提出识别改进的机会。 第三，用最小的努力获得最大的成功。 排列图的应用 【案例】 快速热水器的排列图 2000年，某热水器厂商开发出了一种快速热水器产品，这种热水器打开5秒钟后，就能完成将水加热，而且可以持续24小时源源不断地供应热水。但在试验 过程中，出现了一个问题，即关键发热零件有时会突然烧掉。 要查出上述问题的原因，可以用排列图表进行分析。
GIS技术协议全解
山钢股份莱芜分公司炼钢厂 35kV配电室高压柜改造工程 35kV气体绝缘金属封闭开关设备（GIS） 技术协议 甲方：山钢股份莱芜分公司炼钢厂 乙方：上海明电舍长城开关有限公司 二零一五年十二月
一、工程概述 炼钢老区35kV配电室为2002年建设，是炼钢区域重要的变电站，两路35kV 电源引自110kV变电站，运行2台25 MV A 35/6kV主变，35kV主接线采用单母线分段接线，35kV配电装置采用金属封闭式开关柜户内布置形式，目前已投运14年，设备老化严重，近年来连续发生事故，给炼钢乃至整个莱钢的生产造成较大影响。 根据莱钢运营管理部会议规划，炼钢老区35kV变电站35kV系统配电设备更新为气体绝缘金属封闭开关设备（GIS），以提高变电站的供电可靠性，主变压器及6kV配电设备均利旧。改造后35kV系统有8间隔；其中进线2间隔、主变2间隔、母联1间隔、提升1间隔、过渡2间隔、PT 2间隔。详见技术规格书附图SL2038D1-《炼钢厂35kV配电室高压柜改造工程GIS主接线系统图》。 二、环境条件 下列条件为莱钢现有实际条件，卖方如有特殊要求，可根据自己的工艺及设备情况，在投标文件中提出要求。 极端气温-14.7℃~38.0℃ 年平均气温13.4℃ 一月份平均气温-1.6℃ 七月份平均气温31.2℃ 采暖室外温度-7.8℃ 一月份平均相对湿度66.6% 七月份平均相对湿度74.6% 全年平均气压98720Pa 一月份平均气压99670Pa 七月份平均气压97540Pa 海拔高度〈1000米 地震烈度7度 三、技术要求: 本技术规格书提出的是最低限度的技术要求，并未对一切技术细节做出规定，也未充分引述有关标准和规范的条文。供方应提供符合本技术规格书和国家标准及行业标准的产品。 1.执行标准 按本技术规格书供货的设备，均应符合下列标准的最新版本。 GB156 标准电压 GB311.1 高压输变电设备的绝缘配合 GB7674 72.5kV及以上气体绝缘金属封闭开关设备 GB11022 高压开关设备通用技术条件 GB1984 交流高压断路器 GB1985 交流高压隔离开关和接地开关 GB1207 电压互感器 GB1208 电流互感器 GB11032 交流无间隙金属氧化物避雷器 DL/T402 交流高压断路器定货技术条件 DL/T486 交流高压隔离开关和接地开关订货技术条件 DL/T593 高压开关设备的共用订货技术条件
云计算数据中心的运维管理-培训课件
望采纳 云计算数据中心的运维管理 现代信息中心已成为人们日常生活中不可缺少的部分，因此信息中心机房设备的运行正常与否就非常关键。在数据中心生命周期中，数据中心运维管理是数据中心生命周期中最后一个、也是历时最长的一个阶段。加强对云计算运维管理的要点以及相应改进方面措施的研究与探讨，以此不断提高IT运维质量，实现高效的运维管理。这就给运维是否到位提出了严格要求。 1 运维在机房中的地位 在数据中心生命周期中，数据中心运维管理是数据中心生命周期中最后一个、也是历时最长的一个阶段。数据中心运维管理是，为提供符合要求的信息系统服务，而对与该信息系统服务有关的数据中心各项管理对象进行系统地计划、组织、协调与控制，是信息系统服务有关各项管理工作的总称。数据中心运维管理主要肩负合规性、可用性、经济性、服务性等四大目标。 在信息中心机房配备有运维人员，但大都是“全才”的，即什么都管，尤其是对供电系统大都是由主机运维的人员代管。当电源系统出故障时，此代管人员一问三不知，甚至连配电柜门都没开过。这实际上就是把机房的运维放在了一个次要的地位。 当然也有的地方有所分工，看似重视，实际上也没得到真正地重视。比如说机房设备长时间一直运行正常，这时如果运维人员提出要增添运维方面的测量设备，有的领导就认为多余，很难得到批准。但他不知道机房设备所以长时间一直运行正常，正是由于这些运维人员的细心维护和努力保养所获得的。并不是这些人员每天闲着无事可干，他们的这些工作一般是领导看不见的。比如同样多款的UPS在同样的环境条件下，在某卫星地面站就极少出故障，而在同系统别的地方机房同一家同规格的机器就故障连连。原来是前者的运维人员每天都在细心观察和分析机器面板LCD上显示的数据，一旦发现异常苗头及时采取措施;而后者只限于每天抄写这些数据就算完成任务，使异常苗头不断积累，以致于导致故障。比如断路器在额定闭合状态发现触点处温度高了，就要检查是不是电流过大到超过额定值，如果不是就要检查触点接触是否牢靠，是否需要再紧固一下。这样一来，故障隐患就排除了。如果一直不管不问久而久之就会导致跳闸而使系统崩溃。这都是一些小的动作，都是在巡查中顺便做的事情。所以同是运维人员在巡查，但前者在做事而后者只是走马观花。这就是数据中心可靠与不可靠的区别。 运维人员就像幼儿园的保育员和老师。孩子交到幼儿园后，起主要作用的就是保育员和老师，这时保育员和老师就是主体。机器就好比是幼儿园的孩子，孩子是否健康成长，机器是否正常运行，除去本身的健康(可靠性质量)状况外，那就是运维人员的责任了。由于云计算的要求弹性、灵活快速扩展、降低运维成本、自动化资源监控、多租户环境等特性，除基于ITIL(IT基础设施库)的常规数据中心运维管理理念之外，以下运维管理方面的内容，需要我们加以重点关注。 2 云计算数据中心运维管理的要点 (1)理清云计算数据中心的运维对象 数据中心的运维管理指的是与数据中心信息服务相关的管理工作的总称。云计算数据中心运维对象一般可分成5大类： ①机房环境基础设施 这里主要指的是为保障数据中心所管理的设备正常运行所必需的网络通信、供配电系统、环境系统、消防系统和安保系统等。这部分设备对于用户来说几乎是透明的，比如大多数用户都不会忽略数据中心的供电和制冷。因为这类设备如果发生意外，对依托于该基础设施的应用来说是致命的。 ②数据中心所应用的各种设备
常用工具软件考试试题
常用工具软件期末试题 一、选择题 1.关于DiskGenius 软件，以下说法正确的是（） A、分割分区时原分区至少要包括一个文件或文件夹，不能为空 B、盘符相邻且文件系统格式相同的两个分区一定可以进行合并操作 C、删除分区时，删除后的分区将在分区信息栏中呈灰色显示并标记为“未分配” D、在调整分区容量时，簇值越大，磁盘空间利用率越高，磁盘性能越好 2、使用鲁大师软件不能实现的功能是（） A、鉴别CPU的真假 B、测试计算机的性能优劣 C、检测系统是否存在安全漏洞 D、测试计算机的CPU温度、风扇转速、电压是否在正常范围内 3、在WINDOWS优化大师中要调整多操作系统的默认启动顺序，应使用的优化选项是（） A、文件系统优化 B、系统个性设置 C、桌面菜单优化 D、开机速度优化 4、PARTITION MAGIC中，关于合并分区的说法正确的是（） A、一个物理硬盘上位置连续的两个分区都可以执行合并操作 B、一个物理硬盘上盘符连续的两个分区都可以执行合并操作 C、只有文件系统格式相同的分区才能完成合并操作 D、需合并的分区上至少要有两个以上的文件或文件夹才能完成合并操作 5、新硬盘购买后，应进行的第一个操作是（） A、硬盘高级格式化 B、硬盘分区 C、装入操作系统 D、查杀硬盘是否有计算机病毒 6、以下情况中不需要对硬盘进行分区操作的是（） A、新购买的硬盘 B、病毒严重感染，分区表遭到破坏 C、计算机运行软件速度太慢 D、各个逻辑盘空间分配不合理 7、使用PARTITION MAGIC 前，应关闭的软件包括（） A、江民杀毒软件KV2008 B、诺顿磁盘医生NDD C、磁盘压缩工具DRIVE SPACE D、以上全是 8、NORTON GHOST 生成的映像文件的扩展名是（） A. .bak B .gho C. .dat D. .sys 9、关于NORTON GHSOT2003的功能，下列说法错误的是（） A、可以运行在DOS或WINDOWS操作系统下 B、能够将映像文件保存到NTFS分区中，支持某些DVD驱动器 C、支持FAT16/32、OS/2等分区的硬盘备份 D、不能实现多操作系统的网络安装
建设工程合同管理的方法和手段
建设工程合同管理的方法和手段 (一)健全建设工程合同管理法规，依法管理在培育和发展社会主义市场经济活动中，要根据“依法治国”的方针，充分发挥和运用法律手段调整和促进建筑市场正常运行的重要作用。在工程建设管理活动中，确保工程建设项目从可行性研究、工程项目报建、工程建设项目招标投标、工程建设项目承发包、工程建设项目施工和竣工验收等活动纳入法制轨道。增强发包方和承包方的法制观念，保证工程建设项目的全部活动依据法律和合同办事。建筑法》是我国经济法的重要组成部分。它是我国国民经济支柱产业之一的建筑业基本法。制定和颁布《建筑法》，从而建立、健全我国工程建设法规体系，完善工程建设各项合同管理法规，是培育和发展我国建筑市场经济的客观要求和法律保障。在建立、健全建设工程合同管理法律规范的过程中，各级建设行政主管机关应当在组织学习国家法律和行政法规的基础上，制定出各级地方建设工程合同管理规章配套工作，严格遵照“统一性、严肃性和法定程序的原则”行事。所谓统一性，是指各级建设工程合同管理规章，应与国家《合同法》、国务院颁布的有关条例等建设工程合同管理法规的一致性;而不得有悖；所谓严肃性，是指制定地方规章是一项带有“立法”性的工作。因此，法规中的基本概念、用词和文字表达，必须符合法律和行政法规。否则，必然造成执行中的混乱。所谓法定程序，是指制定地方行政规章时，必须符合全国人大及其常委会的有关决定和国务院的有关规定。否则，把严肃的地方行政法规制定工作，当成“长官意志”的“土政策”披上“合法外衣”的过程，其后果必然造成工程建设领域中合同管理的混乱，从而影响建筑市场经济的良性发展。(二)建立和发展有形建筑市场建立完善的社会主义市场经济体制，发展我国建设工程发包承包活动，必须建立和发展有形的建筑市场。有形建筑市场必须具备三个基本功能，及时收集、存贮和公开发布各类工程信息，为工程交易活动，包括工程招标、投标、评标、定标和签订合同提供服务，以便于政府有关部门行使调控、监督的职能。国务院1998年颁发的《三定方案》对国家工商行政管理局和建设部有关合同管理作出明确规定：国家工商行政管理局：组织管理经济合同;组织规范管理各类市场的经营秩序；组织实施经济合同行政监督，组织查处合同欺诈；建设部：
校企共建GIS实验室战略合作合同协议范本模板
编号：_______________ 校企共建GIS 实验室战略合作协议 甲方：________________________ 乙方：________________________ 签订日期：___ 年____ 月 ____ 日 甲方：________________________________
乙方：________________________________ 为充分发挥校企双方优势，发挥职业技术教育，向企业输送更多高素质的应用型技能人才，同时 也为技工类毕业生提供更多的就业机会，实现教学与实践挂钩，双方建立稳定的校企合作关系，促进互利双赢，在平等自愿的基础上，经双方友好协商，现就校企合作事项达成如下协议： 一、合作方式及内容 （一）培训内容 “6+1”GIS 教育合作方案，即 _______________ 个主要方面+ ____________ 个高端论坛，具体如下： ①教学平台共建、②高校师资培训、③科技成果转化 ④校园科技活动、⑤专业技术认证、⑥就业促进工程 高等院校地理信息系统（GIS）论坛 ①、教学平台共建 1）共建GIS 人才培养基地。中地数码根据高校的学科情况及教学现状，向高校提供教学、科研 所需要的GIS 软件，并提供必要的技术支持。共建GIS 人才培养基地在一定程度上解决了高校 GIS实验软件数量不足的问题，帮助学校实现了“学校所教即社会所用”的目标。 2）教学（生产）实习基地。中地数码为众多高等院校提供了高校实习基地，有利于学生动手能 力的提高。 3）网络教学平台。为了让高校师生不出校门即可学习企业最新的培训课程，中地数码搭建了国 内先进的网络学习及远程教育平台，为高校的GIS 教育提供了巨大的支持。 ②、高校师资培训 1）高校教师暑期免费培训班。 为了支持和帮助各高校的师资队伍建设，中地数码每年暑期定期举办高校教师免费现场培训班，培训班开设MapGIS 基础平台、二次开发等课程，每期培训班课时均在 __________________________________________ 课时以上，连 续___________ 年的暑期培训班共培训高校师生________________ 余人次，为高校GIS专业师资队伍的建 设提供了有力保障。
15.2 《常用工具软件》期末考试
《常用工具软件》期末考试试卷 班级：姓名：分数： 一、选择题（每题2分，共50分） 1、ACDSee不可以浏览的文件格式是（）。 A.音频文件 B.JPEG格式 C.视频文件 D.文本文档 2、暴风影音截图后保存的文件格式是（）。 A.png B.avi C.jpg D.ppt 3、在下列文件类型中，不属于视频文件格式的是（）。 A.asf B.wma C.mov D.rm 4、下列操作不能在GoldWave软件中完成的是（）。 A.编辑音频文件 B.从视频文件中提取声音 C.音、视频格式转换 D.为声音添加特效 5、微软公司开发的流媒体格式是( ) A．ASF格式B．RealVideo格式C．QuickTime格式D．FLV格式6、在Goldwave中打开某立体声文件后，窗口中的绿色波型代表的是（） A．左声道B．右声道C．重低音 D．伴奏音乐 7、下列不属于金山词霸所具有的功能的是：（） A、屏幕取词 B、屏幕划译 C、全文翻译 D、生词本 8、分区魔术师PartitionMagic不具有的功能是( )。 A、创建系统备份 B、创建新分区 C、调整分区大小 D、合并分区 9、在一键GHOST软件中，执行“一键备份系统”后，生成的备份文件名是（）A．C_PAN．GHO B．BEIFEN．GHO C．C．GHO D．由用户指定10、在WinRAR，要对文件进行压缩，应使用的命令是（） A．文件->添加文件到压缩文件中B．命令->添加文件到压缩文件中 C．工具->添加文件到压缩文件中 D．选项->添加文件到压缩文件中 11、在SnagIt中，捕获的视频的保存格式为（） A．MPG B．SWF C．AVI D．MOV
苏州市建设工程合同备案管理系统操作手册(施工单位版)剖析
苏州市建设工程合同备案管理系统操作手册（施工单位版） 苏州市住房与城乡建设局 2015．09
前言 《苏州市建设工程合同备案管理系统》(以下简称“系统”)由江苏省苏州市住房与城乡建设局委托开发，实现对苏州市建设工程合同备案实施监督管理。本系统的主要用户包括苏州市主管部门、苏州市各区县管理部门、建设单位，施工单位等。 本手册希望帮助用户，达到下列的目的： 1、施工单位通过本系统进行合同签订签订，分包合同备案申请及施工合同协议补录
目录 前言 (2) 第一章系统概述 (4) 第一节系统简介 (4) 第二节用户分类 (4) 第二章用户登录 (5) 第一节用户登录 (5) 1．登录 (5) 2．首页 (5) 第三章系统功能详细介绍 (7) 第一节合同协议签订 (7) 1、专业分包协议签订 (7) 1）协议拟定 (8) 2）协议提交 (8) 3）协议导出 (8) 2、专业分包协议变更 (9) 3、专业分包协议注销 (9) 第二节分包合同备案申请 (9) 1、专业分包合同 (9) 1）新增 (10) 2）编辑 (12) 3）申请 (13) 2）撤销上报 (13) 3）打印 (13) 2、劳务分包合同 (13) 第三节施工合同协议补录 (13) 1、过渡期合同备案 (13) 2、市内工程备案补录 (15) 3、省外工程合同补备 (15)
第一章系统概述 第一节系统简介 第二节用户分类 系统用户分为三种类型：苏州市主管部门、建设单位用户，施工单位用户。 本手册适用于施工单位用户参考。 施工单位用户可操作的业务模块有：合同协议签订（专业分包协议签订，专业分包协议变更，专业分包协议注销）；分包合同备案申请（专业分包合同，劳务分包合同）；施工合同协议补录（过渡期合同备案，市内工程备案补录）。
质量管理常用工具
前言 随着中国加入世界贸易组织（WTO），全球经济一体化，市场竞争越来越激烈，而竞争的焦点之一就是质量。做为以质量起家的特大型企业，质量一直是海信关注的重点，经过长期的积累，海信在质量管理方面形成了独特的企业文化，在实践中也获得了社会各界较高的评价。其中，不断地进行质量教育，加强质量培训是其提高质量管理水平的一个重要的手段。 目前，海信在进行质量培训时，通常选用国家统一教材或培训机构自编教材。这些教材面向社会各种类型的组织，其适用范围较广泛，但就某一具体行业或某一具体企业来讲，其针对性相对较差。同时由于教材众多，且专业性较强，不适合在企业内部进行广泛的质量管理基础知识的培训。为此，本教材在参考国家统一教材的基础上，结合集团各公司的实例，对质量管理常用的工具进行了简要介绍。希望通过本教材能使广大的员工掌握一些质量管理的常用方法，并能在实际工作灵活运用，以进一步提高海信产品的质量，提升海信的市场竞争力。 本教材在编写的过程中得到了空调公司、通信公司、股份公司的大力支持，在此表示感谢。 由于编写人员水平所限，本教材不妥之处在所难免，敬请读者指正。 编者 2003-5-6 目录 前言 第一节 PDCA循环 (1) 第二节调查表 (4) 第三节分层法 (7) 第四节排列图 (10) 第五节因果图 (14) 第六节对策表 (20) 第七节直方图 (22) 第八节散布图 (27) 第九节其它常用图表 (29) 质量管理的常用工具
在质量管理的过程中，无论是分析问题还是实施改进措施，正确地使用工具和方法就会起到事半功倍的效果。在质量管理的发展过程中，经过世界各国长期的实践，产生并总结出许多成熟的工具和方法，如质量管理的新、老七种工具等。现在各国较常用的工具和方法有以下几种 一、按新、老七种工具分。 老七种工具是指：调查表、分层法、排列图、因果图、直方图、控制图、散布图。 新七种工具是指：系统图、关联图、亲和图、矩阵图、矢线图（箭条图）、PDPC法（过程决策程序图）、矩阵数据分析法。 二、2000版的ISO9004-4《质量改进指南》推荐的方法有： 亲和图、系统图（树图）、因果图、头脑风暴法、水平对比法、流程图、排列图、控制图、直方图、散布图、调查表。 其中头脑风暴法、水平对比法和流程图在西方国家应用得较多。 以上所列举的每一种工具和方法都有其适用范围和局限，在实际应用的过程中，应根据实际需要选择最适宜的方法。还有一些工具和方法如PDCA循环、简易图表、对策表等并未列入这些工具之列，但也是需要掌握并加以灵活运用。下面简单介绍几种我们日常工作中常用的工具和方法。希望各位读者在掌握这些工具和方法的基本原则和思路后，在应用其解决实际问题的过程中不断地探索，针对不同的问题准确地选择最佳的工具，以更好地解决问题，提高工作质量。 第一节 PDCA循环 一、定义 “PDCA”循环是一种科学的工作思路（程序），其中： P（Plan）—计划：找出所存在的问题，分析产生问题的原因，并找出影响问题的主要原因，针对这些主要原因制定相应的对策措施。 D（Do）—执行：按对策措施的要求予以实施。 C（Check）—检查：检查对策措施的实施结果是否达到预期目标。 A（Action）—处置：根据检查结果，采取必要的措施巩固已取得的成果，对未达到的预期目标进行进一步的改进。 二、目的 明确工作思路，决定工作程序，确保工作形成闭环。 三、特点（见图1-1） 1、循环前进，阶梯上升。 由于多数问题都是由许多的小问题所组成的，一般不可能通过一次“PDCA”循环就完全解决，必须进行不断地循环。而每完成一次“PDCA”循环就能解决一部分问题，比循环前上升到一个更高的水平，如此通过不断地循环，就能一步一步地达到较高的水平。