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

最新推荐文章于 2024-04-21 15:39:27 发布

YJY@

最新推荐文章于 2024-04-21 15:39:27 发布

阅读量1.3k

点赞数 3

分类专栏： VB.NET程序设计

本文链接：https://blog.csdn.net/qq_50804645/article/details/118077099

版权

VB.NET程序设计专栏收录该内容

3 篇文章 3 订阅

订阅专栏

功能(整体按照MVC三层架构组织)

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

使用的工具

1.Microsoft Visual Studio 2012
2.SqlServer 2012

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

一.登录界面（角色不同，登录的主界面也不同）

在这里插入图片描述

2.忘记密码（修改密码）

在这里插入图片描述

3.系统管理员登录

在这里插入图片描述

4.普通用户登录

在这里插入图片描述

5.普通用户注册

在这里插入图片描述

6.数据库创建（有三张表）

在这里插入图片描述
这个是刚才注册的用户

部分代码如下：

登录界面代码：（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

数据库文件（SQLResources.vb模块）

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

YJY@

关注

3
点赞
踩
21

收藏

觉得还不错? 一键收藏
打赏
1
评论
基于VB.NET的书店管理系统(登录，注册，修改密码)

基于VB.NET的书店管理系统功能(整体按照MVC三层架构组织)一.登录界面二.主界面（系统管理员主界面，普通用户主界面）三.忘记密码（普通用户修改密码）四. 用户注册（普通用户注册）五.部分代码展示六.数据库表七.VB.NET 连接SQLserver2012 文件使用的工具1.Microsoft Visual Studio 20122.SqlServer 2012一，该管理系统是采用Javaweb开发模式，有连接数据库的dao(模块层),完成逻辑的service(模块层)，实体
复制链接

扫一扫