dao_forms.vb

通版开发平台

Imports System.Data.SqlClient

Public Class DAO_Forms


    Public Shared Function findAll() As Dictionary(Of Integer, S_Forms)
        Dim formsDic As New Dictionary(Of Integer, S_Forms)
        Using Conn As New SqlConnection(DbOperate.csb.ToString)
            Conn.Open()
            Using cmd As New SqlCommand("Select * From S_Forms", Conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_Forms As New S_Forms
                        With S_Forms
                            If Not rdr.IsDBNull(0) Then
                                .FormID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .FormTypeID = rdr.GetInt32(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .FlModuleID = rdr.GetInt32(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .Name = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .HeaderName = rdr.GetString(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .HeaderKey = rdr.GetString(5)
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .DetailName = rdr.GetString(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .DetailKey = rdr.GetString(7)
                            End If
                            If Not rdr.IsDBNull(8) Then
                                .Text = rdr.GetString(8)
                            End If
                            If Not rdr.IsDBNull(9) Then
                                .Width = rdr.GetInt32(9)
                            End If
                            If Not rdr.IsDBNull(10) Then
                                .Height = rdr.GetInt32(10)
                            End If
                            If Not rdr.IsDBNull(11) Then
                                .WindowState = rdr.GetInt32(11)
                            End If
                            If Not rdr.IsDBNull(12) Then
                                .BorderStyle = rdr.GetInt32(12)
                            End If
                            If Not rdr.IsDBNull(13) Then
                                .MaximizeBox = rdr.GetBoolean(13)
                            End If
                            If Not rdr.IsDBNull(14) Then
                                .MinimumSize = rdr.GetBoolean(14)
                            End If
                            If Not rdr.IsDBNull(15) Then
                                .ShowMode = rdr.GetInt32(15)
                            End If
                            If Not rdr.IsDBNull(16) Then
                                .ToolID = rdr.GetInt32(16)
                            End If
                            If Not rdr.IsDBNull(17) Then
                                .MenuID = rdr.GetInt32(17)
                            End If
                            If Not rdr.IsDBNull(18) Then
                                .LoadXmlForm = rdr.GetBoolean(18)
                            End If
                            If Not rdr.IsDBNull(19) Then
                                .XmlForm = System.Text.Encoding.UTF8.GetString(rdr.GetSqlBinary(19))
                            End If
                            If Not rdr.IsDBNull(20) Then
                                .MultiSelect = rdr.GetBoolean(20)
                            End If
                        End With
                        formsDic.Add(S_Forms.FormID, S_Forms)
                    End While
                End Using
            End Using
        End Using
        Return formsDic
    End Function


End Class