dao_toolitem.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_ToolItem


    Public Shared Function findAll() As Dictionary(Of Integer, S_ToolItem)
        Dim toolItemDic As New Dictionary(Of Integer, S_ToolItem)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From S_ToolItem Order by ToolID,ParentID, VisibleIndex", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_ToolItem As New S_ToolItem
                        With S_ToolItem
                            If Not rdr.IsDBNull(0) Then
                                .ID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .ToolID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .Name = rdr.GetString(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .Text = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .Visible = rdr.GetBoolean(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .VisibleIndex = rdr.GetInt32(5)
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .Enabled = rdr.GetBoolean(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .TypeID = rdr.GetInt32(7)
                            End If
                            If Not rdr.IsDBNull(8) Then
                                .ParentID = rdr.GetInt32(8)
                            End If
                            If Not rdr.IsDBNull(9) Then
                                .EventID = rdr.GetInt32(9)
                            End If
                            If Not rdr.IsDBNull(10) Then
                                .FormID = rdr.GetInt32(10)
                            End If
                            If Not rdr.IsDBNull(11) Then
                                'icon
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .ImageIndex = rdr.GetInt32(12)
                            End If
                            If Not rdr.IsDBNull(13) Then
                                .State1 = rdr.GetBoolean(13)
                            End If
                            If Not rdr.IsDBNull(14) Then
                                .State2 = rdr.GetBoolean(14)
                            End If
                            If Not rdr.IsDBNull(15) Then
                                .State3 = rdr.GetBoolean(15)
                            End If
                            If Not rdr.IsDBNull(16) Then
                                .State4 = rdr.GetBoolean(16)
                            End If
                            If Not rdr.IsDBNull(17) Then
                                .SqlCommandID = rdr.GetInt32(17)
                            End If
                            If Not rdr.IsDBNull(18) Then
                                .AfterSqlCommandID = rdr.GetInt32(18)
                            End If
                        End With
                        toolItemDic.Add(S_ToolItem.ID, S_ToolItem)
                    End While
                End Using
            End Using
        End Using
        Return toolItemDic
    End Function
End Class