frmuser.vb

基于VB.NET开发的简单的图书馆管理系统,可正常运行以测试,内带源码.

        Me.cbConjs.Location = New System.Drawing.Point(195, 58)
        Me.cbConjs.Name = "cbConjs"
        Me.cbConjs.Size = New System.Drawing.Size(80, 20)
        Me.cbConjs.TabIndex = 33
        '
        'cbFieldjs
        '
        Me.cbFieldjs.ItemHeight = 12
        Me.cbFieldjs.Items.AddRange(New Object() {"书名", "作者", "剩余数量", "图书类型"})
        Me.cbFieldjs.Location = New System.Drawing.Point(67, 58)
        Me.cbFieldjs.Name = "cbFieldjs"
        Me.cbFieldjs.Size = New System.Drawing.Size(121, 20)
        Me.cbFieldjs.TabIndex = 32
        '
        'tabreturn
        '
        Me.tabreturn.Controls.Add(Me.bthslook)
        Me.tabreturn.Controls.Add(Me.Label19)
        Me.tabreturn.Controls.Add(Me.Label18)
        Me.tabreturn.Controls.Add(Me.bnH)
        Me.tabreturn.Controls.Add(Me.tbhsbookid)
        Me.tabreturn.Controls.Add(Me.dg2)
        Me.tabreturn.Location = New System.Drawing.Point(4, 21)
        Me.tabreturn.Name = "tabreturn"
        Me.tabreturn.Size = New System.Drawing.Size(592, 375)
        Me.tabreturn.TabIndex = 1
        Me.tabreturn.Text = "还书"
        '
        'bthslook
        '
        Me.bthslook.Location = New System.Drawing.Point(256, 36)
        Me.bthslook.Name = "bthslook"
        Me.bthslook.TabIndex = 40
        Me.bthslook.Text = "察看"
        '
        'Label19
        '
        Me.Label19.ForeColor = System.Drawing.Color.Red
        Me.Label19.Location = New System.Drawing.Point(152, 44)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(104, 23)
        Me.Label19.TabIndex = 39
        Me.Label19.Text = "已经借阅的图书："
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(80, 316)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(104, 23)
        Me.Label18.TabIndex = 38
        Me.Label18.Text = "请输入图书编号："
        '
        'bnH
        '
        Me.bnH.Location = New System.Drawing.Point(456, 316)
        Me.bnH.Name = "bnH"
        Me.bnH.TabIndex = 37
        Me.bnH.Text = "还书"
        '
        'tbhsbookid
        '
        Me.tbhsbookid.Location = New System.Drawing.Point(184, 316)
        Me.tbhsbookid.Name = "tbhsbookid"
        Me.tbhsbookid.Size = New System.Drawing.Size(272, 21)
        Me.tbhsbookid.TabIndex = 36
        Me.tbhsbookid.Text = ""
        '
        'dg2
        '
        Me.dg2.DataMember = ""
        Me.dg2.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dg2.Location = New System.Drawing.Point(56, 68)
        Me.dg2.Name = "dg2"
        Me.dg2.Size = New System.Drawing.Size(480, 224)
        Me.dg2.TabIndex = 35
        '
        'tabquery
        '
        Me.tabquery.Controls.Add(Me.Button5)
        Me.tabquery.Controls.Add(Me.dgrstquery)
        Me.tabquery.Controls.Add(Me.Label13)
        Me.tabquery.Controls.Add(Me.Label14)
        Me.tabquery.Controls.Add(Me.Label17)
        Me.tabquery.Controls.Add(Me.tbValuecx)
        Me.tabquery.Controls.Add(Me.cbConcx)
        Me.tabquery.Controls.Add(Me.cbFieldcx)
        Me.tabquery.Location = New System.Drawing.Point(4, 21)
        Me.tabquery.Name = "tabquery"
        Me.tabquery.Size = New System.Drawing.Size(592, 375)
        Me.tabquery.TabIndex = 2
        Me.tabquery.Text = "查询"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(240, 316)
        Me.Button5.Name = "Button5"
        Me.Button5.TabIndex = 24
        Me.Button5.Text = "查询"
        '
        'dgrstquery
        '
        Me.dgrstquery.DataMember = ""
        Me.dgrstquery.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgrstquery.Location = New System.Drawing.Point(64, 103)
        Me.dgrstquery.Name = "dgrstquery"
        Me.dgrstquery.Size = New System.Drawing.Size(464, 200)
        Me.dgrstquery.TabIndex = 23
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(392, 36)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(56, 16)
        Me.Label13.TabIndex = 22
        Me.Label13.Text = "查询值"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(208, 36)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(56, 16)
        Me.Label14.TabIndex = 21
        Me.Label14.Text = "查询条件"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(88, 39)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(56, 16)
        Me.Label17.TabIndex = 20
        Me.Label17.Text = "查询项目"
        '
        'tbValuecx
        '
        Me.tbValuecx.Location = New System.Drawing.Point(280, 63)
        Me.tbValuecx.Name = "tbValuecx"
        Me.tbValuecx.Size = New System.Drawing.Size(248, 21)
        Me.tbValuecx.TabIndex = 19
        Me.tbValuecx.Text = ""
        '
        'cbConcx
        '
        Me.cbConcx.ItemHeight = 12
        Me.cbConcx.Items.AddRange(New Object() {"等于", "大于", "小于", "大于等于", "小于等于", "不等于", "模糊查"})
        Me.cbConcx.Location = New System.Drawing.Point(192, 63)
        Me.cbConcx.Name = "cbConcx"
        Me.cbConcx.Size = New System.Drawing.Size(80, 20)
        Me.cbConcx.TabIndex = 18
        '
        'cbFieldcx
        '
        Me.cbFieldcx.ItemHeight = 12
        Me.cbFieldcx.Items.AddRange(New Object() {"书名", "作者", "剩余数量", "图书类型"})
        Me.cbFieldcx.Location = New System.Drawing.Point(64, 63)
        Me.cbFieldcx.Name = "cbFieldcx"
        Me.cbFieldcx.Size = New System.Drawing.Size(121, 20)
        Me.cbFieldcx.TabIndex = 17
        '
        'tabcborrow
        '
        Me.tabcborrow.Controls.Add(Me.Label1)
        Me.tabcborrow.Controls.Add(Me.Button2)
        Me.tabcborrow.Controls.Add(Me.Label12)
        Me.tabcborrow.Controls.Add(Me.bnXj)
        Me.tabcborrow.Controls.Add(Me.tbxjbookid)
        Me.tabcborrow.Controls.Add(Me.dg1)
        Me.tabcborrow.Location = New System.Drawing.Point(4, 21)
        Me.tabcborrow.Name = "tabcborrow"
        Me.tabcborrow.Size = New System.Drawing.Size(592, 375)
        Me.tabcborrow.TabIndex = 3
        Me.tabcborrow.Text = "续借"
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.Color.Red
        Me.Label1.Location = New System.Drawing.Point(160, 46)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(104, 23)
        Me.Label1.TabIndex = 42
        Me.Label1.Text = "已经借阅的图书："
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(272, 38)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(72, 23)
        Me.Button2.TabIndex = 41
        Me.Button2.Text = "察看"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(60, 314)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(64, 16)
        Me.Label12.TabIndex = 40
        Me.Label12.Text = "图书编号："
        '
        'bnXj
        '
        Me.bnXj.Location = New System.Drawing.Point(359, 314)
        Me.bnXj.Name = "bnXj"
        Me.bnXj.TabIndex = 39
        Me.bnXj.Text = "续借"
        '
        'tbxjbookid
        '
        Me.tbxjbookid.Location = New System.Drawing.Point(132, 314)
        Me.tbxjbookid.Name = "tbxjbookid"
        Me.tbxjbookid.Size = New System.Drawing.Size(220, 21)
        Me.tbxjbookid.TabIndex = 38
        Me.tbxjbookid.Text = ""
        '
        'dg1
        '
        Me.dg1.DataMember = ""
        Me.dg1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dg1.Location = New System.Drawing.Point(56, 82)
        Me.dg1.Name = "dg1"
        Me.dg1.Size = New System.Drawing.Size(480, 216)
        Me.dg1.TabIndex = 37
        '
        'TabPage6
        '
        Me.TabPage6.Controls.Add(Me.tbsex)
        Me.TabPage6.Controls.Add(Me.Label20)
        Me.TabPage6.Controls.Add(Me.tbtelno)
        Me.TabPage6.Controls.Add(Me.Label15)
        Me.TabPage6.Controls.Add(Me.bnCancle)
        Me.TabPage6.Controls.Add(Me.bnModify)
        Me.TabPage6.Controls.Add(Me.tbStudNo)
        Me.TabPage6.Controls.Add(Me.tbClass)
        Me.TabPage6.Controls.Add(Me.tbEmail)
        Me.TabPage6.Controls.Add(Me.tbusername)
        Me.TabPage6.Controls.Add(Me.tbPwdConfirm)
        Me.TabPage6.Controls.Add(Me.tbPwd)
        Me.TabPage6.Controls.Add(Me.tbloginname)
        Me.TabPage6.Controls.Add(Me.Label7)
        Me.TabPage6.Controls.Add(Me.Label6)
        Me.TabPage6.Controls.Add(Me.Label5)
        Me.TabPage6.Controls.Add(Me.Label4)
        Me.TabPage6.Controls.Add(Me.Label3)
        Me.TabPage6.Controls.Add(Me.Label2)
        Me.TabPage6.Controls.Add(Me.Label8)
        Me.TabPage6.Controls.Add(Me.GroupBox1)
        Me.TabPage6.Location = New System.Drawing.Point(4, 21)
        Me.TabPage6.Name = "TabPage6"
        Me.TabPage6.Size = New System.Drawing.Size(592, 375)
        Me.TabPage6.TabIndex = 5
        Me.TabPage6.Text = "资料修改"
        '
        'tbsex
        '
        Me.tbsex.Location = New System.Drawing.Point(198, 178)
        Me.tbsex.Name = "tbsex"
        Me.tbsex.Size = New System.Drawing.Size(152, 21)
        Me.tbsex.TabIndex = 166
        Me.tbsex.Text = ""
        '
        'Label20
        '
        Me.Label20.Location = New System.Drawing.Point(136, 176)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(56, 24)
        Me.Label20.TabIndex = 165
        Me.Label20.Text = "性别："
        Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'tbtelno
        '
        Me.tbtelno.Location = New System.Drawing.Point(198, 298)
        Me.tbtelno.Name = "tbtelno"
        Me.tbtelno.Size = New System.Drawing.Size(152, 21)
        Me.tbtelno.TabIndex = 164
        Me.tbtelno.Text = ""
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(138, 307)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(56, 24)
        Me.Label15.TabIndex = 163
        Me.Label15.Text = "电话："
        Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'bnCancle
        '
        Me.bnCancle.Location = New System.Drawing.Point(390, 122)
        Me.bnCancle.Name = "bnCancle"