新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
以下这里有错误:
多伦网站制作公司哪家好,找创新互联!从网页设计、网站建设、微信开发、APP开发、成都响应式网站建设等网站项目制作,到程序开发,运营维护。创新互联自2013年创立以来到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"
修改为:
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"
Try
Conn = New SqlConnection("Data Source = ASTRAYBI-PC;Initial Catalog = Attendsystem;" "Integrated Security = false; User ID=sa;Password=********")
Conn.Open()
Comm = New SqlCommand("pwd_CheckPass", Conn)
Comm.CommandType = CommandType.StoredProcedure
Comm.Parameters.Add("@CHKName", SqlDbType.VarChar, 30).Value = TBuser.Text
Comm.Parameters.Add("@CHKPass", SqlDbType.VarChar, 10).Value = TBpwd.Text
Comm.Parameters.Add("@ISValid", SqlDbType.VarChar, 20).Direction = ParameterDirection.Output
Comm.ExecuteNonQuery()
If Comm.Parameters("@ISValid").Value = "Good" Then
MessageBox.Show("Welcome!")
Attendsys.Show()
Me.Hide()
Else
MessageBox.Show("Wrong Password Or Unexisted User!")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
具体步骤是建立数据库连接,赋值textbox控件,验证!
关闭VS,到你的项目目录下,把 项目名称_TemporaryKey.pfx 文件删除。
然后,重新打开你的项目,编译
将在文本框中输入内容的语句放在一个可以运行三次的循环语句中。若三次输入都是错误的,直接退出整个程序即可。