frm_issuereturnbook.vb

用vb.net+SQL做的,本系统实现了图书管理系统应该具有的特色

        Me.TxtAddress.Size = New System.Drawing.Size(236, 21)
        Me.TxtAddress.TabIndex = 6
        '
        'TxtReaderName
        '
        Me.TxtReaderName.BackColor = System.Drawing.SystemColors.Info
        Me.TxtReaderName.Enabled = False
        Me.TxtReaderName.Location = New System.Drawing.Point(112, 60)
        Me.TxtReaderName.Name = "TxtReaderName"
        Me.TxtReaderName.Size = New System.Drawing.Size(236, 21)
        Me.TxtReaderName.TabIndex = 5
        '
        'TxtReaderNo
        '
        Me.TxtReaderNo.Location = New System.Drawing.Point(112, 26)
        Me.TxtReaderNo.Name = "TxtReaderNo"
        Me.TxtReaderNo.Size = New System.Drawing.Size(236, 21)
        Me.TxtReaderNo.TabIndex = 4
        '
        'Label9
        '
        Me.Label9.AutoSize = True
        Me.Label9.Location = New System.Drawing.Point(16, 129)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(65, 12)
        Me.Label9.TabIndex = 3
        Me.Label9.Text = "最大借书量"
        '
        'Label8
        '
        Me.Label8.AutoSize = True
        Me.Label8.Location = New System.Drawing.Point(52, 95)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(29, 12)
        Me.Label8.TabIndex = 2
        Me.Label8.Text = "地址"
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(28, 60)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(53, 12)
        Me.Label7.TabIndex = 1
        Me.Label7.Text = "读者姓名"
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(28, 26)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(53, 12)
        Me.Label6.TabIndex = 0
        Me.Label6.Text = "读者编号"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.BtnPrintReceipt)
        Me.GroupBox3.Controls.Add(Me.TxtReturnDate)
        Me.GroupBox3.Controls.Add(Me.Label14)
        Me.GroupBox3.Controls.Add(Me.TxtIssueDate)
        Me.GroupBox3.Controls.Add(Me.ComboChargeType)
        Me.GroupBox3.Controls.Add(Me.Label13)
        Me.GroupBox3.Controls.Add(Me.Label12)
        Me.GroupBox3.Controls.Add(Me.TxtIssueNo)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Location = New System.Drawing.Point(12, 219)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(718, 95)
        Me.GroupBox3.TabIndex = 2
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "借阅信息"
        '
        'BtnPrintReceipt
        '
        Me.BtnPrintReceipt.Location = New System.Drawing.Point(313, 60)
        Me.BtnPrintReceipt.Name = "BtnPrintReceipt"
        Me.BtnPrintReceipt.Size = New System.Drawing.Size(120, 25)
        Me.BtnPrintReceipt.TabIndex = 8
        Me.BtnPrintReceipt.Text = "打印借阅条"
        '
        'TxtReturnDate
        '
        Me.TxtReturnDate.BackColor = System.Drawing.SystemColors.Info
        Me.TxtReturnDate.Enabled = False
        Me.TxtReturnDate.Location = New System.Drawing.Point(90, 57)
        Me.TxtReturnDate.Name = "TxtReturnDate"
        Me.TxtReturnDate.Size = New System.Drawing.Size(120, 21)
        Me.TxtReturnDate.TabIndex = 7
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(10, 60)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(120, 25)
        Me.Label14.TabIndex = 6
        Me.Label14.Text = "归还日期"
        '
        'TxtIssueDate
        '
        Me.TxtIssueDate.BackColor = System.Drawing.SystemColors.Info
        Me.TxtIssueDate.Enabled = False
        Me.TxtIssueDate.Location = New System.Drawing.Point(313, 23)
        Me.TxtIssueDate.Name = "TxtIssueDate"
        Me.TxtIssueDate.Size = New System.Drawing.Size(120, 21)
        Me.TxtIssueDate.TabIndex = 5
        '
        'ComboChargeType
        '
        Me.ComboChargeType.Location = New System.Drawing.Point(523, 24)
        Me.ComboChargeType.Name = "ComboChargeType"
        Me.ComboChargeType.Size = New System.Drawing.Size(145, 20)
        Me.ComboChargeType.TabIndex = 4
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(456, 27)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(120, 25)
        Me.Label13.TabIndex = 3
        Me.Label13.Text = "费用类型"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(245, 26)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(120, 25)
        Me.Label12.TabIndex = 2
        Me.Label12.Text = "借阅日期"
        '
        'TxtIssueNo
        '
        Me.TxtIssueNo.Location = New System.Drawing.Point(90, 23)
        Me.TxtIssueNo.Name = "TxtIssueNo"
        Me.TxtIssueNo.Size = New System.Drawing.Size(120, 21)
        Me.TxtIssueNo.TabIndex = 1
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(10, 26)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(120, 25)
        Me.Label11.TabIndex = 0
        Me.Label11.Text = "借阅号"
        '
        'BtnIssue
        '
        Me.BtnIssue.Location = New System.Drawing.Point(113, 334)
        Me.BtnIssue.Name = "BtnIssue"
        Me.BtnIssue.Size = New System.Drawing.Size(153, 26)
        Me.BtnIssue.TabIndex = 3
        Me.BtnIssue.Text = "借阅"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(295, 334)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(154, 26)
        Me.Button3.TabIndex = 4
        Me.Button3.Text = "重置"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(477, 334)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(135, 26)
        Me.Button4.TabIndex = 5
        Me.Button4.Text = "退出"
        '
        'TextBox14
        '
        Me.TextBox14.Location = New System.Drawing.Point(912, 69)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.Size = New System.Drawing.Size(120, 21)
        Me.TextBox14.TabIndex = 6
        Me.TextBox14.Visible = False
        '
        'TextBox15
        '
        Me.TextBox15.Location = New System.Drawing.Point(912, 138)
        Me.TextBox15.Name = "TextBox15"
        Me.TextBox15.Size = New System.Drawing.Size(120, 21)
        Me.TextBox15.TabIndex = 7
        Me.TextBox15.Visible = False
        '
        'TextBox16
        '
        Me.TextBox16.Location = New System.Drawing.Point(883, 181)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.Size = New System.Drawing.Size(120, 21)
        Me.TextBox16.TabIndex = 8
        Me.TextBox16.Visible = False
        '
        'frm_IssueReturnBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(739, 374)
        Me.Controls.Add(Me.TextBox16)
        Me.Controls.Add(Me.TextBox15)
        Me.Controls.Add(Me.TextBox14)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.BtnIssue)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frm_IssueReturnBook"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "借阅书籍"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox3.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region
    '  Private Sub BtnReaderHistory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    '  Dim myR As String = TxtReaderNo.Text
    '  Try
    '     myFrm = New frm_ReaderHistory
    '      myFrm.nread = TxtReaderNo.Text
    '       myFrm.show()
    '   Catch c As Exception
    '       MsgBox("错误信息:" + c.ToString, MsgBoxStyle.Critical, "图书馆管理系统")
    '    End Try
    ' End Sub
    Private Sub TxtSN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtSN.KeyPress
        Dim strChar As Object
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                If checkIfBookAlreadyExists() = False Then
                    MsgBox("书籍编号不存在，请重新输入", MsgBoxStyle.Information, "图书馆管理系统")
                Else
                    If checkIfBookAlreadyExists() = True Then
                        loadBookDetails()
                        TxtReaderNo.Focus()
                    End If
                End If
            Case Else
                '什么也不做
        End Select
    End Sub
    Private Sub TxtReaderNo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtReaderNo.KeyPress
        Dim strChar As Object
        strChar = e.KeyChar
        Select Case strChar
            Case ChrW(System.Windows.Forms.Keys.Enter)
                If checkIfReaderAlreadyExists() = False Then
                    MsgBox("请输入有效的读者编号!", MsgBoxStyle.Information, "图书馆管理系统")
                Else
                    If checkIfReaderAlreadyExists() = True Then
                        loadReaderDetails()
                        TxtIssueNo.Focus()
                    End If
                End If
            Case Else
                '什么也不做
        End Select
    End Sub
    Sub loadBookDetails()
        MyConnection.Open()
        MyCommand = New OleDbCommand("SELECT * FROM BookDetails WHERE SN = '" & TxtSN.Text & "'", MyConnection)
        Try
            MyReader = MyCommand.ExecuteReader()
            While MyReader.Read
                TxtISBN.Text = MyReader("ISDN")
                TxtBookName.Text = MyReader("BookName")
                TxtAuthorName.Text = MyReader("AuthorName")
                TxtStatus.Text = MyReader("BookStatus")
            End While
        Catch c As Exception
            MsgBox("错误信息:" + c.ToString, MsgBoxStyle.Critical, "图书馆管理系统")
        End Try
        MyConnection.Close()
        MyReader.Close()