main.vb

图书馆管理系统,是数据库的课程设计,报告里面包含了需求分析数据字典概念结构设计逻辑结构设计数据库物理设计数据库实施

        Me.GroupBox6.Location = New System.Drawing.Point(7, 332)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(200, 181)
        Me.GroupBox6.TabIndex = 25
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "借阅信息"
        '
        'btloanbooksinfo
        '
        Me.btloanbooksinfo.Location = New System.Drawing.Point(128, 24)
        Me.btloanbooksinfo.Name = "btloanbooksinfo"
        Me.btloanbooksinfo.Size = New System.Drawing.Size(64, 24)
        Me.btloanbooksinfo.TabIndex = 8
        Me.btloanbooksinfo.Text = "详细资料"
        '
        'btreland
        '
        Me.btreland.Location = New System.Drawing.Point(76, 148)
        Me.btreland.Name = "btreland"
        Me.btreland.Size = New System.Drawing.Size(48, 24)
        Me.btreland.TabIndex = 11
        Me.btreland.Text = "续借"
        '
        'btreturn
        '
        Me.btreturn.Location = New System.Drawing.Point(140, 148)
        Me.btreturn.Name = "btreturn"
        Me.btreturn.Size = New System.Drawing.Size(48, 24)
        Me.btreturn.TabIndex = 12
        Me.btreturn.Text = "归还"
        '
        'btallland
        '
        Me.btallland.Location = New System.Drawing.Point(12, 148)
        Me.btallland.Name = "btallland"
        Me.btallland.Size = New System.Drawing.Size(48, 24)
        Me.btallland.TabIndex = 10
        Me.btallland.Text = "全部归还"
        '
        'landinfo_info
        '
        Me.landinfo_info.BackColor = System.Drawing.SystemColors.Control
        Me.landinfo_info.CheckOnClick = True
        Me.landinfo_info.Location = New System.Drawing.Point(72, 56)
        Me.landinfo_info.Name = "landinfo_info"
        Me.landinfo_info.ScrollAlwaysVisible = True
        Me.landinfo_info.Size = New System.Drawing.Size(120, 84)
        Me.landinfo_info.Sorted = True
        Me.landinfo_info.TabIndex = 9
        '
        'landinfo_cannum
        '
        Me.landinfo_cannum.Location = New System.Drawing.Point(72, 40)
        Me.landinfo_cannum.Name = "landinfo_cannum"
        Me.landinfo_cannum.Size = New System.Drawing.Size(56, 16)
        Me.landinfo_cannum.TabIndex = 20
        '
        'landinfo_hadnum
        '
        Me.landinfo_hadnum.Location = New System.Drawing.Point(72, 24)
        Me.landinfo_hadnum.Name = "landinfo_hadnum"
        Me.landinfo_hadnum.Size = New System.Drawing.Size(56, 16)
        Me.landinfo_hadnum.TabIndex = 19
        '
        'Label20
        '
        Me.Label20.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label20.Location = New System.Drawing.Point(8, 56)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(72, 16)
        Me.Label20.TabIndex = 16
        Me.Label20.Text = "借阅列表："
        Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label21
        '
        Me.Label21.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label21.Location = New System.Drawing.Point(8, 40)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(72, 16)
        Me.Label21.TabIndex = 15
        Me.Label21.Text = "尚可借阅："
        Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label23
        '
        Me.Label23.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label23.Location = New System.Drawing.Point(8, 24)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(72, 16)
        Me.Label23.TabIndex = 13
        Me.Label23.Text = "已借数目："
        Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.btchangpw)
        Me.GroupBox5.Controls.Add(Me.hideuserinfo)
        Me.GroupBox5.Controls.Add(Me.user_lastlogin)
        Me.GroupBox5.Controls.Add(Me.user_logins)
        Me.GroupBox5.Controls.Add(Me.user_phone)
        Me.GroupBox5.Controls.Add(Me.user_class)
        Me.GroupBox5.Controls.Add(Me.user_learnid)
        Me.GroupBox5.Controls.Add(Me.user_name)
        Me.GroupBox5.Controls.Add(Me.Label18)
        Me.GroupBox5.Controls.Add(Me.Label19)
        Me.GroupBox5.Controls.Add(Me.Label16)
        Me.GroupBox5.Controls.Add(Me.Label17)
        Me.GroupBox5.Controls.Add(Me.Label14)
        Me.GroupBox5.Controls.Add(Me.Label15)
        Me.GroupBox5.Location = New System.Drawing.Point(7, 518)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(200, 155)
        Me.GroupBox5.TabIndex = 24
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "个人信息"
        '
        'btchangpw
        '
        Me.btchangpw.Location = New System.Drawing.Point(20, 125)
        Me.btchangpw.Name = "btchangpw"
        Me.btchangpw.Size = New System.Drawing.Size(72, 24)
        Me.btchangpw.TabIndex = 13
        Me.btchangpw.Text = "更改密码"
        '
        'hideuserinfo
        '
        Me.hideuserinfo.Location = New System.Drawing.Point(108, 125)
        Me.hideuserinfo.Name = "hideuserinfo"
        Me.hideuserinfo.Size = New System.Drawing.Size(72, 24)
        Me.hideuserinfo.TabIndex = 14
        Me.hideuserinfo.Text = "隐藏信息"
        '
        'user_lastlogin
        '
        Me.user_lastlogin.Location = New System.Drawing.Point(72, 104)
        Me.user_lastlogin.Name = "user_lastlogin"
        Me.user_lastlogin.Size = New System.Drawing.Size(120, 16)
        Me.user_lastlogin.TabIndex = 21
        '
        'user_logins
        '
        Me.user_logins.Location = New System.Drawing.Point(72, 88)
        Me.user_logins.Name = "user_logins"
        Me.user_logins.Size = New System.Drawing.Size(120, 16)
        Me.user_logins.TabIndex = 20
        '
        'user_phone
        '
        Me.user_phone.Location = New System.Drawing.Point(72, 72)
        Me.user_phone.Name = "user_phone"
        Me.user_phone.Size = New System.Drawing.Size(120, 16)
        Me.user_phone.TabIndex = 19
        '
        'user_class
        '
        Me.user_class.Location = New System.Drawing.Point(72, 56)
        Me.user_class.Name = "user_class"
        Me.user_class.Size = New System.Drawing.Size(120, 16)
        Me.user_class.TabIndex = 18
        '
        'user_learnid
        '
        Me.user_learnid.Location = New System.Drawing.Point(72, 40)
        Me.user_learnid.Name = "user_learnid"
        Me.user_learnid.Size = New System.Drawing.Size(120, 16)
        Me.user_learnid.TabIndex = 17
        '
        'user_name
        '
        Me.user_name.Location = New System.Drawing.Point(72, 24)
        Me.user_name.Name = "user_name"
        Me.user_name.Size = New System.Drawing.Size(120, 16)
        Me.user_name.TabIndex = 16
        '
        'Label18
        '
        Me.Label18.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label18.Location = New System.Drawing.Point(8, 104)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(72, 16)
        Me.Label18.TabIndex = 10
        Me.Label18.Text = "最后登陆："
        Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label19
        '
        Me.Label19.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label19.Location = New System.Drawing.Point(8, 88)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(72, 16)
        Me.Label19.TabIndex = 9
        Me.Label19.Text = "登陆次数："
        Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label16
        '
        Me.Label16.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label16.Location = New System.Drawing.Point(8, 56)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(48, 15)
        Me.Label16.TabIndex = 5
        Me.Label16.Text = "班别："
        Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label17
        '
        Me.Label17.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label17.Location = New System.Drawing.Point(8, 72)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(72, 16)
        Me.Label17.TabIndex = 4
        Me.Label17.Text = "联系电话："
        Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label14
        '
        Me.Label14.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label14.Location = New System.Drawing.Point(8, 24)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(48, 15)
        Me.Label14.TabIndex = 3
        Me.Label14.Text = "姓名："
        Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'Label15
        '
        Me.Label15.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.Label15.Location = New System.Drawing.Point(8, 40)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(48, 16)
        Me.Label15.TabIndex = 2
        Me.Label15.Text = "学号："
        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.btstop)
        Me.GroupBox4.Controls.Add(Me.board)
        Me.GroupBox4.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.GroupBox4.Location = New System.Drawing.Point(7, 4)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(200, 124)
        Me.GroupBox4.TabIndex = 235
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "图书馆公告"
        '
        'btstop
        '
        Me.btstop.ForeColor = System.Drawing.SystemColors.ControlText
        Me.btstop.Location = New System.Drawing.Point(136, 93)
        Me.btstop.Name = "btstop"
        Me.btstop.Size = New System.Drawing.Size(48, 24)
        Me.btstop.TabIndex = 6
        Me.btstop.Text = "停止"
        '
        'board
        '
        Me.board.Location = New System.Drawing.Point(8, 17)
        Me.board.Name = "board"
        Me.board.Size = New System.Drawing.Size(186, 71)
        Me.board.TabIndex = 57
        '
        'list_book
        '
        Me.list_book.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.book_id, Me.book_name, Me.book_author, Me.book_classify, Me.book_concern, Me.book_addtime, Me.book_amount, Me.book_remain, Me.book_loandegree})
        Me.list_book.FullRowSelect = True
        Me.list_book.GridLines = True
        Me.list_book.Location = New System.Drawing.Point(215, 52)
        Me.list_book.Name = "list_book"
        Me.list_book.Size = New System.Drawing.Size(800, 620)
        Me.list_book.TabIndex = 15
        Me.list_book.TabStop = False
        Me.list_book.View = System.Windows.Forms.View.Details
        '
        'book_id
        '
        Me.book_id.Text = "编号"
        Me.book_id.Width = 61
        '
        'book_name
        '
        Me.book_name.Text = "书名"
        Me.book_name.Width = 118
        '
        'book_author
        '
        Me.book_author.Text = "作者"
        Me.book_author.Width = 113
        '
        'book_classify
        '
        Me.book_classify.Text = "分类"
        Me.book_classify.Width = 85
        '
        'book_concern
        '