Cara Membuat FormLogin sederhana dengan VB 6.0

Selasa, 16 Agustus 2011 07.20 Diposting oleh Unknown
  1. Yang harus dibuat adalah bentuk form sebagai berikut:
  1.  
  2. Form yang terdiri dari:
          •  2 label: caption yang 1 di ganti dengan user name, caption yang ke 2 diisi Password
          •  1 combobox
          • 1 textboxt
          • 2 commandbutton captionya diisi bantuan dan keluar
  3. Dengan listing sebagai berikut: 
  4. Option Explicit
    Dim x As Integer
    Private Sub combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text1.SetFocus
    End If
    End Sub
    Private Sub Command1_Click()
    MsgBox ("Passwordnya tergantung dari username")
    MsgBox ("Jika usernamenya : Administrator, maka password : admin")
    MsgBox ("Jika usernamenya : gatot, maka passwordnya : gatot")
    MsgBox ("Terimakasih")
    Combo1.SetFocus
    End Sub
    Private Sub Command2_Click()
    Unload Me
    End Sub
    Private Sub Form_Activate()
    Combo1.SetFocus
    End Sub
    Private Sub Form_Load()
    Combo1.AddItem "Administrator"
    Combo1.AddItem "gatot"
    End Sub
    Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Select Case Combo1.Text
    Case "Administrator"
    If Text2 <> "admin" Then
    x = x + 1
    Text2 = ""
    Text2.SetFocus
    Else
    x = 0
    Unload Me
    MENUUTAMA.Show
    End If
    Case "gatot"
    If Text2 <> "gatot" Then
    x = x + 1
    Text2 = ""
    Text2.SetFocus
    Else
    x = 0
    Unload Me
    MENUUTAMA.Show
    End If
        End Select
        Select Case x
            Case 1
            MsgBox "Password salah masih ada 2 kali kesempatan"
            Case 2
            MsgBox "Password salah masih ada 1 kali kesempatan"
            Case 3
            MsgBox "Maaf, kesempatan hanya 3 kali, anda harus mengulang dari awal."
            Unload Me
        End Select
    End If
    End Sub
0 komentar
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)
abcs