Codifica un login e un modulo di registrazione in Microsoft Visual Basic.NET (VB.NET) possa rendere le applicazioni più sicure. Un programma che utilizza una pagina di accesso utilizza spesso anche un database per tenere traccia degli utenti registrati e loro informazioni quali nomi utente e password. Microsoft Access è un relational database management system e può essere utilizzato per tenere traccia degli utenti. In VB.NET è possibile connettersi a un database di Access per salvare o recuperare le informazioni utente per accedere e utilizzare il programma.

Istruzioni

1

Avviare Microsoft Visual Studio, fare clic su "Nuovo progetto" nel riquadro sinistro dello schermo del computer ed espandere "Visual Basic" sotto "Modelli installati." Fare clic su "Windows" e fare doppio clic su "Applicazione Windows Form" per creare un nuovo progetto windows form.

2

Fare doppio clic su "TextBox" dal riquadro "Toolbox" per aggiungere un nuovo controllo casella di testo al form. Aggiungere una seconda casella di testo. Fare doppio clic sul "Pulsante" dal riquadro "Toolbox" per aggiungere un nuovo controllo button al form. Aggiungere un secondo pulsante. Fare doppio clic su "Button1" per creare un evento click per questo pulsante.

3

Copiare e incollare il codice seguente per aggiungere il controllo utente nome e password contro le informazioni nel database di Access per l'accesso utente:

Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\userDB.accdb"

Dim myConnection As OleDbConnection = New OleDbConnection
Dim da As OleDbDataAdapter
Dim strSQL As String
Dim ds As DataSet
Dim firstName As String

strSQL = "SELECT tblUsers.FirstName FROM tblUsers "
strSQL = strSQL & "WHERE (tblUsers.userName = '" & (Me.TextBox1.Text) & "' "
strSQL = strSQL & "And tblUsers.userPassword = '" & (Me.TextBox2.Text) & "');"
myConnection.ConnectionString = connString
da = New OleDbDataAdapter(strSQL, myConnection)
ds = New DataSet
da.Fill(ds, "users")
myConnection.Close()

For Each rowTest In ds.Tables(0).Rows
firstName = rowTest("FirstName").ToString
Next
If firstName <> "" Then
MessageBox.Show("Welcome " & firstName & "!")
Else
MessageBox.Show("Please check user name and password.")
End If4

Modificare il passaggio precedente e digitare il percorso al database di Access.

5

Tornare alla visualizzazione progettazione form e fare doppio clic su "Button2" per creare un evento click. Aggiungere il codice seguente per visualizzare il form di registrazione quando viene selezionato:

Form2.Show()

6

Pulsante destro del mouse il nome del progetto nel riquadro "Esplora soluzioni" e fare clic su "Aggiungi > Windows Form..." per aggiungere un nuovo modulo per l'iscrizione al progetto. Fare doppio clic su "Form2" e aggiungere tre caselle di testo, utilizzando la stessa tecnica utilizzata nel passaggio 1. Aggiungere un pulsante.

7

Fare doppio clic su "Button1" per creare un evento click e aggiungere il codice seguente per aggiungere informazioni sull'utente al database di Access:

Dim strSQL As String

Dim objCmd As New OleDbCommand
strSQL = "INSERT INTO tblUsers(FirstName, userName, userPassword) "
strSQL = strSQL & "VALUES('" & (Me.TextBox1.Text) & "', '" & (Me.TextBox3.Text) & "','" & (Me.TextBox4.Text) & "');"
Dim Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\userDB.accdb")
Con.Open()
objCmd = New OleDbCommand(strSQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()
MessageBox.Show("You have successfully registered. Please login.")
Form1.Show()8

Modificare il passaggio precedente e digitare il percorso al database di Access.

9

Premere "F5" per eseguire il programma. Fare clic su "Button2" per aprire il modulo di registrazione. Immettere il nome nella prima casella di testo, il nome utente nella seconda e nella terza casella di testo password dell'utente. Fare clic su "Button1" per salvare le informazioni. Digitare il nome utente e la password nella pagina di accesso e fare clic su "Button1" per visualizzare un messaggio di login.