Membuat Form Login Aplikasi Perpus Vb 6.0

Berikut ini ialah STEP 5 dalam Step by Step Membuat Aplikasi Perpustakaan dengan Visual Basic 6.0. Pada step ini akan kami bahas mengenai Cara Membuat Form Login Aplikasi Perpus.

Seperti yang sudah kami janjikan pada BAB 3, Database dan Tabel yang sudah di buat, data yang sudah diinput akan kami gunakan sebagai data Login. Untuk itu pastikan anda sudah mengikuti step sebelumnya yaaa..


STEP Sebelumnya :
STEP 01 : Membuat Project Aplikasi Perpus
STEP 02 : Membuat Form Menu Utama
STEP 03 : Membuat Database dan Tabel Perpus
STEP 04 : Membuat Koneksi Database DBPerpus

Jika sudah mengikuti Step diatas, anda dapat megikuti tahap dibawah ini :
Buka Project anda sebelumnya :

Pada langkah diatas, anda telah sukses menciptakan Koneksi database dengan module
Silahkan Klik Project - Add Form
Ganti nama Form1 menjadi FormLogin
lalu design form Login menyerupai gambar dibawah ini :

Jika sudah mendesign menyerupai gambar diatas, silahkan masukan koding dibawah ini :

FormLogin :

  Sub Terbuka() FormMenuUtama.MnLogin.Enabled = False FormMenuUtama.MnLogout.Enabled = True FormMenuUtama.MnMaster.Visible = True FormMenuUtama.MnTransaksi.Visible = True FormMenuUtama.MnLaporan.Visible = True End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() Text1 = "" Text2 = "" Text1.SetFocus End Sub Sub Form_Load()     Call BukaDB     Text1.MaxLength = 6     Text2.MaxLength = 10     Text2.PasswordChar = "X" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)     KeyAscii = Asc(UCase(Chr(KeyAscii)))     If KeyAscii = 13 Then       Text2.SetFocus     End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer)     KeyAscii = Asc(UCase(Chr(KeyAscii)))     If KeyAscii = 13 Then         Command1.SetFocus     End If End Sub Function CariData()     Call BukaDB     RSPETUGAS.Open "Select * From TBL_Petugas where kodePetugas='" & Text1 & "'", Koneksi End Function Private Sub Command1_Click() Call BukaDB         RSPETUGAS.Open "Select * from TBL_Petugas where KodePetugas ='" & Text1 & "' and PasswordPetugas='" & Text2 & "'", Koneksi         If RSPETUGAS.EOF Then             MsgBox "KodePetugas atau Password Salah!"             Text1.SetFocus         Else             Unload Me             FormMenuUtama.Show             Call Terbuka         End If End Sub 

FormMenuUtama

  Sub Terkunci() MnLogin.Enabled = True MnLogout = False MnMaster.Visible = False MnTransaksi.Visible = False MnLaporan.Visible = False End Sub Private Sub Form_Load() Call Terkunci End Sub Private Sub MnKeluar_Click() End End Sub Private Sub MnLogin_Click() FormLogin.Show vbModal End Sub 

Silahkan KLIK DISINI untuk melihat Video Tutorial diatas
Silahkan KLIK DISINI Untuk Download Source Code Project diatas

<<Tahap Sebelumnya

Tahap Selanjutnya>>

Share this post