Minggu, 19 Mei 2013

hari ni saya akan berbagi listing program penggajian karyawan dgn menggunakan listview pada vsiual basic 2008...
sebelum meracik listing program nya mari kita mendisain tampilan nya dulu :




Setelah  kita mndisain nya mari kita racik listing program nya :

Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("nik", 50, HorizontalAlignment.Left)
        lv.Columns.Add("nama", 55, HorizontalAlignment.Center)
        lv.Columns.Add("jabatan", 60, HorizontalAlignment.Left)
        lv.Columns.Add("status", 80, HorizontalAlignment.Center)
        lv.Columns.Add("pajak", 50, HorizontalAlignment.Center)
        lv.Columns.Add("tunj.keluarga", 75, HorizontalAlignment.Center)
        lv.Columns.Add("gaji", 55, HorizontalAlignment.Left)
        lv.Columns.Add("total gaji", 60, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True


    End Sub

    Sub IsiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = nik.Text
        Lst.SubItems.Add(na.Text)
        Lst.SubItems.Add(ja.Text)
        Lst.SubItems.Add(st.Text)
        Lst.SubItems.Add(tk.Text)
        Lst.SubItems.Add(pa.Text)
        Lst.SubItems.Add(ga.Text)
        Lst.SubItems.Add(tg.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        nik.Items.Add("1111590")
        nik.Items.Add("1111591")
        nik.Items.Add("1111589")

        ja.Items.Add("manager")
        ja.Items.Add("keuangan")
        ja.Items.Add("staf")

        st.Items.Add("menikah")
        st.Items.Add("tidak menikah")
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "1111590" : na.Text = "fikri"
            Case "1111591" : na.Text = "hakim"
            Case "1111589" : na.Text = "shinobi"
        End Select

    End Sub

    Private Sub ja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ja.SelectedIndexChanged
        Select Case ja.Text
            Case "manager" : ga.Text = 1750000
            Case "keuangan" : ga.Text = 2500000
            Case "staf" : ga.Text = 1250000
        End Select

        pa.Text = 0.15 * ga.Text

    End Sub

    Private Sub st_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles st.SelectedIndexChanged
        Select Case st.Text
            Case "menikah" : tk.Text = 0.15 * ga.Text
            Case "tidak menikah :tunj.keluarga = 0"

        End Select

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        tg.Text = Val(ga.Text) + Val(tk.Text) - Val(pa.Text)
    End Sub

    Private Sub skl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles skl.Click
        IsiTabel()
        nik.Text = ""
        na.Text = ""
        ja.Text = ""
        st.Text = ""
        tk.Text = ""
        pa.Text = ""
        ga.Text = ""
        tg.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nik.Text = ""
        na.Text = ""
        ja.Text = ""
        st.Text = ""
        tk.Text = ""
        pa.Text = ""
        ga.Text = ""
        tg.Text = ""

    End Sub

End Class

Untuk  mnjalankan atau mlihat apakah program kita jalan takan F5 yang ada di kybord klo sudah maka hasil nya seperti di bawah ini :








0 komentar:

Posting Komentar