frmmain.vb

Visual Basic 2005数据库通用模块开发与系统移植 物业管理信息系统

Friend Class frmMain
	Inherits System.Windows.Forms.Form
	
	
	
    Private Sub 添加用户信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加用户信息ToolStripMenuItem.Click
        If User.UserName <> "Admin" Then
            MsgBox("只有超级管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim FrmObj As New FrmAddUser()
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 编辑用户信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 编辑用户信息ToolStripMenuItem.Click
        If User.UserName <> "Admin" Then
            MsgBox("只有超级管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim FrmObj As New FrmEditUser
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 删除用户信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 删除用户信息ToolStripMenuItem.Click
        If User.UserName <> "Admin" Then
            MsgBox("只有超级管理员才有此权限！", MsgBoxStyle.Exclamation, "信息框")
            Exit Sub
        End If
        Dim FrmObj As New FrmDelUser()
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 修改用户密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改用户密码ToolStripMenuItem.Click
        Dim FrmObj As New FrmModPwd()
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Me.Hide()
        Dim FrmObj As New FrmLogin
        ' FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        Me.Hide()
        Dim FrmObj As New FrmLockScreen()

        FrmObj.Show()
    End Sub

    Private Sub menuAddHouse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAddHouse.Click
        'If User.ModHouse = "无权限" Then
        '    MsgBox("您无权访问此模块！", MsgBoxStyle.Exclamation, "信息框")
        '    Exit Sub
        ' End If
        Dim FrmObj As New FrmAddHouse
        FrmObj.MdiParent = Me

        FrmObj.Show()
    End Sub

    Private Sub 按业主姓名ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按业主姓名ToolStripMenuItem.Click
        '  If User.ModHouse = "无权限" Then
        '   MsgBox("您无权访问此模块！", MsgBoxStyle.Exclamation, "信息框")
        '   Exit Sub
        '   End If
        Dim FrmObj As New frmFindHouse_Name
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按楼号单元号房间号ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem.Click
        ' If User.ModHouse = "无权限" Then
        '  MsgBox("您无权访问此模块！", MsgBoxStyle.Exclamation, "信息框")
        '  Exit Sub
        ' End If
        Dim FrmObj As New frmFindHouse_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

   


    Private Sub 按楼号单元号房间号ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem1.Click
        Dim FrmObj As New frmEditHouse_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按楼号单元号房间号ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem2.Click
        Dim FrmObj As New FrmDelHouse_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按业主姓名ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按业主姓名ToolStripMenuItem1.Click
        'If User.ModHouse = "无权限" Then
        'MsgBox("您无权访问此模块！", MsgBoxStyle.Exclamation, "信息框")
        '  Exit Sub
        '  End If
        '  Dim FrmObj As New frmEditHouse_Building
        ' FrmObj.MdiParent = Me
        'FrmObj.Show()
    End Sub

    Private Sub menuAddMeterData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAddMeterData.Click
        Dim FrmObj As New FrmAddFee
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    
 
 

    Private Sub 按收费类型ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按收费类型ToolStripMenuItem1.Click
        Dim FrmObj As New FrmFindFee_FeeType
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按楼号单元号房间号ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem5.Click
        Dim FrmObj As New FrmFindFee_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按楼号单元号房间号ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem3.Click
        Dim FrmObj As New FrmEditFee_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按收费类型ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按收费类型ToolStripMenuItem.Click
      
    End Sub

    Private Sub 按楼号单元号房间号ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按楼号单元号房间号ToolStripMenuItem4.Click
        Dim FrmObj As New FrmDelFee_Building
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按收费类型ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按收费类型ToolStripMenuItem2.Click
        Dim FrmObj As New FrmDelFee_FeeType
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub menuAddRepair_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAddRepair.Click
        Dim FrmObj As New FrmAddRepair
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub


    Private Sub 按维修人员姓名ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按维修人员姓名ToolStripMenuItem2.Click
        Dim FrmObj As New FrmEditRepair_RepairPerson
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

    Private Sub 按维修人员姓名ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 按维修人员姓名ToolStripMenuItem1.Click
        Dim FrmObj As New FrmFindRepair_RepairPerson
        FrmObj.MdiParent = Me
        FrmObj.Show()
    End Sub

   

    Private Sub menuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuExit.Click
        End
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        Me.ToolStripMenuItem1.Enabled = False
        Me.menuHouse.Enabled = False
        Me.menuMeterData.Enabled = False
        Me.menuRepair.Enabled = False
        Me.ToolStripMenuItem4.Enabled = False

    End Sub
End Class