重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net登陆验证 vb密码验证程序

vb.net登陆界面中当login验证后进入main窗体时怎样关闭login窗体

您可以调用Me.Hide()方法隐藏Login窗体。

我们提供的服务有:做网站、成都网站设计、微信公众号开发、网站优化、网站认证、阿合奇ssl等。为上千余家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的阿合奇网站制作公司

另外,如果您使用新建工程后的那个默认窗体作为Login窗体,那么您只能隐藏这个窗体或修改程序的启动对象。因为VB.net默认将创建工程时的那个默认窗体作为程序的主窗体,应用程序的主消息循环就建立在这个窗体上,如果您关闭这个窗体,那么所有的消息泵都会停止,应用程序就会退出。

我比较推荐您将Main窗体设为应用程序的主窗体,这样可以减小资源的占用,当Login完成后就可以释放Login窗体了。

另外,vb.net中的me变量相当于C语言中的this指针,它指向当前类。

推荐一个网站,这个网站有很多的教程,而且基本都是附部分代码,可能有一些对您有用的信息。

VB.NET登陆界面。要验证登录用户名和密码是否正确。登陆后有管理员和普通用户权限判断。管理员只能登录一

将用户名,密码,用户类型存在数据库中,登陆时比较输入的值是否与数据库相同即可。

vb.net 用户登录

哈哈简单哪

第一步:登陆网页代码

第二步:登陆以后判断是否登陆成功

有两种方法:1.获取网页代码,判断网页字符有无”登陆成功”字样

源代码:

2.就是判断网页是否跳转到了某一页

源代码:

两种方法结合起来用,可以判断网页是否无法连接

VB.NEt+access登陆验证

我前台用的是PB,后台用的SQL Server2000

语言选择的是B语言 不知道ACCESS和SQL相差大不大,但我想数据库应该都差不多这样操作吧~ 呵呵 (大致是这样的思路,可以仿着自己动手写一下,希望有帮助到你。)

string s1,a,s2

s1=sle_1.text // 用户名

s2=sle_2.text // 密码

select password

into :a

//将数据库中的密码数据存 放在变量a中(因为PB中不能直接使用SQL语句)

from idpass

// 数据库中设置用户名和密码的表,名为idpass

where id=:s1

//如果输入的用户名与数据库中的用户名一致,则返回该表中的密码数据

using sqlca;

if s1="" or s2="" then

messagebox("出错提示","输入信息不能为空!请重新输入!",exclamation!,okcancel!,2)

else

if s1 'ht**' and s1 'HT**' then

messagebox("出错提示","输入用户名不对(不区分大小写)!请重新输入!",exclamation!,okcancel!,2)

else

if s2 '6***' AND s2 '6***' then

messagebox("出错提示","输入密码不对(不区分大小写)!请重新输入!",exclamation!,okcancel!,2)

else

open(w_qi***a)

close(parent)

end if

end if

end if

既然你用的也是B语言,那后面的应该也看得懂吧,我就不多介绍了哈~ 呵呵,希望有帮助到你。

晕,刚刚才看到你用的前台是.NET,是制作动态网站啊~ 呵呵 前面的就当我没说吧,我也不删了,也许别人有需要,就占楼主一个位置啦,还望见谅哈!呵呵.

VB.Net 怎么验证 SQL2008 数据库的ID与密码

基础类库:

Imports Microsoft.VisualBasic

'执行Access语句的封装类。

Public Class AccessExecClass

Private conn As Data.OleDb.OleDbConnection

Private cmd As Data.OleDb.OleDbCommand

'创建类对象,并连接到数据库。

Sub New()

If openAccess Then

Else

msgbox("open Access Fail.")

End If

End Sub

'创建类对象,并连接到数据库。 '输入带目录名称的数据库文件名称:dbFileName,例如:“\DB数据库\企业数据库.aspx”

Sub New(ByVal dbFileName As String)

If OpenAccess(dbFileName) Then

Else

MsgBox("open Access Fail.")

End If

End Sub

Function OpenAccess() As Boolean

OpenAccess = False

'检验用户的帐号密码是否正确

Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName

provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim database As String

database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath("\数据库.aspx") ";Persist Security Info=true"

conn = New Data.OleDb.OleDbConnection(provider ";" database)

conn.Open()

OpenAccess = True

End Function

Function OpenAccess(ByVal dbFileName As String) As Boolean

OpenAccess = False

'检验用户的帐号密码是否正确

Dim provider As String '= ConfigurationManager.ConnectionStrings("ConnectionString").ProviderName

provider = "Provider=Microsoft.Jet.OLEDB.4.0"

Dim database As String

database = "Data Source=" System.Web.HttpContext.Current.Server.MapPath(dbFileName) ";Persist Security Info=true"

conn = New Data.OleDb.OleDbConnection(provider ";" database)

conn.Open()

OpenAccess = True

End Function

'关闭数据库。

Sub CloseAccess()

cmd = Nothing

conn.Close()

End Sub

'执行一条Access语句,执行成功就返回True。

Function ExecAccessString(ByVal AccessStr As String) As Boolean

cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)

cmd.ExecuteNonQuery()

'Dim aa As Data.OleDb.OleDbDataReader = cmd.ExecuteReader

ExecAccessString = True

End Function

'返回读取到的数据,注意是用地址传递方式返回

Sub ExecAccessString(ByVal AccessStr As String, ByRef AccessReader As Data.OleDb.OleDbDataReader)

cmd = New Data.OleDb.OleDbCommand(AccessStr, conn)

cmd.ExecuteNonQuery()

AccessReader = cmd.ExecuteReader

End Sub

End Class

登陆代码:

Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Dim wl As New WebLog '用户登录记录开始,仅对购买了Log 功能的用户,才开放此功能,否则不会实际记录Log

Dim sql As String

Dim aDB As New AccessExecClass

Dim mypw As String

Label1.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

'没有输入时,不能进行登陆

If TextBox1.Text = "" Then

Label1.Visible = True

Return

End If

If TextBox2.Text = "" Then

Label2.Visible = True

Return

End If

If TextBox3.Text = "" Then

Label3.Visible = True

Return

End If

If TextBox3.Text = TextBox4.Text Then

Else

Label3.Visible = True

Return

End If

Dim iRnd As Integer = Rnd(10) * 100

TextBox3.Text = ""

TextBox4.Text = iRnd.ToString

'Dim iRnd As Integer = Rnd(10) * 100

'注意:此处需要加入防止注入分析,包含'的肯定是特别语句,讲拒绝.

If TextBox1.Text.IndexOf("'") 0 Or TextBox2.Text.IndexOf("'") 0 Then

TextBox1.Text = "不能输入非法字符,将强制清空"

TextBox2.Text = ""

Else

Dim pw As New MD5EnCode(13, 19) ' '2次加密

sql = "select 权限组号,ID , 密码 from 编辑人数据 where 编辑姓名='" + TextBox1.Text + "'"

Dim aa As Data.OleDb.OleDbDataReader '= cmd.ExecuteReader

aDB.ExecAccessString(sql, aa)

If aa.Read() Then

'密码正确()

'sql = aa(2)'需要特别注意:只能单向解密,不能直接转换

mypw = pw.simDeCode(pw.simDeCode(aa(2)))

If TextBox2.Text = mypw Then

Session("LOGIN_Name") = TextBox1.Text '设置登录后的用户名称

Session("Login_Group") = aa(0) 'cmd.ExecuteScalar '设置登录后的权限级别

Session("Login_ID") = aa(1) 'cmd.ToString

'cmd = Nothing

'conn.Close()

Call wl.NewLog("登录", "管理员成功登录")

Response.Redirect("../WebManages/Default.ASPX")

Else

'密码错误()

sql = sql.Replace("'", "【单引号】")

sql = sql.Replace(",", "【逗号】")

Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")

Label4.Visible = True

End If

Else

'密码错误()

sql = sql.Replace("'", "【单引号】")

sql = sql.Replace(",", "【逗号】")

Call wl.NewLog("登录", "管理员失败的登录", TextBox1.Text, sql.Replace("""", "【双引号】"), "")

Label4.Visible = True

End If

End If

End Sub


分享标题:vb.net登陆验证 vb密码验证程序
分享路径:http://cqcxhl.cn/article/hhgoid.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP