dao_menuitem.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_MenuItem





    Public Shared Function findAll() As Dictionary(Of Integer, S_MenuItem)
        Dim menuItemDic As New Dictionary(Of Integer, S_MenuItem)
        Using Conn As New SqlConnection(DbOperate.csb.ToString)
            Conn.Open()
            Using cmd As New SqlCommand("Select * From S_MenuItem Where (MenuID = 1) Order By ParentID, Visibleindex", Conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_MenuItem As New S_MenuItem
                        With S_MenuItem
                            If Not rdr.IsDBNull(0) Then
                                .ID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .MenuID = 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
                                .Enable = 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 = rdr.GetSqlBinary(11)
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .ImageIndex = rdr.GetInt32(12)
                            End If
                            If Not rdr.IsDBNull(13) Then
                                .SqlCommandID = rdr.GetInt32(13)
                            End If
                        End With
                        menuItemDic.Add(S_MenuItem.ID, S_MenuItem)
                    End While
                    rdr.Close()
                End Using
                cmd.Clone()
            End Using
            Conn.Close()
        End Using
        Return menuItemDic
    End Function

 
End Class