Un semplice sistema di Login in VB 6

Autore: Luca Ruggiero | Tell a Friend Corso Visual Basic 6 Impara a creare applicazioni gestionali col Visual Basic! Corso VB.NET Impara a creare applicazioni desktop con Microsoft .NET! Corso VBA Impara a gestire documenti MS Office col linguaggio VBA!

Un software è spesso soggetto a dei sistemi di protezione, in genere incentrati sull'inserimento di una username ed una password, in modo da consentire l'accesso al sistema solo al possessore delle credenziali esatte.

Un sistema di Login è in genere basato su dati contenuti su di un database; essendo questo un esempio basilare, per quanto robusto ed efficace, non ci baseremo su un db, bensì su uno script statico che conserva all'interno del codice una username ed una password, consentendo l'accesso ad un singolo utente. Un sistema del genere è sicuro ed adatto ad un software di piccole dimensioni, come ad esempio un gestionale da rivendere ad un piccolo cliente; l'unica controindicazione è che le credenziali, una volta stabilite, ed al contrario di un analogo sistema implementato su Web, non possono essere cambiate, salvo in caso di ricompilazione del programma.

Le credenziali scelte per l'occasione (quale fantasia...) sono:

Username: demo
Password: demo

Si credi un nuovo progetto VB e si modelli la form iniziale come in figura



Abbiamo utilizzato due Label, due TextBox ed un Command; i nomi da assegnare agli oggetti sono rispettivamente: lblUsername, lblPassword, txtUsername, txtPassword, cmdLogin; la form si chiamerà frmLogin. Si assegni alla TextBox txtPassword il valore asterisco (*) alla proprietà PasswordChar in modo da criptare i caratteri all'inserimento della password.

Si aggiunga una nuova form al progetto tramite il menu

Progetto / Inserisci form

Private Sub cmdLogin_Click()
    If txtUsername.Text = "demo" And txtPassword.Text = "demo" Then
        Me.Visible = False
        frmPrivata.Show
    Else
        MsgBox "Inserire le credenziali", vbCritical, "ERRORE"
        txtUsername.Text = ""
        txtPassword.Text = ""
        txtUsername.SetFocus
    End If
End Sub

Me.Visible = False

frmLogin.Visible = False