基于VB.NET的书店管理系统(登录，注册，修改密码)

一.登录界面
二.主界面（系统管理员主界面，普通用户主界面）
三.忘记密码（普通用户修改密码）
四. 用户注册（普通用户注册）
五.部分代码展示
六.数据库表
七.VB.NET 连接SQLserver2012 文件

1.Microsoft Visual Studio 2012
2.SqlServer 2012

一，该管理系统是采用Javaweb开发模式，有连接数据库的dao(模块层),完成逻辑的service(模块层)，实体类bean(类)，视图web(窗体)

这个是刚才注册的用户

登录界面代码：（web层）

Public Class UserLogin

    Dim user As New User()
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim username As String = TextBox1.Text
        Dim password As String = TextBox2.Text
        user.Set_用户名(username)
        user.Set_用户密码(password)
        If RadioButton1.Checked = True Then
            user.Set_table("系统用户表")
            UserSystemIndex(user)
        ElseIf RadioButton2.Checked = True Then
            user.Set_table("普通用户表")
            UserIndex(user)

        Else
            MsgBox("请选择角色！")
        End If
    End Sub
   
    Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
        If e.KeyCode = Keys.Enter Then
            TextBox2.Focus()
        End If
    End Sub

    Private Sub UserLogin_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Focus()
        TextBox2.PasswordChar = "*"
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim username As String = TextBox1.Text
        Dim password As String = TextBox2.Text
        If username = "" Then
            MsgBox("请输入用户名！")
        Else
            user.Set_用户名(username)
            user.Set_用户密码(password)
            Dim update As New UserUpdate(user)
            update.ShowDialog()

        End If  
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim zc As New UserRegister
        zc.ShowDialog()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
End Class

注册界面代码：（web层）

Public Class UserRegister

    Private Sub UserRegister_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False
    End Sub


    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox4.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim user As New User()
        Dim username As String = TextBox1.Text.Trim
        Dim passworld As String = TextBox2.Text.Trim
        'Dim sex As String = GroupBox1.Text.Trim
        Dim iphone As String = TextBox4.Text.Trim

        If (username = "") Then
            MsgBox("用户名不能为空！")
        Else
            If (passworld = "") Then
                MsgBox("密码不能为空！")
            Else
                If (RadioButton1.Checked = False And RadioButton2.Checked = False) Then
                    MsgBox("请选择性别！")
                Else
                    If (iphone = "") Then
                        MsgBox("电话号码不能为空！")
                    Else
                        If (RadioButton1.Checked = True) Then
                            user.Set_性别("男")
                        End If
                        If (RadioButton2.Checked = True) Then
                            user.Set_性别("女")
                        End If
                        user.Set_用户名(username)
                        user.Set_用户密码(passworld)
                        user.Set_性别(user.Get_性别())
                        user.Set_电话号码(iphone)
                        user.Set_table("普通用户表")
                        userLoginindex(user)
                        Me.Close()
                    End If
                End If
            End If
        End If

    End Sub
   
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

service层（逻辑层代码）

Public Sub UserSystemIndex(user As User)
        If (userSelectUsername(user)) Then
            If (userSelectPassworld(user)) Then
                Dim usersystemindex As New User_System_Index(user)
                usersystemindex.ShowDialog()
            Else
                MsgBox("密码错误,请重新输入！")
            End If
        Else
            MsgBox("系统用户不存在，请点击注册！")
        End If
    End Sub

    Public Sub UserIndex(user As User)
        If (userSelectUsername(user)) Then
            If (userSelectPassworld(user)) Then
                Dim userindex As New User_Index(user)
                userindex.ShowDialog()
            Else
                MsgBox("密码错误,请重新输入！")
            End If
        Else
            MsgBox("普通用户不存在，请点击注册！")
        End If
    End Sub

    Public Sub userLoginindex(user As User)
        If (userSelectUsername(user) = 0) Then
            If (userInsert(user) = 0) Then
                Dim dl As New UserLogin
                MsgBox("注册成功,即将返回登录界面！")
                dl.ShowDialog()
            End If
        Else
            MsgBox("用户已存在！")
        End If
    End Sub

dao层（连接数据库）

mports System.Data.SqlClient
Imports System.Data.OleDb

Module UserDao

    Dim conn As String = sqlconn()
    Dim conn2 As String = sqlconn2()
 
    Public Function userSelectUsername(user As User)

        Dim f As Integer
        Try
            Dim objconn As New SqlConnection(conn2)
            Dim strsql As String = "select count(*) from " & User.Get_table() & " where 用户名 = '" & User.Get_用户名() & "'"
            objconn.Open()

            Dim objcmd As New SqlCommand(strsql, objconn)
            f = objcmd.ExecuteScalar
            objconn.Close()
            objcmd.Dispose()
        Catch ex As Exception

        End Try
        If (f > 0) Then
            Return 1
        Else
            Return 0
        End If
    End Function
    Public Function userSelectPassworld(user As User)

        Dim f As Integer
        Try
            Dim objconn As New OleDbConnection(conn)    '创建连接对象
            Dim objAdap As OleDbDataAdapter             '创建适配器对象
            Dim objDataSet As New DataSet               '创建数据集对象
            Dim strsql As String = "select 用户密码 from " & user.Get_table() & " where 用户密码 = '" & user.Get_用户密码() & "'"
            objAdap = New OleDbDataAdapter(strsql, conn)
            objDataSet.Reset()                          '清除数据集
            objAdap.Fill(objDataSet, "user")       '第二个参数就是给这个虚拟表起个名字
            f = objDataSet.Tables("user").Rows(0).Item(0)
        Catch ex As Exception

        End Try
        If (Int(user.Get_用户密码()) = f) Then
            Return 1
        Else
            Return 0
        End If

    End Function
    Public Function userSelect(username As String)
        Dim user As New User()

        Try
            Dim objconn As New OleDbConnection(conn)        '创建连接对象
            Dim objAdap As OleDbDataAdapter                 '创建适配器对象
            Dim objdataSet As New DataSet
            Dim strsql As String = "select * from 普通用户表 where 用户名='" & username & "'"
            objAdap = New OleDbDataAdapter(strsql, objconn)
            objdataSet.Reset()                              '清除数据集
            objAdap.Fill(objdataSet, "user")                '第二个参数就是给这个虚拟表起个名字

            user.Set_用户名(objdataSet.Tables("user").Rows(0).Item(0))   '第一行第一个单元格
            user.Set_用户密码(objdataSet.Tables("user").Rows(0).Item(1))
            user.Set_性别(objdataSet.Tables("user").Rows(0).Item(2))
            user.Set_电话号码(objdataSet.Tables("user").Rows(0).Item(3))
            'MsgBox(user.Get_性别())
            Return user
        Catch ex As Exception
            MsgBox("userSelect" + ex.Message)
        End Try
        Return 0
    End Function
    Public Function SelectUsername(user As User)

        Dim f As Integer
        Try
            Dim objconn As New SqlConnection(conn2)
            Dim strsql As String = "select count(*) from 普通用户表 where 用户名 = '" & user.Get_用户名() & "'"
            objconn.Open()
            Dim objcmd As New SqlCommand(strsql, objconn)
            f = objcmd.ExecuteScalar
            objconn.Close()
            objcmd.Dispose()

        Catch ex As Exception

        End Try
        If (f > 0) Then
            Return 1
        Else
            Return 0
        End If
    End Function


    Public Function userInsert(user As User)

        Dim f As Integer
        Try
            Dim objconn As New SqlConnection(conn2)
            Dim strsql As String = "insert into 普通用户表(用户名,用户密码,性别,电话号码) values ('" & user.Get_用户名() & "','" & user.Get_用户密码() & "','" & user.Get_性别() & "','" & user.Get_电话号码() & "')"
            objconn.Open()
            Dim objcmd As New SqlCommand(strsql, objconn)
            f = objcmd.ExecuteScalar
            objconn.Close()
            objcmd.Dispose()
        Catch ex As Exception
            MsgBox("添加失败：" + ex.Message)
        End Try
        If (f > 0) Then
            Return 1
        Else
            Return 0
        End If

    End Function

    Public Sub userUpdatepassworld(user As User)

        Try
            Dim strsql As String = "update 普通用户表 set 用户密码 = '" & user.Get_用户密码() & "' where 用户名 = '" & user.Get_用户名() & "'"
            Dim objconn As New SqlConnection(conn2)
            Dim objcmd As New SqlCommand(strsql, objconn)
            objconn.Open()
            objcmd.ExecuteNonQuery()
            objconn.Close()
        Catch ex As Exception
            MsgBox("userUpdata" + ex.Message)
        End Try

    End Sub
  End Module

Module SQLResources

    Property sqlconn As String = "Provider=Sqloledb;data source=LAPTOP-BPSJLBP5;connect timeout=5;User ID=aaa;Password='1234567890';initial catalog=Bookstore;"
    Property sqlconn2 As String = "data source=LAPTOP-BPSJLBP5;connect timeout=5;User ID=aaa;Password='1234567890';initial catalog=Bookstore;"

End Module