commonclass.vb

界桩信息管理系统代码,VB写的。。。。。。。

'获得数据库连接
Public Class AppConfiguration
    Shared ConnStr As String = System.Configuration.ConfigurationSettings.AppSettings("ado")

    Public Shared ReadOnly Property ConnectionString()
        Get
            Return ConnStr
        End Get
    End Property
End Class

'图层命名
Public Class MapsConstants

    Public Const LAYERNAME_MereStone = "MereStone"
End Class

'常量类
Public Class ConstClass

    Public Const SelectNodeType_ObjInfor = "MereStone"
End Class

'树节点类
Public Class MereStoneTreeNode
    Inherits TreeNode

    Public mapID As String
    Public bh As String
    Public mc As String

    '界桩地图ID
    Public Property MereStone_MapID() As String
        Get
            Return mapID
        End Get
        Set(ByVal Value As String)
            mapID = Value
        End Set
    End Property

    '界桩编号
    Public Property MereStone_BH() As String
        Get
            Return bh
        End Get
        Set(ByVal Value As String)
            bh = Value
        End Set
    End Property

    '界桩名称
    Public Property MereStone_MC() As String
        Get
            Return mc
        End Get
        Set(ByVal Value As String)
            mc = Value
        End Set
    End Property
    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal _id As Integer, ByVal _bh As String, ByVal _mc As String)
        mapID = _id
        bh = _bh
        mc = _mc
    End Sub
End Class