NPM : 0911141
Kelas : TI-M0911
Kasus lihat Disini
=======================================================
Listing Program Login
=======================================================
Public Class Login
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
If user.Text = "Berlan Hutajulu" And pasword.Text = "0911141" Then
menufile.Show()
Me.Hide()
Else
MsgBox("Pasword Anda Salah,,,Coba Ulangi Sekali Lagi....!!!")
user.Text = ""
pasword.Text = ""
End If
End Sub=======================================================
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
If user.Text = "Berlan Hutajulu" And pasword.Text = "0911141" Then
menufile.Show()
Me.Hide()
Else
MsgBox("Pasword Anda Salah,,,Coba Ulangi Sekali Lagi....!!!")
user.Text = ""
pasword.Text = ""
End If
End Sub=======================================================
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
End Class
=======================================================
Tampilan Program Login, kalau berhasil tampilan menu akan muncul....
=======================================================
=======================================================
kalau tidak berhasil, maka akan keluar tampilan message box seperti ini..
=======================================================
Listing Program Menu..
=======================================================
Public Class menufile
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
Penggajian_Karyawan.Show()
End Sub
=======================================================
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
End Class
=======================================================
Tampilan program Menu.
=======================================================
=======================================================
Listing program Penggajian Pegawai
=======================================================
Public Class Penggajian_Karyawan
Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
If nip.Text = "0911141" Then
nama.Text = "Berlan Hutajulu "
ElseIf nip.Text = "000111" Then
nama.Text = "Mordong"
ElseIf nip.Text = "998908" Then
nama.Text = "Jaultop"
End If
End Sub
=======================================================
Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nip.Items.Add("0911141")
nip.Items.Add("000111")
nip.Items.Add("998908")
jabatan.Items.Add("Kepala Bagian")
jabatan.Items.Add("Mandor")
jabatan.Items.Add("Staf")
status.Items.Add("Menikah")
status.Items.Add("Tidak-Menikah")
rancangtabel()
End Sub
=======================================================
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "Menikah" Then
tunistri.Text = (9 / 100 * gaji.Text)
junak.Enabled = True
tunak.Enabled = True
ElseIf status.Text = "Tidak-Menikah" Then
tunistri.Text = "0"
tunak.Text = "0"
junak.Text = "0"
End If
pajak.Text = (1.5 / 100) * (gaji.Text)
End Sub
=======================================================
Private Sub junak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles junak.KeyPress
If e.KeyChar = Chr(13) Then
If junak.Text = "1" Then
tunak.Text = (junak.Text) * (3 / 100 * gaji.Text)
ElseIf junak.Text = "2" Then
tunak.Text = (junak.Text) * (7 / 100 * gaji.Text)
ElseIf junak.Text >= 2 Then
tunak.Text = (2 * 7 / 100 * gaji.Text)
End If
End If
End Sub
=======================================================
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If status.Text = "Menikah" Then
gatal.Text = Val(gaji.Text) + (tunistri.Text) + (tunak.Text) + (galem.Text) - (pajak.Text)
ElseIf status.Text = "Tidak-Menikah" Then
gatal.Text = Val(gaji.Text) + (galem.Text) - (pajak.Text)
End If
End Sub
=======================================================
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "Kepala Bagian" Then
gaji.Text = "2500000"
ElseIf jabatan.Text = "Mandor" Then
gaji.Text = "1750000"
ElseIf jabatan.Text = "Staf" Then
gaji.Text = "1250000"
End If
End Sub
=======================================================
Sub rancangtabel()
LV.Columns.Add("NIP", 40, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 90, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 60, HorizontalAlignment.Center)
LV.Columns.Add("Status", 60, HorizontalAlignment.Center)
LV.Columns.Add("T_Istri", 60, HorizontalAlignment.Center)
LV.Columns.Add("J_Anak", 60, HorizontalAlignment.Center)
LV.Columns.Add("T_Anak", 60, HorizontalAlignment.Center)
LV.Columns.Add("J_Lembur", 60, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Lembur", 70, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 40, HorizontalAlignment.Center)
LV.Columns.Add("Total Gaji", 50, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
=======================================================
Sub masuktabel()
Dim lst As New ListViewItem
lst.Text = nip.Text
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gaji.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(tunistri.Text)
lst.SubItems.Add(junak.Text)
lst.SubItems.Add(tunak.Text)
lst.SubItems.Add(Lembur.Text)
lst.SubItems.Add(galem.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(gatal.Text)
LV.Items.Add(lst)
End Sub
=======================================================
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nip.Text = ""
nama.Text = ""
jabatan.Text = ""
gaji.Text = ""
gatal.Text = ""
status.Text = ""
tunistri.Text = ""
junak.Text = ""
Lembur.Text = ""
galem.Text = ""
tunak.Text = ""
pajak.Text = ""
End Sub
=======================================================
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
=======================================================
Private Sub btnsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsemua.Click
LV.Items.Clear()
End Sub
=======================================================
Private Sub btnsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsatu.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
=======================================================
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
masuktabel()
End Sub
=======================================================
Private Sub Lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lembur.TextChanged
If jabatan.Text = "Kepala Bagian" Then
galem.Text = (Lembur.Text * 10000)
ElseIf jabatan.Text = "Mandor" Then
galem.Text = (Lembur.Text * 7500)
ElseIf jabatan.Text = "Staf" Then
galem.Text = (Lembur.Text * 5000)
End If
End Sub
End Class
=======================================================
Tidak ada komentar:
Posting Komentar