dao_user.vb

来自「通版开发平台」· VB 代码 · 共 49 行

Imports System.Data.SqlClient

Public Class DAO_User


    Public Shared Function findAll() As Dictionary(Of Integer, S_User)
        Dim UserDic As New Dictionary(Of Integer, S_User)
        Using conn As New SqlConnection(DbOperate.csb.ToString)
            conn.Open()
            Using cmd As New SqlCommand("Select * From AS_User", conn)
                Using rdr As SqlDataReader = cmd.ExecuteReader
                    While rdr.Read
                        Dim S_User As New S_User
                        With S_User
                            If Not rdr.IsDBNull(0) Then
                                .flUserID = rdr.GetInt32(0)
                            End If
                            If Not rdr.IsDBNull(1) Then
                                .fcUserCode = rdr.GetString(1)
                            End If
                            If Not rdr.IsDBNull(2) Then
                                .fcUserName = rdr.GetString(2)
                            End If
                            If Not rdr.IsDBNull(3) Then
                                .fcFullName = rdr.GetString(3)
                            End If
                            If Not rdr.IsDBNull(4) Then
                                .fcDescribe = rdr.GetString(4)
                            End If
                            If Not rdr.IsDBNull(5) Then
                                .fcPass = rdr.GetString(5)
                            End If
                            If Not rdr.IsDBNull(6) Then
                                .fbSysDefault = rdr.GetBoolean(6)
                            End If
                            If Not rdr.IsDBNull(7) Then
                                .fbClosed = rdr.GetBoolean(7)
                            End If

                        End With
                        UserDic.Add(S_User.flUserID, S_User)
                    End While
                End Using
            End Using
        End Using
        Return UserDic
    End Function
End Class