form1.vb

图书管理系统VB.NET版本

Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim list As New list     '检索结果显示窗口
    Dim TheItem As ListViewItem
    Dim TheColumn As ColumnHeader

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    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

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuExit As System.Windows.Forms.MenuItem
    Friend WithEvents Menutsdl As System.Windows.Forms.MenuItem
    Friend WithEvents Menuqkzz As System.Windows.Forms.MenuItem
    Friend WithEvents Menudzkgl As System.Windows.Forms.MenuItem
    Friend WithEvents Menudzcx As System.Windows.Forms.MenuItem
    Friend WithEvents Menujs As System.Windows.Forms.MenuItem
    Friend WithEvents Menuhs As System.Windows.Forms.MenuItem
    Friend WithEvents Menutscx As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuSearch As System.Windows.Forms.MenuItem
    Friend WithEvents MenuBrowse As System.Windows.Forms.MenuItem
    Friend WithEvents MenuList As System.Windows.Forms.MenuItem
    Friend WithEvents Menulixue As System.Windows.Forms.MenuItem
    Friend WithEvents Menushuxue As System.Windows.Forms.MenuItem
    Friend WithEvents Menutx As System.Windows.Forms.MenuItem
    Friend WithEvents Menuwl As System.Windows.Forms.MenuItem
    Friend WithEvents Menuxk As System.Windows.Forms.MenuItem
    Friend WithEvents Browselx As System.Windows.Forms.MenuItem
    Friend WithEvents Browsesx As System.Windows.Forms.MenuItem
    Friend WithEvents Browsetx As System.Windows.Forms.MenuItem
    Friend WithEvents Browsewl As System.Windows.Forms.MenuItem
    Friend WithEvents Browsexk As System.Windows.Forms.MenuItem
    Friend WithEvents Listlx As System.Windows.Forms.MenuItem
    Friend WithEvents Listsx As System.Windows.Forms.MenuItem
    Friend WithEvents Listtx As System.Windows.Forms.MenuItem
    Friend WithEvents Listwl As System.Windows.Forms.MenuItem
    Friend WithEvents Listxk As System.Windows.Forms.MenuItem
    Friend WithEvents Menucq As System.Windows.Forms.MenuItem
    Friend WithEvents cqlx As System.Windows.Forms.MenuItem
    Friend WithEvents cqsx As System.Windows.Forms.MenuItem
    Friend WithEvents cxtx As System.Windows.Forms.MenuItem
    Friend WithEvents cqwl As System.Windows.Forms.MenuItem
    Friend WithEvents cqxk As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
    Friend WithEvents Menudl As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
    Friend WithEvents HelpProvider1 As System.Windows.Forms.HelpProvider
    Friend WithEvents MenuHelp As System.Windows.Forms.MenuItem
    Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuMusic As System.Windows.Forms.MenuItem
    Friend WithEvents MenuEnd As System.Windows.Forms.MenuItem
    Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
    Friend WithEvents ToolBarButton8 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton9 As System.Windows.Forms.ToolBarButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.Menudl = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.Menutsdl = New System.Windows.Forms.MenuItem
        Me.Menulixue = New System.Windows.Forms.MenuItem
        Me.Menushuxue = New System.Windows.Forms.MenuItem
        Me.Menutx = New System.Windows.Forms.MenuItem
        Me.Menuwl = New System.Windows.Forms.MenuItem
        Me.Menuxk = New System.Windows.Forms.MenuItem
        Me.Menuqkzz = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.Menudzkgl = New System.Windows.Forms.MenuItem
        Me.Menudzcx = New System.Windows.Forms.MenuItem
        Me.Menucq = New System.Windows.Forms.MenuItem
        Me.cqlx = New System.Windows.Forms.MenuItem
        Me.cqsx = New System.Windows.Forms.MenuItem
        Me.cxtx = New System.Windows.Forms.MenuItem
        Me.cqwl = New System.Windows.Forms.MenuItem
        Me.cqxk = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuSearch = New System.Windows.Forms.MenuItem
        Me.MenuBrowse = New System.Windows.Forms.MenuItem
        Me.Browselx = New System.Windows.Forms.MenuItem
        Me.Browsesx = New System.Windows.Forms.MenuItem
        Me.Browsetx = New System.Windows.Forms.MenuItem
        Me.Browsewl = New System.Windows.Forms.MenuItem
        Me.Browsexk = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.Menujs = New System.Windows.Forms.MenuItem
        Me.Menuhs = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuList = New System.Windows.Forms.MenuItem
        Me.Listlx = New System.Windows.Forms.MenuItem
        Me.Listsx = New System.Windows.Forms.MenuItem
        Me.Listtx = New System.Windows.Forms.MenuItem
        Me.Listwl = New System.Windows.Forms.MenuItem
        Me.Listxk = New System.Windows.Forms.MenuItem
        Me.Menutscx = New System.Windows.Forms.MenuItem
        Me.MenuHelp = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.MenuMusic = New System.Windows.Forms.MenuItem
        Me.MenuEnd = New System.Windows.Forms.MenuItem
        Me.MenuExit = New System.Windows.Forms.MenuItem
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton8 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton9 = New System.Windows.Forms.ToolBarButton
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.HelpProvider1 = New System.Windows.Forms.HelpProvider
        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menudl, Me.MenuItem1, Me.MenuItem2, Me.MenuItem5, Me.MenuItem3, Me.MenuItem4, Me.MenuHelp, Me.MenuItem6, Me.MenuExit})
        '
        'Menudl
        '
        Me.Menudl.Index = 0
        Me.Menudl.Text = "用户登录"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 1
        Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menutsdl, Me.Menuqkzz})
        Me.MenuItem1.Text = "图书登录"
        '
        'Menutsdl
        '
        Me.Menutsdl.Index = 0
        Me.Menutsdl.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menulixue, Me.Menushuxue, Me.Menutx, Me.Menuwl, Me.Menuxk})
        Me.Menutsdl.Text = "图书入库"
        '
        'Menulixue
        '
        Me.Menulixue.Index = 0
        Me.Menulixue.Text = "力学"
        '
        'Menushuxue
        '
        Me.Menushuxue.Index = 1
        Me.Menushuxue.Text = "数学"
        '
        'Menutx
        '
        Me.Menutx.Index = 2
        Me.Menutx.Text = "通信资料"
        '
        'Menuwl
        '
        Me.Menuwl.Index = 3
        Me.Menuwl.Text = "物理"
        '
        'Menuxk
        '
        Me.Menuxk.Index = 4
        Me.Menuxk.Text = "信科资料"
        '
        'Menuqkzz
        '
        Me.Menuqkzz.Index = 1
        Me.Menuqkzz.Text = "期刊杂志"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menudzkgl, Me.Menudzcx, Me.Menucq})
        Me.MenuItem2.Text = "读者管理"
        '
        'Menudzkgl
        '
        Me.Menudzkgl.Index = 0
        Me.Menudzkgl.Text = "读者库管理"
        '
        'Menudzcx
        '
        Me.Menudzcx.Index = 1
        Me.Menudzcx.Text = "读者查询"
        '
        'Menucq
        '
        Me.Menucq.Index = 2
        Me.Menucq.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.cqlx, Me.cqsx, Me.cxtx, Me.cqwl, Me.cqxk})
        Me.Menucq.Text = "借阅超期统计"
        '
        'cqlx
        '
        Me.cqlx.Index = 0
        Me.cqlx.Text = "力学"
        '
        'cqsx
        '
        Me.cqsx.Index = 1
        Me.cqsx.Text = "数学"
        '
        'cxtx
        '
        Me.cxtx.Index = 2
        Me.cxtx.Text = "通信"
        '
        'cqwl
        '
        Me.cqwl.Index = 3
        Me.cqwl.Text = "物理"
        '
        'cqxk
        '
        Me.cqxk.Index = 4
        Me.cqxk.Text = "信科"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 3
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuSearch, Me.MenuBrowse})
        Me.MenuItem5.Text = "图书管理"
        '
        'MenuSearch
        '
        Me.MenuSearch.Index = 0
        Me.MenuSearch.Text = "查询方式"
        '
        'MenuBrowse
        '
        Me.MenuBrowse.Index = 1
        Me.MenuBrowse.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Browselx, Me.Browsesx, Me.Browsetx, Me.Browsewl, Me.Browsexk})
        Me.MenuBrowse.Text = "浏览方式"
        '
        'Browselx
        '
        Me.Browselx.Index = 0
        Me.Browselx.Text = "力学"
        '
        'Browsesx
        '
        Me.Browsesx.Index = 1
        Me.Browsesx.Text = "数学"
        '
        'Browsetx
        '
        Me.Browsetx.Index = 2
        Me.Browsetx.Text = "通信资料"
        '
        'Browsewl
        '
        Me.Browsewl.Index = 3
        Me.Browsewl.Text = "物理"
        '
        'Browsexk
        '
        Me.Browsexk.Index = 4
        Me.Browsexk.Text = "信科资料"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 4
        Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Menujs, Me.Menuhs})
        Me.MenuItem3.Text = "借阅管理"
        '
        'Menujs
        '
        Me.Menujs.Index = 0
        Me.Menujs.Text = "查询"
        '
        'Menuhs
        '
        Me.Menuhs.Index = 1
        Me.Menuhs.Text = "借书还书"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 5
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuList, Me.Menutscx})
        Me.MenuItem4.Text = "图书查询"
        '
        'MenuList
        '
        Me.MenuList.Index = 0
        Me.MenuList.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.Listlx, Me.Listsx, Me.Listtx, Me.Listwl, Me.Listxk})
        Me.MenuList.Text = "全书浏览"
        '
        'Listlx
        '
        Me.Listlx.Index = 0