Un semplice sistema di Login in VB 6

Applicazioni desktop con Visual Basic 6
Impara a creare applicazioni gestionali col Visual Basic

Scritto da Luca Ruggiero nella sezione Visual Basic

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
e la si chiami frmPrivata: questa è la form dell'applicazione raggiungibile solo dall'amministratore in possesso delle credenziali di accesso.

Fare doppio click sul Command della form frmLogin ed inserire il seguente codice:
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
Nel caso in cui la username sia demo e la password sia demo la form verrà nascosta
Me.Visible = False
equivale a
frmLogin.Visible = False
(Me vuol dire me stesso) e verrà mostrata la form frmPrivata, altrimenti verrà restituito un messaggio di errore, verranno svuotate le TextBox e verrà posizionato il cursore sulla casella della username.

I più cliccati della sezione Visual Basic

:: Guida a Visual Basic 6 (177.810)

:: Una rubrica in VB e Ms Access (98.452)

:: Richiamare una form da un'altra form in Visual Basic (25.010)

:: Interazione tra Visual Basic ed MS Excel (22.440)

:: Una semplice calcolatrice in VB 6 (22.430)

:: Leggere un file Xml col DOM in VB 6 (22.122)

:: Inviare email con CDO in Visual Basic 6 (21.550)

:: Un visualizzatore di immagini in VB 6 (14.547)

:: Scrivere un file MS Word in VB6 (12.597)

:: Creazione e cancellazione di un file di testo con Visual Basic (12.307)

IN EVIDENZA
DOWNLOAD