功能(整体按照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