√ Isyarat Listing Form Login Kegiatan Penggajian Visual Basic 6.0

Setelah kita melihat Contoh Program Aplikasi Penggajian memakai visual basic 6.0, selanjutnya kita menciptakan form Login.

Form login dipakai untuk jalan masuk kedalam kegiatan melalui enkripsi username dan password. Didalam kegiatan ini user dibedakan menjadi 2 adalah Admin dan User. Admin berhak mengakses Data-data (Data User, data karyawan, data dasar, data bonus) sedangkan User berhak mengakses Penghitungan honor karyawan, bonus, thr dan laporannya.

Silahkan anda menciptakan form login (name=formlogin) menyerupai dibawah ini, dan ubah name nya menjadi menyerupai dibawah :

Catatan : tlevel dibuat tidak terlihat saat kegiatan dijalankan, silahkan klik text box tlevel kemudian pilih properties > visible = false

1. Pastekan arahan 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

Sumber http://www.hendrisetiawan.com