main.vb

图书借阅系统

        Me.mniAddedBookToday.Index = 4
        Me.mniAddedBookToday.Text = "今日新进图书"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 5
        Me.MenuItem30.Text = "-"
        '
        'mniAllReaders
        '
        Me.mniAllReaders.Index = 6
        Me.mniAllReaders.Text = "所有读者"
        '
        'mniBorrowedReaderToday
        '
        Me.mniBorrowedReaderToday.Index = 7
        Me.mniBorrowedReaderToday.Text = "今日借书读者"
        '
        'mniReturnedReaderToday
        '
        Me.mniReturnedReaderToday.Index = 8
        Me.mniReturnedReaderToday.Text = "今日还书读者"
        '
        'mniAddedReaderToday
        '
        Me.mniAddedReaderToday.Index = 9
        Me.mniAddedReaderToday.Text = "今日新增读者"
        '
        'mniDelayedReader
        '
        Me.mniDelayedReader.Index = 10
        Me.mniDelayedReader.Text = "过期未还读者"
        '
        'tbbModifyPassword
        '
        Me.tbbModifyPassword.Text = "修改密码"
        '
        'tbbExit
        '
        Me.tbbExit.ImageIndex = 0
        Me.tbbExit.Text = "退出"
        '
        'tabMain
        '
        Me.tabMain.Controls.Add(Me.tbpQBook)
        Me.tabMain.Controls.Add(Me.tbpQReader)
        Me.tabMain.Dock = System.Windows.Forms.DockStyle.Fill
        Me.tabMain.ItemSize = New System.Drawing.Size(395, 20)
        Me.tabMain.Location = New System.Drawing.Point(0, 43)
        Me.tabMain.Name = "tabMain"
        Me.tabMain.SelectedIndex = 0
        Me.tabMain.Size = New System.Drawing.Size(752, 502)
        Me.tabMain.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
        Me.tabMain.TabIndex = 1
        '
        'tbpQBook
        '
        Me.tbpQBook.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbpQBook.Controls.Add(Me.grdBook)
        Me.tbpQBook.Controls.Add(Me.btnQueryBook)
        Me.tbpQBook.Controls.Add(Me.cmbQueryBookType)
        Me.tbpQBook.Controls.Add(Me.txtQueryBookContent)
        Me.tbpQBook.Controls.Add(Me.Label1)
        Me.tbpQBook.Controls.Add(Me.btnRefreshBook)
        Me.tbpQBook.Controls.Add(Me.btnClearBook)
        Me.tbpQBook.Location = New System.Drawing.Point(4, 24)
        Me.tbpQBook.Name = "tbpQBook"
        Me.tbpQBook.Size = New System.Drawing.Size(744, 474)
        Me.tbpQBook.TabIndex = 0
        Me.tbpQBook.Text = "图书查询"
        '
        'grdBook
        '
        Me.grdBook.DataMember = ""
        Me.grdBook.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.grdBook.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.grdBook.Location = New System.Drawing.Point(0, 56)
        Me.grdBook.Name = "grdBook"
        Me.grdBook.ReadOnly = True
        Me.grdBook.Size = New System.Drawing.Size(742, 416)
        Me.grdBook.TabIndex = 4
        '
        'btnQueryBook
        '
        Me.btnQueryBook.Location = New System.Drawing.Point(408, 16)
        Me.btnQueryBook.Name = "btnQueryBook"
        Me.btnQueryBook.Size = New System.Drawing.Size(48, 23)
        Me.btnQueryBook.TabIndex = 3
        Me.btnQueryBook.Text = "查询"
        '
        'cmbQueryBookType
        '
        Me.cmbQueryBookType.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbQueryBookType.Items.AddRange(New Object() {"图书编号", "条形码", "书名", "作者", "出版社", "类别"})
        Me.cmbQueryBookType.Location = New System.Drawing.Point(280, 16)
        Me.cmbQueryBookType.Name = "cmbQueryBookType"
        Me.cmbQueryBookType.Size = New System.Drawing.Size(112, 20)
        Me.cmbQueryBookType.TabIndex = 2
        '
        'txtQueryBookContent
        '
        Me.txtQueryBookContent.Location = New System.Drawing.Point(120, 16)
        Me.txtQueryBookContent.Name = "txtQueryBookContent"
        Me.txtQueryBookContent.Size = New System.Drawing.Size(152, 21)
        Me.txtQueryBookContent.TabIndex = 1
        Me.txtQueryBookContent.Text = ""
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(96, 21)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "请选择查询内容"
        '
        'btnRefreshBook
        '
        Me.btnRefreshBook.Location = New System.Drawing.Point(464, 16)
        Me.btnRefreshBook.Name = "btnRefreshBook"
        Me.btnRefreshBook.Size = New System.Drawing.Size(48, 23)
        Me.btnRefreshBook.TabIndex = 3
        Me.btnRefreshBook.Text = "刷新"
        '
        'btnClearBook
        '
        Me.btnClearBook.Location = New System.Drawing.Point(520, 16)
        Me.btnClearBook.Name = "btnClearBook"
        Me.btnClearBook.Size = New System.Drawing.Size(48, 23)
        Me.btnClearBook.TabIndex = 3
        Me.btnClearBook.Text = "清除"
        '
        'tbpQReader
        '
        Me.tbpQReader.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.tbpQReader.Controls.Add(Me.grdReader)
        Me.tbpQReader.Controls.Add(Me.cmbQueryReaderType)
        Me.tbpQReader.Controls.Add(Me.txtQueryReaderContent)
        Me.tbpQReader.Controls.Add(Me.btnQueryReader)
        Me.tbpQReader.Controls.Add(Me.Label2)
        Me.tbpQReader.Controls.Add(Me.btnRefreshReader)
        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, 474)
        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, 76)
        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.btnQueryReader.Location = New System.Drawing.Point(408, 16)
        Me.btnQueryReader.Name = "btnQueryReader"
        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.btnPrintViewReader.Location = New System.Drawing.Point(0, 0)
        Me.btnPrintViewReader.Name = "btnPrintViewReader"
        Me.btnPrintViewReader.TabIndex = 5
        '
        'btnExportExcelReader
        '
        Me.btnExportExcelReader.Location = New System.Drawing.Point(0, 0)
        Me.btnExportExcelReader.Name = "btnExportExcelReader"
        Me.btnExportExcelReader.TabIndex = 6
        '
        '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 = "图书借阅系统"
        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 System.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()
            MsgBox(" 欢迎使用本系统")
            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")  ''''grdreader'是datagid
                Else
                    MsgBox("查询读者表失败")
                End If
            Catch ex As Exception
                OleConn.DisplayError(ex)
            End Try

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

    End Sub

    Private Sub mniAddReader_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniAddReader.Click
        Dim frm As New frmAddReader
        frm.ShowDialog()
    End Sub

    '‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mniSetupReaderType.Click
        Dim frm As New frmReaderType
        frm.ShowDialog()
    End Sub

    Private Sub mniAddBook_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mniAddBook.Click
        Dim frm As New frmAddBook
        frm.ShowDialog()
    End Sub

    Private Sub mniBookManage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New frmAddBook
        frm.ShowDialog()
    End Sub

    Private Sub tbrMain_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrMain.ButtonClick
        If e.Button Is tbrMain.Buttons.Item(0) Then         '借书
            Dim frm3 As New frmBorrowBook
            frm3.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(1) Then     '还书
            Dim frm4 As New frmReturnBook
            frm4.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(2) Then     '图书管理
            Dim frm As New frmBookManage
            frm.linenum = 0
            frm.str = bookstr
            frm.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(3) Then     '读者管理
            Dim frm1 As New frmReaderManage
            frm1.linenum = 0
            frm1.str = readerstr
            frm1.ShowDialog()
        ElseIf e.Button Is tbrMain.Buttons.Item(4) Then     '查询