求助
Dim vCode As String Private Sub Command1_Click() drawvc End Sub
Dim i,vc,px,py As Long Dim r,g,b As Byte Randomize '初始化随机种子 vCode = vc Picture1.Print vc For i = 0 To 2000 '画2000个噪点 px = CLng(Picture1.Width * Rnd) py = CLng(Picture1.Height * Rnd) g = CByte(255 * Rnd) b = CByte(255 * Rnd) Picture1.Line (px,py)-(px + 1,py + 1),RGB(r,b) Next End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Picture1.FontSize = 12 Picture1.FontBold = True Picture1.AutoRedraw = True drawvc End Sub
Adodc1.RecordSource = "select * from useri where id='" & Text1.Text & "' and password='" & Text2.Text & "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 And Text3.Text = vCode Then MsgBox ("登陆成功") ElseIf Text1.Text = "" Then MsgBox ("您输入的密码或用户名错误"),"警告" End If End Sub
End End Sub 哪位高手帮我看看错在哪???? 急用!!!!!!! (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |