returnbook.vb

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

        Me.GroupBox1.Controls.Add(Me.txtExistCount)
        Me.GroupBox1.Controls.Add(Me.Label21)
        Me.GroupBox1.Controls.Add(Me.txtBookCount)
        Me.GroupBox1.Controls.Add(Me.txtPublisher)
        Me.GroupBox1.Controls.Add(Me.Label23)
        Me.GroupBox1.Controls.Add(Me.txtBookName)
        Me.GroupBox1.Controls.Add(Me.Label24)
        Me.GroupBox1.Controls.Add(Me.txtPublishTime)
        Me.GroupBox1.Controls.Add(Me.Label25)
        Me.GroupBox1.Controls.Add(Me.txtBookPrice)
        Me.GroupBox1.Controls.Add(Me.Label26)
        Me.GroupBox1.Controls.Add(Me.txtBookAuthor)
        Me.GroupBox1.Controls.Add(Me.labInfo)
        Me.GroupBox1.Controls.Add(Me.txtBookId)
        Me.GroupBox1.Controls.Add(Me.Label28)
        Me.GroupBox1.Controls.Add(Me.Label30)
        Me.GroupBox1.Controls.Add(Me.Label22)
        Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(584, 272)
        Me.GroupBox1.TabIndex = 6
        Me.GroupBox1.TabStop = False
        '
        'GroupBox2
        '
        Me.GroupBox2.BackColor = System.Drawing.SystemColors.Control
        Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.GroupBox2.ForeColor = System.Drawing.SystemColors.ActiveBorder
        Me.GroupBox2.Location = New System.Drawing.Point(8, 152)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(560, 8)
        Me.GroupBox2.TabIndex = 2
        Me.GroupBox2.TabStop = False
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 88)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 16)
        Me.Label3.TabIndex = 0
        Me.Label3.Text = "住址"
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 120)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 0
        Me.Label7.Text = "可借书数"
        '
        'txtCanBorrowCount
        '
        Me.txtCanBorrowCount.Enabled = False
        Me.txtCanBorrowCount.Location = New System.Drawing.Point(80, 120)
        Me.txtCanBorrowCount.Name = "txtCanBorrowCount"
        Me.txtCanBorrowCount.Size = New System.Drawing.Size(104, 21)
        Me.txtCanBorrowCount.TabIndex = 1
        Me.txtCanBorrowCount.Text = ""
        '
        'txtUnReturnedCount
        '
        Me.txtUnReturnedCount.Enabled = False
        Me.txtUnReturnedCount.Location = New System.Drawing.Point(264, 120)
        Me.txtUnReturnedCount.Name = "txtUnReturnedCount"
        Me.txtUnReturnedCount.Size = New System.Drawing.Size(112, 21)
        Me.txtUnReturnedCount.TabIndex = 1
        Me.txtUnReturnedCount.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(192, 123)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(56, 23)
        Me.Label8.TabIndex = 0
        Me.Label8.Text = "未还书数"
        '
        'txtDemo
        '
        Me.txtDemo.Enabled = False
        Me.txtDemo.Location = New System.Drawing.Point(456, 120)
        Me.txtDemo.Name = "txtDemo"
        Me.txtDemo.Size = New System.Drawing.Size(112, 21)
        Me.txtDemo.TabIndex = 1
        Me.txtDemo.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(384, 123)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 23)
        Me.Label10.TabIndex = 0
        Me.Label10.Text = "备注"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(384, 57)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 23)
        Me.Label13.TabIndex = 0
        Me.Label13.Text = "联系电话"
        '
        'txtReaderId
        '
        Me.txtReaderId.Location = New System.Drawing.Point(80, 24)
        Me.txtReaderId.Name = "txtReaderId"
        Me.txtReaderId.Size = New System.Drawing.Size(104, 21)
        Me.txtReaderId.TabIndex = 1
        Me.txtReaderId.Text = ""
        '
        'Label14
        '
        Me.Label14.BackColor = System.Drawing.SystemColors.Control
        Me.Label14.ForeColor = System.Drawing.Color.Blue
        Me.Label14.Location = New System.Drawing.Point(8, 24)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(56, 16)
        Me.Label14.TabIndex = 0
        Me.Label14.Text = "读者编号"
        '
        'txtReaderType
        '
        Me.txtReaderType.Enabled = False
        Me.txtReaderType.Location = New System.Drawing.Point(80, 56)
        Me.txtReaderType.Name = "txtReaderType"
        Me.txtReaderType.Size = New System.Drawing.Size(104, 21)
        Me.txtReaderType.TabIndex = 1
        Me.txtReaderType.Text = ""
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(8, 56)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(56, 16)
        Me.Label15.TabIndex = 0
        Me.Label15.Text = "类别"
        '
        'txtReaderAddress
        '
        Me.txtReaderAddress.Enabled = False
        Me.txtReaderAddress.Location = New System.Drawing.Point(80, 88)
        Me.txtReaderAddress.Name = "txtReaderAddress"
        Me.txtReaderAddress.Size = New System.Drawing.Size(104, 21)
        Me.txtReaderAddress.TabIndex = 1
        Me.txtReaderAddress.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(384, 90)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(56, 23)
        Me.Label16.TabIndex = 0
        Me.Label16.Text = "借书次数"
        '
        'txtReaderTelephone
        '
        Me.txtReaderTelephone.Enabled = False
        Me.txtReaderTelephone.Location = New System.Drawing.Point(456, 56)
        Me.txtReaderTelephone.Name = "txtReaderTelephone"
        Me.txtReaderTelephone.Size = New System.Drawing.Size(112, 21)
        Me.txtReaderTelephone.TabIndex = 1
        Me.txtReaderTelephone.Text = ""
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(192, 24)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(56, 23)
        Me.Label17.TabIndex = 0
        Me.Label17.Text = "姓名"
        '
        'txtReaderName
        '
        Me.txtReaderName.Enabled = False
        Me.txtReaderName.Location = New System.Drawing.Point(264, 24)
        Me.txtReaderName.Name = "txtReaderName"
        Me.txtReaderName.Size = New System.Drawing.Size(112, 21)
        Me.txtReaderName.TabIndex = 1
        Me.txtReaderName.Text = ""
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(192, 57)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(56, 23)
        Me.Label18.TabIndex = 0
        Me.Label18.Text = "单位部门"
        '
        'txtReaderDepartment
        '
        Me.txtReaderDepartment.Enabled = False
        Me.txtReaderDepartment.Location = New System.Drawing.Point(264, 56)
        Me.txtReaderDepartment.Name = "txtReaderDepartment"
        Me.txtReaderDepartment.Size = New System.Drawing.Size(112, 21)
        Me.txtReaderDepartment.TabIndex = 1
        Me.txtReaderDepartment.Text = ""
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(192, 90)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(56, 23)
        Me.Label19.TabIndex = 0
        Me.Label19.Text = "登记日期"
        '
        'txtReaderAddTime
        '
        Me.txtReaderAddTime.Enabled = False
        Me.txtReaderAddTime.Location = New System.Drawing.Point(264, 88)
        Me.txtReaderAddTime.Name = "txtReaderAddTime"
        Me.txtReaderAddTime.Size = New System.Drawing.Size(112, 21)
        Me.txtReaderAddTime.TabIndex = 1
        Me.txtReaderAddTime.Text = ""
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(384, 24)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(56, 23)
        Me.Label20.TabIndex = 0
        Me.Label20.Text = "性别"
        '
        'txtLendCount
        '
        Me.txtLendCount.Enabled = False
        Me.txtLendCount.Location = New System.Drawing.Point(456, 88)
        Me.txtLendCount.Name = "txtLendCount"
        Me.txtLendCount.Size = New System.Drawing.Size(112, 21)
        Me.txtLendCount.TabIndex = 1
        Me.txtLendCount.Text = ""
        '
        'txtReaderSex
        '
        Me.txtReaderSex.Enabled = False
        Me.txtReaderSex.Location = New System.Drawing.Point(456, 24)
        Me.txtReaderSex.Name = "txtReaderSex"
        Me.txtReaderSex.Size = New System.Drawing.Size(112, 21)
        Me.txtReaderSex.TabIndex = 1
        Me.txtReaderSex.Text = ""
        '
        'txtBookType
        '
        Me.txtBookType.Enabled = False
        Me.txtBookType.Location = New System.Drawing.Point(456, 171)
        Me.txtBookType.Name = "txtBookType"
        Me.txtBookType.Size = New System.Drawing.Size(112, 21)
        Me.txtBookType.TabIndex = 1
        Me.txtBookType.Text = ""
        '
        'txtExistCount
        '
        Me.txtExistCount.Enabled = False
        Me.txtExistCount.Location = New System.Drawing.Point(456, 235)
        Me.txtExistCount.Name = "txtExistCount"
        Me.txtExistCount.Size = New System.Drawing.Size(112, 21)
        Me.txtExistCount.TabIndex = 1
        Me.txtExistCount.Text = ""
        '
        'Label21
        '
        Me.Label21.Location = New System.Drawing.Point(384, 174)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(56, 23)
        Me.Label21.TabIndex = 0
        Me.Label21.Text = "类别"
        '
        'txtBookCount
        '
        Me.txtBookCount.Enabled = False
        Me.txtBookCount.Location = New System.Drawing.Point(264, 235)
        Me.txtBookCount.Name = "txtBookCount"
        Me.txtBookCount.Size = New System.Drawing.Size(112, 21)
        Me.txtBookCount.TabIndex = 1
        Me.txtBookCount.Text = ""
        '
        'txtPublisher
        '
        Me.txtPublisher.Enabled = False
        Me.txtPublisher.Location = New System.Drawing.Point(264, 203)
        Me.txtPublisher.Name = "txtPublisher"
        Me.txtPublisher.Size = New System.Drawing.Size(112, 21)
        Me.txtPublisher.TabIndex = 1
        Me.txtPublisher.Text = ""
        '
        'Label23
        '
        Me.Label23.Location = New System.Drawing.Point(192, 207)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(56, 23)
        Me.Label23.TabIndex = 0
        Me.Label23.Text = "出版社"
        '
        'txtBookName
        '
        Me.txtBookName.Enabled = False
        Me.txtBookName.Location = New System.Drawing.Point(264, 171)
        Me.txtBookName.Name = "txtBookName"
        Me.txtBookName.Size = New System.Drawing.Size(112, 21)
        Me.txtBookName.TabIndex = 1
        Me.txtBookName.Text = ""
        '
        'Label24
        '
        Me.Label24.Location = New System.Drawing.Point(192, 174)
        Me.Label24.Name = "Label24"
        Me.Label24.Size = New System.Drawing.Size(56, 23)
        Me.Label24.TabIndex = 0
        Me.Label24.Text = "书名"
        '
        'txtPublishTime
        '
        Me.txtPublishTime.Enabled = False
        Me.txtPublishTime.Location = New System.Drawing.Point(456, 203)
        Me.txtPublishTime.Name = "txtPublishTime"
        Me.txtPublishTime.Size = New System.Drawing.Size(112, 21)