一个vb.net的用户登陆页面代码

最新推荐文章于 2023-06-05 01:16:29 发布

转载最新推荐文章于 2023-06-05 01:16:29 发布 · 2.8k 阅读

文章标签：

#vb.net #textbox #button #session #sql #string

VB.Net类专栏收录该内容

8 篇文章

订阅专栏

博客展示了VB.NET中两个按钮点击事件的代码。Button2点击时会检查输入，通过SQL查询验证账号密码，若验证成功更新积分并跳转页面；Button1点击则清空文本框内容，涉及SQL操作和Session使用。

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

　　 If TextBox3.Text = "" Or TextBox4.Text = "" Then

　　 Label35.Text = "请确认您的输入！"

　　 Return

　　 End If

　　 Dim sql As String = "select * from pwd where stu_id=@stu_id and pwd=@pwd"

　　 Dim comm As SqlCommand = New SqlCommand(sql, conn)

　　 comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

　　 comm.Parameters("@stu_id").Value = TextBox3.Text

　　 comm.Parameters.Add(New SqlParameter("@pwd", SqlDbType.Char, 16))

　　 comm.Parameters("@pwd").Value = TextBox4.Text

　　 Dim dr As SqlDataReader

　　 conn.Open()

　　 dr = comm.ExecuteReader

　　 If dr.Read Then

　　 Session("stu_id") = TextBox3.Text

　　 dr.Close()

　　 comm.Cancel()

　　 Dim sql_3 As String = "update stu_base set point=point+1 where stu_id=@stu_id"

　　 comm = New SqlCommand(sql_3, conn)

　　 comm.Parameters.Add(New SqlParameter("@stu_id", SqlDbType.Int, 4))

　　 comm.Parameters("@stu_id").Value = Session("stu_id")

　　 comm.ExecuteNonQuery()

　　 comm.Cancel()

　　 Response.Redirect("detail.aspx?stu_id='" & Session("stu_id") & "'")

　　 Else

　　 Label35.Text = "您还没有注册或账号密码错误"

　　 End If

　　 End Sub 　　

　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　 TextBox1.Text = ""

　　 TextBox2.Text = ""

　　 End Sub