Private Sub Command1_Click()If UCase(Text3.Text) = UCase(Data1.Recordset.Fields(2)) Thenczyxm = Data1.Recordset.Fields("czyxm")Unload MeForm1.ShowElsemsg = MsgBox("密码不正确!", 0 + 16, "警告")End IfEnd Sub【什么意思?】
森栏
PIPIONE
慕尼黑8549860
相关分类