lancio di Microsoft Visual Studio , fare clic su "Nuovo progetto" nel riquadro di sinistra dello schermo del computer , e di espandere " Visual Basic " sotto " Modelli installati . " Fare clic su " Windows" e fare doppio clic su "Applicazione Windows Form " per creare una nuova finestra progetto forme .
2
doppio clic su " TextBox " per dal riquadro "Toolbox " per aggiungere un nuovo controllo casella di testo al form. Aggiungere una seconda casella di testo . Fare doppio clic su "Pulsante" dal riquadro " Casella degli strumenti " per aggiungere un nuovo controllo pulsante al form . Aggiungere un secondo pulsante . Fare doppio clic su " Button1 " per creare un evento click di questo pulsante .
3
Copia e incolla il seguente codice per aggiungere verificare il nome utente e la password contro le informazioni nel database di Access per l' utente login:
Dim connString As String = "Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ userDB.accdb " Dim myConnection Come OleDbConnection = New OleDbConnectionDim da quanto OleDbDataAdapterDim strSQL Come StringDim ds come DataSetDim firstName As String
strSQL = " SELECT FROM tblUsers.FirstName tblUsers " strSQL = strSQL & "WHERE ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " , ' " strSQL = strSQL & " e tblUsers.userPassword =' " & ( Me.TextBox2.Text ) &" '); " myConnection.ConnectionString = connStringda = New OleDbDataAdapter ( strSQL , myConnection ) ds = New DataSetda.Fill ( ds , "utenti" ) myConnection.Close ( ) per
Ogni rowTest In ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Nome " ) . ToStringNextIf firstName < > " " ThenMessageBox.Show ( "Benvenuto" & nome & "!" ) ElseMessageBox.Show ( " Controlla il nome utente e la password . " ) End If
4
Modificare il passo precedente e digitare il percorso al database di Access .
5
tornare a formare vista del design e fare doppio clic su " Button2 " per creare un evento click . Aggiungere il seguente codice per visualizzare il modulo di registrazione quando si fa clic :
Form2.Show ( ) economici 6
pulsante destro del mouse sul nome del progetto nel riquadro " Solution Explorer " 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 . Aggiungi un pulsante
7
doppio clic su " Button1 " per creare un evento click e aggiungere il seguente codice per aggiungere informazioni utente al database di Access : .
Dim strSQL Come StringDim objCmd come Nuovo OleDbCommandstrSQL = " INSERT INTO tblUsers ( Nome , il nome utente , 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 (" Hai completato la registrazione Effettua il login . " ) Form1.Show ( ) economici 8
Modificare il passo 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 . Inserisci il tuo nome nella prima casella di testo, il nome utente nel secondo , e la password dell'utente nella terza casella di testo . Fare clic su " Button1 " per salvare le informazioni . Digitare il nome utente e la password nella pagina di login e cliccare su " Button1 " per visualizzare un messaggio di login .
Programmazione © www.354353.com