frmutterbook.vb

图书管理系统能过完成基本的功能

        Me.btnBorrow.Name = "btnBorrow"
        Me.btnBorrow.Size = New System.Drawing.Size(56, 24)
        Me.btnBorrow.TabIndex = 6
        Me.btnBorrow.Text = "借阅"
        '
        'lbRdate
        '
        Me.lbRdate.BackColor = System.Drawing.Color.Black
        Me.lbRdate.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbRdate.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbRdate.ForeColor = System.Drawing.Color.White
        Me.lbRdate.Location = New System.Drawing.Point(8, 120)
        Me.lbRdate.Name = "lbRdate"
        Me.lbRdate.Size = New System.Drawing.Size(120, 23)
        Me.lbRdate.TabIndex = 10
        Me.lbRdate.Text = "还书日期"
        Me.lbRdate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbName
        '
        Me.lbName.BackColor = System.Drawing.Color.Black
        Me.lbName.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbName.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbName.ForeColor = System.Drawing.Color.White
        Me.lbName.Location = New System.Drawing.Point(8, 48)
        Me.lbName.Name = "lbName"
        Me.lbName.Size = New System.Drawing.Size(120, 23)
        Me.lbName.TabIndex = 9
        Me.lbName.Text = "图书名称"
        Me.lbName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbAuthor
        '
        Me.lbAuthor.BackColor = System.Drawing.Color.Black
        Me.lbAuthor.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbAuthor.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbAuthor.ForeColor = System.Drawing.Color.White
        Me.lbAuthor.Location = New System.Drawing.Point(8, 72)
        Me.lbAuthor.Name = "lbAuthor"
        Me.lbAuthor.Size = New System.Drawing.Size(120, 23)
        Me.lbAuthor.TabIndex = 8
        Me.lbAuthor.Text = "图书作者"
        Me.lbAuthor.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbPublishers
        '
        Me.lbPublishers.BackColor = System.Drawing.Color.Black
        Me.lbPublishers.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbPublishers.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbPublishers.ForeColor = System.Drawing.Color.White
        Me.lbPublishers.Location = New System.Drawing.Point(8, 96)
        Me.lbPublishers.Name = "lbPublishers"
        Me.lbPublishers.Size = New System.Drawing.Size(120, 23)
        Me.lbPublishers.TabIndex = 7
        Me.lbPublishers.Text = "出版社"
        Me.lbPublishers.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TextBox1
        '
        Me.TextBox1.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TextBox1.Location = New System.Drawing.Point(128, 25)
        Me.TextBox1.MaxLength = 25
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(392, 23)
        Me.TextBox1.TabIndex = 5
        Me.TextBox1.Text = ""
        '
        'lbReturnDates
        '
        Me.lbReturnDates.BackColor = System.Drawing.Color.Black
        Me.lbReturnDates.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbReturnDates.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbReturnDates.ForeColor = System.Drawing.Color.White
        Me.lbReturnDates.Location = New System.Drawing.Point(128, 120)
        Me.lbReturnDates.Name = "lbReturnDates"
        Me.lbReturnDates.Size = New System.Drawing.Size(392, 23)
        Me.lbReturnDates.TabIndex = 4
        Me.lbReturnDates.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbAuthors
        '
        Me.lbAuthors.BackColor = System.Drawing.Color.Black
        Me.lbAuthors.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbAuthors.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbAuthors.ForeColor = System.Drawing.Color.White
        Me.lbAuthors.Location = New System.Drawing.Point(128, 72)
        Me.lbAuthors.Name = "lbAuthors"
        Me.lbAuthors.Size = New System.Drawing.Size(392, 23)
        Me.lbAuthors.TabIndex = 3
        Me.lbAuthors.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbPublisher
        '
        Me.lbPublisher.BackColor = System.Drawing.Color.Black
        Me.lbPublisher.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbPublisher.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbPublisher.ForeColor = System.Drawing.Color.White
        Me.lbPublisher.Location = New System.Drawing.Point(128, 96)
        Me.lbPublisher.Name = "lbPublisher"
        Me.lbPublisher.Size = New System.Drawing.Size(392, 23)
        Me.lbPublisher.TabIndex = 2
        Me.lbPublisher.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbBookName
        '
        Me.lbBookName.BackColor = System.Drawing.Color.Black
        Me.lbBookName.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbBookName.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbBookName.ForeColor = System.Drawing.Color.White
        Me.lbBookName.Location = New System.Drawing.Point(128, 48)
        Me.lbBookName.Name = "lbBookName"
        Me.lbBookName.Size = New System.Drawing.Size(392, 23)
        Me.lbBookName.TabIndex = 1
        Me.lbBookName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'lbISBN
        '
        Me.lbISBN.BackColor = System.Drawing.Color.Black
        Me.lbISBN.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.lbISBN.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lbISBN.ForeColor = System.Drawing.Color.White
        Me.lbISBN.Location = New System.Drawing.Point(8, 25)
        Me.lbISBN.Name = "lbISBN"
        Me.lbISBN.Size = New System.Drawing.Size(120, 23)
        Me.lbISBN.TabIndex = 0
        Me.lbISBN.Text = "图书的 ISBN"
        Me.lbISBN.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TabPage2
        '
        Me.TabPage2.Controls.Add(Me.GroupBox5)
        Me.TabPage2.Location = New System.Drawing.Point(4, 24)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(536, 401)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "图书续借"
        Me.TabPage2.ToolTipText = "在此续借图书"
        '
        'GroupBox5
        '
        Me.GroupBox5.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(224, Byte), CType(192, Byte))
        Me.GroupBox5.Controls.Add(Me.GroupBox7)
        Me.GroupBox5.Controls.Add(Me.TextBox3)
        Me.GroupBox5.Controls.Add(Me.Button1)
        Me.GroupBox5.Controls.Add(Me.Label1)
        Me.GroupBox5.Controls.Add(Me.TextBox4)
        Me.GroupBox5.Controls.Add(Me.Label2)
        Me.GroupBox5.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox5.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(536, 401)
        Me.GroupBox5.TabIndex = 0
        Me.GroupBox5.TabStop = False
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.DataGrid2)
        Me.GroupBox7.Location = New System.Drawing.Point(8, 208)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(520, 184)
        Me.GroupBox7.TabIndex = 14
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "借阅信息"
        '
        'DataGrid2
        '
        Me.DataGrid2.DataMember = ""
        Me.DataGrid2.Dock = System.Windows.Forms.DockStyle.Fill
        Me.DataGrid2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid2.Location = New System.Drawing.Point(3, 17)
        Me.DataGrid2.Name = "DataGrid2"
        Me.DataGrid2.ReadOnly = True
        Me.DataGrid2.Size = New System.Drawing.Size(514, 164)
        Me.DataGrid2.TabIndex = 0
        '
        'TextBox3
        '
        Me.TextBox3.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox3.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TextBox3.Location = New System.Drawing.Point(104, 56)
        Me.TextBox3.MaxLength = 25
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(336, 23)
        Me.TextBox3.TabIndex = 10
        Me.TextBox3.Text = ""
        '
        'Button1
        '
        Me.Button1.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(0, Byte))
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.ForeColor = System.Drawing.Color.Blue
        Me.Button1.Location = New System.Drawing.Point(232, 160)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(56, 24)
        Me.Button1.TabIndex = 11
        Me.Button1.Text = "续借"
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.Color.Red
        Me.Label1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.White
        Me.Label1.Location = New System.Drawing.Point(208, 88)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(112, 24)
        Me.Label1.TabIndex = 9
        Me.Label1.Text = "图书的 ISBN"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TextBox4
        '
        Me.TextBox4.BackColor = System.Drawing.SystemColors.Info
        Me.TextBox4.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TextBox4.Location = New System.Drawing.Point(104, 120)
        Me.TextBox4.MaxLength = 25
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(336, 23)
        Me.TextBox4.TabIndex = 13
        Me.TextBox4.Text = ""
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.Red
        Me.Label2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.Label2.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Label2.ForeColor = System.Drawing.Color.White
        Me.Label2.Location = New System.Drawing.Point(208, 24)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(112, 24)
        Me.Label2.TabIndex = 12
        Me.Label2.Text = "读者借书证号"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'TabPage3
        '
        Me.TabPage3.Controls.Add(Me.GroupBox6)
        Me.TabPage3.Location = New System.Drawing.Point(4, 24)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Size = New System.Drawing.Size(536, 401)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "读者还书"
        Me.TabPage3.ToolTipText = "在此还书"
        '
        'GroupBox6
        '
        Me.GroupBox6.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(255, Byte))
        Me.GroupBox6.Controls.Add(Me.Button2)
        Me.GroupBox6.Controls.Add(Me.Label8)
        Me.GroupBox6.Controls.Add(Me.lbSum)
        Me.GroupBox6.Controls.Add(Me.GroupBox8)
        Me.GroupBox6.Controls.Add(Me.Label12)
        Me.GroupBox6.Controls.Add(Me.Label13)
        Me.GroupBox6.Controls.Add(Me.Label14)
        Me.GroupBox6.Controls.Add(Me.Label15)
        Me.GroupBox6.Controls.Add(Me.lbFFactor)
        Me.GroupBox6.Controls.Add(Me.lbFBase)
        Me.GroupBox6.Controls.Add(Me.lbFMulti)
        Me.GroupBox6.Controls.Add(Me.lbDays)
        Me.GroupBox6.Controls.Add(Me.Label4)
        Me.GroupBox6.Controls.Add(Me.Label5)
        Me.GroupBox6.Controls.Add(Me.Label6)
        Me.GroupBox6.Controls.Add(Me.Label7)
        Me.GroupBox6.Controls.Add(Me.lbReDate)
        Me.GroupBox6.Controls.Add(Me.lbBName)
        Me.GroupBox6.Controls.Add(Me.lbBDate)
        Me.GroupBox6.Controls.Add(Me.lbsID)
        Me.GroupBox6.Controls.Add(Me.TextBox5)
        Me.GroupBox6.Controls.Add(Me.Label3)
        Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Fill
        Me.GroupBox6.Location = New System.Drawing.Point(0, 0)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(536, 401)
        Me.GroupBox6.TabIndex = 0
        Me.GroupBox6.TabStop = False
        '
        'Button2
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.ForeColor = System.Drawing.Color.Navy
        Me.Button2.Location = New System.Drawing.Point(456, 16)
        Me.Button2.Name = "Button2"