数据库登陆注册.txt

VB与ACCESS数据库制作的的注册登陆查询系统

登陆过程：（如果是ACCESS数据库）
  0. 导入命名空间imports system.data.oledb
  1. 建立数据连接（配置数据适配器）
  2. 判断用户名和密码是否为空。如果为空，结束Sub
  3. 创建一个oledbcommand对象
     该对象需要两个参数（select语句，连接对象）
  4. 创建一个oledbdatareader对象
  5. 带开连接
  6. 执行oledbcommand对象的executereader方法结果放oledbdatareader对象中   
  7. 通过循环判断输入的数据是否在数据库中。
  8.数据连接关闭
If TextBox1.Text = "" Then
            MessageBox.Show("用户名不能为空！")
            Exit Sub
        End If
        If TextBox2.Text = "" Then
            MessageBox.Show("密码不能为空！")
            Exit Sub
        End If

        Dim b As Boolean = False
        'OleDbDataAdapter1.SelectCommand.CommandText = "select * from yonghu"
        Dim cmd As New OleDbCommand("select * from yonghu", OleDbConnection1)
        Dim dr As OleDbDataReader
        OleDbConnection1.Open()
        dr = cmd.ExecuteReader
        While dr.Read
            If dr.GetValue(0) = TextBox1.Text And dr.GetValue(1) = TextBox2.Text Then
                b = True
            End If
        End While
        If b = True Then
            Dim f2 As New Form2
            Me.Hide()
            f2.ShowDialog()
        Else
            MessageBox.Show("登陆失败！")
        End If
        dr.Close()
        OleDbConnection1.Close()

如果是SQL数据库
  导入imports system.data.sqlclient

注册过程：（如果是ACCESS数据库）
  1. 导入命名空间imports system.data.oledb
  2. 建立数据连接（配置数据适配器）
  3.  判断用户名和密码是否为空。如果为空，结束Sub
4.  创建一个oledbcommand对象
     该对象需要两个参数（insert语句，连接对象）
5. 打开连接
6. 执行oledbcommand对象的executenonquery方法
7.关闭连接
 If TextBox1.Text = "" Then
            MessageBox.Show("用户名不能为空!")
            Exit Sub
        End If
        If TextBox2.Text = "" Or TextBox3.Text = "" Then
            MessageBox.Show("密码不能为空!")
            Exit Sub
        End If
        If TextBox2.Text <> TextBox3.Text Then
            MessageBox.Show("密码输入不同！")
            Exit Sub
        End If
        
//判断输入的用户名是否存在，
        Dim s1 As String = "select * from yonghu"
        Dim cmd1 As New OleDbCommand(s1, OleDbConnection1)
        Dim dr As OleDbDataReader
        OleDbConnection1.Open()
        dr = cmd1.ExecuteReader
        While dr.Read
            If dr.GetValue(0) = TextBox1.Text Then
                MessageBox.Show("该用户已经注册！")
                OleDbConnection1.Close()
                Exit Sub
            End If
        End While
        dr.Close()
        

//如果输入的用户名不存在就注册
        Dim s As String = "insert into yonghu(name,pass) values('" + TextBox1.Text + "','" + TextBox2.Text + "')"
        Dim cmd As New OleDbCommand(s, OleDbConnection1)
        Try
            'OleDbConnection1.Open()
            cmd.ExecuteNonQuery()
            MessageBox.Show("注册成功!")

            Dim f1 As New Form1
            Me.Hide()
            f1.Show()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
        OleDbConnection1.Close()