frmborrowbook.vb

The Management Information System of Library using .NET

        Me.GroupBox2.Controls.Add(Me.txtBook_sort)
        Me.GroupBox2.Controls.Add(Me.txtBook_pubdate)
        Me.GroupBox2.Controls.Add(Me.txtBook_place)
        Me.GroupBox2.Controls.Add(Me.txtBook_price)
        Me.GroupBox2.Controls.Add(Me.Label12)
        Me.GroupBox2.Controls.Add(Me.Label11)
        Me.GroupBox2.Controls.Add(Me.txtBook_author)
        Me.GroupBox2.Controls.Add(Me.txtBook_page)
        Me.GroupBox2.Controls.Add(Me.Label9)
        Me.GroupBox2.Controls.Add(Me.txtBook_isbn)
        Me.GroupBox2.Controls.Add(Me.Label13)
        Me.GroupBox2.Controls.Add(Me.txtBook_pub)
        Me.GroupBox2.Controls.Add(Me.Label14)
        Me.GroupBox2.Controls.Add(Me.txtBook_name)
        Me.GroupBox2.Controls.Add(Me.Label15)
        Me.GroupBox2.Controls.Add(Me.txtBook_code)
        Me.GroupBox2.Controls.Add(Me.Label16)
        Me.GroupBox2.Controls.Add(Me.Label17)
        Me.GroupBox2.Controls.Add(Me.Label18)
        Me.GroupBox2.Controls.Add(Me.Label19)
        Me.GroupBox2.Controls.Add(Me.Label20)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 96)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(704, 128)
        Me.GroupBox2.TabIndex = 1
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "图书基本情况"
        '
        'txtBook_remarks
        '
        Me.txtBook_remarks.BackColor = System.Drawing.Color.White
        Me.txtBook_remarks.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_remarks.Location = New System.Drawing.Point(296, 96)
        Me.txtBook_remarks.Name = "txtBook_remarks"
        Me.txtBook_remarks.ReadOnly = True
        Me.txtBook_remarks.Size = New System.Drawing.Size(328, 21)
        Me.txtBook_remarks.TabIndex = 48
        Me.txtBook_remarks.TabStop = False
        Me.txtBook_remarks.Text = ""
        '
        'txtBook_sort
        '
        Me.txtBook_sort.BackColor = System.Drawing.Color.White
        Me.txtBook_sort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_sort.Location = New System.Drawing.Point(88, 96)
        Me.txtBook_sort.Name = "txtBook_sort"
        Me.txtBook_sort.ReadOnly = True
        Me.txtBook_sort.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_sort.TabIndex = 46
        Me.txtBook_sort.TabStop = False
        Me.txtBook_sort.Text = ""
        '
        'txtBook_pubdate
        '
        Me.txtBook_pubdate.BackColor = System.Drawing.Color.White
        Me.txtBook_pubdate.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_pubdate.Location = New System.Drawing.Point(496, 40)
        Me.txtBook_pubdate.Name = "txtBook_pubdate"
        Me.txtBook_pubdate.ReadOnly = True
        Me.txtBook_pubdate.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_pubdate.TabIndex = 45
        Me.txtBook_pubdate.TabStop = False
        Me.txtBook_pubdate.Text = ""
        '
        'txtBook_place
        '
        Me.txtBook_place.BackColor = System.Drawing.Color.White
        Me.txtBook_place.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_place.Location = New System.Drawing.Point(88, 64)
        Me.txtBook_place.Name = "txtBook_place"
        Me.txtBook_place.ReadOnly = True
        Me.txtBook_place.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_place.TabIndex = 44
        Me.txtBook_place.TabStop = False
        Me.txtBook_place.Text = ""
        '
        'txtBook_price
        '
        Me.txtBook_price.BackColor = System.Drawing.Color.White
        Me.txtBook_price.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_price.Location = New System.Drawing.Point(496, 64)
        Me.txtBook_price.Name = "txtBook_price"
        Me.txtBook_price.ReadOnly = True
        Me.txtBook_price.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_price.TabIndex = 43
        Me.txtBook_price.TabStop = False
        Me.txtBook_price.Text = ""
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(224, 96)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 16)
        Me.Label12.TabIndex = 42
        Me.Label12.Text = "备注:"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(16, 96)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(64, 16)
        Me.Label11.TabIndex = 41
        Me.Label11.Text = "图书分类:"
        '
        'txtBook_author
        '
        Me.txtBook_author.BackColor = System.Drawing.Color.White
        Me.txtBook_author.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_author.Location = New System.Drawing.Point(296, 40)
        Me.txtBook_author.Name = "txtBook_author"
        Me.txtBook_author.ReadOnly = True
        Me.txtBook_author.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_author.TabIndex = 40
        Me.txtBook_author.TabStop = False
        Me.txtBook_author.Text = ""
        '
        'txtBook_page
        '
        Me.txtBook_page.BackColor = System.Drawing.Color.White
        Me.txtBook_page.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.txtBook_page.Location = New System.Drawing.Point(296, 64)
        Me.txtBook_page.Name = "txtBook_page"
        Me.txtBook_page.ReadOnly = True
        Me.txtBook_page.Size = New System.Drawing.Size(128, 21)
        Me.txtBook_page.TabIndex = 38
        Me.txtBook_page.TabStop = False
        Me.txtBook_page.Text = ""
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(16, 64)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(56, 16)
        Me.Label9.TabIndex = 37
        Me.Label9.Text = "存放位置:"
        '
        '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 = "条码号:"
        '
        'lblIsInLib
        '
        Me.lblIsInLib.Font = New System.Drawing.Font("幼圆", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblIsInLib.ForeColor = System.Drawing.Color.Red
        Me.lblIsInLib.Location = New System.Drawing.Point(224, 248)
        Me.lblIsInLib.Name = "lblIsInLib"
        Me.lblIsInLib.Size = New System.Drawing.Size(408, 24)
        Me.lblIsInLib.TabIndex = 47
        Me.lblIsInLib.Text = "请输入关键字后按回车分别调出读者和图书信息"
        '
        'dbgBorrowList
        '
        Me.dbgBorrowList.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.dbgBorrowList.DataMember = ""
        Me.dbgBorrowList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dbgBorrowList.Location = New System.Drawing.Point(8, 296)
        Me.dbgBorrowList.Name = "dbgBorrowList"
        Me.dbgBorrowList.Size = New System.Drawing.Size(704, 232)
        Me.dbgBorrowList.TabIndex = 2
        Me.dbgBorrowList.TabStop = False
        '
        'ToolBar1
        '
        Me.ToolBar1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.AutoSize = False
        Me.ToolBar1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton2, Me.tbtnQuery, Me.tbtnReset, Me.ToolBarButton3, Me.tbtnExit})
        Me.ToolBar1.ButtonSize = New System.Drawing.Size(60, 50)
        Me.ToolBar1.Divider = False
        Me.ToolBar1.Dock = System.Windows.Forms.DockStyle.None
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(8, 232)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(704, 56)
        Me.ToolBar1.TabIndex = 57
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbtnQuery
        '
        Me.tbtnQuery.ImageIndex = 2
        Me.tbtnQuery.Text = "借出"
        Me.tbtnQuery.ToolTipText = "借出图书"
        '
        'tbtnReset
        '
        Me.tbtnReset.ImageIndex = 1
        Me.tbtnReset.Text = "重置"
        Me.tbtnReset.ToolTipText = "清空所有内容"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'tbtnExit
        '
        Me.tbtnExit.ImageIndex = 0
        Me.tbtnExit.Text = "退出"
        Me.tbtnExit.ToolTipText = "结束查询"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(32, 32)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'frmBorrowBook
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(714, 535)
        Me.Controls.Add(Me.lblIsInLib)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dbgBorrowList)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "frmBorrowBook"
        Me.Text = "图书借阅管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        CType(Me.dbgBorrowList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public strPubConnection As String

    Private Sub frmBorrowBook_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With Me.dbgBorrowList
            .Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                Or System.Windows.Forms.AnchorStyles.Left) _
                Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
            .BackColor = System.Drawing.Color.Snow
            .BackgroundColor = System.Drawing.SystemColors.ActiveCaptionText
            .CaptionVisible = False
            .HeaderForeColor = System.Drawing.SystemColors.ControlText
            .ReadOnly = True
            .SelectionBackColor = Color.Red
            .SelectionForeColor = Color.Black
        End With
    End Sub

    '绑定数据表,显示某读者 当前借书记录
    Function databind(ByVal strAu_id As String)
        Dim cnlib2004 As SqlConnection
        Dim cmdAuBorrowList As SqlCommand
        Dim daAuBorrowList As SqlDataAdapter