borrowbook.vb

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

        '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)
        Me.txtPublishTime.TabIndex = 1
        Me.txtPublishTime.Text = ""
        '
        'Label25
        '
        Me.Label25.Location = New System.Drawing.Point(384, 240)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(56, 23)
        Me.Label25.TabIndex = 0
        Me.Label25.Text = "现存数量"
        '
        'txtBookPrice
        '
        Me.txtBookPrice.Enabled = False
        Me.txtBookPrice.Location = New System.Drawing.Point(80, 235)
        Me.txtBookPrice.Name = "txtBookPrice"
        Me.txtBookPrice.Size = New System.Drawing.Size(104, 21)
        Me.txtBookPrice.TabIndex = 1
        Me.txtBookPrice.Text = ""
        '
        'Label26
        '
        Me.Label26.Location = New System.Drawing.Point(8, 208)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(56, 16)
        Me.Label26.TabIndex = 0
        Me.Label26.Text = "作者"
        '
        'txtBookAuthor
        '
        Me.txtBookAuthor.Enabled = False
        Me.txtBookAuthor.Location = New System.Drawing.Point(80, 203)
        Me.txtBookAuthor.Name = "txtBookAuthor"
        Me.txtBookAuthor.Size = New System.Drawing.Size(104, 21)
        Me.txtBookAuthor.TabIndex = 1
        Me.txtBookAuthor.Text = ""
        '
        'labInfo
        '
        Me.labInfo.BackColor = System.Drawing.SystemColors.Control
        Me.labInfo.ForeColor = System.Drawing.Color.Blue
        Me.labInfo.Location = New System.Drawing.Point(8, 176)
        Me.labInfo.Name = "labInfo"
        Me.labInfo.Size = New System.Drawing.Size(56, 16)
        Me.labInfo.TabIndex = 0
        Me.labInfo.Text = "图书编号"
        '
        'txtBookId
        '
        Me.txtBookId.Enabled = False
        Me.txtBookId.Location = New System.Drawing.Point(80, 171)
        Me.txtBookId.Name = "txtBookId"
        Me.txtBookId.Size = New System.Drawing.Size(104, 21)
        Me.txtBookId.TabIndex = 1
        Me.txtBookId.Text = ""
        '
        'Label28
        '
        Me.Label28.Location = New System.Drawing.Point(384, 207)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(56, 23)
        Me.Label28.TabIndex = 0
        Me.Label28.Text = "出版日期"
        '
        'Label30
        '
        Me.Label30.Location = New System.Drawing.Point(8, 240)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(56, 16)
        Me.Label30.TabIndex = 0
        Me.Label30.Text = "价格"
        '
        'Label22
        '
        Me.Label22.Location = New System.Drawing.Point(192, 240)
        Me.Label22.Name = "Label22"
        Me.Label22.Size = New System.Drawing.Size(56, 16)
        Me.Label22.TabIndex = 0
        Me.Label22.Text = "图书总数"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.txtBorrowTime)
        Me.GroupBox3.Controls.Add(Me.Label1)
        Me.GroupBox3.Controls.Add(Me.Label2)
        Me.GroupBox3.Controls.Add(Me.txtReturnTime)
        Me.GroupBox3.Location = New System.Drawing.Point(0, 272)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(504, 56)
        Me.GroupBox3.TabIndex = 1
        Me.GroupBox3.TabStop = False
        '
        'txtBorrowTime
        '
        Me.txtBorrowTime.Enabled = False
        Me.txtBorrowTime.Location = New System.Drawing.Point(80, 24)
        Me.txtBorrowTime.Name = "txtBorrowTime"
        Me.txtBorrowTime.Size = New System.Drawing.Size(120, 21)
        Me.txtBorrowTime.TabIndex = 2
        Me.txtBorrowTime.Text = ""
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.Blue
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(56, 16)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "借书日期"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(264, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 16)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "应还日期"
        '
        'txtReturnTime
        '
        Me.txtReturnTime.Enabled = False
        Me.txtReturnTime.Location = New System.Drawing.Point(344, 24)
        Me.txtReturnTime.Name = "txtReturnTime"
        Me.txtReturnTime.Size = New System.Drawing.Size(104, 21)
        Me.txtReturnTime.TabIndex = 1
        Me.txtReturnTime.Text = ""
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.btnLend)
        Me.GroupBox4.Controls.Add(Me.btnClear)
        Me.GroupBox4.Controls.Add(Me.btnClose)
        Me.GroupBox4.Location = New System.Drawing.Point(504, 272)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(256, 56)
        Me.GroupBox4.TabIndex = 2
        Me.GroupBox4.TabStop = False
        '
        'btnLend
        '
        Me.btnLend.Enabled = False