Dalam Form penggajian ada beberapa toolbox yang dapat kita gunakan yaitu;
1.Label2.Textbox
3.Combobox
4.Button
5.Listview
6.Groupbox
Temen-temen juga bisa liat bentuk formnya di bawah ini
Nah setelah teman-teman membuat design formnya, teman-teman bisa buat listing programnya.
bisa di lihat di bawah ini
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tabel()
NIP.Items.Add("TJP")
NIP.Items.Add("IP")
GOLONGAN.Items.Add("1A")
GOLONGAN.Items.Add("1B")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("TIDAK MENIKAH")
TOMBOL(True, False, False, False, True)
Nonaktif()
datagird()
Dim K As Integer
For K = 0 To 4
JUMLAH_ANAK.Items.Add(K)
Next
End Sub
Sub tabel()
With ListView1
.Columns.Add("NIP", 130, HorizontalAlignment.Center)
.Columns.Add("NAMA", 120, HorizontalAlignment.Left)
.Columns.Add("GOLONGAN", 110, HorizontalAlignment.Left)
.Columns.Add("GAJI", 130, HorizontalAlignment.Left)
.Columns.Add("STATUS", 120, HorizontalAlignment.Left)
.Columns.Add("JUMLAH_ANAK", 120, HorizontalAlignment.Left)
.Columns.Add("TUNJANGAN_ISTRI", 120, HorizontalAlignment.Left)
.Columns.Add("TUNJANGAN_ANAK", 120, HorizontalAlignment.Left)
.Columns.Add("TOTAL_GAJI", 140, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub
Sub TOTAL_GAJI()
Dim z As String
z = Val(GAJI.Text) + Val(TUNJANGAN_ANAK.Text) + Val(TUNJANGAN_ISTRI.Text)
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = NIP.Text
lst.SubItems.Add(NAMA.Text)
lst.SubItems.Add(GOLONGAN.Text)
lst.SubItems.Add(GAJI.Text)
lst.SubItems.Add(STATUS.Text)
lst.SubItems.Add(JUMLAH_ANAK.Text)
lst.SubItems.Add(TUNJANGAN_ISTRI.Text)
lst.SubItems.Add(TUNJANGAN_ANAK.Text)
lst.SubItems.Add(Val(GAJI.Text) + Val(TUNJANGAN_ANAK.Text) + Val(TUNJANGAN_ISTRI.Text))
ListView1.Items.Add(lst)
End Sub
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
Select Case NIP.Text
Case ("TJP")
NAMA.Text = "TABITA PANJAITAN"
Case ("IP")
NAMA.Text = "IRWAN PANJAITAN"
End Select
End Sub
Private Sub GOLONGAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOLONGAN.SelectedIndexChanged
Select Case GOLONGAN.Text
Case ("1A")
GAJI.Text = 1000000
Case ("1B")
GAJI.Text = 1500000
End Select
End Sub
Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
Dim J As String
J = JUMLAH_ANAK.Text
If STATUS.Text = "MENIKAH" Then
TUNJANGAN_ISTRI.Text = 0.1 * GAJI.Text
JUMLAH_ANAK.Enabled = True
TUNJANGAN_ANAK.Enabled = True
Else
JUMLAH_ANAK.Enabled = False
TUNJANGAN_ANAK.Enabled = False
TUNJANGAN_ISTRI.Enabled = False
End If
End Sub
Private Sub JUMLAH_ANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAH_ANAK.SelectedIndexChanged
Dim Y As String
Y = JUMLAH_ANAK.Text
If Y = 1 Then
TUNJANGAN_ANAK.Text = 0.5 * GAJI.Text
Else
TUNJANGAN_ANAK.Text = 0.1 * GAJI.Text
End If
End Sub
Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
isitabel()
TOMBOL(True, False, False, False, True)
DataGridView1.Rows.Add(NIP.Text, NAMA.Text, GOLONGAN.Text, GAJI.Text, STATUS.Text, JUMLAH_ANAK.Text, TUNJANGAN_ANAK.Text, TUNJANGAN_ISTRI.Text, (Val(GAJI.Text) + Val(TUNJANGAN_ANAK.Text) + Val(TUNJANGAN_ISTRI.Text)))
bersih()
Nonaktif()
End Sub
Private Sub HAPUS_LIST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_LIST.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
TOMBOL(True, False, False, False, True)
Nonaktif()
bersih()
End Sub
Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
End
End Sub
Sub bersih()
NIP.Text = ""
NAMA.Text = ""
GAJI.Text = ""
GOLONGAN.Text = ""
STATUS.Text = ""
TUNJANGAN_ANAK.Text = ""
TUNJANGAN_ISTRI.Text = ""
JUMLAH_ANAK.Text = ""
End Sub
Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
TOMBOL(True, False, False, False, True)
Nonaktif()
bersih()
End Sub
Sub TOMBOL(ByVal T1 As Boolean, ByVal T2 As Boolean, ByVal T3 As Boolean, ByVal T4 As Boolean, ByVal T5 As Boolean)
BARU.Enabled = T1
SIMPAN.Enabled = T2
HAPUS.Enabled = T3
HAPUS_LIST.Enabled = T4
KELUAR.Enabled = T5
End Sub
Sub aktif()
NIP.Enabled = True
NAMA.Enabled = True
GOLONGAN.Enabled = True
GAJI.Enabled = True
STATUS.Enabled = True
TUNJANGAN_ANAK.Enabled = True
TUNJANGAN_ISTRI.Enabled = True
TUNJANGAN_ANAK.Enabled = True
End Sub
Sub Nonaktif()
NIP.Enabled = False
NAMA.Enabled = False
GOLONGAN.Enabled = False
GAJI.Enabled = False
STATUS.Enabled = False
JUMLAH_ANAK.Enabled = False
TUNJANGAN_ANAK.Enabled = False
TUNJANGAN_ISTRI.Enabled = False
End Sub
Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click
TOMBOL(False, True, True, True, False)
aktif()
bersih()
End Sub
Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
NIP.Text = ListView1.SelectedItems(0).SubItems(0).Text
NAMA.Text = ListView1.SelectedItems(0).SubItems(1).Text
GOLONGAN.Text = ListView1.SelectedItems(0).SubItems(2).Text
GAJI.Text = ListView1.SelectedItems(0).SubItems(3).Text
STATUS.Text = ListView1.SelectedItems(0).SubItems(4).Text
STATUS.Text = ListView1.SelectedItems(0).SubItems(5).Text
JUMLAH_ANAK.Text = ListView1.SelectedItems(0).SubItems(6).Text
TUNJANGAN_ISTRI.Text = ListView1.SelectedItems(0).SubItems(7).Text
TUNJANGAN_ANAK.Text = ListView1.SelectedItems(0).SubItems(8).Text
aktif()
TOMBOL(False, False, True, True, False)
End Sub
Sub datagird()
DataGridView1.ColumnCount = 9
DataGridView1.Columns(0).HeaderText = "NIP"
DataGridView1.Columns(1).HeaderText = "NAMA"
DataGridView1.Columns(2).HeaderText = "GOLONGAN"
DataGridView1.Columns(3).HeaderText = "GAJI"
DataGridView1.Columns(4).HeaderText = "STATUS"
DataGridView1.Columns(5).HeaderText = "JUMLAH_ANAK"
DataGridView1.Columns(6).HeaderText = "TUNJANGAN_ANAK"
DataGridView1.Columns(7).HeaderText = "TUNJANGAN_ISTRI"
DataGridView1.Columns(8).HeaderText = "TOTAL_GAJI"
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class
Setelah listing programnya di buat teman-teman bisa jalankan programnya
Demikianlah bentuk programnya
Mudah bukan..........!!!!!!!!!!!!
Tidak ada komentar:
Posting Komentar