MS Function UserinModule_FNPM_GET_FREE_USER_FOR_PROFILE
This commit is contained in:
Digital Data - Marlon Schreiber
876
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
876
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
@@ -57,6 +57,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
|
||||
Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable
|
||||
|
||||
Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable
|
||||
|
||||
Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable
|
||||
|
||||
Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation
|
||||
@@ -146,6 +148,9 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
If (Not (ds.Tables("TBPROFILE_GROUP")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBPROFILE_GROUPDataTable(ds.Tables("TBPROFILE_GROUP")))
|
||||
End If
|
||||
If (Not (ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New FNPM_GET_FREE_USER_FOR_PROFILEDataTable(ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")))
|
||||
End If
|
||||
If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION")))
|
||||
End If
|
||||
@@ -326,6 +331,16 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false), _
|
||||
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property FNPM_GET_FREE_USER_FOR_PROFILE() As FNPM_GET_FREE_USER_FOR_PROFILEDataTable
|
||||
Get
|
||||
Return Me.tableFNPM_GET_FREE_USER_FOR_PROFILE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false), _
|
||||
@@ -451,6 +466,9 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
If (Not (ds.Tables("TBPROFILE_GROUP")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBPROFILE_GROUPDataTable(ds.Tables("TBPROFILE_GROUP")))
|
||||
End If
|
||||
If (Not (ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New FNPM_GET_FREE_USER_FOR_PROFILEDataTable(ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")))
|
||||
End If
|
||||
If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION")))
|
||||
End If
|
||||
@@ -582,6 +600,12 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Me.tableTBPROFILE_GROUP.InitVars
|
||||
End If
|
||||
End If
|
||||
Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(MyBase.Tables("FNPM_GET_FREE_USER_FOR_PROFILE"),FNPM_GET_FREE_USER_FOR_PROFILEDataTable)
|
||||
If (initTable = true) Then
|
||||
If (Not (Me.tableFNPM_GET_FREE_USER_FOR_PROFILE) Is Nothing) Then
|
||||
Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.InitVars
|
||||
End If
|
||||
End If
|
||||
Me.tableTBWH_CONNECTION = CType(MyBase.Tables("TBWH_CONNECTION"),TBWH_CONNECTIONDataTable)
|
||||
If (initTable = true) Then
|
||||
If (Not (Me.tableTBWH_CONNECTION) Is Nothing) Then
|
||||
@@ -635,6 +659,8 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
MyBase.Tables.Add(Me.tableTBDD_GROUPS)
|
||||
Me.tableTBPROFILE_GROUP = New TBPROFILE_GROUPDataTable()
|
||||
MyBase.Tables.Add(Me.tableTBPROFILE_GROUP)
|
||||
Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = New FNPM_GET_FREE_USER_FOR_PROFILEDataTable()
|
||||
MyBase.Tables.Add(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE)
|
||||
Me.tableTBWH_CONNECTION = New TBWH_CONNECTIONDataTable()
|
||||
MyBase.Tables.Add(Me.tableTBWH_CONNECTION)
|
||||
Me.relationFK_TBPM_ERROR_LOG_PROFILE1 = New Global.System.Data.DataRelation("FK_TBPM_ERROR_LOG_PROFILE1", New Global.System.Data.DataColumn() {Me.tableTBPM_PROFILE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPM_ERROR_LOG.PROFIL_IDColumn}, false)
|
||||
@@ -745,6 +771,12 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
Return false
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Function ShouldSerializeFNPM_GET_FREE_USER_FOR_PROFILE() As Boolean
|
||||
Return false
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Function ShouldSerializeTBWH_CONNECTION() As Boolean
|
||||
@@ -857,6 +889,9 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Delegate Sub TBPROFILE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_GROUPRowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Delegate Sub FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent)
|
||||
|
||||
@@ -7693,6 +7728,374 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
<Global.System.Serializable(), _
|
||||
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
||||
Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILEDataTable
|
||||
Inherits Global.System.Data.TypedTableBase(Of FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
|
||||
Private columnSequentialOrder As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_ID As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_NAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_PRENAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_SURNAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_SHORTNAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_EMAIL As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_LANGUAGE As Global.System.Data.DataColumn
|
||||
|
||||
Private columnUSER_COMMENT As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.TableName = "FNPM_GET_FREE_USER_FOR_PROFILE"
|
||||
Me.BeginInit
|
||||
Me.InitClass
|
||||
Me.EndInit
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
||||
MyBase.New
|
||||
Me.TableName = table.TableName
|
||||
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
||||
Me.CaseSensitive = table.CaseSensitive
|
||||
End If
|
||||
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
||||
Me.Locale = table.Locale
|
||||
End If
|
||||
If (table.Namespace <> table.DataSet.Namespace) Then
|
||||
Me.Namespace = table.Namespace
|
||||
End If
|
||||
Me.Prefix = table.Prefix
|
||||
Me.MinimumCapacity = table.MinimumCapacity
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
||||
MyBase.New(info, context)
|
||||
Me.InitVars
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnSequentialOrder
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_ID
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_NAME
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_PRENAME
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_SURNAME
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_SHORTNAME
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_EMAIL
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_LANGUAGE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnUSER_COMMENT
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
Public ReadOnly Property Count() As Integer
|
||||
Get
|
||||
Return Me.Rows.Count
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Default ReadOnly Property Item(ByVal index As Integer) As FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
Get
|
||||
Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
Me.Rows.Add(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT}
|
||||
rowFNPM_GET_FREE_USER_FOR_PROFILERow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowFNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
Return rowFNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Overrides Function Clone() As Global.System.Data.DataTable
|
||||
Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable)
|
||||
cln.InitVars
|
||||
Return cln
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
||||
Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable()
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Friend Sub InitVars()
|
||||
Me.columnSequentialOrder = MyBase.Columns("SequentialOrder")
|
||||
Me.columnUSER_ID = MyBase.Columns("USER_ID")
|
||||
Me.columnUSER_NAME = MyBase.Columns("USER_NAME")
|
||||
Me.columnUSER_PRENAME = MyBase.Columns("USER_PRENAME")
|
||||
Me.columnUSER_SURNAME = MyBase.Columns("USER_SURNAME")
|
||||
Me.columnUSER_SHORTNAME = MyBase.Columns("USER_SHORTNAME")
|
||||
Me.columnUSER_EMAIL = MyBase.Columns("USER_EMAIL")
|
||||
Me.columnUSER_LANGUAGE = MyBase.Columns("USER_LANGUAGE")
|
||||
Me.columnUSER_COMMENT = MyBase.Columns("USER_COMMENT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Sub InitClass()
|
||||
Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSequentialOrder)
|
||||
Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_ID)
|
||||
Me.columnUSER_NAME = New Global.System.Data.DataColumn("USER_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_NAME)
|
||||
Me.columnUSER_PRENAME = New Global.System.Data.DataColumn("USER_PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_PRENAME)
|
||||
Me.columnUSER_SURNAME = New Global.System.Data.DataColumn("USER_SURNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_SURNAME)
|
||||
Me.columnUSER_SHORTNAME = New Global.System.Data.DataColumn("USER_SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_SHORTNAME)
|
||||
Me.columnUSER_EMAIL = New Global.System.Data.DataColumn("USER_EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_EMAIL)
|
||||
Me.columnUSER_LANGUAGE = New Global.System.Data.DataColumn("USER_LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_LANGUAGE)
|
||||
Me.columnUSER_COMMENT = New Global.System.Data.DataColumn("USER_COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnUSER_COMMENT)
|
||||
Me.columnSequentialOrder.AutoIncrement = true
|
||||
Me.columnSequentialOrder.AutoIncrementSeed = -1
|
||||
Me.columnSequentialOrder.AutoIncrementStep = -1
|
||||
Me.columnSequentialOrder.AllowDBNull = false
|
||||
Me.columnSequentialOrder.ReadOnly = true
|
||||
Me.columnUSER_NAME.MaxLength = 50
|
||||
Me.columnUSER_PRENAME.MaxLength = 50
|
||||
Me.columnUSER_SURNAME.MaxLength = 50
|
||||
Me.columnUSER_SHORTNAME.MaxLength = 50
|
||||
Me.columnUSER_EMAIL.MaxLength = 100
|
||||
Me.columnUSER_LANGUAGE.MaxLength = 10
|
||||
Me.columnUSER_COMMENT.MaxLength = 500
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
||||
Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Function GetRowType() As Global.System.Type
|
||||
Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanged(e)
|
||||
If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then
|
||||
RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanged(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanging(e)
|
||||
If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then
|
||||
RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanging(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleted(e)
|
||||
If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then
|
||||
RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleted(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleting(e)
|
||||
If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then
|
||||
RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleting(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow)
|
||||
Me.Rows.Remove(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
||||
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
||||
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
||||
Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet()
|
||||
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
||||
any1.MinOccurs = New Decimal(0)
|
||||
any1.MaxOccurs = Decimal.MaxValue
|
||||
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any1)
|
||||
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
||||
any2.MinOccurs = New Decimal(1)
|
||||
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any2)
|
||||
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute1.Name = "namespace"
|
||||
attribute1.FixedValue = ds.Namespace
|
||||
type.Attributes.Add(attribute1)
|
||||
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute2.Name = "tableTypeName"
|
||||
attribute2.FixedValue = "FNPM_GET_FREE_USER_FOR_PROFILEDataTable"
|
||||
type.Attributes.Add(attribute2)
|
||||
type.Particle = sequence
|
||||
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
||||
If xs.Contains(dsSchema.TargetNamespace) Then
|
||||
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Try
|
||||
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
||||
dsSchema.Write(s1)
|
||||
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
||||
Do While schemas.MoveNext
|
||||
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
||||
s2.SetLength(0)
|
||||
schema.Write(s2)
|
||||
If (s1.Length = s2.Length) Then
|
||||
s1.Position = 0
|
||||
s2.Position = 0
|
||||
|
||||
Do While ((s1.Position <> s1.Length) _
|
||||
AndAlso (s1.ReadByte = s2.ReadByte))
|
||||
|
||||
|
||||
Loop
|
||||
If (s1.Position = s1.Length) Then
|
||||
Return type
|
||||
End If
|
||||
End If
|
||||
|
||||
Loop
|
||||
Finally
|
||||
If (Not (s1) Is Nothing) Then
|
||||
s1.Close
|
||||
End If
|
||||
If (Not (s2) Is Nothing) Then
|
||||
s2.Close
|
||||
End If
|
||||
End Try
|
||||
End If
|
||||
xs.Add(dsSchema)
|
||||
Return type
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
@@ -12118,6 +12521,257 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
Inherits Global.System.Data.DataRow
|
||||
|
||||
Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
||||
MyBase.New(rb)
|
||||
Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property SequentialOrder() As Integer
|
||||
Get
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_ID() As Integer
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _
|
||||
"", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_NAME() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _
|
||||
"l.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_PRENAME() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _
|
||||
"Null.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_SURNAME() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _
|
||||
"Null.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_SHORTNAME() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _
|
||||
"DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_EMAIL() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _
|
||||
"ll.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_LANGUAGE() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _
|
||||
"BNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property USER_COMMENT() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _
|
||||
"Null.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_IDNull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_IDNull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_NAMENull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_NAMENull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_PRENAMENull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_PRENAMENull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_SURNAMENull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_SURNAMENull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_SHORTNAMENull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_SHORTNAMENull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_EMAILNull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_EMAILNull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_LANGUAGENull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_LANGUAGENull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Function IsUSER_COMMENTNull() As Boolean
|
||||
Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub SetUSER_COMMENTNull()
|
||||
Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
@@ -12997,6 +13651,42 @@ Partial Public Class DD_DMSLiteDataSet
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent
|
||||
Inherits Global.System.EventArgs
|
||||
|
||||
Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
|
||||
Private eventAction As Global.System.Data.DataRowAction
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction)
|
||||
MyBase.New
|
||||
Me.eventRow = row
|
||||
Me.eventAction = action
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow
|
||||
Get
|
||||
Return Me.eventRow
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
||||
Get
|
||||
Return Me.eventAction
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
@@ -21114,6 +21804,192 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the connection and commands used to retrieve and save data.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
Global.System.ComponentModel.ToolboxItem(true), _
|
||||
Global.System.ComponentModel.DataObjectAttribute(true), _
|
||||
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
|
||||
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILETableAdapter
|
||||
Inherits Global.System.ComponentModel.Component
|
||||
|
||||
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
||||
|
||||
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
||||
|
||||
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
||||
|
||||
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
||||
|
||||
Private _clearBeforeFill As Boolean
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.ClearBeforeFill = true
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
||||
Get
|
||||
If (Me._adapter Is Nothing) Then
|
||||
Me.InitAdapter
|
||||
End If
|
||||
Return Me._adapter
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
||||
Get
|
||||
If (Me._connection Is Nothing) Then
|
||||
Me.InitConnection
|
||||
End If
|
||||
Return Me._connection
|
||||
End Get
|
||||
Set
|
||||
Me._connection = value
|
||||
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Connection = value
|
||||
End If
|
||||
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Connection = value
|
||||
End If
|
||||
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Connection = value
|
||||
End If
|
||||
Dim i As Integer = 0
|
||||
Do While (i < Me.CommandCollection.Length)
|
||||
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
||||
CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value
|
||||
End If
|
||||
i = (i + 1)
|
||||
Loop
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
||||
Get
|
||||
Return Me._transaction
|
||||
End Get
|
||||
Set
|
||||
Me._transaction = value
|
||||
Dim i As Integer = 0
|
||||
Do While (i < Me.CommandCollection.Length)
|
||||
Me.CommandCollection(i).Transaction = Me._transaction
|
||||
i = (i + 1)
|
||||
Loop
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
||||
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
||||
End If
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
||||
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
||||
End If
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
||||
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
||||
Get
|
||||
If (Me._commandCollection Is Nothing) Then
|
||||
Me.InitCommandCollection
|
||||
End If
|
||||
Return Me._commandCollection
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Public Property ClearBeforeFill() As Boolean
|
||||
Get
|
||||
Return Me._clearBeforeFill
|
||||
End Get
|
||||
Set
|
||||
Me._clearBeforeFill = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Sub InitAdapter()
|
||||
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
|
||||
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
||||
tableMapping.SourceTable = "Table"
|
||||
tableMapping.DataSetTable = "FNPM_GET_FREE_USER_FOR_PROFILE"
|
||||
tableMapping.ColumnMappings.Add("SequentialOrder", "SequentialOrder")
|
||||
tableMapping.ColumnMappings.Add("USER_ID", "USER_ID")
|
||||
tableMapping.ColumnMappings.Add("USER_NAME", "USER_NAME")
|
||||
tableMapping.ColumnMappings.Add("USER_PRENAME", "USER_PRENAME")
|
||||
tableMapping.ColumnMappings.Add("USER_SURNAME", "USER_SURNAME")
|
||||
tableMapping.ColumnMappings.Add("USER_SHORTNAME", "USER_SHORTNAME")
|
||||
tableMapping.ColumnMappings.Add("USER_EMAIL", "USER_EMAIL")
|
||||
tableMapping.ColumnMappings.Add("USER_LANGUAGE", "USER_LANGUAGE")
|
||||
tableMapping.ColumnMappings.Add("USER_COMMENT", "USER_COMMENT")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Sub InitConnection()
|
||||
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
||||
Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Sub InitCommandCollection()
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _
|
||||
"ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _
|
||||
"GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
|
||||
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
|
||||
Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
||||
Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
||||
'''</summary>
|
||||
|
||||
Reference in New Issue
Block a user