Как я могу создать многоуровневую форму входа с помощью VB.NET а доступ к базе данных ?
Я хочу знать, как перенаправить на форму администратора или форму пользователя и т. д. На форму входа с помощью использования VB.Сеть и доступ к базе данных
Что я уже пробовал:
Private Sub Btlogin_Click(sender As System.Object, e As System.EventArgs) Handles Btlogin.Click Dim warning As String = "Warning!" & vbNewLine & vbNewLine + _ "If attempt var = 3" + vbNewLine + _ "System will shut down." If (Textuser.Text = "") And (Textpassword.Text = "") Then attempt = attempt + 1 MsgBox("Please input username and password!" & vbNewLine & vbNewLine + _ warning, MsgBoxStyle.Exclamation, "Soryy!" & _ "Now attempt var = " & attempt) ElseIf (Textuser.Text = "") Then attempt = attempt + 1 MsgBox("Please input username!" & vbNewLine & vbNewLine + _ warning, MsgBoxStyle.Information, "Soryy!" & _ "Now attempt var = " & attempt) ElseIf (Textpassword.Text = "") Then attempt = attempt + 1 MsgBox("Please input password!" & vbNewLine & vbNewLine + _ warning, MsgBoxStyle.Information, "Soryy ! " & _ "Now attempt = " & attempt) Else Dim strname = Textuser.Text Dim strpass = Textpassword.Text With objcon .Close() If .State = ConnectionState.Closed Then .ConnectionString = strconnection .Open() ' MsgBox("connectionState.Open", MsgBoxStyle.Information, "Connected") End If End With ds.Clear() strSQL = "Select * From admin Where user_name='" & Textuser.Text & "' And password = '" & Textpassword.Text & "'" da = New OleDbDataAdapter(strSQL, objcon) da.Fill(ds, "admin") If ds.Tables("admin").Rows.Count <> 0 Then 'play Sound My.Computer.Audio.Play(Application.StartupPath + "\Sound\kamal.wav") MaximizeBox = True MinimizeBox = True MsgBox("Log in Successful!", MsgBoxStyle.OkOnly, _ "Welcome " + strname) Form5.Show() Me.Visible = False Else MaximizeBox = False MinimizeBox = False attempt = attempt + MsgBox("Ooop!" & strname & " _&_ " & strpass + vbNewLine + vbNewLine + _ "The username and password you entered" + vbNewLine + _ "Is not valid" + vbNewLine + _ "Please try again!", MsgBoxStyle.Exclamation, "Invalid") End If End If If attempt = 3 Then MsgBox("Windows is shutting down...", MsgBoxStyle.Critical, "Good bye!") Me.Close() End If End Sub
CHill60
Что плохого в том, что вы пробовали?
Richard Deeming
SQL-инъекция; хранение паролей в виде обычного текста; выбор всех столбцов из таблицы только для того, чтобы проверить, сколько строк было возвращено...
Я думаю, что лучше было бы спросить, что не что-то не так с кодом! :)
CHill60
О, я согласен. Я даже не стал утруждать себя анализом кода - я пытался заставить ОП объяснить, в чем их проблема, а не довольно утомительный сценарий "я не знаю, как это сделать, и это не в Google" .