class.format

来自「客户关系管理系统ASP.NET+VB.NET编程完整程序！」· FORMAT 代码 · 共 37 行

Imports System
Imports System.Collections
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.Reflection

Imports OrmLib

Namespace {0}
    Public Class DataManager : Inherits DataManagerBase

        Public Sub New(ByVal dsn As String)
            MyBase.New(dsn, OrmDataSet.NewDataSet())
        End Sub

        Public Sub New(ByVal connection As SqlConnection)
            MyBase.New(connection, OrmDataSet.NewDataSet())
        End Sub

        Public Sub New(ByVal transaction As SqlTransaction)
            MyBase.New(transaction, OrmDataSet.NewDataSet())
        End Sub

        Friend lookups As lookups

        Friend Function GetLookups() As lookups
            If lookups Is Nothing Then
                lookups = New Lookups(Me.Dsn)
            End If
            Return lookups
        End Function

{1}

    End Class
End Namespace