以下這里有錯(cuò)誤:
多倫網(wǎng)站制作公司哪家好,找創(chuàng)新互聯(lián)!從網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、成都響應(yīng)式網(wǎng)站建設(shè)等網(wǎng)站項(xiàng)目制作,到程序開發(fā),運(yùn)營(yíng)維護(hù)。創(chuàng)新互聯(lián)自2013年創(chuàng)立以來(lái)到現(xiàn)在10年的時(shí)間,我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn),來(lái)保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。
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
具體步驟是建立數(shù)據(jù)庫(kù)連接,賦值textbox控件,驗(yàn)證!
關(guān)閉VS,到你的項(xiàng)目目錄下,把 項(xiàng)目名稱_TemporaryKey.pfx 文件刪除。
然后,重新打開你的項(xiàng)目,編譯
將在文本框中輸入內(nèi)容的語(yǔ)句放在一個(gè)可以運(yùn)行三次的循環(huán)語(yǔ)句中。若三次輸入都是錯(cuò)誤的,直接退出整個(gè)程序即可。