Cara membuat login sederhana dengan vb.6

Cara membuat login sederhana dengan vb.6

1.buka program vb.6

2.lalu pada form 1 tambahkan

      *3 label dan pada propertis ganti name pada label1 dengan nama, label2 dengan                  tugas dan pada label3 ganti dengan password

      *2 text box dan pada properties textbox1 ganti name  dengan txtnama dan textbox2               ganti name dengan txtpassword dan pada textbox2 ganti password char dengan                   bintang(*)

      *1 combo box combobox1 ganti name  dengan cbtugas

      *2 command button dan pada propertis ganti caption pada command button1 dengan            Login dan pada command button 2 ganti dengan Exit

      

      

3. tambahkan 1 lagi form dan di form2 tambahkan 1 label

3.lalu double klik pada commandbutton login dan isikan syntak  seperti berikut

Private Sub cmdoke_Click()

If txtnama.Text = "diah" And cbtugas.Text = "admin" And txtpassword.Text = "123" Then

    Form2.Show

    Form1.Hide

    Form2.Label1.Caption = "saya sebagai admin"

ElseIf txtnama.Text = "rahma" And cbtugas.Text = "user" And txtpassword.Text = "456" Then

    Form2.Show

    Form1.Hide

    Form2.Label1.Caption = "saya sebagai user"

Else

    MsgBox "user name atau password anda masukkan salah" & vbNewLine & "silahkan coba lagi!!!", vbCritical, "warning!!"

    txtnama = ""

    txtpassword = ""

    cbtugas = ""

    txtnama.SetFocus

End If

End Sub

4.double klik  pada exit dan  isikan syntak seperti ini

Private Sub cmdexit_Click()

End

End Sub

5.tekan double klik pada form 1 untuk mengisi combobox dan isikan syntak seperti berikut

Private Sub Form_Load()

 cbtugas.AddItem "admin"

 cbtugas.AddItem "user"

End Sub

6.coba jalankan jika masih debug teliti jika belum ada jawabanya bisa tanya pad comment di bawah ini atau cari di google

contoh menjalankan login yang berhasil:

Terimakasih telah datang di blog abal-abal saya  jangan lupa like dan comment nya yaaaaa lapyuu see you again J J J J