dao_component.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_Component


    Public Shared Function findAll() As Dictionary(Of Integer, S_Component)
        Dim componentDic As New Dictionary(Of Integer, S_Component)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_Component order by FormID,Visibleindex", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_Component As New S_Component
                        With S_Component
                            If Not rdr.IsDBNull(0) Then
                                .ComponentID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .FormID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .ContID = rdr.GetInt32(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .PageTypeID = rdr.GetInt32(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .Name = rdr.GetString(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .ParentName = rdr.GetString(5)
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .Text = rdr.GetString(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .Width = rdr.GetInt32(7)
                            End If
                            If Not rdr.IsDBNull(8) Then
                                .Height = rdr.GetInt32(8)
                            End If
                            If Not rdr.IsDBNull(9) Then
                                .BorderStyle = rdr.GetInt32(9)
                            End If
                            If Not rdr.IsDBNull(10) Then
                                .BackColor = rdr.GetInt32(10)
                            End If
                            If Not rdr.IsDBNull(11) Then
                                .ForeColor = rdr.GetInt32(11)
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .Enabled = rdr.GetBoolean(12)
                            End If
                            If Not rdr.IsDBNull(13) Then
                                .Visible = rdr.GetBoolean(13)
                            End If
                            If Not rdr.IsDBNull(14) Then
                                .VisibleIndex = rdr.GetInt32(14)
                            End If
                            If Not rdr.IsDBNull(15) Then
                                .ReadOnly = rdr.GetBoolean(15)
                            End If
                            If Not rdr.IsDBNull(16) Then
                                .TabStop = rdr.GetBoolean(16)
                            End If
                            If Not rdr.IsDBNull(17) Then
                                .TabIndex = rdr.GetInt32(17)
                            End If
                            If Not rdr.IsDBNull(18) Then
                                .DataSourceID = rdr.GetInt32(18)
                            End If
                            If Not rdr.IsDBNull(19) Then
                                .DataMember = rdr.GetString(19)
                            End If
                            If Not rdr.IsDBNull(20) Then
                                .DisplayMember = rdr.GetString(20)
                            End If
                            If Not rdr.IsDBNull(21) Then
                                .ValueMember = rdr.GetString(21)
                            End If
                            If Not rdr.IsDBNull(22) Then
                                .MenuID = rdr.GetInt32(22)
                            End If
                            If Not rdr.IsDBNull(23) Then
                                .FlMulColumnID = rdr.GetInt32(23)
                            End If
                            If Not rdr.IsDBNull(24) Then
                                .LocationX = rdr.GetInt32(24)
                            End If
                            If Not rdr.IsDBNull(25) Then
                                .LocationY = rdr.GetInt32(25)
                            End If
                            If Not rdr.IsDBNull(26) Then
                                .ItemX = rdr.GetInt32(26)
                            End If
                            If Not rdr.IsDBNull(27) Then
                                .ItemY = rdr.GetInt32(27)
                            End If
                            If Not rdr.IsDBNull(28) Then
                                .TextWidth = rdr.GetInt32(28)
                            End If
                            If Not rdr.IsDBNull(29) Then
                                .TextHeight = rdr.GetInt32(29)
                            End If
                            If Not rdr.IsDBNull(30) Then
                                .MaxTextWidth = rdr.GetInt32(30)
                            End If
                            If Not rdr.IsDBNull(31) Then
                                .MaxTextHeight = rdr.GetInt32(31)
                            End If
                            If Not rdr.IsDBNull(32) Then
                                .MinTextWidth = rdr.GetInt32(32)
                            End If
                            If Not rdr.IsDBNull(33) Then
                                .MinTextHeight = rdr.GetInt32(33)
                            End If
                            If Not rdr.IsDBNull(34) Then
                                .TextVisible = rdr.GetBoolean(34)
                            End If
                            If Not rdr.IsDBNull(35) Then
                                .DefaultValueID = rdr.GetInt32(35)
                            End If
                            If Not rdr.IsDBNull(36) Then
                                .SqlCommandID = rdr.GetInt32(36)
                            End If
                            If Not rdr.IsDBNull(37) Then
                                .SelectFormID = rdr.GetInt32(37)
                            End If
                            If Not rdr.IsDBNull(38) Then
                                .IsOnly = rdr.GetBoolean(38)
                            End If
                            If Not rdr.IsDBNull(39) Then
                                .IsEmpty = rdr.GetBoolean(39)
                            End If
                            If Not rdr.IsDBNull(40) Then
                                .OnlyMsg = rdr.GetString(40)
                            End If
                            If Not rdr.IsDBNull(41) Then
                                .EmptyMsg = rdr.GetString(41)
                            End If
                            If Not rdr.IsDBNull(42) Then
                                .Modifiable = rdr.GetBoolean(42)
                            End If
                            If Not rdr.IsDBNull(43) Then
                                .DefaultValue = rdr.GetString(43)
                            End If
                            If Not rdr.IsDBNull(44) Then
                                .CheckSelectBill = rdr.GetBoolean(44)
                            End If
                            If Not rdr.IsDBNull(45) Then
                                .FlExpressionID = rdr.GetInt32(45)
                            End If
                            If Not rdr.IsDBNull(46) Then
                                .IsDefault = rdr.GetBoolean(46)
                            End If
                            If Not rdr.IsDBNull(47) Then
                                .DatafiledName = rdr.GetString(47)
                            End If
                            If Not rdr.IsDBNull(48) Then
                                .RelationTableName = rdr.GetString(48)
                            End If
                        End With
                        componentDic.Add(S_Component.ComponentID, S_Component)
                    End While
                End Using
            End Using
        End Using
        Return componentDic
    End Function
End Class