Kodning en inloggning och en anmälningsblankett i Microsoft Visual Basic.NET ( VB.NET ) kan göra dina applikationer säkrare . Ett program som använder en inloggningssida ofta använder även en databas för att hålla reda på registrerade användare och deras information såsom användarnamn och lösenord . Microsoft Access är en relationsdatabas management system och kan användas för att hålla reda på användare . I VB.NET du kan ansluta till en Access-databas för att spara eller hämta användarinformation för att logga in och använda ditt program . Saker du behöver
Microsoft Access-tabell databas
heter tblUsers
Förnamn kolumn
userName kolumn
userPassword kolumn
Visa fler instruktioner
1
Starta Microsoft Visual Studio , klicka på " nytt projekt " i den vänstra rutan på din datorskärm , och expandera " Visual Basic " nedan " Installerade mallar . " Klicka på "Windows " och dubbelklicka på " Windows Forms Application " för att skapa ett nytt fönster former projektet .
2
Dubbelklicka på " TextBox " till från " Toolbox " rutan för att lägga till en ny kontroll textruta i formuläret . Lägg en andra textrutan . Dubbelklicka på " Button " från " Toolbox " rutan för att lägga till en ny knapp kontroll i formuläret . Lägg en andra knapp . Dubbelklicka på " Button1 " för att skapa en click-händelse för den här knappen .
3
Kopiera och klistra in följande kod för att lägga kontrollera användarnamn och lösenord mot informationen i Access-databasen för användare login :
Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ userDB.accdb " Dim MyConnection Som OleDbConnection = Ny OleDbConnectionDim da Som OleDbDataAdapterDim strSQL Som StringDim DS DataSetDim firstName As String
strSQL = " SELECT tblUsers.FirstName FROM tblUsers " strSQL = strSQL & " WHERE ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " ; ' " strSQL = strSQL & " och tblUsers.userPassword = ' " & ( Me.TextBox2.Text ) & " ' ) ; " myConnection.ConnectionString = connStringda = Ny OleDbDataAdapter ( strSQL , MyConnection ) ds = Ny DataSetda.Fill ( ds , " användare " ) myConnection.Close ( ) katalog
För varje rowTest I ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Förnamn " ) . ToStringNextIf firstName < > " " ThenMessageBox.Show ( " Välkommen " & firstName & " ! " ) ElseMessageBox.Show ( " kontrollera användarnamn och lösenord . " ) End If
4
Redigera föregående steg och skriv in sökvägen till din Access-databas .
5
Växla tillbaka för att bilda designvyn och dubbelklicka på " Button2 " för att skapa en click-händelse . Lägg till följande kod för att visa anmälningsblanketten när du klickar på :
Form2.Show ( )
6
Högerklicka på projektets namn i " Solution Explorer " rutan och klicka på " Lägg till > , Windows Form ... " för att lägga till en ny form för registrering till ditt projekt . Dubbelklicka på " Form2 " och tillsätt tre textrutor med samma teknik som används i steg 1 . Lägg en knapp
7
Dubbelklicka på " Button1 " för att skapa en click-händelse och lägg till följande kod för att lägga till användaren information till Access-databas : .
Dim strSQL Som StringDim objCmd som New OleDbCommandstrSQL = " INSERT INTO tblUsers ( Förnamn , användarnamn, userPassword ) " strSQL = strSQL & " VALUES ( ' " & ( Me.TextBox1.Text ) & " ' , ' " & ( Me.TextBox3.Text ) & " ' , ' " & ( Me.TextBox4.Text ) & " ' ) ; " Dim Con = Ny OleDbConnection ( " Provider = Microsoft.ACE.OLEDB . . 12,0 , Data Source = C : \\ userDB.accdb " ) Con.Open ( ) objCmd = Ny OleDbCommand ( strSQL , Con ) objCmd.ExecuteNonQuery ( ) Con.Close ( ) MessageBox.Show ( " Du har registrerat Vänligen logga . " ) Form1.Show ( )
8
Redigera föregående steg och skriv in sökvägen till din Access-databas .
9
Tryck " F5 " för att köra programmet . Klicka " Button2 " för att öppna anmälningsblanketten . Skriv ditt namn i den första textrutan , användarnamnet på den andra , och lösenord i tredje textrutan . Klicka " Button1 " för att spara informationen . Skriv in ditt användarnamn och lösenord på inloggningssidan och klicka på " Button1 " för att visa en inloggning budskap .
