UC知道VB验票系统
来源：百度知道 编辑：UC知道 时间：2024/05/26 12:46:48
通过往文本框内输入票的独特的ID,然后检索数据库中的票的ID资料,如果能检索到则跳出提示验证成功,反之则提示此为假票.
Dim a As Integer
For a = 0 To ds.Tables("ticket").Rows.Count - 1
If ID.Text = ds.Tables("ticket").Rows(a)(0) Then
MsgBox("验证通过")
Exit For
End If
Next
判断验证成功的代码为上,求如何判断验证失败的代码.
Dim a As Integer
For a = 0 To ds.Tables("ticket").Rows.Count - 1
If ID.Text = ds.Tables("ticket").Rows(a)(0) Then
MsgBox("验证通过")
Exit For
End If
Next
判断验证成功的代码为上,求如何判断验证失败的代码.
Dim a As Integer ,blnF as boolean
blnF =false
For a = 0 To ds.Tables("ticket").Rows.Count - 1
If ID.Text = ds.Tables("ticket").Rows(a)(0) Then
blnF=true
Exit For
End If
Next a
if blnF then
MsgBox("验证通过")
else
MsgBox("验证失败")
end if
Dim a As Integer
For a = 0 To ds.Tables("ticket").Rows.Count - 1
If ID.Text = ds.Tables("ticket").Rows(a)(0) Then
MsgBox("验证通过")
else
MsgBox("验证错误,请重新输入!")
Exit For
End If
Next
Dim a As Integer
For a = 0 To ds.Tables("ticket").Rows.Count - 1
If ID.Text = ds.Tables("ticket").Rows(a)(0) Then
MsgBox("验证通过")
Exit sub '只要把这里改成exit sub
End If
Next
'''这里
msgbox "("验证不通过")
判断验证成功的代码为上,求如何判断验证失败的代码.