form.vb

一个功能强大的学生公寓管理系统 界面非常友好 十分强大

        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(104, 40)
        Me.Button5.TabIndex = 17
        '
        'Button6
        '
        Me.Button6.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me.Button6.BackgroundImage = CType(resources.GetObject("Button6.BackgroundImage"), System.Drawing.Image)
        Me.Button6.Location = New System.Drawing.Point(512, 0)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(104, 40)
        Me.Button6.TabIndex = 18
        '
        'Button7
        '
        Me.Button7.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me.Button7.BackgroundImage = CType(resources.GetObject("Button7.BackgroundImage"), System.Drawing.Image)
        Me.Button7.Location = New System.Drawing.Point(616, 0)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(88, 40)
        Me.Button7.TabIndex = 19
        '
        'Button8
        '
        Me.Button8.BackColor = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
        Me.Button8.BackgroundImage = CType(resources.GetObject("Button8.BackgroundImage"), System.Drawing.Image)
        Me.Button8.Location = New System.Drawing.Point(704, 0)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(88, 40)
        Me.Button8.TabIndex = 20
        '
        'Form
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.Color.Blue
        Me.ClientSize = New System.Drawing.Size(792, 515)
        Me.Controls.Add(Me.Button8)
        Me.Controls.Add(Me.Button7)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.ToolBar1)
        Me.ForeColor = System.Drawing.SystemColors.ControlText
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual
        Me.Text = "学生公寓管理系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New Form1
        F.MdiParent = Me
        F.Show()
        FR.Close()


    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New Form2
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Dim FR As New 提示
        FR.Show()
      
        Dim F As New Form3
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 水电费管理
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim FR As New 提示
        FR.Show()
        Dim FR3 As New Form6
        FR3.Show()
        FR3.Close()
        Dim F As New 住宿统计主界面
        F.MdiParent = Me
        F.Show()
        FR.Close()

    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

    End Sub

    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Application.Exit()

    End Sub

    Private Sub Form_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Application.Exit()
    End Sub

    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 外来人员记录
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 学生晚归记录
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 个人纪律管理
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 宿舍纪律
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 宿舍卫生
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        Dim F As New 更改密码
        F.MdiParent = Me
        F.Show()
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        Dim F As New 注册新用户
        F.MdiParent = Me
        F.Show()
    End Sub

    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 费用支出
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 院系专业
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub
    Private Sub MenuItem32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem32.Click
        Dim FR As New 提示
        FR.Show()
        Dim ab3 As New 文明分统计
        ab3.Show()
        ab3.Close()
        Dim ab4 As New 社区文明分统计
        ab4.MdiParent = Me
        ab4.Show()
        FR.Close()

    End Sub

    Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 公益活动记录
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 宿舍纪律分统计
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub MenuItem30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem30.Click
        Dim F As New 意见
        F.MdiParent = Me
        F.Show()
    End Sub

    Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click
        Dim F As New 关于
        F.MdiParent = Me
        F.Show()
    End Sub

    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
        Dim Ft As New help
        Ft.MdiParent = Me
        Ft.Show()
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

    End Sub

    Private Sub Form_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Exit Sub
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New Form2
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FR As New 提示
        FR.Show()

        Dim F As New Form3
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 学生晚归记录
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 宿舍纪律
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 宿舍卫生
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 个人纪律管理
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim FR As New 提示
        FR.Show()
        Dim F As New 水电费管理
        F.MdiParent = Me
        F.Show()
        FR.Close()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Application.Exit()
    End Sub
End Class