form1.vb

图书管理系统VB.NET版本

        Me.Listlx.Text = "力学"
        '
        'Listsx
        '
        Me.Listsx.Index = 1
        Me.Listsx.Text = "数学"
        '
        'Listtx
        '
        Me.Listtx.Index = 2
        Me.Listtx.Text = "通信资料"
        '
        'Listwl
        '
        Me.Listwl.Index = 3
        Me.Listwl.Text = "物理"
        '
        'Listxk
        '
        Me.Listxk.Index = 4
        Me.Listxk.Text = "信科资料"
        '
        'Menutscx
        '
        Me.Menutscx.Index = 1
        Me.Menutscx.Text = "通用查询"
        '
        'MenuHelp
        '
        Me.MenuHelp.Index = 6
        Me.MenuHelp.Text = "帮助系统"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 7
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuMusic, Me.MenuEnd})
        Me.MenuItem6.Text = "娱乐"
        '
        'MenuMusic
        '
        Me.MenuMusic.Index = 0
        Me.MenuMusic.Text = "选曲"
        '
        'MenuEnd
        '
        Me.MenuEnd.Index = 1
        Me.MenuEnd.Text = "结束"
        '
        'MenuExit
        '
        Me.MenuExit.Index = 8
        Me.MenuExit.Text = "退出系统"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8, Me.ToolBarButton9})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(672, 41)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Text = "查询"
        Me.ToolBarButton1.ToolTipText = "通用查询"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 1
        Me.ToolBarButton2.Text = "打印"
        Me.ToolBarButton2.ToolTipText = "打印报表"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 2
        Me.ToolBarButton3.Text = "修改"
        Me.ToolBarButton3.ToolTipText = "管理图书"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 3
        Me.ToolBarButton4.Text = "读者"
        Me.ToolBarButton4.ToolTipText = "读者查询"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 4
        Me.ToolBarButton5.Text = "帮助"
        Me.ToolBarButton5.ToolTipText = "按下F1键显示帮助文件"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 5
        Me.ToolBarButton6.Text = "借书"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 6
        Me.ToolBarButton7.Text = "登录"
        Me.ToolBarButton7.ToolTipText = "用户登录"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 7
        Me.ToolBarButton8.Text = "选曲"
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.ImageIndex = 8
        Me.ToolBarButton9.Text = "播放"
        Me.ToolBarButton9.ToolTipText = "自动播放音乐"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'HelpProvider1
        '
        Me.HelpProvider1.HelpNamespace = "D:\计算机新技术应用基础\图书管理\book_manage\bin\02.chm"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(672, 393)
        Me.Controls.Add(Me.ToolBar1)
        Me.HelpProvider1.SetHelpNavigator(Me, System.Windows.Forms.HelpNavigator.Index)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "Form1"
        Me.HelpProvider1.SetShowHelp(Me, True)
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书管理"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region
    Const HH_DISPLAY_TOPIC As Short = &H0S
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Int16
        Menulixue.Enabled = False
        Menushuxue.Enabled = False
        Menuwl.Enabled = False
        Menutx.Enabled = False
        Menuxk.Enabled = False
        Menudzkgl.Enabled = False
        Menucq.Enabled = False
        MenuSearch.Enabled = False
        Browselx.Enabled = False
        Browsesx.Enabled = False
        Browsetx.Enabled = False
        Browsewl.Enabled = False
        Browsexk.Enabled = False
        Menujs.Enabled = True

        Menuhs.Enabled = False
        '帮助文件
        HelpProvider1.HelpNamespace = Application.StartupPath & "\book_manage.chm"
        Dim fs As FileStream = New FileStream(Application.StartupPath & "\field.dat", FileMode.Open)
        Dim r As StreamReader = New StreamReader(fs)
        For i = 0 To 10
            Field(i) = r.ReadLine()    '读取流文件中的字段
        Next
        r.Close()
        fs.Close()
        Call OpenMdb()
        'ListView1的View属性、GridLines和Colums属性()
        list.MdiParent = Me
        list.Show()
        list.AxMediaPlayer1.Top = list.ListView1.Top + 30
        list.AxMediaPlayer1.Left = list.ListView1.Left + 30
        list.AxMediaPlayer1.Width = list.ListView1.Width - 50
        list.AxMediaPlayer1.Height = list.ListView1.Height - 50
    End Sub

    Private Sub MenuExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuExit.Click
        Dim answer As System.Windows.Forms.DialogResult
        answer = MessageBox.Show("确实要退出本系统吗？", "信息确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
        If answer = DialogResult.OK Then
            ConAccess.Close()
            End
        End If
    End Sub

    Private Sub Form_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim answer As System.Windows.Forms.DialogResult
        answer = MessageBox.Show("确实要退出本系统吗？", "信息确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
        If answer = DialogResult.OK Then
            ConAccess.Close()
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End Sub

    Private Sub Menutscx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menutscx.Click
        Dim tscx As New cx
        Dim i, sum As Int16
        tscx.ListBox1.Items.Clear()
        tscx.ListBox1.Items.Add("ID编号")
        tscx.ListBox1.Items.Add("分类号")
        tscx.ListBox1.Items.Add("书名")
        tscx.ListBox1.Items.Add("主编")
        tscx.ListBox1.Items.Add("出版社")
        tscx.ListBox1.Items.Add("单价")
        tscx.ListBox1.Items.Add("版次")
        tscx.ListBox1.Items.Add("装订")
        tscx.ListBox1.Items.Add("借阅者")
        tscx.ListBox1.Items.Add("借书日期")
        tscx.ListBox1.Items.Add("还书日期")

        tscx.Field1.Items.Add("ID编号")
        tscx.Field1.Items.Add("分类号")
        tscx.Field1.Items.Add("书名")
        tscx.Field1.Items.Add("主编")
        tscx.Field1.Items.Add("单价")
        tscx.Field1.Items.Add("出版社")
        tscx.Field1.Items.Add("版次")
        tscx.Field1.Items.Add("装订")
        tscx.Field1.Items.Add("借阅者")
        tscx.Field1.Items.Add("借书日期")
        tscx.Field1.Items.Add("还书日期")

        tscx.Field2.Items.Add("ID编号")
        tscx.Field2.Items.Add("分类号")
        tscx.Field2.Items.Add("书名")
        tscx.Field2.Items.Add("主编")
        tscx.Field2.Items.Add("出版社")
        tscx.Field2.Items.Add("单价")
        tscx.Field2.Items.Add("版次")
        tscx.Field2.Items.Add("装订")
        tscx.Field2.Items.Add("借阅者")
        tscx.Field2.Items.Add("借书日期")
        tscx.Field2.Items.Add("还书日期")

        tscx.ShowDialog()

        If OleSuccess Then
            list.ListView1.Columns.Clear()
            list.ListView1.Items.Clear()
            For i = 0 To tscx.ListBox2.Items.Count - 1
                TheColumn = New ColumnHeader
                TheColumn.Text = tscx.ListBox2.Items(i).ToString
                TheColumn.Width = 100
                list.ListView1.Columns.Add(TheColumn)
            Next
            Call Write(tscx.ListBox2.Items.Count)
        End If
    End Sub

    Public Sub WriteListview()
        Dim i As Int16
        list.ListView1.Columns.Clear()
        list.ListView1.Items.Clear()
        For i = 0 To 10
            TheColumn = New ColumnHeader
            TheColumn.Text = Field(i)
            TheColumn.Width = 100
            list.ListView1.Columns.Add(TheColumn)
        Next i
        While DatRead.Read()
            TheItem = New ListViewItem
            list.ListView1.Items.Add(TheItem)
            TheItem.Text = DatRead(0).ToString
            For i = 1 To 10
                TheItem.SubItems.Add(DatRead(i).ToString)
            Next i
        End While
        DatRead.Close()
    End Sub

    Private Sub Write(ByVal k As Int16)
        Dim i As Int16
        If DatRead.Read() Then
            Do
                TheItem = New ListViewItem
                list.ListView1.Items.Add(TheItem)
                TheItem.Text = DatRead(0).ToString
                shuid = DatRead(0).ToString
                For i = 1 To k - 1
                    TheItem.SubItems.Add(DatRead(i).ToString)
                Next i
            Loop Until Not DatRead.Read()
        Else
            MessageBox.Show("没有您要的书！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub MenuSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuSearch.Click
        '图书管理
        Dim tsgl As New modify
        tsgl.ShowDialog()
    End Sub


    Private Sub Menudzkgl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menudzkgl.Click
        Dim dzk As New Form2
        dzk.ShowDialog()
    End Sub

    Private Sub Menudzcx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menudzcx.Click
        Dim dzcx As New dzcx
        dzcx.ShowDialog()
    End Sub

    Private Sub Menujs_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menujs.Click
        Dim jscx As New jshs
        jscx.ShowDialog()
        If jieshu = True Then
            list.ListView1.Columns.Clear()
            list.ListView1.Items.Clear()
            TheColumn = New ColumnHeader
            TheColumn.Text = "ID编号"
            TheColumn.Width = 60
            list.ListView1.Columns.Add(TheColumn)
            TheColumn = New ColumnHeader
            TheColumn.Text = "分类号"
            TheColumn.Width = 60