重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你描述的有问题吧?
创新互联专注于企业成都全网营销、网站重做改版、图木舒克网站定制设计、自适应品牌网站建设、HTML5建站、商城开发、集团公司官网建设、外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为图木舒克等各大城市提供网站开发制作服务。
如果是以combobox作为密码输入框,密码是可供选择的,显示*号的话,客户是无法选择的。
你说的应该是让Textbox作为密码输入框吧?
以下这里有错误:
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"
修改为:
Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"
关闭VS,到你的项目目录下,把 项目名称_TemporaryKey.pfx 文件删除。
然后,重新打开你的项目,编译
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控件,验证!
For Each a In WebBrowser1.Document.getElementsByTagName("input")
Select Case a.Name
Case "txtCSRQ"
Text1.Text = a.Value
End Select
Next
在VB6.0下用此方法可以得到value的值 1993-05-10,VB.net的话没用过,转换一下应该可以的。
希望可以帮到你,满意请采纳,有问题请追问^_^
请参考:;oldq=1
将在文本框中输入内容的语句放在一个可以运行三次的循环语句中。若三次输入都是错误的,直接退出整个程序即可。