后台登陆界面代码(登录页面代码怎么写)

今天给各位分享后台登陆界面代码的知识，其中也会对登录页面代码怎么写进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、用VS2008，登录按钮的后台代码应该怎么写？

用VS2008，登录按钮的后台代码应该怎么写？

path = Application.StartupPath

Dim strsql As String

If conect() Then

If RadioButton1.Checked = True Then

strsql = "select count(*) from 用户表 where 用户名='" Trim(TextBox1.Text) "'" " and " " 密码='" Trim(TextBox2.Text) "'" " and 权限 ='系统管理员'"

qx = True

Else

strsql = "select count(*) from 用户表 where 用户名='" Trim(TextBox1.Text) "'" " and " "运消友 密码='" Trim(TextBox2.Text) "'" " and 权限 ='桥信普通用户'"

qx = False

End If

objconn1.Open()

Dim objcmd As New SqlCommand(strsql, objconn1)

Dim n1 As Integer = objcmd.ExecuteScalar

objconn1.Close()

objcmd.Dispose()

If n1 0 Then

用户名 = Trim(TextBox1.Text)

Me.Hide()

主界面.ShowDialog()

用户名 = Trim(TextBox1.Text)

Else

MsgBox("用户名或密码不对，无法登陆！", 48, "提示")

TextBox1.Text = ""旁槐

TextBox2.Text = ""

TextBox1.Focus()

End If

Else

MsgBox("无法连接到数据库！可能是网络的问题或数据库服务器有问题!", 48, "提示")

End If

我希望能对你有所帮助，这是连接数据库验证的

后台登陆界面代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于登录页面代码怎么写、后台登陆界面代码的信息别忘了在本站进行查找喔。