Public Class Form1
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
If Username.Text = "rizky" And password.Text = "program" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("maaf username/password salah!")
Username.Text = ""
password.Text = ""
End If
End Sub
Private Sub btnlogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogout.Click
End
End Sub
End Class
Public Class menuutama
Private Sub Form1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Form1ToolStripMenuItem.Click
datapegawai.Show()
End Sub
End Class
hasil program :
Public Class datapegawai
Sub Buattabel()
lv.Columns.Add("Nama", 80, HorizontalAlignment.Center)
lv.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
lv.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)
lv.Columns.Add("Status", 150, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan Istri", 110, HorizontalAlignment.Left)
lv.Columns.Add("Tunjangan Anak", 110, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah Anak", 110, HorizontalAlignment.Left)
lv.Columns.Add("Bonus", 120, HorizontalAlignment.Left)
lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
lv.Columns.Add("Total Gaji", 180, HorizontalAlignment.Left)
lv.Columns.Add("Jenis Kelamin", 100, HorizontalAlignment.Left)
lv.Columns.Add("Agama", 100, HorizontalAlignment.Left)
lv.View = View.Details
lv.FullRowSelect = True
lv.GridLines = True
End Sub
Sub clearisian()
nama.Clear()
jabatan.Text = ""
jumlahanak.Text = ""
status.Text = ""
gajipokok.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
bonus.Text = ""
pajak.Text = ""
totalgaji.Text = ""
nama.Focus()
End Sub
Sub Isitabel()
Dim Lst As New ListViewItem
Dim cJENKEL As String = Nothing
Dim cAGAMA As String = Nothing
Lst.Text = nama.Text
Lst.SubItems.Add(gajipokok.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(jumlahanak.Text)
Lst.SubItems.Add(bonus.Text)
Lst.SubItems.Add(pajak.Text)
Lst.SubItems.Add(totalgaji.Text)
If lk.Checked = True Then
cJENKEL = Me.lk.Text
ElseIf pr.Checked = True Then
cJENKEL = Me.pr.Text
End If
Lst.SubItems.Add(cJENKEL)
If islam.Checked = True Then
cAGAMA = Me.islam.Text
ElseIf Kristen.Checked = True Then
cAGAMA = Me.Kristen.Text
ElseIf hindu.Checked = True Then
cAGAMA = Me.hindu.Text
ElseIf budha.Checked = True Then
cAGAMA = Me.budha.Text
End If
Lst.SubItems.Add(cAGAMA)
lv.Items.Add(Lst)
End Sub
Sub bersih()
nama.Text = ""
gajipokok.Text = ""
jabatan.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
jumlahanak.Text = ""
bonus.Text = ""
pajak.Text = ""
totalgaji.Text = ""
lk.Checked = False
pr.Checked = False
islam.Checked = False
Kristen.Checked = False
hindu.Checked = False
budha.Checked = False
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "kasir" Then
gajipokok.Text = 1750000
bonus.Text = 7500
ElseIf jabatan.Text = "supervisor" Then
gajipokok.Text = 2500000
bonus.Text = 10000
ElseIf jabatan.Text = "pramuniaga" Then
gajipokok.Text = 1250000
bonus.Text = 5000
End If
End Sub
Private Sub datapegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Buattabel()
jabatan.Items.Add("pramuniaga")
jabatan.Items.Add("kasir")
jabatan.Items.Add("supervisor")
status.Items.Add("Menikah")
status.Items.Add("Belum Menikah")
End Sub
Private Sub btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapusdata.Click
If lv.SelectedItems.Count <> 0 Then
lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf anda belum memilih yang mana mau di hapus")
End If
End Sub
Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
Call Isitabel()
Call bersih()
End Sub
Private Sub status_KeyPress(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If jumlahanak.Text = "1" Then
tunjangananak.Text = 0.03 * gajipokok.Text
ElseIf jumlahanak.Text = "2" Then
tunjangananak.Text = 0.07 * gajipokok.Text
ElseIf jumlahanak.Text = ">2" Then
tunjangananak.Text = 0.07 * gajipokok.Text
End If
If status.Text = "Menikah" Then
tunjanganistri.Text = 0.09 * gajipokok.Text
ElseIf status.Text = "Belum Menikah" Then
End If
pajak.Text = 0.015 * gajipokok.Text
totalgaji.Text = Val(gajipokok.Text) + Val(bonus.Text) + Val(tunjanganistri.Text) + Val(tunjangananak.Text) - Val(pajak.Text)
End Sub
Private Sub btnlogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogout.Click
End
End Sub
Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
Call clearisian()
End Sub
End Class
hasil program :
Tidak ada komentar:
Posting Komentar