TEXT WIDGET

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


Artikel terkait :

6 komentar:

Jacob mengatakan...

1996 Oldsmobile Ciera AC Compressor
I just came across your blog and found it be really helpful in my evaluation

agoespriyanto mengatakan...

hopefully assist
thank you return have visited my blog

machrus ali mengatakan...

bgs si tapi kalo mencar" ribet mas,,,
bisa g kalo artikelnya jadiin 1..

saya minta yang proses penggabungan vb 6 ke akses dan mysql

Gaptek mengatakan...

kalau mau nampilin teks "username"nya di form yang berbeda setelah login gimana?

Priyanto Agoes mengatakan...

@machrus ali...
buat koneksi ke masing-masing databasenya, baik ke access dan ke mysql, dengan logikanya sbb :
Db Acess sebagai data usercontrolnya sedangkan mysql sebagai database transaksinya, buat beberapa field pada database access sebagai pengatur hak akses/Autorisasi user sesuai dengan kebutuhan masing-masing.

Priyanto Agoes mengatakan...

@Gaptek...
Yang sering saya pakai untuk menampilkan username pada MDIform, supaya nanti lebih mudah dipakai pada masing-masing transaksi, dan bisa dilihat pada form utama
Contoh simpelnya sbb :
Masukkan Logika parameternya apabila Login berhasil

mdiform.statusbar1.panel(1)=me.text1.text '(User ID)
mdiform.statusbar1.panel(2)=me.text2.text '(User Name)

Semoga bermanfaat.

Poskan Komentar

Say: Berkomentarlah dengan baik dan sopan...dan jangan gunakan SPAM untuk blog ini...Terima kasih [by.admin]