form9.vb

学生成绩管理系统

Public Class Form9

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Module1.db()
        conn.Open()
        cmd.CommandText = "select sno,password from stu"
        da.SelectCommand = cmd
        da.Fill(ds, "tab91")
        Dim i As Integer
        For i = 0 To ds.Tables("tab91").Rows.Count - 1
            If Form8.TextBox1.Text = ds.Tables("tab91").Rows(i).Item(0) Then
                If TextBox1.Text = TextBox2.Text Then

                    cmd.CommandText = "update stu set password='111'where sno='200503011073'" '" & Form8.TextBox1.Text & "'"
                    cmd.ExecuteNonQuery()
                    ' cmd.CommandText = "update course set cname='" & TextBox2.Text & "'where cno='" & TextBox1.Text & "'"

                    'cmd.ExecuteNonQuery()


                    MsgBox("密码修改成功!")

                Else

                    MsgBox("密码不一致,请重新输入!")
                    conn.Close()
                    Exit Sub



                End If


            End If
        Next


        conn.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub
End Class