main.vb

这是一个完善的图书馆管理系统.后台数据库采用ACCESS.

        Me.tbpQReader.Controls.Add(Me.btnClearReader)
        Me.tbpQReader.Controls.Add(Me.btnPrintViewReader)
        Me.tbpQReader.Controls.Add(Me.btnExportExcelReader)
        Me.tbpQReader.Location = New System.Drawing.Point(4, 24)
        Me.tbpQReader.Name = "tbpQReader"
        Me.tbpQReader.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.tbpQReader.Size = New System.Drawing.Size(744, 450)
        Me.tbpQReader.TabIndex = 1
        Me.tbpQReader.Text = "读者查询"
        '
        'grdReader
        '
        Me.grdReader.DataMember = ""
        Me.grdReader.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.grdReader.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdReader.Location = New System.Drawing.Point(0, 52)
        Me.grdReader.Name = "grdReader"
        Me.grdReader.ReadOnly = True
        Me.grdReader.Size = New System.Drawing.Size(742, 396)
        Me.grdReader.TabIndex = 4
        '
        'cmbQueryReaderType
        '
        Me.cmbQueryReaderType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbQueryReaderType.Items.AddRange(New Object() {"编号", "姓名", "性别", "单位部门", "住址", "类别"})
        Me.cmbQueryReaderType.Location = New System.Drawing.Point(280, 16)
        Me.cmbQueryReaderType.Name = "cmbQueryReaderType"
        Me.cmbQueryReaderType.Size = New System.Drawing.Size(112, 20)
        Me.cmbQueryReaderType.TabIndex = 3
        '
        'txtQueryReaderContent
        '
        Me.txtQueryReaderContent.Location = New System.Drawing.Point(120, 16)
        Me.txtQueryReaderContent.Name = "txtQueryReaderContent"
        Me.txtQueryReaderContent.Size = New System.Drawing.Size(152, 21)
        Me.txtQueryReaderContent.TabIndex = 2
        Me.txtQueryReaderContent.Text = ""
        '
        'btnQueryReader
        '
        Me.HelpProvider1.SetHelpKeyword(Me.btnQueryReader, "查询/打印")
        Me.btnQueryReader.Location = New System.Drawing.Point(408, 16)
        Me.btnQueryReader.Name = "btnQueryReader"
        Me.HelpProvider1.SetShowHelp(Me.btnQueryReader, True)
        Me.btnQueryReader.Size = New System.Drawing.Size(48, 24)
        Me.btnQueryReader.TabIndex = 1
        Me.btnQueryReader.Text = "查询"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(96, 16)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "请选择查询内容"
        '
        'btnRefreshReader
        '
        Me.btnRefreshReader.Location = New System.Drawing.Point(464, 16)
        Me.btnRefreshReader.Name = "btnRefreshReader"
        Me.btnRefreshReader.Size = New System.Drawing.Size(48, 24)
        Me.btnRefreshReader.TabIndex = 1
        Me.btnRefreshReader.Text = "刷新"
        '
        'btnClearReader
        '
        Me.btnClearReader.Location = New System.Drawing.Point(520, 16)
        Me.btnClearReader.Name = "btnClearReader"
        Me.btnClearReader.Size = New System.Drawing.Size(48, 24)
        Me.btnClearReader.TabIndex = 1
        Me.btnClearReader.Text = "清除"
        '
        'btnPrintViewReader
        '
        Me.HelpProvider1.SetHelpKeyword(Me.btnPrintViewReader, "查询/打印")
        Me.btnPrintViewReader.Location = New System.Drawing.Point(576, 16)
        Me.btnPrintViewReader.Name = "btnPrintViewReader"
        Me.HelpProvider1.SetShowHelp(Me.btnPrintViewReader, True)
        Me.btnPrintViewReader.Size = New System.Drawing.Size(72, 24)
        Me.btnPrintViewReader.TabIndex = 1
        Me.btnPrintViewReader.Text = "打印预览"
        '
        'btnExportExcelReader
        '
        Me.btnExportExcelReader.Location = New System.Drawing.Point(656, 16)
        Me.btnExportExcelReader.Name = "btnExportExcelReader"
        Me.btnExportExcelReader.Size = New System.Drawing.Size(72, 24)
        Me.btnExportExcelReader.TabIndex = 1
        Me.btnExportExcelReader.Text = "导至Excel"
        '
        'HelpProvider1
        '
        Me.HelpProvider1.HelpNamespace = "help.chm"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(392, 0)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(24, 23)
        Me.Button1.TabIndex = 5
        Me.Button1.Text = "Button1"
        '
        'frmMain
        '
        Me.AcceptButton = Me.btnQueryBook
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(752, 545)
        Me.Controls.Add(Me.tabMain)
        Me.Controls.Add(Me.tbrMain)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Menu = Me.mmnMain
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书管理系统V1.0"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.tabMain.ResumeLayout(False)
        Me.tbpQBook.ResumeLayout(False)
        CType(Me.grdBook, System.ComponentModel.ISupportInitialize).EndInit()
        Me.tbpQReader.ResumeLayout(False)
        CType(Me.grdReader, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim bookstr As String
    Dim readerstr As String

    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Dim frm As New frmLogin

        If frm.ShowDialog() = DialogResult.OK Then  '弹出登录对话框
            frm.Close()
            Me.Show()

            Try
                bookstr = "select * from 图书"
                If OleConn.SelectQuery(bookstr, bookDataSet) Then
                    grdBook.SetDataBinding(bookDataSet, "Table")
                Else
                    MsgBox("查询图书表失败")
                End If

                readerstr = "select * from 读者"
                If OleConn.SelectQuery(readerstr, readerDataSet) Then
                    grdReader.SetDataBinding(readerDataSet, "Table")
                Else
                    MsgBox("查询读者表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try

            cmbQueryBookType.SelectedIndex = 1
            cmbQueryReaderType.SelectedIndex = 0
        Else                                        '登录失败，关闭系统
            Me.Close()
        End If
    End Sub

    Private Sub btnQueryBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryBook.Click
        If txtQueryBookContent.Text = "" Then
            txtQueryBookContent.Focus()
            MsgBox("请输入查询内容")
        ElseIf cmbQueryBookType.SelectedIndex < 0 Then
            cmbQueryBookType.Focus()
            MsgBox("请选择查询类型")
        Else
            Try
                bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _
                    "='" & Trim(txtQueryBookContent.Text) & "'"
                bookDataSet.Clear()
                If OleConn.SelectQuery(bookstr, bookDataSet) Then
                    grdBook.SetDataBinding(bookDataSet, "Table")
                Else
                    MsgBox("查询图书表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub btnQueryReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryReader.Click
        If txtQueryReaderContent.Text = "" Then
            txtQueryReaderContent.Focus()
            MsgBox("请输入查询内容")
        ElseIf cmbQueryReaderType.SelectedIndex < 0 Then
            cmbQueryReaderType.Focus()
            MsgBox("请选择查询类型")
        Else
            Try
                readerstr = "select * from 读者 where " & cmbQueryReaderType.SelectedItem & _
                    "='" & Trim(txtQueryReaderContent.Text) & "'"
                readerDataSet.Clear()
                If OleConn.SelectQuery(readerstr, readerDataSet) Then
                    grdReader.SetDataBinding(readerDataSet, "Table")
                Else
                    MsgBox("查询读者表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try
        End If
    End Sub

    Private Sub tabMain_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabMain.SelectedIndexChanged
        If tabMain.SelectedIndex = 0 Then
            Me.AcceptButton = btnQueryBook
        ElseIf tabMain.SelectedIndex = 1 Then
            Me.AcceptButton = btnQueryReader
        End If
    End Sub

    Private Sub btnRefreshBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefreshBook.Click
        Try
            If txtQueryBookContent.Text = "" Then
                bookstr = "select * from 图书"
            Else
                bookstr = "select * from 图书 where " & cmbQueryBookType.SelectedItem & _
                         "='" & Trim(txtQueryBookContent.Text) & "'"
            End If

            bookDataSet.Clear()
            If OleConn.SelectQuery(bookstr, bookDataSet) Then
                grdBook.SetDataBinding(bookDataSet, "Table")
            Else
                MsgBox("查询图书表失败")
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub btnRefreshReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefreshReader.Click
        Try
            If txtQueryReaderContent.Text = "" Then
                readerstr = "select * from 读者"
            Else
                readerstr = "select * from 读者 where " & cmbQueryReaderType.SelectedItem & _
                        "='" & Trim(txtQueryReaderContent.Text) & "'"
            End If

            readerDataSet.Clear()
            If OleConn.SelectQuery(readerstr, readerDataSet) Then
                grdReader.SetDataBinding(readerDataSet, "Table")
            Else
                MsgBox("查询读者表失败")
            End If
        Catch ex As Exception
            OleConn.DisplayError(ex)
        End Try
    End Sub

    Private Sub grdBook_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdBook.DoubleClick
        Dim i As Integer
        Dim hti As DataGrid.HitTestInfo
        Dim pt As New Point
        pt = grdBook.PointToClient(grdBook.MousePosition)
        hti = grdBook.HitTest(pt)
        If hti.Type = DataGrid.HitTestType.RowHeader = True Or hti.Type = DataGrid.HitTestType.Cell = True Then
            Dim frm As New frmBookManage
            For i = 0 To bookDataSet.Tables(0).Rows.Count - 1
                If bookDataSet.Tables(0).Rows(i).Item("图书编号") = grdBook.Item(hti.Row, 0) Then
                    frm.linenum = i
                    frm.str = bookstr
                    Exit For
                End If
            Next
            frm.ShowDialog()
        End If
    End Sub

    Private Sub grdReader_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdReader.DoubleClick
        Dim i As Integer
        Dim hti As DataGrid.HitTestInfo
        Dim pt As New Point
        pt = grdReader.PointToClient(grdReader.MousePosition)
        hti = grdReader.HitTest(pt)
        If hti.Type = DataGrid.HitTestType.RowHeader = True Or hti.Type = DataGrid.HitTestType.Cell = True Then
            Dim frm As New frmReaderManage
            For i = 0 To readerDataSet.Tables(0).Rows.Count - 1
                If readerDataSet.Tables(0).Rows(i).Item("编号") = grdReader.Item(hti.Row, 0) Then
                    frm.linenum = i
                    frm.str = readerstr
                    Exit For
                End If
            Next
            frm.ShowDialog()
        End If
    End Sub

    Private Sub btnClearBook_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearBook.Click