Private Sub Command1_Click()
If UCase(Text3.Text) = UCase(Data1.Recordset.Fields(2)) Then
czyxm = Data1.Recordset.Fields("czyxm")
Unload Me
Form1.Show
Else
msg = MsgBox("密码不正确!", 0 + 16, "警告")
End If
End Sub【什么意思?】
守着一只汪
森栏
PIPIONE
慕尼黑8549860
随时随地看视频慕课网APP