dao_displaycolumns.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_DisplayColumns
  
    Public Shared Function findAll() As Dictionary(Of Integer, S_DisplayColumns)
        Dim displayColumnsDic As New Dictionary(Of Integer, S_DisplayColumns)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_DisplayColumns", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_DisplayColumns As New S_DisplayColumns
                        With S_DisplayColumns
                            If Not rdr.IsDBNull(0) Then
                                .ColumnID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .ComponentID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .TableName = rdr.GetString(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .FieldName = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .Caption = rdr.GetString(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .ReadOnly = rdr.GetBoolean(5)
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .Visible = rdr.GetBoolean(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .VisibleIndex = rdr.GetInt32(7)
                            End If
                            If Not rdr.IsDBNull(8) Then
                                .Width = rdr.GetInt32(8)
                            End If
                            If Not rdr.IsDBNull(9) Then
                                .Fixed = rdr.GetInt32(9)
                            End If
                            If Not rdr.IsDBNull(10) Then
                                .AllowEdit = rdr.GetBoolean(10)
                            End If
                            If Not rdr.IsDBNull(11) Then
                                .AllowFocus = rdr.GetBoolean(11)
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .ShowButtonMode = rdr.GetInt32(12)
                            End If
                            If Not rdr.IsDBNull(13) Then
                                .DataMember = rdr.GetString(13)
                            End If
                            If Not rdr.IsDBNull(14) Then
                                .DisplayMember = rdr.GetString(14)
                            End If
                            If Not rdr.IsDBNull(15) Then
                                .ValueMember = rdr.GetString(15)
                            End If
                            If Not rdr.IsDBNull(16) Then
                                .ColumnEditID = rdr.GetInt32(16)
                            End If
                            If Not rdr.IsDBNull(17) Then
                                .FormID = rdr.GetInt32(17)
                            End If
                            If Not rdr.IsDBNull(18) Then
                                .FlMulColumnID = rdr.GetInt32(18)
                            End If
                            If Not rdr.IsDBNull(19) Then
                                .FlSummaryTypeID = rdr.GetInt32(19)
                            End If
                            If Not rdr.IsDBNull(20) Then
                                .FlFormatID = rdr.GetInt32(20)
                            End If
                            If Not rdr.IsDBNull(21) Then
                                .FlExpressionID = rdr.GetInt32(21)
                            End If
                            If Not rdr.IsDBNull(22) Then
                                .IsDefault = rdr.GetBoolean(22)
                            End If
                            If Not rdr.IsDBNull(23) Then
                                .IsSaveDefault = rdr.GetBoolean(23)
                            End If
                            If Not rdr.IsDBNull(24) Then
                                .DefaultValueID = rdr.GetInt32(24)
                            End If
                            If Not rdr.IsDBNull(25) Then
                                .DefaultValue = rdr.GetString(25)
                            End If
                            If Not rdr.IsDBNull(26) Then
                                .IsCalculate = rdr.GetBoolean(26)
                            End If
                            If Not rdr.IsDBNull(27) Then
                                .SqlCommandID = rdr.GetInt32(27)
                            End If
                            If Not rdr.IsDBNull(28) Then
                                .IsAddNew = rdr.GetBoolean(28)
                            End If
                            If Not rdr.IsDBNull(29) Then
                                .Modifiable = rdr.GetBoolean(29)
                            End If
                            If Not rdr.IsDBNull(30) Then
                                .FlMessageID = rdr.GetInt32(30)
                            End If
                            If Not rdr.IsDBNull(31) Then
                                .IsNulLable = rdr.GetBoolean(31)
                            End If
                            If Not rdr.IsDBNull(32) Then
                                .IsFilter = rdr.GetBoolean(32)
                            End If
                            If Not rdr.IsDBNull(33) Then
                                .DatafiledName = rdr.GetString(33)
                            End If
                            If Not rdr.IsDBNull(34) Then
                                .RelationTableName = rdr.GetString(34)
                            End If
                        End With
                        displayColumnsDic.Add(S_DisplayColumns.ColumnID, S_DisplayColumns)
                    End While
                End Using
            End Using
        End Using
        Return displayColumnsDic
    End Function
End Class