Setelah kita melihat Contoh Program Aplikasi Penggajian menggunakan visual basic 6.0, selanjutnya kita membuat form Login.
Form login digunakan untuk akses kedalam program melalui enkripsi username dan password. Didalam program ini user dibedakan menjadi 2 yaitu Admin dan User. Admin berhak mengakses Data-data (Data User, data karyawan, data dasar, data bonus) sedangkan User berhak mengakses Penghitungan gaji karyawan, bonus, thr dan laporannya.



Silahkan anda membuat form login (name=formlogin) seperti dibawah ini, dan ubah name nya menjadi seperti dibawah :
Catatan : tlevel dibuat tidak terlihat ketika program dijalankan, silahkan klik text box tlevel kemudian pilih properties > visible = false



1. Pastekan kode dibawah pada source code sebagai variabel :

Dim a, b As String

2. Pastekan koding dibawah ini :
Private Sub Form_Load()
tkodeuser.Enabled = True
tpassword.Enabled = False

 tkodeuser.MaxLength = 10
tpassword.PasswordChar = "*"
tpassword.MaxLength = 5
tlevel.Visible = False
clogin.Enabled = False
Me.Top = 100
Me.Left = 0
Me.Height = 3570
Me.Width = 7965
End Sub

3. Double klik pada tkodeuser dan pasteka koding dibawah (declarations=keypress)
If KeyAscii = 13 Then

 Call koneksi
rsdatauser.Open "select*from tabeluser where kodeuser='" & tkodeuser.Text & "'", KON
If rsdatauser.EOF Then
 MsgBox "Kodeuser tidak ditemukan, silahkan masukan Kodeuser lainnya !", vbCritical
 tkodeuser.Text = Clear

 Else
tpassword.Enabled = True
tpassword.SetFocus
tlevel.Text = rsdatauser.Fields("level")
clogin.Enabled = True
tkodeuser.Enabled = False
  End If
  End If

4. Double klik pada clogin dan pasteka koding dibawah (declarations=click)
Call koneksi
rsdatauser.Open "select*from tabeluser where kodeuser='" & tkodeuser.Text & "' and password='" & tpassword.Text & "'", KON

 If rsdatauser.EOF Then
MsgBox "Password anda salah", vbCritical
tpassword.Text = ""
tpassword.SetFocus

 Else
'rsdatalogin.Open "insert into riwayatlogin values('" & tkodeuser2 & "','" & tjam & "','" & tltgl & "')", KON

 tlevel = rsdatauser!Level

 If tlevel = "ADMIN" Then

 fmenu.Show
Unload Me
a = rsdatauser!namauser
MsgBox "Anda Login sebagai Admin", vbInformation, "INFO"
MsgBox "Selamat Datang " & a & "", vbInformation, "ADMIN"
fmenu.StatusBar.Panels(2) = rsdatauser!kodeuser
fmenu.StatusBar.Panels(4) = rsdatauser!namauser
fmenu.StatusBar.Panels(6) = rsdatauser!Level
    fmenu.mlogin.Enabled = False
    fmenu.mdata.Enabled = True
    fmenu.mpenghitungan.Enabled = False
    fmenu.mlaporan.Enabled = False
    fmenu.mlogout.Enabled = True
    fmenu.muser.Enabled = True
    fmenu.mexit.Enabled = False
        
  'user-----------------------------------------------------------------------------------
Else
fmenu.Show
Unload Me
b = rsdatauser!namauser
MsgBox "Anda Login sebagai User", vbInformation, "INFO"
MsgBox "Selamat Datang " & b & "", vbInformation, "USER"
fmenu.StatusBar.Panels(2) = rsdatauser!kodeuser
fmenu.StatusBar.Panels(4) = rsdatauser!namauser
fmenu.StatusBar.Panels(6) = rsdatauser!Level

     fmenu.mdata.Enabled = False
    fmenu.mpenghitungan.Enabled = True
    fmenu.mlaporan.Enabled = True
    fmenu.mlogin.Enabled = False
    fmenu.mlogout.Enabled = True
    fmenu.mexit.Enabled = False

   End If
 End If