select * from t1 where name=** and password=** and style=**
目前創(chuàng)新互聯(lián)已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)站空間、成都網(wǎng)站托管、企業(yè)網(wǎng)站設(shè)計(jì)、南山網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長,共同發(fā)展。
如果查詢到的表是空的,說明登陸錯(cuò)誤,否則成功
Form2.Show()這里有下劃線報(bào)錯(cuò)
Form1.Close()
應(yīng)該是Load Form2
Form2.Show
Unload Form1
用戶名和密碼輸入錯(cuò)誤碼的話,連接數(shù)據(jù)庫后用IF語句判斷用戶名和密碼,正確則執(zhí)行后面的代碼,錯(cuò)誤則彈出MSGBOX提示,用EXIT SUB跳出過程回到輸入用戶名和密碼的界面就行了。
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ù)庫連接,賦值textbox控件,驗(yàn)證!
1.首先添加2個(gè)label控件,一個(gè)caption為用戶名,一個(gè)為密碼然后分別在2個(gè)label控件后面添加一個(gè)text控件,
2.將text的text屬性設(shè)置為空再添加2個(gè)button按鈕,一個(gè)名為登陸,一個(gè)名為取消簡要代碼如下:
private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '這里寫驗(yàn)證代碼... ?'通過驗(yàn)證后要干么elsemsgbox("用戶名或者密碼不正確!")end if end subprivate sub button2_click()endend sub