Kode Listing Form Login Program Penggajian Visual Basic 6.0

Advertisement
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


0 Komentar untuk "Kode Listing Form Login Program Penggajian Visual Basic 6.0"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!
Baca Aturan Berkomentar

Back To Top