vb»ù´¡µÄ³ÌÐòÎÊÌ⣬¸÷λ´óÏÀ°ï¸öæ

Private Sub Command1_Click()
Dim name_user
Dim password_user
If Text1.Text = "" Then
    MsgBox "ÇëÊäÈëÓû§Ãû!"
    Exit Sub
  Else
    name_user = Trim(Text1.Text)
  End If
  If Text2.Text = "" Then
  MsgBox "ÇëÊäÈë¿ÚÁî!"
    Exit Sub
  Else
    password_user = Trim(Text2.Text)
  End If
 
  Adodc1.RecordSource = "select * from ÈËÔ±ÐÅÏ¢±í where ¶ÁÕß±àºÅ= '" & Text1.Text & "'"
  Adodc1.Refresh
  MsgBox Adodc1.Recordset.Fields("ÖÖÀà")
  If Adodc1.Recordset.EOF Then
  MsgBox "Óû§Ãû²»´æÔÚ£¡", vbOKOnly, "Ìáʾ"
  Else
  If Adodc1.Recordset.Fields("¶ÁÕßÃÜÂë") = password_user Then
    If Adodc1.Recordset.Fields("ÖÖÀà") = "¶ÁÕß" Then
    MsgBox "µÇ½³É¹¦"
    form3.Show
    µÇ½.Hide
    Else
    ¹ÜÀí1.Show
    µÇ½.Hide
    End If
  Else
    MsgBox "ÃÜÂë´íÎó!", , "Ìáʾ"
  End If
End If

Unload Me

End Sub