Cara mudah dan Praktis, Buat Form Login

Cara membuat form login vb6

Membuat Form Login Program Persediaan Barang
Form Login digunakan untuk membuat akses masuk bagi user / pengguna aplikasi
program dengan terlebih dahulu memasukkan kode user dan password pengguna sesuai
ketentuan. From login dengan vb berikut ini mempunyai hak akses untuk dapat masuk ke
menu utama, jika hak akses nya user biasa maka pilihan menu utama akan dibatasi, dan
jika hak aksesnya admin maka semua pilihan di menu utama semua akan aktif. Untuk itu
ikuti langkah-langkah di bawah ini

1. Perhatikan gambar di bawah ini, pada form baru anda tambahkan komponen
Image, Label, Textbox dan CommandButton
(Step By Step membuat program persediaan barang)
2. Lihat table di bawah ini, ubah properties komponen yang tertempel pada lembarform
Nama Control Properties Nilai
Form 1 Name FrmLogin
Caption Login
Label 1 Caption Silahkan masuk…
Label 2 Caption Kode User :
Label 3 Caption Password :
TextBox 1 Name Txtkode
CommandButton1 Name Cmdok
Text Login
CommandButton2 Name Cmdcancel
Text cancel
3. Klik icon view code lalu copy pastekan listing kode di bawah ini :

Sub login()
If txtkode.Text = "" Then txtkode.SetFocus: Exit Sub
If txtpsw.Text = "" Then txtpsw.SetFocus: Exit Sub
Call Koneksi_Database
sql = "select * from users where kd_user= '" & txtkode.Text & _
"' and password = '" & txtpsw.Text & "'"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
With rs
If .EOF = False Then
Dim lvl As String
lvl = rs.Fields("Level")
If lvl = "USER" Then
FrmMenu_Utama.Enabled = True
FrmMenu_Utama.StatusBar1.Panels(1).Text = txtkode.TextFrmMenu_Utama.StatusBar1.Panels(2).Text = rs.Fields("NM_USER")
FrmMenu_Utama.MnuPengguna.Enabled = False
For x = 1 To 7
FrmMenu_Utama.Toolbar1.Buttons(x).Visible = True
Next x
FrmMenu_Utama.Show
Unload Me
Else
FrmMenu_Utama.Enabled = True
FrmMenu_Utama.StatusBar1.Panels(1).Text = txtkode.Text
FrmMenu_Utama.StatusBar1.Panels(2).Text = rs.Fields("NM_USER")
FrmMenu_Utama.MnuPengguna.Enabled = True
For x = 1 To 7
FrmMenu_Utama.Toolbar1.Buttons(x).Visible = True
Next x
FrmMenu_Utama.Show
Unload Me
End If
Else
MsgBox "users tidak dikenal !", vbCritical, "Peringatan"
SendKeys "{home}+{end}"
txtkode.SetFocus
End If
End With
End Sub
Private Sub cmdcancel_Click()
End
End Sub

Private Sub cmdok_Click()Call login
End Sub
Private Sub Form_Activate()
txtkode.SetFocus
End Sub
Private Sub Form_Load()
txtkode.Text = ""
txtpsw.Text = ""
End Sub
Private Sub txtkode_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtpsw.SetFocus
End Sub
Private Sub txtpsw_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call login
End Sub

4. Simpan Form Login dengan nama FrmLogin di Folder Persediaan Barang
dimana Project & Database Persediaan Barang dibuat.dibuat.

untuk lebih jelasnya bisa di click disini
Atau mau download yang sudah jadi Form login
prosedure panggil Crystalreport 10

Link Download Contoh project, [.dll],[.ocx]