checklog.vb

The Management Information System of Library using .NET

Imports System.Data.SqlClient
Public Class CCheckLog
    Private Uid As String
    Private pwd As String

    Public Sub New(ByVal U_id As String, ByVal P_wd As String)
        Me.Uid = U_id
        Me.pwd = P_wd
    End Sub
    Public Function IsLogSuc() As Boolean
        If Uid Is Nothing Then
            Return False
        Else
            Dim cn As New SqlConnection(ConfigurationSettings.AppSettings("cncstr"))
            Dim cmd As New SqlCommand
            Dim Islog As Int16 = 0

            With cmd
                .CommandType = CommandType.StoredProcedure
                .CommandText = "SelectAuPwd"
                .Connection = cn
            End With
            Dim mAu_id As New SqlParameter("@Au_id", SqlDbType.NVarChar)
            Dim mAu_password As New SqlParameter("@Au_password", SqlDbType.NVarChar)

            With cmd.Parameters
                .Add(mAu_id)
                .Add(mAu_password)
            End With
            mAu_id.Value = Uid
            mAu_password.Value = pwd
            Try
                cn.Open()
                Islog = cmd.ExecuteScalar
                If Islog = 1 Then
                    Return True
                Else
                    Return False
                End If
            Catch ex As Exception
                'Return False
                Throw ex
            Finally
                cn.Close()
                If Not cn Is Nothing Then
                    cn.Dispose()
                End If
            End Try
        End If
    End Function
End Class