frmreturnbook.vb

The Management Information System of Library using .NET

        '
        'txtBook_isbn
        '
        Me.txtBook_isbn.BackColor = System.Drawing.Color.White
        Me.txtBook_isbn.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_isbn.Location = New System.Drawing.Point(496, 16)
        Me.txtBook_isbn.Name = "txtBook_isbn"
        Me.txtBook_isbn.ReadOnly = True
        Me.txtBook_isbn.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_isbn.TabIndex = 36
        Me.txtBook_isbn.TabStop = False
        Me.txtBook_isbn.Text = ""
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(432, 64)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(64, 16)
        Me.Label13.TabIndex = 35
        Me.Label13.Text = "图书价格:"
        '
        'txtBook_pub
        '
        Me.txtBook_pub.BackColor = System.Drawing.Color.White
        Me.txtBook_pub.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_pub.Location = New System.Drawing.Point(88, 40)
        Me.txtBook_pub.Name = "txtBook_pub"
        Me.txtBook_pub.ReadOnly = True
        Me.txtBook_pub.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_pub.TabIndex = 34
        Me.txtBook_pub.TabStop = False
        Me.txtBook_pub.Text = ""
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(224, 64)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(64, 16)
        Me.Label14.TabIndex = 33
        Me.Label14.Text = "图书页数:"
        '
        'txtBook_name
        '
        Me.txtBook_name.BackColor = System.Drawing.Color.White
        Me.txtBook_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_name.Location = New System.Drawing.Point(296, 16)
        Me.txtBook_name.Name = "txtBook_name"
        Me.txtBook_name.ReadOnly = True
        Me.txtBook_name.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_name.TabIndex = 32
        Me.txtBook_name.TabStop = False
        Me.txtBook_name.Text = ""
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(224, 40)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(64, 16)
        Me.Label15.TabIndex = 31
        Me.Label15.Text = "图书作者:"
        '
        'txtBook_code
        '
        Me.txtBook_code.BackColor = System.Drawing.SystemColors.Info
        Me.txtBook_code.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_code.Location = New System.Drawing.Point(88, 16)
        Me.txtBook_code.Name = "txtBook_code"
        Me.txtBook_code.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_code.TabIndex = 0
        Me.txtBook_code.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(432, 40)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(64, 16)
        Me.Label16.TabIndex = 29
        Me.Label16.Text = "出版日期:"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(432, 16)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(64, 16)
        Me.Label17.TabIndex = 28
        Me.Label17.Text = "ISBN号:"
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(16, 40)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(64, 16)
        Me.Label18.TabIndex = 27
        Me.Label18.Text = "出版社:"
        '
        'Label19
        '
        Me.Label19.ForeColor = System.Drawing.Color.Red
        Me.Label19.Location = New System.Drawing.Point(224, 16)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(64, 16)
        Me.Label19.TabIndex = 26
        Me.Label19.Text = "图书题名:"
        '
        'Label20
        '
        Me.Label20.ForeColor = System.Drawing.Color.Red
        Me.Label20.Location = New System.Drawing.Point(16, 16)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(64, 16)
        Me.Label20.TabIndex = 25
        Me.Label20.Text = "条码号:"
        '
        'GroupBox1
        '
        Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.GroupBox1.Controls.Add(Me.txtMaxBorrowDays)
        Me.GroupBox1.Controls.Add(Me.Label10)
        Me.GroupBox1.Controls.Add(Me.txtTotalBorrowNo)
        Me.GroupBox1.Controls.Add(Me.Label8)
        Me.GroupBox1.Controls.Add(Me.txtAu_adddate)
        Me.GroupBox1.Controls.Add(Me.txtBorrowQinkuang)
        Me.GroupBox1.Controls.Add(Me.Label7)
        Me.GroupBox1.Controls.Add(Me.txtAu_sort)
        Me.GroupBox1.Controls.Add(Me.txtAu_sex)
        Me.GroupBox1.Controls.Add(Me.txtAu_adr)
        Me.GroupBox1.Controls.Add(Me.txtAu_name)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.txtAu_id)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Location = New System.Drawing.Point(5, 3)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(704, 96)
        Me.GroupBox1.TabIndex = 0
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "读者基本情况"
        '
        'txtMaxBorrowDays
        '
        Me.txtMaxBorrowDays.BackColor = System.Drawing.Color.White
        Me.txtMaxBorrowDays.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtMaxBorrowDays.Location = New System.Drawing.Point(520, 64)
        Me.txtMaxBorrowDays.Name = "txtMaxBorrowDays"
        Me.txtMaxBorrowDays.ReadOnly = True
        Me.txtMaxBorrowDays.Size = New System.Drawing.Size(104, 21)
        Me.txtMaxBorrowDays.TabIndex = 51
        Me.txtMaxBorrowDays.TabStop = False
        Me.txtMaxBorrowDays.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(432, 64)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(88, 16)
        Me.Label10.TabIndex = 50
        Me.Label10.Text = "最大借书时间:"
        '
        'txtTotalBorrowNo
        '
        Me.txtTotalBorrowNo.BackColor = System.Drawing.Color.White
        Me.txtTotalBorrowNo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtTotalBorrowNo.Location = New System.Drawing.Point(296, 64)
        Me.txtTotalBorrowNo.Name = "txtTotalBorrowNo"
        Me.txtTotalBorrowNo.ReadOnly = True
        Me.txtTotalBorrowNo.Size = New System.Drawing.Size(128, 21)
        Me.txtTotalBorrowNo.TabIndex = 49
        Me.txtTotalBorrowNo.TabStop = False
        Me.txtTotalBorrowNo.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(224, 64)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(64, 16)
        Me.Label8.TabIndex = 48
        Me.Label8.Text = "累计借书:"
        '
        'txtAu_adddate
        '
        Me.txtAu_adddate.BackColor = System.Drawing.Color.White
        Me.txtAu_adddate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_adddate.Location = New System.Drawing.Point(496, 40)
        Me.txtAu_adddate.Name = "txtAu_adddate"
        Me.txtAu_adddate.ReadOnly = True
        Me.txtAu_adddate.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_adddate.TabIndex = 47
        Me.txtAu_adddate.TabStop = False
        Me.txtAu_adddate.Text = ""
        '
        'txtBorrowQinkuang
        '
        Me.txtBorrowQinkuang.BackColor = System.Drawing.Color.White
        Me.txtBorrowQinkuang.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBorrowQinkuang.Location = New System.Drawing.Point(88, 64)
        Me.txtBorrowQinkuang.Name = "txtBorrowQinkuang"
        Me.txtBorrowQinkuang.ReadOnly = True
        Me.txtBorrowQinkuang.Size = New System.Drawing.Size(128, 21)
        Me.txtBorrowQinkuang.TabIndex = 46
        Me.txtBorrowQinkuang.TabStop = False
        Me.txtBorrowQinkuang.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(16, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(64, 16)
        Me.Label7.TabIndex = 45
        Me.Label7.Text = "借阅情况:"
        '
        'txtAu_sort
        '
        Me.txtAu_sort.BackColor = System.Drawing.Color.White
        Me.txtAu_sort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_sort.Location = New System.Drawing.Point(296, 40)
        Me.txtAu_sort.Name = "txtAu_sort"
        Me.txtAu_sort.ReadOnly = True
        Me.txtAu_sort.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_sort.TabIndex = 44
        Me.txtAu_sort.TabStop = False
        Me.txtAu_sort.Text = ""
        '
        'txtAu_sex
        '
        Me.txtAu_sex.BackColor = System.Drawing.Color.White
        Me.txtAu_sex.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_sex.Location = New System.Drawing.Point(88, 40)
        Me.txtAu_sex.Name = "txtAu_sex"
        Me.txtAu_sex.ReadOnly = True
        Me.txtAu_sex.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_sex.TabIndex = 43
        Me.txtAu_sex.TabStop = False
        Me.txtAu_sex.Text = ""
        '
        'txtAu_adr
        '
        Me.txtAu_adr.BackColor = System.Drawing.Color.White
        Me.txtAu_adr.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_adr.Location = New System.Drawing.Point(496, 16)
        Me.txtAu_adr.Name = "txtAu_adr"
        Me.txtAu_adr.ReadOnly = True
        Me.txtAu_adr.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_adr.TabIndex = 39
        Me.txtAu_adr.TabStop = False
        Me.txtAu_adr.Text = ""
        '
        'txtAu_name
        '
        Me.txtAu_name.BackColor = System.Drawing.Color.White
        Me.txtAu_name.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_name.Location = New System.Drawing.Point(296, 16)
        Me.txtAu_name.Name = "txtAu_name"
        Me.txtAu_name.ReadOnly = True
        Me.txtAu_name.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_name.TabIndex = 31
        Me.txtAu_name.TabStop = False
        Me.txtAu_name.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(224, 40)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(64, 16)
        Me.Label6.TabIndex = 40
        Me.Label6.Text = "读者类别:"
        '
        'txtAu_id
        '
        Me.txtAu_id.BackColor = System.Drawing.SystemColors.Info
        Me.txtAu_id.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtAu_id.Location = New System.Drawing.Point(88, 16)
        Me.txtAu_id.Name = "txtAu_id"
        Me.txtAu_id.Size = New System.Drawing.Size(128, 21)
        Me.txtAu_id.TabIndex = 0
        Me.txtAu_id.Text = ""
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(432, 40)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(64, 16)
        Me.Label5.TabIndex = 37
        Me.Label5.Text = "办证日期:"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(432, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(64, 16)
        Me.Label4.TabIndex = 36
        Me.Label4.Text = "读者地址:"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 40)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(64, 16)
        Me.Label3.TabIndex = 34
        Me.Label3.Text = "读者性别:"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(224, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 16)
        Me.Label2.TabIndex = 32
        Me.Label2.Text = "读者姓名:"
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.Red
        Me.Label1.Location = New System.Drawing.Point(16, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 16)
        Me.Label1.TabIndex = 29
        Me.Label1.Text = "图书证号:"
        '
        'frmReturnBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(714, 535)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.dbgBorrowList)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmReturnBook"
        Me.Text = "图书归还管理"
        Me.GroupBox3.ResumeLayout(False)
        CType(Me.dbgBorrowList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    '绑定数据表,显示某读者 当前借书记录
    Function databind(ByVal strAu_id As String)