- 博客(0)
- 资源 (4)
空空如也
VB.NET VB
可以用此做VB的实训
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
2009-06-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人