vb中如果输入两次错误数据,则退出系统

如题所述

1、在程序中设计一个全局的变量,用于存储当前的错误次数。


Public ErrorNo As Integer


2、在需要进行错误判断的位置,添加代码进行判断。


总体代码(简单示例)如下:


温馨提示:内容为网友见解,仅供参考
第1个回答  2016-06-08
你这个描述太笼统了,最起码要知道标准数据怎么来的(数据库、文件等),然后比较的数据怎么来的(页面输入?),输入错误的次数记录到哪里,退出以后你还要设定解锁规则
第2个回答  2016-06-08
dim c as string
c=tx12345
a=0
for i=1 to 2
if text1.text <>c
msg“密码不正确”
a=a+1
end if
next i
if a=2 then
unload me
end if

vb中如果输入两次错误数据,则退出系统
1、在程序中设计一个全局的变量,用于存储当前的错误次数。Public ErrorNo As Integer 2、在需要进行错误判断的位置,添加代码进行判断。总体代码(简单示例)如下:

...主键重复后会提示错误然后退出系统,该怎么办啊?
一是用On error goto 跳出错误 二是在录入之前 进行一次判断 把SOuce语句改为 "select * from 学号表 where 学号='12345'"再判断Recordcount是否大于0 如果大于0则表示存在 ,提示弹出错误 这里有一个Recordset对像的代码 参考 Dim rs As New ADODB.Recordset rs.Open "select * from 学号表...

VB编程,在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入...
在用户确认和退出系统之间加个计数,满3次则end,不满3次则回到输入用户名那一段代码。

一个登录窗体中,登陆错误超过三次自动退出的vb代码怎么写啊
Private Sub Command1_Click()If times >= 3 Then MsgBox "您没有权限登录此系统"Unload Me End If Adodc1.RecordSource = "select * from 数据 where username='" & Text1.Text & "'"Adodc1.Refresh If Adodc1.Recordset.EOF Then MsgBox "没有这个用户,请重新输入正确的用户名", , "错...

vb怎样实现用户登录5次失败后自动退出?
'以上使用最通用的方法来查询数据库中是否有匹配的记录 If rs.EOF = True Then '如果没有记录则说明用户或密码为错误的 If pnum < 4 Then 'pnum就是密码验证次数,当次数超过5次,系统会自动保护退出 pnum = pnum + 1 MsgBox "用户名或密码错误!", vbInformation, "错误次数:" & pnum rs....

我最近在学vb,我突然想做一个程序,就是说要进去这个程...
A = InputBox("请输入密码", "密码输入窗口")X = 1Do While A <> "123456" '你设置的密码X = X + 1A = InputBox("密码输入" & X - 1 & "次错误,还有" & 4 - X & "次密码输入机会,请重新输入密码", "密码输入窗口")If X = 3 ThenY = MsgBox("密码3次错误,系统将自动退出!", ...

为什么我打开VB时出现'未知的错误 退出'
你进入安全模式下,运行看看是不是还出这个错误,如果还出,只能卸载,再重装一下了。如果不出,就看看“外接程序”--“外接程序管事器”,看看其中加载了哪些异常的外接程序,去掉就行。

VB退出时-报错
本文就来简单分析这种错误的常见原因。 一、应用程序没有检查内存分配失败 程序需要一块内存用以保存数据时,就需要调用操作系统提供的“功能函数”来申请,如果内存分配成功,函数就会将所新开辟的内存区地址返回给应用程序,应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”,内存地址也就是编程中的“指针...

VB输入的问题
在进行VB编程时,若在未编译成".exe文件"前运行时遇到问题,这通常并非是由于操作系统的缘故,而可能是程序本身存在某些缺陷。当程序编译成功并生成".exe文件"后,问题通常能够得到解决。这是因为编译过程能够帮助识别并修正代码中的一些潜在错误,如语法错误、逻辑错误等。编译器会检查程序的每个部分,确保...

用vb做管理信息系统的登陆界面时为何循环3次却不能跳出
rpt = MsgBox("连续3次输入错误!", vbOK, "退出")If rpt = vbOK Then bResult = False Unload Me End End If 把上面的bResult = False去掉 ,还有前面的texttime = 0 也去掉 '登陆的用户名 Public UserName As String '登陆的用户密码 Private UserPwd As String Private Sub btnClear_...

相似回答