1.首先添加2個label控件,一個caption為用戶名,一個為密碼然后分別在2個label控件后面添加一個text控件,
在赫山等地區(qū),都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局,加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力,以專注、極致的服務(wù)理念,為客戶提供成都網(wǎng)站制作、成都網(wǎng)站設(shè)計 網(wǎng)站設(shè)計制作按需策劃設(shè)計,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),高端網(wǎng)站設(shè)計,成都營銷網(wǎng)站建設(shè),成都外貿(mào)網(wǎng)站建設(shè)公司,赫山網(wǎng)站建設(shè)費用合理。
2.將text的text屬性設(shè)置為空再添加2個button按鈕,一個名為登陸,一個名為取消簡要代碼如下:
private sub text2_change() sswordchar="*"end subprivate sub button1_click()if text1.text="text" and text2.text="123456" then '這里寫驗證代碼... ?'通過驗證后要干么elsemsgbox("用戶名或者密碼不正確!")end if end subprivate sub button2_click()endend 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控件,驗證!
這個問題好寬泛,簡單說下步驟吧:
簡單來說,直接連接需要使用SQLConnection、SQLDataAdapter、SQLCommand、Datatable四個控件,先寫好連接字符串,然后建立連接,寫好SQL語句,通過DataAdapter從數(shù)據(jù)庫讀取數(shù)據(jù)到Datatable。這樣只有在SQL服務(wù)器中附加數(shù)據(jù)庫才能實現(xiàn)訪問。還可以使用DSN實現(xiàn)數(shù)據(jù)庫連接,控件依次更換為ODBCConnection、ODBCDataAdapter、ODBCCommand、datatable、基本步驟和上面說的一樣。
SQL語句就是從數(shù)據(jù)庫查用戶名對應(yīng)的密碼,將數(shù)據(jù)從數(shù)據(jù)庫讀取到DataTable后,與用戶輸入的密碼比對,相符則登陸成功,否則提示錯誤。
過程中的細節(jié)問題歡迎追問