form8.vb

来自「学生成绩管理系统」· VB 代码 · 共 46 行

Public Class Form8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim f5 As New Form5

        Module1.db()
        conn.Open()
        ds.Clear()

        cmd.CommandText = "select sno,password from stu"
        da.SelectCommand = cmd
        da.Fill(ds)
        Dim i As Integer

        For i = 0 To ds.Tables(0).Rows.Count - 1
            If TextBox1.Text = ds.Tables(0).Rows(i).Item(0) Then
                If TextBox2.Text = ds.Tables(0).Rows(i).Item(1) Then

                    If TextBox1.Text <> "jolan" Then
                        Form5.维护ToolStripMenuItem.Dispose()

                    End If
                    If (TextBox1.Text = "jolan" And RadioButton1.Checked = True) Or (TextBox1.Text <> "jolan" And RadioButton2.Checked = True) Then
                        Form5.Show()
                        Me.Hide()
                        Exit For
                    End If

                End If

            End If

        Next
       
        If i = ds.Tables(0).Rows.Count Then
            MsgBox("登录失败!")
        End If
        conn.Close()
    End Sub

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


    End Sub
End Class