Coding et brukernavn og et registreringsskjema i Microsoft Visual Basic.NET ( VB.NET ) kan gjøre programmene mer sikker. Et program som bruker en påloggingsside ofte bruker også en database for å holde oversikt over registrerte brukere og deres informasjon som brukernavn og passord . Microsoft Access er en relasjonsdatabase styringssystem og kan brukes til å holde styr på brukere. I VB.NET kan du koble til en Access database til å lagre eller hente brukerinformasjon å logge inn og bruke programmet. Du trenger
Microsoft Access database
Tabell heter tblUsers
Fornavn kolonne
userName kolonne
userPassword kolonne
Vis flere instruksjoner
1
Launch Microsoft Visual Studio , klikk " nytt prosjekt " på ruten til venstre på skjermen , og utvide " Visual Basic" under " Installerte maler . " Klikk "Windows" og dobbeltklikk på "Windows Forms Application " for å opprette en ny Windows former prosjekt .
2
Dobbeltklikk på " TextBox " til fra " Toolbox" -panelet for å legge til en ny tekstboks kontroll i skjemaet. Legg til en ny tekstboks. Dobbeltklikk på " Button" fra " Toolbox" -panelet for å legge til en ny knapp kontroll i skjemaet. Legg til en ny knapp . Dobbeltklikk på " Button1 " for å skape et klikk hendelsen for denne knappen.
3
Kopier og lim inn følgende kode for å legge til sjekk brukernavn og passord mot informasjonen i Access-databasen for brukeren login : en
Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; datakilde = C: \\ userDB.accdb " Dim myConnection Som OleDbConnection = Ny OleDbConnectionDim da Som OleDbDataAdapterDim strSQL Som StringDim ds As DataSetDim fornavn As String
strSQL = "SELECT tblUsers.FirstName FRA tblUsers " strSQL = strSQL & " WHERE ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " ; ' " strSQL = strSQL &" og tblUsers.userPassword =' "& ( Me.TextBox2.Text ) &" '); " myConnection.ConnectionString = connStringda = Ny OleDbDataAdapter ( strSQL , myConnection ) ds = Ny DataSetda.Fill (ds , "brukere" ) myConnection.Close ( )
Hver rowTest I ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Fornavn" ) . ToStringNextIf fornavn < > " " ThenMessageBox.Show ( "Welcome " & fornavn & " !") ElseMessageBox.Show ( " Vennligst sjekk brukernavn og passord . ") End If
4
Rediger forrige trinn og skriver inn banen til Access-databasen.
5
Bytt tilbake for å danne utforming utsikt og dobbeltklikk på " Button2 " for å skape et klikk hendelsen. Legg til følgende kode for å vise registreringsskjemaet når du klikker : en
Form2.Show ( )
6
Høyreklikk på prosjektnavnet i " Solution Explorer" panelet og klikk på " Legg til> ; Windows Form ... "for å legge til en ny form for registrering i prosjektet. Dobbeltklikk på " Form2 " og legg tre tekstbokser som bruker samme teknikk som brukes i trinn 1 . Legg en knapp
7
Dobbeltklikk på " Button1 " for å lage en klikkhendelsen og legge til følgende kode for å legge til bruker informasjonen til Access database: .
Dim strSQL Som StringDim objCmd som New OleDbCommandstrSQL = " INSERT INTO tblUsers ( Fornavn, brukernavn, userPassword )" strSQL = strSQL & " VALUES ( ' " & ( Me.TextBox1.Text ) & " ', ' " & ( Me.TextBox3.Text ) & " ',' " & ( Me.TextBox4.Text ) & " '); " Dim Con = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB . . 12,0 ; datakilde = C: \\ userDB.accdb " ) Con.Open ( ) objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Con.Close ( ) MessageBox.Show ( " Du har registrert Vennligst login . ") Form1.Show ( )
8
Rediger forrige trinn og skriver inn banen til Access-databasen.
9
Trykk" F5 "for å kjøre programmet . Klikk " Button2 " for å åpne påmeldingsskjema . Skriv navnet ditt i den første tekstboksen , brukernavn i andre , og bruker passord i den tredje tekstboksen . Klikk " Button1 " for å lagre informasjonen . Skriv inn brukernavn og passord i login -siden og klikk " Button1 " for å vise en innlogging melding.
