clsfloodinfodsply.cls

来自「FloodEvaluation-程序是gis方面的程序」· CLS 代码 · 共 107 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsFloodInfoDsply"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

'************************************************************************************************
'*********************** 显示评估信息表                                    ***********************
'*********************** ZHANG Wenjiang, 2004/06/22                       ***********************
'************************************************************************************************

Option Explicit

Dim m_pCommand As ICommand
Dim m_pTool As ITool
Dim m_pSketchTool As ISketchTool
Dim m_pApp As IApplication
Dim m_pEditor As IEditor
Dim m_bSumResultFirst As Boolean

Implements ICommand

Private Property Get ICommand_Bitmap() As esriCore.OLE_HANDLE
  ICommand_Bitmap = frmResources.picV2r.Picture
End Property

Private Property Get ICommand_Caption() As String
  ICommand_Caption = "洪水受灾信息"
End Property

Private Property Get ICommand_Category() As String
  ICommand_Category = "洪损评估"
End Property

Private Property Get ICommand_Checked() As Boolean
  ICommand_Checked = False
End Property

Private Property Get ICommand_Enabled() As Boolean
  ICommand_Enabled = True
End Property

Private Property Get ICommand_HelpContextID() As Long

End Property

Private Property Get ICommand_HelpFile() As String

End Property

Private Property Get ICommand_Message() As String
    ICommand_Message = "洪水受灾信息"
End Property

Private Property Get ICommand_Name() As String
    ICommand_Name = "CustomSketch.SketchTool"
End Property

Private Sub ICommand_OnClick()
    Dim adoCnn As ADODB.Connection
    Set adoCnn = Nothing
    Set adoCnn = ConnectOracle 'ConnectAccess
    
    Call displayFloodInfo(adoCnn)  'NeighborhoodNotation '
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)
On Error GoTo ErrorHandler:
  
    Set m_pApp = hook
    Set m_pCommand = CreateObject("esricore.SketchTool")
    m_pCommand.OnCreate hook
    Set m_pTool = m_pCommand
    Set m_pSketchTool = m_pCommand
    Exit Sub
    
ErrorHandler:
    MsgBox "OnCreate - " & ERR.Description, vbInformation + vbOKOnly, "提示信息"
    Exit Sub
End Sub

Private Property Get ICommand_Tooltip() As String
    ICommand_Tooltip = "洪水受灾信息"
End Property

Public Sub displayFloodInfo(ByRef adoCnn As ADODB.Connection)
    If adoCnn Is Nothing Then
        MsgBox "对不起，数据连接有误"
        Exit Sub
    End If
    
    frmFloodInfoDisplay.Left = (Screen.Width - frmFloodInfoDisplay.Width) / 2
    frmFloodInfoDisplay.Top = (Screen.Height - frmFloodInfoDisplay.Height) / 2
    Set frmFloodInfoDisplay.m_adoCnn = adoCnn
    frmFloodInfoDisplay.Show
End Sub