V tomto díle si ukážeme, jak vytvořit Přihlašování uživatelů..
Potřebujete zaheslovat nějakou svou aplikaci a pak se do ní přihlásit? Tady je jednoduchý návod jak na to. Ve Visual Basicu je sice šablona pro vytvoření přihlašování (dostane te se k ní takto: Project->Add Form-> vyberte šablonu Log In Dialog), ale my si to vytvoříme úplně od začátku.
Na konci tohoto seriálu bude Vaše práce vypadat takto:
Postup:1. Vytvořte si nový formulář a pojmenujeme frmLogin. Na něj vložte 2 Labely (popisky), 2 TextBoxy a 2 Command Button (tlačítka). Pojmenujte je podle tabulky a rozmístěte (viz. obrázek).
| Ovládací prvek | název |
| Label1 | lblJmeno |
| Label2 | lblHeslo |
| TextBox1 | txtJmeno |
| TextBox2 | txtPassword |
| Command1 | cmdOk |
| Command2 | cmdStorno |
2. Ještě než začneme psát proceduru pro cmdOK nejdřív nastavíme frmLogin jako startovací (pokud jste již četli seriál Splash (úvodní) obrazovka víte jak na to). Pokud ne tady je postup: Project->Properties->na kartě General vyberte Startup Object název frmLogin a stiskněte OK
3. Nyní upravíme proceduru tlačítka cmdOK_Click()
Private Sub cmdOk_Click()
Dim Udaje As String
Udaje = Kontrola(txtJmeno, txtPassword)
If "Chyba" <> Udaje Then
LoginSucceeded = True
Me.Hide
MsgBox "Vítejte " & Udaje, vbInformation, "Úspěšné přihlášení"
frmHlavni.Show
Else
MsgBox "Uživatelské jméno nebo heslo je špatně, zkuste to znovu", vbCritical, "Zpráva neoprávnenému uživateli"
txtJmeno = ""
txtPassword = ""
txtJmeno.SetFocus
End If
End Sub
4. Do deklarační části vložte následující řádek
Public LoginSucceeded As Boolean
5. Do procedury cmdStorno_click()
Private Sub cmdStorno_Click()
LoginSucceeded = False
Unload Me
End Sub
Do modulu vložte následující kod:
Function Kontrola(JmenoUzivatele As String, Heslo As String)
Select Case JmenoUzivatele & " " & Heslo
Case "Bill 123456"
Kontrola = "Bill Gates"
Case "Vlastik abcd"
Kontrola = "Vlasta Burian"
Case "Jakub skokan"
Kontrola = "Jakub Janda"
Case Else
Kontrola = "Chyba"
End Select
End Function
Tak to je vše. Zdrojový kod můžete stahovat zde [ http://programujte.com/file.php?id=62_1138127016_login ]