求VB.Net加Sql写的登录代码作参考

shixianyong 2004-07-20 11:02:24

如题

...全文

386 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

xiaomatian 2004-07-23

打赏
举报

shixianyong 2004-07-23

打赏
举报

ding

lxcc 2004-07-23

打赏
举报

到www.asp.net下几个Starter Kits，看看里面有比较完善的登录设计！

strXiaoCaiNiao 2004-07-23

打赏
举报

ksk ksk ,up

wq2003 2004-07-23

打赏
举报

'---------------------------
'输入信息验证
'---------------------------
Dim id As String
Dim pwd As String
id = Trim(txtUserID.Text)
pwd = Trim(txtUserPwd.Text)
If id = "" Then
MsgBox "请输入用户名！", vbExclamation, "警告"
txtUserID.SetFocus
Exit Sub
End If

If pwd = "" Then
MsgBox "请输入密码！", vbExclamation, "警告"
txtUserPwd.SetFocus
Exit Sub
End If

'---------------------------
'操作员身份验证
'---------------------------
Dim sql As String
Dim rs As ADODB.Recordset
sql = "select o_name, o_id, o_pwd, o_stau from co_info where o_id='" & id & "'"
On Error GoTo err1
Set rs = sys.objconn.Execute(sql)
If rs.BOF And rs.EOF Then '用户名不存在
MsgBox "用户名或密码错误！", vbExclamation, "警告"
txtUserID.Text = ""
txtUserPwd.Text = ""
txtUserID.SetFocus
Else '用户名存在
If rs(1) = id And rs(2) = pwd Then '密码正确
logName = rs(0)
logStau = rs(3)
sysLogin.Hide
sysForm.Show
Else '密码错误
MsgBox "用户名或密码错误！", vbExclamation, "警告"
txtUserID.Text = ""
txtUserPwd.Text = ""
txtUserID.SetFocus
End If
End If
Exit Sub
err1:
MsgBox "用户名或密码错误！", vbExclamation, "警告"
Exit Sub
End Sub

momo1113 2004-07-21

打赏
举报

Dim myConn As SqlConnection
Dim myComm As SqlCommand
Dim myDataread As SqlDataReader

myConn = New SqlConnection("server=127.0.0.1;integrated security=yes;database=pubs")
myConn.Open()
myComm = New SqlCommand("select * from employee where emp_id='" & TextBox1.Text & "' and fname='" & TextBox2.Text & "'", myConn)
myDataread = myComm.ExecuteReader
If myDataread.Read Then
Response.Write("登录成功")
Else
Response.Write("登录失败")
End If
myConn.Close()

liyiding23 2004-07-20

打赏
举报

Public Class myVBClass
Dim myConnectionString As String = "packet size=4096;user id=username;password=password;data source=198.168.1.1;persist security info=True;initial catalog=mypc"
Dim myConnection As New SqlConnection 'a conn
Dim myCommand As New SqlCommand 'a command 1
Dim myDataReader As SqlDataReader 'a read 2
Dim MyAdapter As New SqlDataAdapter 'a adapter 3

Function GetDataSet(ByVal tsql As String, ByVal name As String) As DataSet
Dim myDataSet As New DataSet
myDataSet.Clear()
myConnection = New SqlConnection(myConnectionString)
myConnection.Open()
myCommand.CommandText = tsql
myCommand.Connection = myConnection
MyAdapter.SelectCommand = myCommand
MyAdapter.Fill(myDataSet, name)
myConnection.Close()
Return myDataSet
End Function
end class

wumylove1234 2004-07-20

打赏
举报

根据dialogresult的结果来写吧.

水如烟 2004-07-20

打赏
举报

我最怕Webform了

zhouats2000 2004-07-20

打赏
举报

To:CMIC(大象)

来段VB的吧

liuyi3000 2004-07-20

打赏
举报

CMIC 2004-07-20

打赏
举报

http://www.csdn.net/Develop/Read_Article.asp?Id=18095

Tony8002003 2004-07-20

打赏
举报

这很简单。用过VB吧。

shixianyong 2004-07-20

打赏
举报

有没有这样了代码：

用VB.Net建立一个基于winform的工程，包含一个主窗口，一个登录窗口。主窗口包含若干菜单项，main()函数在主窗口中。登录窗口包含用户名称输入框和密码输入框，还有用户类型选择框，确定按钮。需要在主窗口加载的时候，弹出登录窗口，用户输入用户名称和密码，选择用户类型之后，通过确定按钮。用户通过验证后，自动关闭登录窗口，此时，主窗口的特定菜单变为可用，某些菜单变为不可用，就是改变了菜单的enabled属性。主窗口变为当前活动窗口。如果用户不通过验证，关闭了登录窗口，那么禁止所有菜单。