Membuat Form Login Aplikasi Kasir

Ini ialah BAB 5 dalam menciptakan Aplikasi Kasir Dengan Visual Basic 6.0. Bab ini ialah lanjutan pembelajaran pada serpihan sebelumnya. Jika anda gres bergabung, maka silahkan ikuti serpihan sebelumnya biar anda tidak tersesat.

BAB Sebelumnya :
BAB 1 : Membuat Project Aplikasi Kasir
BAB 2 : Membuat Form Menu Utama Aplikasi Kasir
BAB 3 : Membuat Database dan Tabel Kasir
BAB 4 : Membuat Koneksi Database Kasir

Jika sudah mengikuti serpihan per serpihan diatas, silahkan ikuti langkah dibawah ini :
Buka Project anda sebelumnya :

Klik Project
Add Form

Klik Open
Pada Properties, ganti name menjadi : FormLogin

Kemudian Design FormLogin menyerupai gambar dibawah ini :

Kemudian pada FormLogin, masukan koding dibawah ini :
Form Login

  FormLoginSub Terbuka() FormMenuUtama.MnLogin.Enabled = False FormMenuUtama.MnLogout.Enabled = True FormMenuUtama.MnMaster.Enabled = True FormMenuUtama.MnTransaksi.Enabled = True FormMenuUtama.MnLaporan.Enabled = 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     RSKasir.Open "Select * From TBL_Kasir where kodeKasir='" & Text1 & "'", koneksi End Function Private Sub Command1_Click() Call BukaDB         RSKasir.Open "Select * from TBL_Kasir where KodeKasir ='" & Text1 & "' and PasswordKasir='" & Text2 & "'", koneksi         If RSKasir.EOF Then             MsgBox "KodeKasir 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.Enabled = False MnTransaksi.Enabled = False MnLaporan.Enabled = 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 

Jika sudah silahkan Jalankan atau Run Project anda

<<Tahap Sebelumnya

Tahap Selanjutnya>>

Silahkan KLIK DISINI untuk melihat Video Tutorial BAB diatas
Silahkan KLIK DISINI untuk mendownload Project diatas

Share this post