小区物业管理系统-项目结构分析和登录编写
Posted CaoPengCheng&
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了小区物业管理系统-项目结构分析和登录编写相关的知识,希望对你有一定的参考价值。
小区物业管理系统-项目结构分析和登录编写
项目结构
数据库E-R
采用Javaweb开发模式,有连接数据库的dao(模块),完成逻辑的service(模块),实体类pojo(类),视图view(窗体)
登录Login
三种不同用户,登录不同页面,用户名与密码也完全不同
加入table属性,便于后期操作
Public Class User
Private username As String
Private password As String
Private table As String
Public Function usernameGet()
Return username
End Function
Public Sub usernameSet(name As String)
username = name
End Sub
Public Function passwordGet()
Return password
End Function
Public Sub passwordSet(word As String)
password = word
End Sub
Public Function tableGet()
Return table
End Function
Public Sub tableSet(t As String)
table = t
End Sub
End Class
'模块:UserService
'作用:用户登录逻辑实现
'@author:CaoPengCheng
Module UserService
'方法:User_System_Index();
'作用:用于系统管理员逻辑判断
'参数:(username,passworld)
Public Sub User_System_Index(user As User)
'Dim table As String = "User_System"
If (userSelectUsername(user)) Then
If (userSelectPassworld(user)) Then
Dim MainSystem As New Main_System
MainSystem.ShowDialog()
Else
MsgBox("密码错误!!!")
End If
Else
MsgBox("用户名不存在!!!")
End If
End Sub
'方法:User_Proprietor_Index();
'作用:用于业主逻辑判断
'参数:(username,passworld)
Public Sub User_Proprietor_Index(user As User)
'Dim table As String = "User_Proprietor"
If (userSelectUsername(user)) Then
If (userSelectPassworld(user)) Then
Dim MainProprietor As New Main_Proprietor(user)
MainProprietor.ShowDialog()
Else
MsgBox("密码错误!!!")
End If
Else
MsgBox("用户名不存在!!!")
End If
End Sub
'方法:User_ProMan_Index();
'作用:用于物业管理员逻辑判断
'参数:(username,passworld)
Public Sub User_ProMan_Index(user As User)
'Dim table As String = "User_PropetyManager"
If (userSelectUsername(user)) Then
If (userSelectPassworld(user)) Then
Dim MainPropertyManager As New Main_PropertyManager
MainPropertyManager.ShowDialog()
Else
MsgBox("密码错误!!!")
End If
Else
MsgBox("用户名不存在!!!")
End If
End Sub
End Module
Imports System.Data.SqlClient
Imports System.Data.OleDb
'模块:UserDao
'作用:用户登录数据库交互
'@author:CaoPengCheng
Module UserDao
Dim conn As String = "Provider=Sqloledb;data source=LAPTOP-V0BVG0SH\\SQLEXPRESS;connect timeout=5;User ID=sa;Password='cao';initial catalog=PropertyManagementSystem_DB;"
Dim conn2 As String = "data source=LAPTOP-V0BVG0SH\\SQLEXPRESS;connect timeout=5;User ID=sa;Password='cao';initial catalog=PropertyManagementSystem_DB;"
'方法:userSelectUsername();
'作用:用于查询三个登录用户是否存在
'参数:(username,table)
'返回值:用户名是否存在于表中(int),1存在,否在不存在
Public Function userSelectUsername(user As User)
Dim f As Integer
Try
Dim objconn As New SqlConnection(conn2)
Dim strsql1 As String = "select count(*) from " & user.tableGet() & " where username='" & user.usernameGet() & "'"
objconn.Open()
Dim objcmd As New SqlCommand(strsql1, objconn)
f = objcmd.ExecuteScalar
objconn.Close()
objcmd.Dispose()
Catch ex As Exception
MsgBox("userServletUsername" + ex.Message)
End Try
If (f > 0) Then
Return 1
Else
Return 0
End If
End Function
'方法:userSelectPassworld();
'作用:用于三个登录用户的不同表的密码判断
'参数:(username,table)
'返回值:1密码正确
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 password from " & user.tableGet() & " where username='" & user.usernameGet() & "'"
objAdap = New OleDbDataAdapter(strsql, conn)
objDataSet.Reset() '清除数据集
objAdap.Fill(objDataSet, "User") '第二个参数就是给这个虚拟表起个名字
f = objDataSet.Tables("User").Rows(0).Item(0)
Catch ex As Exception
MsgBox("userServletPassworld" + ex.Message)
End Try
If (Int(user.passwordGet()) = f) Then
Return 1
Else
Return 0
End If
End Function
'方法:userSelect();
'作用:用户表数据查询
'参数:(username,table)
'返回值:user
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 username,password from " & user.tableGet() & " where username='" & username & "'"
objAdap = New OleDbDataAdapter(strsql, objconn)
MsgBox("1")
objDataSet.Reset() '清除数据集
MsgBox("2")
objAdap.Fill(objDataSet, "User") '第二个参数就是给这个虚拟表起个名字
MsgBox("3")
user.usernameSet(objDataSet.Tables("User").Rows(0).Item(0))
user.passwordSet(objDataSet.Tables("User").Rows(0).Item(1))
Catch ex As Exception
MsgBox("userSelect:" + ex.Message)
End Try
Return user
End Function
End Module
Public Class Login
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
'Dim username As String = TextBox1.Text
'Dim password As String = TextBox2.Text
Dim user As New User
user.usernameSet(TextBox1.Text)
user.passwordSet(TextBox2.Text)
If RadioButton1.Checked = True Then
user.tableSet("User_PropetyManager")
User_ProMan_Index(user)
ElseIf RadioButton2.Checked = True Then
user.tableSet("User_Proprietor")
User_Proprietor_Index(user)
ElseIf RadioButton3.Checked = True Then
user.tableSet("User_System")
User_System_Index(user)
Else
MsgBox("请选择用户类型!")
End If
End Sub
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Me.Close()
End Sub
Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
Label6.Visible = False
End Sub
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
PictureBox1.BackgroundImageLayout = ImageLayout.Stretch
Label6.Visible = True
End Sub
Private Sub PictureBox2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox2.MouseLeave
PictureBox2.BackgroundImageLayout = ImageLayout.Zoom
Label7.Visible = False
End Sub
Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
PictureBox2.BackgroundImageLayout = ImageLayout.Stretch
Label7.Visible = True
End Sub
Private Sub Label1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseLeave
Label9.Visible = False
End Sub
Private Sub Label1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseMove
Label9.Visible = True
End Sub
Private Sub Login_Click(sender As Object, e As EventArgs) Handles Me.Click
GroupBox1.Visible = True
GroupBox2.Visible = True
PictureBox2.Visible = True
PictureBox1.Visible = True
End Sub
Private Sub Login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Label7.Visible = False
Label6.Visible = False
Label9.Visible = False
GroupBox1.Visible = False
GroupBox2.Visible = False
PictureBox2.Visible = False
PictureBox1.Visible = False
End Sub
Private Sub Label8_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label8.MouseMove
GroupBox1.Visible = False
GroupBox2.Visible = False
PictureBox2.Visible = False
PictureBox1.Visible = False
End Sub
End Class
以上是关于小区物业管理系统-项目结构分析和登录编写的主要内容,如果未能解决你的问题,请参考以下文章