急！谁有用户登录的VB.NET源代码呀！
谁有用户登录的VB.NET源代码呀！
急！！！！！！！！
电子邮箱：yushubin@163.com
谢谢！各位大侠！！！
如分不够在加！！！
问题点数：100、回复次数：15Top
1 楼mapserver（杨东 http://mapserver.cnblogs.com）回复于 2005-11-01 10:33:05 得分 0
有点晕。Top
2 楼pupo（泡泡）回复于 2005-11-01 10:34:49 得分 0
winform 还是 webform?Top
3 楼yushubin（哭树无泪）回复于 2005-11-01 11:43:51 得分 0
winform 的，谢谢！！！！Top
4 楼jxufewbt（我的目标是5星）回复于 2005-11-01 11:50:21 得分 0
你不会搜索吗？Top
5 楼pupo（泡泡）回复于 2005-11-01 12:01:14 得分 50
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtUserName As System.Windows.Forms.TextBox
Friend WithEvents btnLogin As System.Windows.Forms.Button
Friend WithEvents btnCancle As System.Windows.Forms.Button
Friend WithEvents txtPassWord As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.btnLogin = New System.Windows.Forms.Button
Me.btnCancle = New System.Windows.Forms.Button
Me.txtUserName = New System.Windows.Forms.TextBox
Me.txtPassWord = New System.Windows.Forms.TextBox
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(24, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 17)
Me.Label1.TabIndex = 0
Me.Label1.Text = "用户名:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(24, 48)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(35, 17)
Me.Label2.TabIndex = 1
Me.Label2.Text = "密码:"
'
'btnLogin
'
Me.btnLogin.Location = New System.Drawing.Point(32, 88)
Me.btnLogin.Name = "btnLogin"
Me.btnLogin.TabIndex = 2
Me.btnLogin.Text = "登录"
'
'btnCancle
'
Me.btnCancle.Location = New System.Drawing.Point(136, 88)
Me.btnCancle.Name = "btnCancle"
Me.btnCancle.TabIndex = 3
Me.btnCancle.Text = "取消"
'
'txtUserName
'
Me.txtUserName.Location = New System.Drawing.Point(80, 16)
Me.txtUserName.Name = "txtUserName"
Me.txtUserName.TabIndex = 4
Me.txtUserName.Text = ""
'
'txtPassWord
'
Me.txtPassWord.Location = New System.Drawing.Point(80, 40)
Me.txtPassWord.Name = "txtPassWord"
Me.txtPassWord.PasswordChar = Microsoft.VisualBasic.ChrW(42)
Me.txtPassWord.TabIndex = 5
Me.txtPassWord.Text = ""
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(240, 127)
Me.Controls.Add(Me.txtPassWord)
Me.Controls.Add(Me.txtUserName)
Me.Controls.Add(Me.btnCancle)
Me.Controls.Add(Me.btnLogin)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.Text = "登录"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnCancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancle.Click
Me.Close()
End Sub
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
If Me.txtUserName.Text.Trim.Length = 0 Or Me.txtPassWord.Text.Trim.Length = 0 Then
MsgBox("请输入用户名或密码")
Exit Sub
End If
Dim conString As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=D:\Inetpub\wwwroot\WebApplication1\Database\Test.mdb"
Dim conn As New OleDb.OleDbConnection(conString)
Dim comm As New OleDb.OleDbCommand("SELECT UserName, PassWord FROM UserInfo WHERE UserName = '" & Me.txtUserName.Text & "'", conn)
Try
conn.Open()
Dim dr As OleDb.OleDbDataReader = comm.ExecuteReader()
If dr.HasRows Then
dr.Read()
If dr.Item("PassWord").ToString = Me.txtPassWord.Text Then
MsgBox("登录成功")
Else
MsgBox("登录失败")
End If
End If
dr.Close()
Catch ex As Exception
MsgBox(ex.ToString)
Finally
If conn.State = ConnectionState.Open Then conn.Close()
conn.Dispose()
comm.Dispose()
End Try
End Sub
End Class
Top
6 楼ranzige（我相信群众）回复于 2005-11-01 12:39:18 得分 30
严重同意楼上的
====CSDN 小助手 V2.0 2005年10月16日发布====
CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
界面：http://blog.csdn.net/Qqwwee_Com/archive/2005/10/16/504620.aspx
下载：http://szlawbook.com/csdnv2/csdnv2.rar
为神六喝彩，向所有科技工作者致敬！
拒绝日货。Top
7 楼yushubin（哭树无泪）回复于 2005-11-01 14:54:47 得分 0
我想要的是，打开数据库的写在一个类里面，这点击事件里面调用并进行判断，并给下一窗体传值。数据库为：SQLTop
8 楼shanxing（*努力奋斗每一天（因为我是中专生）*）回复于 2005-11-01 15:22:23 得分 0
upTop
9 楼yushubin（哭树无泪）回复于 2005-11-02 08:28:01 得分 0
有捞个位了…………Top
10 楼pupo（泡泡）回复于 2005-11-03 14:29:18 得分 0
SQL 换一下连接字符串就可以了，至于写在哪个类里就看你自己怎么封装了Top
11 楼sf8989（锋(--->VB.NET)）回复于 2005-11-03 14:42:08 得分 0
樓主是不是電鋒,覺得奇怪,怎麼近來這麼多人問這個的Top
12 楼AreZong（）回复于 2005-11-03 15:27:31 得分 0
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
向 pupo(泡泡)，这样无私奉献的人 学习！
Top
13 楼lywzl（悠闲闪客）回复于 2005-11-03 19:28:20 得分 0
哪有全自动的语句，只有智能话编程工具，要判断用户登录的信息，只有编写代码。
首先在数据库中建立一个用户表，在用户表中建立用户名、口令和登录权限等字段。然后在登录窗口中读取当前的用户输入登录的用户名，再判断密码是否相同。登录成功后根据登录用户的权限设置相应的功能，允许/禁止使用某些功能。Top
14 楼sky9531（玩得晚,睡得晚）回复于 2005-11-04 00:01:23 得分 20
楼主可参考一下:
http://community.csdn.net/Expert/topic/4227/4227419.xml?temp=.168606Top
15 楼yushubin（哭树无泪）回复于 2005-11-04 08:37:53 得分 0
我要这个源码，主要是想看一下你们用类写的数据库连接方式如何去应用一下，在网上找到的只是一些数据库连接的代码。Top
