frmuserinfomodify.vb

图书管理系统,用来管理图书的借还,以及借阅超过时间进行处罚,和管理员用户权限

        Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(200, 272)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 24)
        Me.Label4.TabIndex = 171
        Me.Label4.Text = "email："
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(200, 208)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(56, 24)
        Me.Label3.TabIndex = 170
        Me.Label3.Text = "班级："
        Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(200, 80)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(56, 24)
        Me.Label2.TabIndex = 169
        Me.Label2.Text = "口令："
        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(184, 48)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 24)
        Me.Label8.TabIndex = 168
        Me.Label8.Text = "借阅证号："
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'GroupBox1
        '
        Me.GroupBox1.Location = New System.Drawing.Point(176, 24)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(256, 320)
        Me.GroupBox1.TabIndex = 188
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "用户资料修改"
        '
        'lbUser
        '
        Me.lbUser.ItemHeight = 12
        Me.lbUser.Location = New System.Drawing.Point(24, 24)
        Me.lbUser.Name = "lbUser"
        Me.lbUser.Size = New System.Drawing.Size(144, 316)
        Me.lbUser.TabIndex = 189
        '
        'frmuserinfomodify
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(568, 373)
        Me.Controls.Add(Me.lbUser)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.tbsex)
        Me.Controls.Add(Me.tbtelno)
        Me.Controls.Add(Me.Label15)
        Me.Controls.Add(Me.bnCancle)
        Me.Controls.Add(Me.bnModify)
        Me.Controls.Add(Me.tbStudNo)
        Me.Controls.Add(Me.tbClass)
        Me.Controls.Add(Me.tbEmail)
        Me.Controls.Add(Me.tbUsername)
        Me.Controls.Add(Me.tbPwdConfirm)
        Me.Controls.Add(Me.tbPwd)
        Me.Controls.Add(Me.tbLoginname)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmuserinfomodify"
        Me.Text = "----------借阅用户资料修改"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub bnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       
    End Sub

    Private Sub clearTb()
        tbLoginname.Clear()
        tbPwd.Clear()
        tbPwdConfirm.Clear()
        tbUsername.Clear()
        tbEmail.Clear()
        tbClass.Clear()
        tbStudNo.Clear()
        tbsex.Clear()


    End Sub

    Private Sub bnCancle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        clearTb()
    End Sub

    Private Sub frmuserinfomodify_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        refreshList()
    End Sub
    Private Sub refreshList()
        lbUser.Items.Clear()
        Dim strSource As String = "workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=books;persist security info=False"
        Dim strSelect As String = "select name from bookcard"
        Dim conn As SqlConnection = New SqlConnection(strSource)
        conn.Open()
        Dim cmd As SqlCommand = New SqlCommand(strSelect, conn)
        Dim reader As SqlDataReader = cmd.ExecuteReader()

        If Not reader.HasRows Then
            Exit Sub
        End If

        While reader.Read()
            lbUser.Items.Add(reader.Item("name").ToString().Trim())
        End While
        conn.Close()
    End Sub

    Private Sub lbUser_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbUser.SelectedIndexChanged


        Dim strSource As String = "workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=books;persist security info=False"
        Dim strSelect As String = "select * from bookcard where name = '" + lbUser.Items.Item(lbUser.SelectedIndex).ToString().Trim() + "'"

        Dim conn As SqlConnection = New SqlConnection(strSource)
        conn.Open()
        Dim cmd As SqlCommand = New SqlCommand(strSelect, conn)
        Dim dr As SqlDataReader = cmd.ExecuteReader()

        If Not dr.HasRows Then
            conn.Close()
            Exit Sub
        End If
        dr.Read()

        tbLoginname.Text = dr.Item("cardid").ToString().Trim()
        tbPwd.Text = dr.Item("password").ToString().Trim()
        tbPwdConfirm.Text = dr.Item("password").ToString().Trim()
        tbUsername.Text = dr.Item("name").ToString().Trim()
        tbsex.Text = dr.Item("sex").ToString().Trim()
        tbClass.Text = dr.Item("class").ToString().Trim()
        tbStudNo.Text = dr.Item("sno").ToString().Trim()
        tbEmail.Text = dr.Item("email").ToString().Trim()
        tbtelno.Text = dr.Item("telno").ToString().Trim()
       
        conn.Close()
    End Sub

    Private Sub bnModify_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnModify.Click
        Dim strLoginname As String = tbLoginname.Text.Trim()
        Dim strPwd As String = tbPwd.Text.Trim()
        Dim strPwdConfirm As String = tbPwdConfirm.Text.Trim()
        Dim strUsername As String = tbUsername.Text.Trim()
        Dim strEmail As String = tbEmail.Text.Trim()
        Dim strClass As String = tbClass.Text.Trim()
        Dim strStudNO As String = tbStudNo.Text.Trim()
        Dim strtelno As String = tbtelno.Text.Trim()
        Dim strsex As String = tbsex.Text.Trim()

        Dim strSource As String = "workstation id=郭洪博;packet size=4096;integrated security=SSPI;initial catalog=books;persist security info=False"

        '检测是否有没有填写的项，要求全部填写
        If strLoginname = "" Or strPwd = "" Or strPwdConfirm = "" Or strUsername = "" Or strsex = "" Or strEmail = "" Or strClass = "" Or strStudNO = "" Or strtelno = "" Then
            '这里的检测应该一个个地进行，给出更详细提示信息
            MessageBox.Show("请填写！")
            Exit Sub
        End If

        If tbPwdConfirm.Text.Trim() <> tbPwd.Text.Trim() Then
            MessageBox.Show("两次口令不一致！")
            Exit Sub
        End If

        Dim strUpdate As String = "update bookcard set password='" + strPwd + " ',name='" + strUsername + "',sex='" + strsex + "',class='" + strClass + "',sno='" + strStudNO + "',email='" + strEmail + "',telno='" + strtelno + "'where cardid='" + strLoginname + "'"
        Dim conn As SqlConnection = New SqlConnection(strSource)
        Try
            conn.Open()
            Dim cmd As SqlCommand = New SqlCommand(strUpdate, conn)
            Dim ret As Integer = cmd.ExecuteNonQuery()
            If ret <> 1 Then
                MessageBox.Show("更新失败！")
            Else
                MessageBox.Show("更新成功！")
            End If
        Catch ex As Exception
            MessageBox.Show("更新失败！")
        End Try

        conn.Close()
        refreshList()
    End Sub

    Private Sub bnCancle_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnCancle.Click
        clearTb()
    End Sub
End Class