小区物业管理系统-项目结构分析和登录编写

小区物业管理系统-项目结构分析和登录编写

项目结构

数据库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