bookmanage.vb

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

        '
        Me.Label25.Location = New System.Drawing.Point(224, 32)
        Me.Label25.Name = "Label25"
        Me.Label25.Size = New System.Drawing.Size(56, 23)
        Me.Label25.TabIndex = 0
        Me.Label25.Text = "出版时间"
        '
        'txtExistCount
        '
        Me.txtExistCount.Location = New System.Drawing.Point(296, 108)
        Me.txtExistCount.Name = "txtExistCount"
        Me.txtExistCount.Size = New System.Drawing.Size(120, 21)
        Me.txtExistCount.TabIndex = 1
        Me.txtExistCount.Text = ""
        '
        'Label26
        '
        Me.Label26.Location = New System.Drawing.Point(224, 108)
        Me.Label26.Name = "Label26"
        Me.Label26.Size = New System.Drawing.Size(56, 23)
        Me.Label26.TabIndex = 0
        Me.Label26.Text = "现存数量"
        '
        'txtBookCount
        '
        Me.txtBookCount.Location = New System.Drawing.Point(296, 70)
        Me.txtBookCount.Name = "txtBookCount"
        Me.txtBookCount.Size = New System.Drawing.Size(120, 21)
        Me.txtBookCount.TabIndex = 1
        Me.txtBookCount.Text = ""
        '
        'Label27
        '
        Me.Label27.Location = New System.Drawing.Point(224, 70)
        Me.Label27.Name = "Label27"
        Me.Label27.Size = New System.Drawing.Size(56, 23)
        Me.Label27.TabIndex = 0
        Me.Label27.Text = "图书总数"
        '
        'txtLendCount
        '
        Me.txtLendCount.Location = New System.Drawing.Point(296, 222)
        Me.txtLendCount.Name = "txtLendCount"
        Me.txtLendCount.Size = New System.Drawing.Size(120, 21)
        Me.txtLendCount.TabIndex = 1
        Me.txtLendCount.Text = ""
        '
        'Label28
        '
        Me.Label28.Location = New System.Drawing.Point(224, 146)
        Me.Label28.Name = "Label28"
        Me.Label28.Size = New System.Drawing.Size(56, 23)
        Me.Label28.TabIndex = 0
        Me.Label28.Text = "入馆时间"
        '
        'Label29
        '
        Me.Label29.Location = New System.Drawing.Point(224, 184)
        Me.Label29.Name = "Label29"
        Me.Label29.Size = New System.Drawing.Size(56, 23)
        Me.Label29.TabIndex = 0
        Me.Label29.Text = "图书价格"
        '
        'txtBookPrice
        '
        Me.txtBookPrice.Location = New System.Drawing.Point(296, 184)
        Me.txtBookPrice.Name = "txtBookPrice"
        Me.txtBookPrice.Size = New System.Drawing.Size(120, 21)
        Me.txtBookPrice.TabIndex = 1
        Me.txtBookPrice.Text = ""
        '
        'Label30
        '
        Me.Label30.Location = New System.Drawing.Point(224, 222)
        Me.Label30.Name = "Label30"
        Me.Label30.Size = New System.Drawing.Size(56, 23)
        Me.Label30.TabIndex = 0
        Me.Label30.Text = "借出次数"
        '
        'Label31
        '
        Me.Label31.Location = New System.Drawing.Point(224, 260)
        Me.Label31.Name = "Label31"
        Me.Label31.Size = New System.Drawing.Size(56, 23)
        Me.Label31.TabIndex = 0
        Me.Label31.Text = "存放位置"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(24, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(80, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "图书编号"
        '
        'cmbLocation
        '
        Me.cmbLocation.Location = New System.Drawing.Point(296, 260)
        Me.cmbLocation.Name = "cmbLocation"
        Me.cmbLocation.Size = New System.Drawing.Size(120, 20)
        Me.cmbLocation.TabIndex = 2
        '
        'cmbType
        '
        Me.cmbType.Location = New System.Drawing.Point(88, 222)
        Me.cmbType.Name = "cmbType"
        Me.cmbType.Size = New System.Drawing.Size(120, 20)
        Me.cmbType.TabIndex = 2
        '
        'cmbPublishTime
        '
        Me.cmbPublishTime.DropDownWidth = 1
        Me.cmbPublishTime.ItemHeight = 12
        Me.cmbPublishTime.Location = New System.Drawing.Point(296, 32)
        Me.cmbPublishTime.Name = "cmbPublishTime"
        Me.cmbPublishTime.Size = New System.Drawing.Size(120, 20)
        Me.cmbPublishTime.TabIndex = 2
        '
        'btnModify
        '
        Me.btnModify.Location = New System.Drawing.Point(221, 360)
        Me.btnModify.Name = "btnModify"
        Me.btnModify.Size = New System.Drawing.Size(72, 40)
        Me.btnModify.TabIndex = 1
        Me.btnModify.Text = "修改"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(16, 360)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(72, 40)
        Me.btnSave.TabIndex = 1
        Me.btnSave.Text = "保存"
        '
        'btnClose
        '
        Me.btnClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnClose.Location = New System.Drawing.Point(631, 360)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(72, 40)
        Me.btnClose.TabIndex = 1
        Me.btnClose.Text = "关闭"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(426, 360)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(72, 40)
        Me.btnDelete.TabIndex = 1
        Me.btnDelete.Text = "删除"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Label17)
        Me.GroupBox1.Controls.Add(Me.btnFirst)
        Me.GroupBox1.Controls.Add(Me.txtBarCode2)
        Me.GroupBox1.Controls.Add(Me.txtBookName2)
        Me.GroupBox1.Controls.Add(Me.Label16)
        Me.GroupBox1.Controls.Add(Me.Label15)
        Me.GroupBox1.Controls.Add(Me.btnUp)
        Me.GroupBox1.Controls.Add(Me.txtBookId2)
        Me.GroupBox1.Controls.Add(Me.btnEnd)
        Me.GroupBox1.Controls.Add(Me.btnDown)
        Me.GroupBox1.Controls.Add(Me.Button9)
        Me.GroupBox1.Controls.Add(Me.Button10)
        Me.GroupBox1.Location = New System.Drawing.Point(464, 8)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(240, 320)
        Me.GroupBox1.TabIndex = 13
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "图书定位"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(18, 184)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(62, 23)
        Me.Label17.TabIndex = 15
        Me.Label17.Text = "编号"
        '
        'btnFirst
        '
        Me.btnFirst.Location = New System.Drawing.Point(136, 32)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(80, 32)
        Me.btnFirst.TabIndex = 20
        Me.btnFirst.Text = "第一条"
        '
        'txtBarCode2
        '
        Me.txtBarCode2.Location = New System.Drawing.Point(88, 152)
        Me.txtBarCode2.Name = "txtBarCode2"
        Me.txtBarCode2.Size = New System.Drawing.Size(128, 21)
        Me.txtBarCode2.TabIndex = 21
        Me.txtBarCode2.Text = ""
        '
        'txtBookName2
        '
        Me.txtBookName2.Location = New System.Drawing.Point(88, 216)
        Me.txtBookName2.Name = "txtBookName2"
        Me.txtBookName2.Size = New System.Drawing.Size(128, 21)
        Me.txtBookName2.TabIndex = 19
        Me.txtBookName2.Text = ""
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(18, 152)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(62, 23)
        Me.Label16.TabIndex = 16
        Me.Label16.Text = "条形码"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(18, 216)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(62, 23)
        Me.Label15.TabIndex = 14
        Me.Label15.Text = "书名"
        '
        'btnUp
        '
        Me.btnUp.Location = New System.Drawing.Point(18, 32)
        Me.btnUp.Name = "btnUp"
        Me.btnUp.Size = New System.Drawing.Size(80, 32)
        Me.btnUp.TabIndex = 18
        Me.btnUp.Text = "上一条"
        '
        'txtBookId2
        '
        Me.txtBookId2.Location = New System.Drawing.Point(88, 184)
        Me.txtBookId2.Name = "txtBookId2"
        Me.txtBookId2.Size = New System.Drawing.Size(128, 21)
        Me.txtBookId2.TabIndex = 17
        Me.txtBookId2.Text = ""
        '
        'btnEnd
        '
        Me.btnEnd.Location = New System.Drawing.Point(136, 80)
        Me.btnEnd.Name = "btnEnd"
        Me.btnEnd.Size = New System.Drawing.Size(80, 32)
        Me.btnEnd.TabIndex = 12
        Me.btnEnd.Text = "最后一条"
        '
        'btnDown
        '
        Me.btnDown.Location = New System.Drawing.Point(18, 80)
        Me.btnDown.Name = "btnDown"
        Me.btnDown.Size = New System.Drawing.Size(80, 32)
        Me.btnDown.TabIndex = 13
        Me.btnDown.Text = "下一条"
        '
        'Button9
        '
        Me.Button9.Location = New System.Drawing.Point(136, 32)
        Me.Button9.Name = "Button9"
        Me.Button9.Size = New System.Drawing.Size(80, 32)
        Me.Button9.TabIndex = 20
        Me.Button9.Text = "第一条"
        '
        'Button10
        '
        Me.Button10.Location = New System.Drawing.Point(136, 80)
        Me.Button10.Name = "Button10"
        Me.Button10.Size = New System.Drawing.Size(80, 32)
        Me.Button10.TabIndex = 12
        Me.Button10.Text = "最后一条"
        '
        'frmBookManage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(720, 415)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.btnModify)
        Me.Controls.Add(Me.btnSave)
        Me.Controls.Add(Me.btnClose)
        Me.Controls.Add(Me.btnDelete)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.MaximizeBox = False
        Me.Name = "frmBookManage"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书管理"
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public linenum As Integer
    Public str As String
    Private DataReader As System.Data.OleDb.OleDbDataReader
    Private dr As DataRow
    
    Private Sub frmBookManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            If OleConn.SelectQuery("select * from 图书类别", DataReader) Then
                While DataReader.Read