frmadmin.vb

图书管理系统,用来管理图书的借还,以及借阅超过时间进行处罚,和管理员用户权限

        Me.mnudb.Index = 4
        Me.mnudb.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnubackup, Me.mnurecover})
        Me.mnudb.Text = "数据库管理"
        '
        'mnubackup
        '
        Me.mnubackup.Index = 0
        Me.mnubackup.Text = "数据库备份"
        '
        'mnurecover
        '
        Me.mnurecover.Index = 1
        Me.mnurecover.Text = "数据库恢复"
        '
        'mnuhelp
        '
        Me.mnuhelp.Index = 5
        Me.mnuhelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuabout})
        Me.mnuhelp.Text = "帮助"
        '
        'mnuabout
        '
        Me.mnuabout.Index = 0
        Me.mnuabout.Text = "关于"
        '
        'stabmain
        '
        Me.stabmain.Location = New System.Drawing.Point(0, 394)
        Me.stabmain.Name = "stabmain"
        Me.stabmain.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.stabusername, Me.stauserquanxian})
        Me.stabmain.ShowPanels = True
        Me.stabmain.Size = New System.Drawing.Size(592, 23)
        Me.stabmain.TabIndex = 1
        Me.stabmain.Text = "StatusBar1"
        '
        'stabusername
        '
        Me.stabusername.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.stabusername.Text = "当前登录用户名称："
        Me.stabusername.Width = 288
        '
        'stauserquanxian
        '
        Me.stauserquanxian.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.stauserquanxian.Text = "当前登录用户权限"
        Me.stauserquanxian.Width = 288
        '
        'frmadmin
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(592, 417)
        Me.Controls.Add(Me.stabmain)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmadmin"
        Me.Text = "图书管理系统----管理员"
        CType(Me.stabusername, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stauserquanxian, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public ictrl As Integer
    Public loginname As String
   

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If ictrl <> 0 Then
            mnuadmin.Visible = False
            stabusername.Text = "当前登录用户为：" + loginname
            stauserquanxian.Text = "当前登录用户权限为:----超级管理员"
        Else
            mnusuperadmin.Visible = False
            stabusername.Text = "当前登录用户为：" + loginname
            stauserquanxian.Text = "当前登录用户权限为:----管理员"
        End If
    End Sub

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

    Private Sub menuModifyUser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuModifyadmin.Click
        'PictureBox1.Visible = False
        Dim frm As New frmsuperAdminModify
        frm.MdiParent = Me
        frm.Show()


     
    End Sub

    Private Sub mnudeluser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudeluser.Click
        'PictureBox1.Visible = False
        Dim frm As New frmdeluser
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub menuAddaddmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuAddaddmin.Click
        'PictureBox1.Visible = False
        Dim frm As New frmaddadmin
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub menuDeladdmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuDeladdmin.Click
        'PictureBox1.Visible = False
        Dim frm As New frmdeladmin
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuadduser_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuadduser.Click
        'PictureBox1.Visible = False
        Dim frm As New frmaddUser
        frm.MdiParent = Me
        frm.Show()
    End Sub


    Private Sub mnuuserinfomodify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuuserinfomodify.Click
        'PictureBox1.Visible = False
        Dim frm As New frmuserinfomodify
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuadduser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuadduser1.Click
        'PictureBox1.Visible = False
        Dim frm As New frmaddUser
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnudeluser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudeluser1.Click
        'PictureBox1.Visible = False
        Dim frm As New frmdeluser
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnumodifyuser1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnumodifyuser1.Click
        'PictureBox1.Visible = False
        Dim frm As New frmuserinfomodify
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuaddbooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuaddbooks.Click
        'PictureBox1.Visible = False
        Dim frm As New frmAddBook
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnudelbooks_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudelbooks.Click
        ' PictureBox1.Visible = False
        Dim frm As New frmDelBook
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuquery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuquery.Click
        'PictureBox1.Visible = False
        Dim frm As New frmQueryBook
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnubackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnubackup.Click
        'PictureBox1.Visible = False
        Dim frm As New frmbackup
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnurecover_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnurecover.Click
        'PictureBox1.Visible = False
        Dim frm As New frmrecover
        frm.MdiParent = Me
        frm.Show()

        
    End Sub

    Private Sub mnuaddclass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuaddclass.Click
        'PictureBox1.Visible = False
        Dim frm As New frmaddbookclass
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnudelclass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnudelclass.Click
        'PictureBox1.Visible = False
        Dim frm As New frmdelbookclass
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub mnuabout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuabout.Click
        'PictureBox1.Visible = False
        Dim frm As New frmabout
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub Menufindbookclass_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menufindbookclass.Click
        'PictureBox1.Visible = False
        Dim frm As New frmfindbookclass
        frm.MdiParent = Me
        frm.Show()

    End Sub
End Class