frmmain.vb

The Management Information System of Library using .NET

Public Class frmMain
    Inherits System.Windows.Forms.Form
    'CurrentUser当前登陆的管理员
    Dim CurrentUser As String
    Dim islog As Boolean
#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 StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
    Friend WithEvents muiBookManage As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuManage As System.Windows.Forms.MenuItem
    Friend WithEvents muiExitSystem As System.Windows.Forms.MenuItem
    Friend WithEvents muiLockSystem As System.Windows.Forms.MenuItem
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents muiBorrowBook As System.Windows.Forms.MenuItem
    Friend WithEvents sbpUser As System.Windows.Forms.StatusBarPanel
    Friend WithEvents sbpdate As System.Windows.Forms.StatusBarPanel
    Friend WithEvents sbp As System.Windows.Forms.StatusBarPanel
    Friend WithEvents sbpAuthorInfo As System.Windows.Forms.StatusBarPanel
    Friend WithEvents muiSetConnection As System.Windows.Forms.MenuItem
    Friend WithEvents muiReturnBook As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuAllBorrowList As System.Windows.Forms.MenuItem
    Friend WithEvents muiChangeUser As System.Windows.Forms.MenuItem
    Friend WithEvents muiDataManage As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem
    Friend WithEvents muiLibInfo As System.Windows.Forms.MenuItem
    Friend WithEvents muiBookSort As System.Windows.Forms.MenuItem
    Friend WithEvents muiBookPlace As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuSort As System.Windows.Forms.MenuItem
    Friend WithEvents muiforfeitSet As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuLost As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuMaxDateList As System.Windows.Forms.MenuItem
    Friend WithEvents muiBookQuery As System.Windows.Forms.MenuItem
    Friend WithEvents muiHelp As System.Windows.Forms.MenuItem
    Friend WithEvents muiBackup As System.Windows.Forms.MenuItem
    Friend WithEvents muiAuQuery As System.Windows.Forms.MenuItem
    Friend WithEvents ctmQuery As System.Windows.Forms.ContextMenu
    Friend WithEvents muiCbookquery As System.Windows.Forms.MenuItem
    Friend WithEvents muiCAUsearch As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
    Friend WithEvents muiCAuAlllist As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
    Friend WithEvents muiCChaoqi As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
    Friend WithEvents muiAboutUs As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem29 As System.Windows.Forms.MenuItem
    Friend WithEvents muiClibInfo As System.Windows.Forms.MenuItem
    Friend WithEvents muiCBookSort As System.Windows.Forms.MenuItem
    Friend WithEvents muiCbookPlace As System.Windows.Forms.MenuItem
    Friend WithEvents muiCAuSort As System.Windows.Forms.MenuItem
    Friend WithEvents muiCForfeitSet As System.Windows.Forms.MenuItem
    Friend WithEvents muiCSetConnection As System.Windows.Forms.MenuItem
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents tline1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnExitSystem As System.Windows.Forms.ToolBarButton
    Friend WithEvents TbtnLockSystem As System.Windows.Forms.ToolBarButton
    Friend WithEvents tline2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnBorrowBook As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnReturnBook As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnAuLost As System.Windows.Forms.ToolBarButton
    Friend WithEvents tline3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnBookManage As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnAuManage As System.Windows.Forms.ToolBarButton
    Friend WithEvents tline4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnQuery As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnSystemSet As System.Windows.Forms.ToolBarButton
    Friend WithEvents tline5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnHelp As System.Windows.Forms.ToolBarButton
    Friend WithEvents tbtnContactUs As System.Windows.Forms.ToolBarButton
    Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents muiTop10book As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
    Friend WithEvents muiCTop10Book As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
    Friend WithEvents muiCountBookSort As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
    Friend WithEvents muiCCountBookSort As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.sbpUser = New System.Windows.Forms.StatusBarPanel
        Me.sbpdate = New System.Windows.Forms.StatusBarPanel
        Me.sbp = New System.Windows.Forms.StatusBarPanel
        Me.sbpAuthorInfo = New System.Windows.Forms.StatusBarPanel
        Me.ctmQuery = New System.Windows.Forms.ContextMenu
        Me.muiCbookquery = New System.Windows.Forms.MenuItem
        Me.muiCAUsearch = New System.Windows.Forms.MenuItem
        Me.MenuItem12 = New System.Windows.Forms.MenuItem
        Me.muiCAuAlllist = New System.Windows.Forms.MenuItem
        Me.MenuItem17 = New System.Windows.Forms.MenuItem
        Me.muiCChaoqi = New System.Windows.Forms.MenuItem
        Me.MenuItem14 = New System.Windows.Forms.MenuItem
        Me.muiCTop10Book = New System.Windows.Forms.MenuItem
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.muiClibInfo = New System.Windows.Forms.MenuItem
        Me.MenuItem18 = New System.Windows.Forms.MenuItem
        Me.muiCBookSort = New System.Windows.Forms.MenuItem
        Me.muiCbookPlace = New System.Windows.Forms.MenuItem
        Me.MenuItem25 = New System.Windows.Forms.MenuItem
        Me.muiCAuSort = New System.Windows.Forms.MenuItem
        Me.MenuItem27 = New System.Windows.Forms.MenuItem
        Me.muiCForfeitSet = New System.Windows.Forms.MenuItem
        Me.MenuItem29 = New System.Windows.Forms.MenuItem
        Me.muiCSetConnection = New System.Windows.Forms.MenuItem
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.muiLockSystem = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.muiChangeUser = New System.Windows.Forms.MenuItem
        Me.muiBackup = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.muiExitSystem = New System.Windows.Forms.MenuItem
        Me.MenuItem8 = New System.Windows.Forms.MenuItem
        Me.muiBorrowBook = New System.Windows.Forms.MenuItem
        Me.muiReturnBook = New System.Windows.Forms.MenuItem
        Me.MenuItem11 = New System.Windows.Forms.MenuItem
        Me.muiAuLost = New System.Windows.Forms.MenuItem
        Me.muiDataManage = New System.Windows.Forms.MenuItem
        Me.muiBookManage = New System.Windows.Forms.MenuItem
        Me.muiAuManage = New System.Windows.Forms.MenuItem
        Me.MenuItem16 = New System.Windows.Forms.MenuItem
        Me.muiBookQuery = New System.Windows.Forms.MenuItem
        Me.muiAuQuery = New System.Windows.Forms.MenuItem
        Me.MenuItem19 = New System.Windows.Forms.MenuItem
        Me.muiAuAllBorrowList = New System.Windows.Forms.MenuItem
        Me.MenuItem23 = New System.Windows.Forms.MenuItem
        Me.muiAuMaxDateList = New System.Windows.Forms.MenuItem
        Me.MenuItem20 = New System.Windows.Forms.MenuItem
        Me.muiTop10book = New System.Windows.Forms.MenuItem
        Me.MenuItem21 = New System.Windows.Forms.MenuItem
        Me.muiLibInfo = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.muiBookSort = New System.Windows.Forms.MenuItem
        Me.muiBookPlace = New System.Windows.Forms.MenuItem
        Me.MenuItem13 = New System.Windows.Forms.MenuItem
        Me.muiAuSort = New System.Windows.Forms.MenuItem
        Me.MenuItem15 = New System.Windows.Forms.MenuItem
        Me.muiforfeitSet = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.muiSetConnection = New System.Windows.Forms.MenuItem
        Me.MenuItem22 = New System.Windows.Forms.MenuItem
        Me.muiHelp = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem9 = New System.Windows.Forms.MenuItem
        Me.MenuItem10 = New System.Windows.Forms.MenuItem
        Me.muiAboutUs = New System.Windows.Forms.MenuItem
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.tline1 = New System.Windows.Forms.ToolBarButton
        Me.tbtnExitSystem = New System.Windows.Forms.ToolBarButton
        Me.TbtnLockSystem = New System.Windows.Forms.ToolBarButton
        Me.tline2 = New System.Windows.Forms.ToolBarButton
        Me.tbtnBorrowBook = New System.Windows.Forms.ToolBarButton
        Me.tbtnReturnBook = New System.Windows.Forms.ToolBarButton
        Me.tbtnAuLost = New System.Windows.Forms.ToolBarButton
        Me.tline3 = New System.Windows.Forms.ToolBarButton
        Me.tbtnBookManage = New System.Windows.Forms.ToolBarButton
        Me.tbtnAuManage = New System.Windows.Forms.ToolBarButton
        Me.tline4 = New System.Windows.Forms.ToolBarButton
        Me.tbtnQuery = New System.Windows.Forms.ToolBarButton
        Me.tbtnSystemSet = New System.Windows.Forms.ToolBarButton
        Me.tline5 = New System.Windows.Forms.ToolBarButton
        Me.tbtnHelp = New System.Windows.Forms.ToolBarButton
        Me.tbtnContactUs = New System.Windows.Forms.ToolBarButton
        Me.HelpProvider1 = New System.Windows.Forms.HelpProvider
        Me.MenuItem24 = New System.Windows.Forms.MenuItem
        Me.muiCountBookSort = New System.Windows.Forms.MenuItem
        Me.MenuItem26 = New System.Windows.Forms.MenuItem
        Me.muiCCountBookSort = New System.Windows.Forms.MenuItem
        CType(Me.sbpUser, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.sbpdate, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.sbp, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.sbpAuthorInfo, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'StatusBar1
        '
        Me.StatusBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.StatusBar1.Dock = System.Windows.Forms.DockStyle.None
        Me.StatusBar1.Location = New System.Drawing.Point(0, 471)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.sbpUser, Me.sbpdate, Me.sbp, Me.sbpAuthorInfo})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(804, 22)
        Me.StatusBar1.TabIndex = 0
        Me.StatusBar1.Text = "StatusBar1"
        '
        'sbpUser
        '
        Me.sbpUser.Width = 200
        '
        'sbpdate
        '
        Me.sbpdate.Width = 200
        '
        'sbp
        '
        Me.sbp.Text = "CTRL+L锁定系统"
        '
        'sbpAuthorInfo
        '
        Me.sbpAuthorInfo.Alignment = System.Windows.Forms.HorizontalAlignment.Right
        Me.sbpAuthorInfo.Width = 392
        '
        'ctmQuery
        '
        Me.ctmQuery.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiCbookquery, Me.muiCAUsearch, Me.MenuItem12, Me.muiCAuAlllist, Me.MenuItem17, Me.muiCChaoqi, Me.MenuItem14, Me.muiCTop10Book, Me.MenuItem26, Me.muiCCountBookSort})
        '
        'muiCbookquery
        '
        Me.muiCbookquery.Index = 0
        Me.muiCbookquery.Text = "图书综合查询"
        '
        'muiCAUsearch
        '
        Me.muiCAUsearch.Index = 1
        Me.muiCAUsearch.Text = "读者综合查询"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 2
        Me.MenuItem12.Text = "-"
        '
        'muiCAuAlllist
        '
        Me.muiCAuAlllist.Index = 3
        Me.muiCAuAlllist.Text = "读者借阅记录查询"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 4
        Me.MenuItem17.Text = "-"
        '
        'muiCChaoqi
        '
        Me.muiCChaoqi.Index = 5
        Me.muiCChaoqi.Text = "超期读者一览表"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 6
        Me.MenuItem14.Text = "-"
        '
        'muiCTop10Book
        '
        Me.muiCTop10Book.Index = 7
        Me.muiCTop10Book.Text = "借阅次数最多10本书"
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.muiClibInfo, Me.MenuItem18, Me.muiCBookSort, Me.muiCbookPlace, Me.MenuItem25, Me.muiCAuSort, Me.MenuItem27, Me.muiCForfeitSet, Me.MenuItem29, Me.muiCSetConnection})
        '
        'muiClibInfo
        '
        Me.muiClibInfo.Index = 0
        Me.muiClibInfo.Text = "本馆信息设置(&L)"
        '
        'MenuItem18
        '
        Me.MenuItem18.Index = 1
        Me.MenuItem18.Text = "-"
        '
        'muiCBookSort
        '
        Me.muiCBookSort.Index = 2
        Me.muiCBookSort.Text = "图书分类设定(&S)"
        '
        'muiCbookPlace
        '
        Me.muiCbookPlace.Index = 3
        Me.muiCbookPlace.Text = "图书存放位置(&P)"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 4
        Me.MenuItem25.Text = "-"
        '
        'muiCAuSort
        '
        Me.muiCAuSort.Index = 5
        Me.muiCAuSort.Text = "读者分类设定(&R)"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 6
        Me.MenuItem27.Text = "-"
        '
        'muiCForfeitSet
        '
        Me.muiCForfeitSet.Index = 7
        Me.muiCForfeitSet.Text = "超期罚款设定(&M)"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 8
        Me.MenuItem29.Text = "-"
        '
        'muiCSetConnection
        '
        Me.muiCSetConnection.Index = 9
        Me.muiCSetConnection.Text = "数据服务器设置(&D)"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(32, 32)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem8, Me.muiDataManage, Me.MenuItem16, Me.MenuItem21, Me.MenuItem22})
        '
        'MenuItem1