Private Sub cmd_ok_click()Adodc1.Recordset.Find "用戶名='" & Text1.Text & "'"If Adodc1.Recordset.EOF ThenMsgBox "用戶名不存在", vbOKOnly, "提示"ElseIf (Adodc1.Recordset.Fields("口令") <> Text2.Text) ThenMsgBox "密碼不正確", , "提示"numlogin = numlogin + 1ElseMsgBox "登錄成功", , "提示"username = Text1.TextUnload Memenu.ShowEnd IfEnd Sub
添加回答
舉報
0/150
提交
取消