基于VB.NET的书店管理系统(登录，注册，修改密码) |
您所在的位置：网站首页 › vb与数据库实例 › 基于VB.NET的书店管理系统(登录，注册，修改密码) |
基于VB.NET的书店管理系统(登录，注册，修改密码)
|
功能(整体按照MVC三层架构组织)
一.登录界面 二.主界面（系统管理员主界面，普通用户主界面） 三.忘记密码（普通用户修改密码） 四. 用户注册（普通用户注册） 五.部分代码展示 六.数据库表 七.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 Classservice层（逻辑层代码） 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 Subdao层（连接数据库） 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 |
这个是刚才注册的用户 
【本文地址】
今日新闻 |
推荐新闻 |