ordersresultset.designer.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:2.0.50727.312
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.Data


Partial Public Class OrdersResultSet
    Inherits System.Data.SqlServerCe.SqlCeResultSet
    
    Private resultSetConnectionString As String = Nothing
    
    Private sqlCeConnection As System.Data.SqlServerCe.SqlCeConnection = Nothing
    
    Private resultSetOptions As System.Data.SqlServerCe.ResultSetOptions
    
    Public Sub New()
        MyBase.New
        'Create default options
        '
        resultSetOptions = System.Data.SqlServerCe.ResultSetOptions.Scrollable
        resultSetOptions = (resultSetOptions Or System.Data.SqlServerCe.ResultSetOptions.Sensitive)
        resultSetOptions = (resultSetOptions Or System.Data.SqlServerCe.ResultSetOptions.Updatable)
        'To enable design time support, the resultSetConnectionString property needs to switched between a Designtime and Runtime connection string.
        'The design time connection string is used to make a valid connection to the database and retrieve schema information.
        '
        If OrdersResultSetUtil.DesignerUtil.IsDesignTime Then
            'Designtime Connection String
            resultSetConnectionString = "Data Source =""C:\Users\Andy\Documents\Compact Framework Book V2.0\Sample Code\Cha"& _ 
                "pter 7\VB\DisconnectedServiceAgentExample\DisconnectedServiceAgentExample\AppDat"& _ 
                "abase.sdf"""
        Else
            'Runtime Connection String
            resultSetConnectionString = ("Data Source ="  _
                        + (System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase) + "\AppDatabase.sdf;"))
        End If
        'Call Open() to initialize the ResultSet
        '
        Me.Open
    End Sub
    
    Public Sub New(ByVal connectionString As String, ByVal options As System.Data.SqlServerCe.ResultSetOptions)
        MyBase.New
        resultSetConnectionString = connectionString
        resultSetOptions = options
        Me.Open
    End Sub
    
    Public ReadOnly Property Connection() As System.Data.SqlServerCe.SqlCeConnection
        Get
            Return sqlCeConnection
        End Get
    End Property
    
    Public Property OrderId() As Integer
        Get
            Return CType(MyBase.GetInt32(MyBase.GetOrdinal("OrderId")),Integer)
        End Get
        Set
            MyBase.SetInt32(MyBase.GetOrdinal("OrderId"), value)
        End Set
    End Property
    
    Public Property ServerOrderId() As Integer
        Get
            Try 
                Return CType(MyBase.GetInt32(MyBase.GetOrdinal("ServerOrderId")),Integer)
            Catch e As System.InvalidCastException
                Throw New System.Data.StrongTypingException("StrongTyping_CananotAccessDBNull", e)
            End Try
        End Get
        Set
            MyBase.SetInt32(MyBase.GetOrdinal("ServerOrderId"), value)
        End Set
    End Property
    
    Public Property ProductId() As Integer
        Get
            Return CType(MyBase.GetInt32(MyBase.GetOrdinal("ProductId")),Integer)
        End Get
        Set
            MyBase.SetInt32(MyBase.GetOrdinal("ProductId"), value)
        End Set
    End Property
    
    Public Property Quantity() As Integer
        Get
            Return CType(MyBase.GetInt32(MyBase.GetOrdinal("Quantity")),Integer)
        End Get
        Set
            MyBase.SetInt32(MyBase.GetOrdinal("Quantity"), value)
        End Set
    End Property
    
    Public Sub Open()
        Dim sqlCeSelectCommand As System.Data.SqlServerCe.SqlCeCommand
        'Open a connection to the database
        '
        sqlCeConnection = New System.Data.SqlServerCe.SqlCeConnection(Me.resultSetConnectionString)
        sqlCeConnection.Open
        'Create the command
        '
        sqlCeSelectCommand = sqlCeConnection.CreateCommand
        sqlCeSelectCommand.CommandText = "Orders"
        sqlCeSelectCommand.CommandType = System.Data.CommandType.TableDirect
        'Generate the ResultSet
        '
        sqlCeSelectCommand.ExecuteResultSet(Me.resultSetOptions, Me)
    End Sub
    
    Public Sub MoveToRow(ByVal Row As Integer)
        MyBase.ReadAbsolute(Row)
    End Sub
    
    Public Sub DeleteRecord()
        MyBase.Delete
    End Sub
    
    Public Function IsServerOrderIdNull() As Boolean
        Return MyBase.IsDBNull(MyBase.GetOrdinal("ServerOrderId"))
    End Function
    
    Public Sub SetServerOrderIdNull()
        MyBase.SetValue(MyBase.GetOrdinal("ServerOrderId"), System.DBNull.Value)
    End Sub
    
    Public Sub AddOrdersRecord(ByVal ServerOrderId As Integer, ByVal ProductId As Integer, ByVal Quantity As Integer)
        Dim newRecord As System.Data.SqlServerCe.SqlCeUpdatableRecord = MyBase.CreateRecord
        newRecord("ServerOrderId") = ServerOrderId
        newRecord("ProductId") = ProductId
        newRecord("Quantity") = Quantity
        MyBase.Insert(newRecord)
    End Sub
    
    Public Sub Bind(ByVal bindingSource As System.Windows.Forms.BindingSource)
        bindingSource.DataSource = Me.ResultSetView
    End Sub
End Class

Namespace OrdersResultSetUtil
    
    Partial Public Class DesignerUtil
        
        Public Shared Function IsDesignTime() As Boolean
            'Determine if this instance is running against .NET Framework by using the MSCoreLib PublicKeyToken
            Dim mscorlibAssembly As System.Reflection.[Assembly] = GetType(Integer).Assembly
            If (Not (mscorlibAssembly) Is Nothing) Then
                If mscorlibAssembly.FullName.ToUpper.EndsWith("B77A5C561934E089") Then
                    Return true
                End If
            End If
            Return false
        End Function
        
        Public Shared Function IsRunTime() As Boolean
            'Determine if this instance is running against .NET Compact Framework by using the MSCoreLib PublicKeyToken
            Dim mscorlibAssembly As System.Reflection.[Assembly] = GetType(Integer).Assembly
            If (Not (mscorlibAssembly) Is Nothing) Then
                If mscorlibAssembly.FullName.ToUpper.EndsWith("969DB8053D3322AC") Then
                    Return true
                End If
            End If
            Return false
        End Function
    End Class
End Namespace