Coding et login og en tilmeldingsblanket i Microsoft Visual Basic.NET ( VB.NET ) kan gøre dine applikationer mere sikre. Et program , der bruger en login-side også ofte bruger en database til at holde styr på registrerede brugere og deres oplysninger, f.eks brugernavne og adgangskoder . Microsoft Access er en relationel database management system og kan bruges til at holde styr på brugerne . I VB.NET du kan oprette forbindelse til en Access-database til at gemme eller hente brugeroplysninger til at logge ind og bruge dit program. Ting du skal
Microsoft Access-database
Table navngivne tblUsers
FirstName kolonne
userName kolonne
userPassword kolonne
Vis Flere Instruktioner
1 < p > Start Microsoft Visual Studio , klik på " nyt projekt" i den venstre rude på din computerskærm , og udvide "Visual Basic " under " Installerede skabeloner ". Klik på " Windows" og dobbeltklik på "Windows Forms Application " for at oprette en ny windows formularer projekt.
2

Dobbeltklik på " TextBox " til fra " Toolbox" ruden for at tilføje en ny tekstboks til formularen . Tilføj et andet tekstfelt . Dobbeltklik på " Button " fra " Toolbox" ruden for at tilføje en ny knap kontrol til formularen . Tilføj en anden knap . Dobbeltklik på " Button1 " for at oprette et klik begivenhed for denne knap.
3

Kopier og indsæt følgende kode til at tilføje kontrollere brugernavn og password mod oplysningerne i Access-databasen til bruger login : Hej

Dim connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 , datakilde = C: \\ userDB.accdb " Dim MinForbindelse Som OleDbConnection = Ny OleDbConnectionDim da Som OleDbDataAdapterDim strSQL Som StringDim ds Som DataSetDim fornavn As String

strSQL = " SELECT tblUsers.FirstName FROM tblUsers " strSQL = strSQL & " WHERE ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " « " strSQL = strSQL & " og tblUsers.userPassword = ' " & ( Me.TextBox2.Text ) & " '); " myConnection.ConnectionString = connStringda = Ny OleDbDataAdapter ( strSQL , MinForbindelse ) ds = Ny DataSetda.Fill ( ds , "brugere" ) myConnection.Close ()

For Each rowTest I ds.Tables (0). RowsfirstName = rowTest ( " Fornavn" ) . ToStringNextIf firstname < > "" ThenMessageBox.Show ( "Welcome " & fornavn & " !") ElseMessageBox.Show ( "Please tjek brugernavn og adgangskode. " ) End If
4

Rediger det forrige trin og skriv stien til din Access-database.
5.

Skift tilbage til at danne design visning og dobbeltklik på " button2 " for at oprette et klik begivenhed. Føj følgende kode til at vise tilmeldingsskemaet , når der klikkes : Hej

Form2.Show ()
6

Højreklik på projektets navn i "Solution Explorer " rude og klik på " Tilføj> , Windows Form ... "for at tilføje en ny form for registrering til dit projekt. Dobbeltklik på " Form2 " , og tilføj tre tekstbokse bruger samme teknik, der anvendes i trin 1 . Tilføj en knap
7

Dobbeltklik på " Button1 " for at oprette et klik begivenhed og tilføje følgende kode til at tilføje brugeren oplysninger til Access-database: .

Dim strSQL Som StringDim objCmd da New OleDbCommandstrSQL = " INSERT INTO tblUsers ( Fornavn, brugernavn, 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 registreret venligst login "). Form1.Show ()
8

Rediger det forrige trin og skriv stien til din Access-database.
9

Tryk på" F5 "for at køre programmet . Klik på " button2 " for at åbne tilmeldingsblanketten. Angiv dit navn i det første tekstfelt , brugernavn i den anden , og bruger password i tredje tekstboks. Klik på " Button1 " for at gemme oplysningerne. Skriv dit brugernavn og din adgangskode i login-side og klikke på " Button1 " for at vise en login -meddelelse.