admin_stumanage.vb

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

        '
        Me.LabeID.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabeID.Location = New System.Drawing.Point(64, 17)
        Me.LabeID.Name = "LabeID"
        Me.LabeID.Size = New System.Drawing.Size(48, 23)
        Me.LabeID.TabIndex = 8
        Me.LabeID.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        '
        'cbclass
        '
        Me.cbclass.Location = New System.Drawing.Point(240, 16)
        Me.cbclass.Name = "cbclass"
        Me.cbclass.Size = New System.Drawing.Size(88, 20)
        Me.cbclass.TabIndex = 3
        Me.cbclass.Text = "不详"
        '
        'Label8
        '
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label8.Location = New System.Drawing.Point(200, 16)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(40, 24)
        Me.Label8.TabIndex = 6
        Me.Label8.Text = "班级:"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'tbstulearnid
        '
        Me.tbstulearnid.Location = New System.Drawing.Point(64, 64)
        Me.tbstulearnid.MaxLength = 12
        Me.tbstulearnid.Name = "tbstulearnid"
        Me.tbstulearnid.Size = New System.Drawing.Size(80, 21)
        Me.tbstulearnid.TabIndex = 2
        Me.tbstulearnid.Text = ""
        '
        'tbstuname
        '
        Me.tbstuname.Location = New System.Drawing.Point(64, 40)
        Me.tbstuname.MaxLength = 5
        Me.tbstuname.Name = "tbstuname"
        Me.tbstuname.Size = New System.Drawing.Size(80, 21)
        Me.tbstuname.TabIndex = 1
        Me.tbstuname.Text = ""
        '
        'Label7
        '
        Me.Label7.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label7.Location = New System.Drawing.Point(8, 64)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 24)
        Me.Label7.TabIndex = 2
        Me.Label7.Text = "学号:"
        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label6
        '
        Me.Label6.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label6.Location = New System.Drawing.Point(8, 40)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(56, 24)
        Me.Label6.TabIndex = 1
        Me.Label6.Text = "学生名:"
        Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label5
        '
        Me.Label5.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label5.Location = New System.Drawing.Point(8, 17)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(56, 23)
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "编号:"
        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.tbkeyword)
        Me.GroupBox3.Controls.Add(Me.Label1)
        Me.GroupBox3.Controls.Add(Me.btseach)
        Me.GroupBox3.Controls.Add(Me.cbby)
        Me.GroupBox3.Controls.Add(Me.Label3)
        Me.GroupBox3.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.GroupBox3.Location = New System.Drawing.Point(0, 344)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(304, 48)
        Me.GroupBox3.TabIndex = 2
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "系统方式"
        '
        'tbkeyword
        '
        Me.tbkeyword.Location = New System.Drawing.Point(56, 16)
        Me.tbkeyword.Name = "tbkeyword"
        Me.tbkeyword.Size = New System.Drawing.Size(64, 21)
        Me.tbkeyword.TabIndex = 9
        Me.tbkeyword.Text = ""
        '
        'Label1
        '
        Me.Label1.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label1.Location = New System.Drawing.Point(8, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "关键词:"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'btseach
        '
        Me.btseach.ForeColor = System.Drawing.SystemColors.ControlText
        Me.btseach.Location = New System.Drawing.Point(248, 16)
        Me.btseach.Name = "btseach"
        Me.btseach.Size = New System.Drawing.Size(48, 24)
        Me.btseach.TabIndex = 11
        Me.btseach.Text = "查询"
        '
        'cbby
        '
        Me.cbby.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbby.Items.AddRange(New Object() {"编号", "学生名", "学号", "班级", "联系电话", "借阅次数", "登陆次数"})
        Me.cbby.Location = New System.Drawing.Point(168, 16)
        Me.cbby.Name = "cbby"
        Me.cbby.Size = New System.Drawing.Size(72, 20)
        Me.cbby.TabIndex = 10
        '
        'Label3
        '
        Me.Label3.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label3.Location = New System.Drawing.Point(120, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 24)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "根据:"
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.cbzandd)
        Me.GroupBox4.Controls.Add(Me.Label4)
        Me.GroupBox4.Controls.Add(Me.cblist)
        Me.GroupBox4.Controls.Add(Me.Label2)
        Me.GroupBox4.ForeColor = System.Drawing.SystemColors.ControlDark
        Me.GroupBox4.Location = New System.Drawing.Point(0, 392)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(304, 48)
        Me.GroupBox4.TabIndex = 3
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "自定义方式"
        '
        'cbzandd
        '
        Me.cbzandd.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cbzandd.Items.AddRange(New Object() {"正序", "倒序"})
        Me.cbzandd.Location = New System.Drawing.Point(224, 16)
        Me.cbzandd.Name = "cbzandd"
        Me.cbzandd.Size = New System.Drawing.Size(64, 20)
        Me.cbzandd.TabIndex = 13
        '
        'Label4
        '
        Me.Label4.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label4.Location = New System.Drawing.Point(176, 24)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 15)
        Me.Label4.TabIndex = 2
        Me.Label4.Text = "序式:"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'cblist
        '
        Me.cblist.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cblist.Items.AddRange(New Object() {"编号", "学生名", "学号", "班级", "联系电话", "借阅次数", "登陆次数", "最后登陆时间"})
        Me.cblist.Location = New System.Drawing.Point(80, 16)
        Me.cblist.Name = "cblist"
        Me.cblist.Size = New System.Drawing.Size(96, 20)
        Me.cblist.TabIndex = 12
        '
        'Label2
        '
        Me.Label2.ForeColor = System.Drawing.SystemColors.ControlText
        Me.Label2.Location = New System.Drawing.Point(16, 17)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 24)
        Me.Label2.TabIndex = 0
        Me.Label2.Text = "排列方式:"
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'win_stumanage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.CancelButton = Me.btclose
        Me.ClientSize = New System.Drawing.Size(664, 445)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MaximumSize = New System.Drawing.Size(672, 472)
        Me.MinimumSize = New System.Drawing.Size(672, 472)
        Me.Name = "win_stumanage"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "图书馆管理系统--学生管理"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub win_stumanage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objDS = GetData(gsqlstr)
        LoadData()
    End Sub


    Function showclass(ByVal classid) As String
        sqlstr2 = "select * from class where id=" & classid & ""
        objDS2 = GetData(sqlstr2)
        If objDS2.Tables(0).Rows.Count > 0 Then
            Return objDS2.Tables(0).Rows(0)("name").ToString
        Else
            Return "不详"
        End If
    End Function

    Function LoadData()
        ListView1.Items.Clear()
        For i = 0 To objDS.Tables(0).Rows.Count - 1
            Dim li As New ListViewItem
            li.SubItems.Clear()
            li.SubItems(0).Text = objDS.Tables(0).Rows(i)("id").ToString
            li.SubItems.Add(objDS.Tables(0).Rows(i)("name").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("learnid").ToString)
            li.SubItems.Add(showclass(objDS.Tables(0).Rows(i)("class")))
            li.SubItems.Add(objDS.Tables(0).Rows(i)("phone").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("lands").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("logins").ToString)
            li.SubItems.Add(objDS.Tables(0).Rows(i)("lastlogin").ToString)
            ListView1.Items.Add(li) '插入到ListView1
        Next

        sqlstr = "select * from class"
        objDS = GetData(sqlstr)
        cbclass.Items.Add("不详")
        For i = 0 To objDS.Tables(0).Rows.Count - 1
            cbclass.Items.Add(objDS.Tables(0).Rows(i)("name").ToString)
        Next
    End Function

    Function reloadData()
        objDS = GetData(gsqlstr)
        ListView1.Items.Clear()
        For i = 0 To objDS.Tables(0).Rows.Count - 1
            Dim li As New ListViewItem
            li.SubItems.Clear()