adminmain.vb

图书馆管理系统,是数据库的课程设计,报告里面包含了需求分析数据字典概念结构设计逻辑结构设计数据库物理设计数据库实施

Imports System.Data
'引入数据库操作类命名空间
Imports System.Data.OleDb
'引入ADO.NET操作命名空间

Public Class win_adminmain
    Inherits System.Windows.Forms.Form
    Dim login As New library2.win_login
    Dim sqlstr As String 'SQL语句标记
    Dim objDS As DataSet '数据在内存中的缓存

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_exit As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_bookmanage As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_addadmin As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_changepw As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_about As System.Windows.Forms.MenuItem
    Friend WithEvents MenuI_boardmanage As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_classifymanage As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_admindata As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_studentdata As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_loaddata As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_adminmanage As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_changename As System.Windows.Forms.MenuItem
    Friend WithEvents Menu_librarybasicset As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents Menustumanage As System.Windows.Forms.MenuItem
    Friend WithEvents Menuclassmanage As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents Menutimeout As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(win_adminmain))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.Menu_addadmin = New System.Windows.Forms.MenuItem
        Me.Menu_adminmanage = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.Menu_changename = New System.Windows.Forms.MenuItem
        Me.Menu_changepw = New System.Windows.Forms.MenuItem
        Me.MenuItem11 = New System.Windows.Forms.MenuItem
        Me.Menu_exit = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.Menu_bookmanage = New System.Windows.Forms.MenuItem
        Me.Menu_classifymanage = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.Menuclassmanage = New System.Windows.Forms.MenuItem
        Me.Menustumanage = New System.Windows.Forms.MenuItem
        Me.MenuItem12 = New System.Windows.Forms.MenuItem
        Me.Menu_librarybasicset = New System.Windows.Forms.MenuItem
        Me.MenuI_boardmanage = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.Menu_admindata = New System.Windows.Forms.MenuItem
        Me.Menu_studentdata = New System.Windows.Forms.MenuItem
        Me.Menu_loaddata = New System.Windows.Forms.MenuItem
        Me.MenuItem13 = New System.Windows.Forms.MenuItem
        Me.Menu_about = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.Menutimeout = New System.Windows.Forms.MenuItem
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem5, Me.MenuItem7, Me.MenuItem3, Me.MenuItem12, Me.MenuItem6, Me.MenuItem13})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menu_addadmin, Me.Menu_adminmanage, Me.MenuItem2, Me.Menu_changename, Me.Menu_changepw, Me.MenuItem11, Me.Menu_exit})
        Me.MenuItem1.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.MenuItem1.Text = "系统(&S)"
        '
        'Menu_addadmin
        '
        Me.Menu_addadmin.Index = 0
        Me.Menu_addadmin.Text = "添加管理员"
        '
        'Menu_adminmanage
        '
        Me.Menu_adminmanage.Index = 1
        Me.Menu_adminmanage.Text = "删除管理员"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.Text = "-"
        '
        'Menu_changename
        '
        Me.Menu_changename.Index = 3
        Me.Menu_changename.Text = "修改帐号"
        '
        'Menu_changepw
        '
        Me.Menu_changepw.Index = 4
        Me.Menu_changepw.Text = "修改密码"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 5
        Me.MenuItem11.Text = "-"
        '
        'Menu_exit
        '
        Me.Menu_exit.Index = 6
        Me.Menu_exit.Text = "退出"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 1
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menu_bookmanage, Me.Menu_classifymanage})
        Me.MenuItem5.Shortcut = System.Windows.Forms.Shortcut.CtrlP
        Me.MenuItem5.Text = "图书管理(&P)"
        '
        'Menu_bookmanage
        '
        Me.Menu_bookmanage.Index = 0
        Me.Menu_bookmanage.Text = "图书管理"
        '
        'Menu_classifymanage
        '
        Me.Menu_classifymanage.Index = 1
        Me.Menu_classifymanage.Text = "分类管理"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 2
        Me.MenuItem7.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menuclassmanage, Me.Menustumanage})
        Me.MenuItem7.Shortcut = System.Windows.Forms.Shortcut.CtrlT
        Me.MenuItem7.Text = "教务管理(&T)"
        '
        'Menuclassmanage
        '
        Me.Menuclassmanage.Index = 0
        Me.Menuclassmanage.Text = "班级管理"
        '
        'Menustumanage
        '
        Me.Menustumanage.Index = 1
        Me.Menustumanage.Text = "学生管理"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 4
        Me.MenuItem12.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menu_librarybasicset, Me.MenuI_boardmanage})
        Me.MenuItem12.Shortcut = System.Windows.Forms.Shortcut.CtrlB
        Me.MenuItem12.Text = "系统配置(&B)"
        '
        'Menu_librarybasicset
        '
        Me.Menu_librarybasicset.Index = 0
        Me.Menu_librarybasicset.Text = "图书馆配置"
        '
        'MenuI_boardmanage
        '
        Me.MenuI_boardmanage.Index = 1
        Me.MenuI_boardmanage.Text = "公告管理"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 5
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menu_admindata, Me.Menu_studentdata, Me.Menu_loaddata})
        Me.MenuItem6.Shortcut = System.Windows.Forms.Shortcut.CtrlD
        Me.MenuItem6.Text = "数据(&D)"
        '
        'Menu_admindata
        '
        Me.Menu_admindata.Index = 0
        Me.Menu_admindata.Text = "管理员数据"
        '
        'Menu_studentdata
        '
        Me.Menu_studentdata.Index = 1
        Me.Menu_studentdata.Text = "学生数据"
        '
        'Menu_loaddata
        '
        Me.Menu_loaddata.Index = 2
        Me.Menu_loaddata.Text = "借阅数据"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 6
        Me.MenuItem13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menu_about})
        Me.MenuItem13.Shortcut = System.Windows.Forms.Shortcut.CtrlH
        Me.MenuItem13.Text = "帮助(&H)"
        '
        'Menu_about
        '
        Me.Menu_about.Index = 0
        Me.Menu_about.Text = "关于"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 3
        Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menutimeout})
        Me.MenuItem3.Text = "超时管理"
        '
        'Menutimeout
        '
        Me.Menutimeout.Index = 0
        Me.Menutimeout.Text = "超时图书学生管理"
        '
        'win_adminmain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(800, 529)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "win_adminmain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书馆管理系统后台管理"

    End Sub

#End Region

    Private Sub Menu_addadmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_addadmin.Click
        Dim win_addadmin As New win_addadmin
        win_addadmin.MdiParent = Me
        win_addadmin.Show()
    End Sub

    Private Sub Menu_adminmanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_adminmanage.Click
        Dim win_deleteadmin As New win_deleteadmin
        win_deleteadmin.MdiParent = Me
        win_deleteadmin.Show()
    End Sub


    Private Sub Menu_changepw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_changepw.Click
        Dim win_adminchangepw As New win_adminchangepw
        win_adminchangepw.MdiParent = Me
        win_adminchangepw.Show()
    End Sub

    Private Sub Menu_bookmanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_bookmanage.Click
        Dim win_bookmanage As New win_bookmanage
        win_bookmanage.MdiParent = Me
        win_bookmanage.Show()
    End Sub

    Private Sub Menu_librarybasicset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_librarybasicset.Click
        Dim win_librarybasicset As New win_librarybasicset
        win_librarybasicset.MdiParent = Me
        win_librarybasicset.Show()
    End Sub

    Private Sub MenuI_boardmanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuI_boardmanage.Click
        Dim win_boardmanage As New win_boardmanage
        win_boardmanage.MdiParent = Me
        win_boardmanage.Show()
    End Sub

    Private Sub Menu_classifymanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_classifymanage.Click
        Dim win_classifymanage As New win_classifymanage
        win_classifymanage.MdiParent = Me
        win_classifymanage.Show()
    End Sub

    Private Sub Menu_admindata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_admindata.Click
        Dim win_admindata As New win_admindata
        win_admindata.MdiParent = Me
        win_admindata.Show()
    End Sub

    Private Sub Menu_studentdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_studentdata.Click
        Dim win_studentdata As New win_studentdata
        win_studentdata.MdiParent = Me
        win_studentdata.Show()
    End Sub

    Private Sub Menu_loaddata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_loaddata.Click
        Dim win_loaddata As New win_loaddata
        win_loaddata.MdiParent = Me
        win_loaddata.Show()
    End Sub

    Private Sub Menu_about_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_about.Click
        Dim about As New library2.win_about
        about.ShowDialog()
    End Sub

    Private Sub win_adminmain_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Application.Exit()
    End Sub

    Private Sub Menu_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_exit.Click
        Application.Exit()
    End Sub

    Private Sub win_adminmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sqlstr = "select * from admininfo where id = " & login.loginid & " and tiptop = 0" '判断是否最高管理员
        objDS = GetData(sqlstr)
        If objDS.Tables(0).Rows.Count > 0 Then '帐号已经存在,不是最高管理员
            Menu_addadmin.Enabled = False
            Menu_adminmanage.Enabled = False
        Else '是最高管理员
            Menu_addadmin.Enabled = True
            Menu_adminmanage.Enabled = True
        End If
    End Sub

    Private Sub Menu_changename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menu_changename.Click
        Dim win_chadminname As New win_chadminname
        win_chadminname.MdiParent = Me
        win_chadminname.Show()
    End Sub

    Private Sub Menustumanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menustumanage.Click
        Dim win_stumanage As New win_stumanage
        win_stumanage.MdiParent = Me
        win_stumanage.Show()
    End Sub

    Private Sub Menuclassmanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menuclassmanage.Click
        Dim win_classmanage As New win_classmanage
        win_classmanage.MdiParent = Me
        win_classmanage.Show()
    End Sub

    Private Sub Menutimeout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menutimeout.Click
        Dim win_timeout As New win_timeout
        win_timeout.MdiParent = Me
        win_timeout.Show()
    End Sub
End Class