form1.vb

图书管理系统VB.NET版本

            list.ListView1.Columns.Add(TheColumn)
            TheColumn = New ColumnHeader
            TheColumn.Text = "书名"
            TheColumn.Width = 300
            list.ListView1.Columns.Add(TheColumn)
            TheColumn = New ColumnHeader
            TheColumn.Text = "主编"
            TheColumn.Width = 200
            list.ListView1.Columns.Add(TheColumn)
            TheColumn = New ColumnHeader
            TheColumn.Text = "出版社"
            TheColumn.Width = 200
            list.ListView1.Columns.Add(TheColumn)
            TheColumn = New ColumnHeader
            TheColumn.Text = "借阅者"
            TheColumn.Width = 100
            list.ListView1.Columns.Add(TheColumn)
            Call Write(6)

        End If

    End Sub

    Private Sub Menulixue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menulixue.Click
        Dim tsdl As New tsdl
        type_book = "lixue"
        count = CountMdb(type_book)
        tsdl.ShowDialog()

    End Sub

    Private Sub Menushuxue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menushuxue.Click
        Dim tsdl As New tsdl
        type_book = "shuxue"
        count = CountMdb(type_book)
        tsdl.ShowDialog()

    End Sub

    Private Sub Menuwl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menuwl.Click
        Dim tsdl As New tsdl
        type_book = "wuli"
        count = CountMdb(type_book)
        tsdl.ShowDialog()

    End Sub

    Private Sub Menuxk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menuxk.Click
        Dim tsdl As New tsdl
        type_book = "xinkeziliao"
        count = CountMdb(type_book)
        tsdl.ShowDialog()

    End Sub

    Private Sub Menutx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menutx.Click
        Dim tsdl As New tsdl
        type_book = "tongxinziliao"
        count = CountMdb(type_book)
        tsdl.ShowDialog()

    End Sub

    Private Sub Browselx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browselx.Click
        Dim browse As New Browse
        type_book = "lixue"
        browse.ShowDialog()
    End Sub

    Private Sub Browsesx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browsesx.Click
        Dim browse As New Browse
        type_book = "shuxue"
        browse.ShowDialog()
    End Sub

    Private Sub Browsewl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browsewl.Click
        Dim browse As New Browse
        type_book = "wuli"
        browse.ShowDialog()
    End Sub

    Private Sub Browsexk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browsexk.Click
        Dim browse As New Browse
        type_book = "xinkeziliao"
        browse.ShowDialog()
    End Sub

    Private Sub Browsetx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Browsetx.Click
        Dim browse As New Browse
        type_book = "tongxinziliao"
        browse.ShowDialog()
    End Sub

    Private Sub Listlx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listlx.Click
        Dim str As String
        str = "SELECT * FROM lixue"
        Call ReadMdb(str)
        Call WriteListview()

    End Sub

    Private Sub Listsx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listsx.Click
        Dim str As String
        str = "SELECT * FROM shuxue"
        Call ReadMdb(str)
        Call WriteListview()
    End Sub

    Private Sub Listtx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listtx.Click
        Dim str As String
        str = "SELECT * FROM tongxinziliao"
        Call ReadMdb(str)
        Call WriteListview()
    End Sub

    Private Sub Listwl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listwl.Click
        Dim str As String
        str = "SELECT * FROM wuli"
        Call ReadMdb(str)
        Call WriteListview()
    End Sub

    Private Sub Listxk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Listxk.Click
        Dim str As String
        str = "SELECT * FROM xinkeziliao"
        Call ReadMdb(str)
        Call WriteListview()
    End Sub


    Private Sub write_listview_cq()     '超期天数，以月计
        Dim dt As Date
        Dim days As Int16
        list.ListView1.Columns.Clear()
        list.ListView1.Items.Clear()
        TheColumn = New ColumnHeader
        TheColumn.Text = "姓名"
        TheColumn.Width = 100
        list.ListView1.Columns.Add(TheColumn)
        TheColumn = New ColumnHeader
        TheColumn.Text = "教研室"
        TheColumn.Width = 100
        list.ListView1.Columns.Add(TheColumn)
        TheColumn = New ColumnHeader
        TheColumn.Text = "书名"
        TheColumn.Width = 100
        list.ListView1.Columns.Add(TheColumn)
        TheColumn = New ColumnHeader
        TheColumn.Text = "超期天数"
        TheColumn.Width = 100
        list.ListView1.Columns.Add(TheColumn)
        Do
            TheItem = New ListViewItem
            list.ListView1.Items.Add(TheItem)
            TheItem.Text = DatRead(0).ToString
            TheItem.SubItems.Add(DatRead(1).ToString)
            TheItem.SubItems.Add(DatRead(2).ToString)
            dt = DatRead(3)
            days = (Now.Month - dt.Month) * 30 + (Now.Day - dt.Day)
            TheItem.SubItems.Add(CStr(days))
        Loop Until Not DatRead.Read()

    End Sub

    Private Sub cqlx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cqlx.Click     '力学超期为90天
        Dim str As String
        type_book = "lixue"
        CountItem = "力学图书超期人员名单"
        str = "SELECT xm,jys,sm,jsrq FROM " & type_book & ",borrower WHERE " & Now.Month & "-MONTH(jsrq)>=3 AND " & type_book & ".jyz=borrower.xm"
        Call ReadMdb(str)
        If DatRead.Read() Then
            Call write_listview_cq()
        Else
            MessageBox.Show("没有人借书超期", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub cqsx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cqsx.Click    '数学超期为90天
        Dim str As String
        type_book = "shuxue"
        CountItem = "数学图书超期人员名单"
        str = "SELECT xm,jys,sm,jsrq FROM " & type_book & ",borrower WHERE " & Now.Month & "-MONTH(jsrq)>=3 AND " & type_book & ".jyz=borrower.xm"
        Call ReadMdb(str)
        If DatRead.Read() Then
            Call write_listview_cq()
        Else
            MessageBox.Show("没有人借书超期", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub cqwl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cqwl.Click     '物理超期为90天
        Dim str As String
        type_book = "wuli"
        CountItem = "物理图书超期人员名单"
        str = "SELECT xm,jys,sm,jsrq FROM " & type_book & ",borrower WHERE " & Now.Month & "-MONTH(jsrq)>=3 AND " & type_book & ".jyz=borrower.xm"
        Call ReadMdb(str)
        If DatRead.Read() Then
            Call write_listview_cq()
        Else
            MessageBox.Show("没有人借书超期", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub cqxk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cqxk.Click     '信科资料超期为90天
        Dim str As String
        type_book = "xinkeziliao"
        CountItem = "信科资料图书超期人员名单"
        str = "SELECT xm,jys,sm,jsrq FROM " & type_book & ",borrower WHERE " & Now.Month & "-MONTH(jsrq)>=3 AND " & type_book & ".jyz=borrower.xm"
        Call ReadMdb(str)
        If DatRead.Read() Then
            Call write_listview_cq()
        Else
            MessageBox.Show("没有人借书超期", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub cxtx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cxtx.Click       '通信资料超期为90天
        Dim str As String
        type_book = "tongxinziliao"
        CountItem = "通信资料图书超期人员名单"
        str = "SELECT xm,jys,sm,jsrq FROM " & type_book & ",borrower WHERE " & Now.Month & "-MONTH(jsrq)>=3 AND " & type_book & ".jyz=borrower.xm"
        Call ReadMdb(str)
        If DatRead.Read() Then
            Call write_listview_cq()
        Else
            MessageBox.Show("没有人借书超期", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        DatRead.Close()
    End Sub

    Private Sub Menuhs_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menuhs.Click
        Dim jieshu As New cljs
        Dim str As String
        Dim i As Int16
        jieshu.ShowDialog()
        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
        str = "select * from  " & type_book & " WHERE ID='" & Trim(jieshu.TextBox1.Text) & "'"
        Call ReadMdb(str)
        Call Write(11)
        MessageBox.Show("处理完毕！", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case e.Button.Text
            Case "查询"
                Call Menutscx_Click(sender, e)   '调用通用查询命令
            Case "打印"
                MessageBox.Show("在窗体上右击可选择相应菜单命令", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            Case "登录"
                Call Menudl_Click(sender, e)      '调用菜单命令
            Case "帮助"
                Dim hwndHelp As Integer
                'The return value is the window handle of the created help window.
                hwndHelp = HtmlHelp(Handle.ToInt32, Application.StartupPath & "\book_manage.chm", HH_DISPLAY_TOPIC, 0)
            Case "读者"
                Call Menudzcx_Click(sender, e)    '调用读者查询命令
            Case "借书"
            Case "选曲"
                Call MenuMusic_Click(sender, e)
            Case "播放"
                list.AxMediaPlayer1.Open(Application.StartupPath & "\music\yestoday.mid")
        End Select

    End Sub

    Private Sub Menudl_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Menudl.Click
        'Dim dl As New login
        ' dl.ShowDialog()
        'If dlSuccess Then
        Menulixue.Enabled = True
        Menushuxue.Enabled = True
        Menuwl.Enabled = True
        Menutx.Enabled = True
        Menuxk.Enabled = True
        Menudzkgl.Enabled = True
        Menucq.Enabled = True
        MenuSearch.Enabled = True
        Browselx.Enabled = True
        Browsesx.Enabled = True
        Browsetx.Enabled = True
        Browsewl.Enabled = True
        Browsexk.Enabled = True
        Menujs.Enabled = True
        Menuhs.Enabled = True
        ' End If
    End Sub

    Private Sub MenuMusic_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuMusic.Click

        OpenFileDialog1.Filter = "所有文件(*.*)|*.*|MP3(*.mp3)|*.mp3|MID(*.mid)|*.mid|RMI(*.rmi)|*.rmi|VCD文件|*.dat"
        OpenFileDialog1.InitialDirectory = Application.StartupPath
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName.EndsWith(".DAT") Then
            list.AxMediaPlayer1.Visible = True
        End If
        list.AxMediaPlayer1.Open(OpenFileDialog1.FileName)
        list.AxMediaPlayer1.PlayCount = 20

    End Sub

    Private Sub MenuEnd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuEnd.Click
        list.AxMediaPlayer1.Stop()
        list.AxMediaPlayer1.Visible = False
    End Sub

    Private Sub MenuHelp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuHelp.Click

        Dim hwndHelp As Integer
        'The return value is the window handle of the created help window.
        hwndHelp = HtmlHelp(Handle.ToInt32, Application.StartupPath & "\book_manage.chm", &H0, 0)

    End Sub

End Class