VB.net2008与ACCESS创建登录程序

　创建完成后可看到漂亮的登录界面，默认窗体名称为：LoginForm1。我们需要双击窗体进入代码视图，进行声明。图5

　　
在Public Class LoginForm1事件中输入相应代码：
Dim Conn As OleDb.OleDbConnection
Dim Cmd As OleDb.OleDbCommand
Dim Rd As OleDb.OleDbDataReader
Dim SQL As String
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=C:\Database\data.mdb"

随后回到LoginForm1界面双击（确定）按钮进入代码视图，在 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click中输入：


Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Conn = New OleDb.OleDbConnection(Provider & ";" & Database)
Conn.Open()

SQL = "Select * From 登录 Where Name='" & UsernameTextBox.Text & "' And Password='" & PasswordTextBox.Text & "'"
Cmd = New OleDb.OleDbCommand(SQL, Conn)

Rd = Cmd.ExecuteReader()
If Rd.Read() Then
Dim form1 As New Form1

form1.Show()
Me.Hide()
Else
MessageBox.Show("密码或用户名错误!", "错误提示!", MessageBoxButtons.OK, MessageBoxIcon.Error)
UsernameTextBox.Text = ""
PasswordTextBox.Text = ""
UsernameTextBox.Focus()
End If
Rd.Close()
Conn.Close()
End Sub


最后代码如图所示

共3页: 上一页 [1] [2] [3] 下一页