Ako kódu Vstup /Registračný formulár VB

Kódovanie prihlasovacie meno a registračné formuláre v aplikácii Microsoft Visual Basic.NET ( VB.NET ) , môže vaše aplikácie bezpečnejšie . Program , ktorý používa prihlasovaciu stránku často tiež používa databázu pre sledovanie registrovaných užívateľov a ich informácie , ako sú používateľské mená a heslá . Microsoft Access je relačný databázový systém a môžu byť použité na sledovanie používateľov . Vo VB.NET sa môžete pripojiť k databáze programu Access uložiť alebo načítať informácie o užívateľovi sa prihlásiť a používať program . Veci , ktoré budete potrebovať
databázy Microsoft Access
tabuľku s názvom tblUsers
FirstName stĺpec svet Užívateľské meno stĺpca
userPassword stĺpec
Zobraziť ďalšie inštrukcie
1

Spustiť Visual Studio , kliknite na tlačidlo " Nový projekt " na ľavom paneli obrazovky počítača , a rozšíriť " Visual Basic " pod " Nainštalované šablóny . " kliknite na " Windows " a double - kliknite na " Windows Forms aplikácie " na vytvorenie nových okien formy projekt .
2

Double - kliknite na " textové pole " sa z " Toolbox " paneli pridať nový ovládací prvok textové pole do formulára . Pridanie druhého textového poľa . Double - kliknite na tlačidlo " " z " Toolbox " paneli pridať nový ovládací prvok tlačidla do formulára . Pridanie druhé tlačidlo . Double - kliknite na " Button1 " vytvoriť udalosť click na toto tlačidlo .
3

Skopírujte a vložte nasledujúci kód pridajte zaškrtávacie užívateľské meno a heslo proti informáciám v databáze programu Access pre užívateľa login :

Dim connString as String = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C : \\ userDB.accdb " Dim myConnection Ako OleDbConnection = New OleDbConnectionDim DA OleDbDataAdapterDim strSQL Ako StringDim DS as DataSetDim firstName As String

strSQL = " SELECT FROM tblUsers.FirstName tblUsers " strSQL = strSQL & "where ( tblUsers.userName = ' " & ( Me.TextBox1.Text ) & " " ; " strSQL = strSQL & " A tblUsers.userPassword = ' " & ( Me.TextBox2.Text ) & " ' ) ; " myConnection.ConnectionString = connStringda = New OleDbDataAdapter ( strSQL , myConnection ) ds = New DataSetda.Fill ( ds , " užívatelia " ) myConnection.Close ( )

každý rowTest V ds.Tables ( 0 ) . RowsfirstName = rowTest ( " Meno " ) . ToStringNextIf firstName < > " " ThenMessageBox.Show ( " Vitajte " a firstName & " ! " ) ElseMessageBox.Show ( " Skontrolujte prosím užívateľské meno a heslo . " ) End If
4

Upravte predchádzajúci krok a zadajte cestu k databáze programu Access .
5

Prepnite späť do zobrazenia formulára návrhu a double - kliknite na " Button2 " vytvoriť udalosť click . Pridajte nasledujúci kód na zobrazenie registračného formulára po kliknutí :

Form2.Show ( )
6

pravým tlačidlom myši na názov projektu v " Solution Explorer " a kliknete na " Pridať > ; Windows Form ... " pridať nový formulár pre registráciu do projektu . Double - kliknite na " formulář2 " a pridať tri textové polia pomocou rovnakej techniky používané v 1. kroku . . Pridať na jedno tlačidlo
7

Double - kliknite na " Button1 " vytvoriť udalosť click a pridajte nasledujúci kód pridať informácie o užívateľovi do databázy programu Access :

Dim strSQL ako StringDim objCmd ako nové OleDbCommandstrSQL = " INSERT INTO tblUsers ( meno , užívateľské meno , userPassword ) " strSQL = strSQL a " 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 ( " Úspešne ste registrovali Prosím prihláste sa . . " ) Form1.Show ( )
8

Upravte predchádzajúci krok a zadajte cestu k databáze programu Access .
9

Stlačte " F5 " pre spustenie programu . Kliknite na " Button2 " otvorte registračný formulár . Zadajte svoje meno v prvom textovom poli , užívateľské meno v druhom a hesla užívateľa v treťom textovom poli . Kliknite na " Button1 " pre uloženie informácie . Zadajte svoje užívateľské meno a heslo na prihlasovacej stránke kliknite na " Button1 " sa zobrazí prihlasovací správu .

• Predchádzajúca strana: Ako na príjem výstupného signálu vo VB6 pomocou paralelný port 
• Ďalšia strana: Ako kódu v prípade vyhlásenia v QBasic