请问有那位高手可以帮我解释下这些代码什么意思？？？？

Imports System.Data.SqlClient
Public Class Login
    Inherits System.Windows.Forms.Form
    Dim conn As System.Data.SqlClient.SqlConnection

    Public Function GetUserInf() As Boolean
        Try
            If TextBox1.Text = "" Then
                Me.Label3.Text = "用户名为空"
            Else
                If TextBox2.Text = "" Then
                    Me.Label3.Text = "密码为空"
                Else
                    Dim sp As SqlParameter
                    Dim cmd As New SqlCommand("p_Admin", conn)
                     = CommandType.StoredProcedure
                    sp = New SqlParameter
                    sp.ParameterName = "@c_AdminName"
                    sp.SqlDbType = SqlDbType.VarChar
                    sp.Size = 20
                    sp.Value = TextBox1.Text
                    cmd.Parameters.Add(sp)

                    sp = New SqlParameter
                    sp.ParameterName = "@c_AdminPassWord"
                    sp.SqlDbType = SqlDbType.VarChar
                    sp.Size = 20
                    sp.Value = TextBox2.Text
                    cmd.Parameters.Add(sp)

                    Dim sc As String = CType(cmd.ExecuteScalar(), String)
                    cmd.Dispose()
                    If sc <> "0" Then
                        Return True
                    Else
                        Me.Label3.Text = "用户名或密码错误"
                    End If
                End If
            End If
        Catch ex As Exception
            Return False
        End Try
        Return False

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Login As New index
        If GetUserInf() Then
            Login.Show()
            Me.Finalize()     '隐藏原窗体
        End If
    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New System.Data.SqlClient.SqlConnection("workstation id=JOLIN;packet size=4096;integrated security=SSPI;data source='.';persist security info=False;initial catalog=WageManage")
        conn.Open()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

End Class

尽量详细点  谢谢

第一，这里是VB6版，不要增加版里混乱程度。你为啥不发到C++版里？

第二，没有哪句有难度，解释也解释不清。

第三，具体问题要具体分析（详见政治书），光一段代码能给你解释出什么？建议你学习《提问的智慧》。

第四，请从基础学起。看了你的问题觉得很无语，是你不理解这个这个是赋值语句、那个那个是创建对象，还是不理解什么呢？

支持LS的
LS的一直勤勤懇懇不容易啊

哈哈  你也回来了呀

C++和VB会一样吗？真是的~~~~~现在应该用.ENT平台~~人家不是不懂才问，搞得你懂很了不起，你还不是从不懂到懂~~~~VB的东西不发这里，发那里，真搞笑~~~~~~

有Imports语法，显然是

请你看看这个版面：https://bbs.bccn.net/forum-114-1.html

再想想刚才说的话，现在后悔还来得及。

MS隔一段时间,总归会出来一个对编程不是很懂(比如分不清VB和)的人,挑衅各版块版主

哈哈哈.......
楼主啊,就算版主先前知道这是我想也会骂你的,你这代码好意思拿出来问人吗?
谁那么有空跟你解释某些类的意思和用法耶.好好看书或好好看msdn去吧.
我只加了一句注释,因为一句就够了...真正的注释不是注释某一句代码或某一个类的用法的,
而是注释某一个函数实现了什么功能.
Imports System.Data.SqlClient   
Public Class Login
    Inherits System.Windows.Forms.Form
    Dim conn As System.Data.SqlClient.SqlConnection

    Public Function GetUserInf() As Boolean    '判断输入的用户信息是否正确
        Try
            If TextBox1.Text = "" Then
                Me.Label3.Text = "用户名为空"
            Else
                If TextBox2.Text = "" Then
                    Me.Label3.Text = "密码为空"
                Else
                    Dim sp As SqlParameter
                    Dim cmd As New SqlCommand("p_Admin", conn)
                     = CommandType.StoredProcedure
                    sp = New SqlParameter
                    sp.ParameterName = "@c_AdminName"
                    sp.SqlDbType = SqlDbType.VarChar
                    sp.Size = 20
                    sp.Value = TextBox1.Text
                    cmd.Parameters.Add(sp)

                    sp = New SqlParameter
                    sp.ParameterName = "@c_AdminPassWord"
                    sp.SqlDbType = SqlDbType.VarChar
                    sp.Size = 20
                    sp.Value = TextBox2.Text
                    cmd.Parameters.Add(sp)

                    Dim sc As String = CType(cmd.ExecuteScalar(), String)
                    cmd.Dispose()
                    If sc <> "0" Then
                        Return True
                    Else
                        Me.Label3.Text = "用户名或密码错误"
                    End If
                End If
            End If
        Catch ex As Exception
            Return False
        End Try
        Return False

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Login As New index
        If GetUserInf() Then   
            Login.Show()
            Me.Finalize()     '隐藏原窗体
        End If
    End Sub

    Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New System.Data.SqlClient.SqlConnection("workstation id=JOLIN;packet size=4096;integrated security=SSPI;data source='.';persist security info=False;initial catalog=WageManage")
        conn.Open()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

End Class