fheCUTEX: memasukan data ke list view

langkah pertama :
          1. buat tampilan seperti ini
          2. beri nama pada tiap-tiap textbox, combobox, button, dan list view nya
pada tahap ini
double klik button "simpan ke list view" fungsinnya untuk menginputkan data yang di inputkan ke LISTVIEW
inputkan skrip di bawah ini
script :
isitabel()
        Nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkeluarga.Text = ""
        Total.Text = ""

double klik button "bersihkan" fungsinya untuk menghapus penginputan data
script :
Nik.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        status.Text = ""
        tunjkeluarga.Text = ""
        Total.Text = ""
        pajak.Text = ""

double klik button "proses data" fungsinya untuk menghitung gaji karyawan
Total.Text = Val(gaji.Text) + Val(tunjkeluarga.Text) - Val(pajak.Text)

untuk pembuatan table list view, gunakan jarak yang sesuai...
di sarankan ikuti script di bawah ini
double klik ListView nya
Lv.Columns.Add("Nik", 85, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama", 85, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 95, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 70, HorizontalAlignment.Center)
        Lv.Columns.Add("Tunjangan keluarga", 165, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True

double klik button "hapus semua data listview" fungsinya untuk menghapus semua data di list view yang sudah di input
script :
Lv.Items.Clear()

double klik button "hapus data list view yang di pilih" fungsinya untuk menghapus satu persatu data pada list view
script :
Lv.Items.Remove(Lv.SelectedItems(0))

double clik pada button "keluar" fungsinya untuk keluar atau exit dari form tersebut
script :
end
untuk penganbilan nama, disini saya menggunakan fungsi CASE , karena pengambilan nya di tentukan dari combobox nik di atas
double clik combobox "NIK"
script :
Select Case Nik.Text
            Case "001" : nama.Text = "oncom"
            Case "002" : nama.Text = "udin"
            Case "003" : nama.Text = "ujang"
        End Select

dan untuk penentuan gaji menggunakan ketentuan case dari jabatan
double clik combobox "jabatan"
script :
Select Case jabatan.Text
            Case "mandor" : gaji.Text = 1750000
            Case "kepala bagian" : gaji.Text = 2500000
            Case "staf" : gaji.Text = 1250000
        End Select
        pajak.Text = 0.15 * gaji.Text

untuk status
double click combobox "status"
script:
Select Case status.Text
            Case "menikah" : tunjkeluarga.Text = 0.15 * gaji.Text
            Case "tidak menikah" : tunjkeluarga.Text = 0
        End Select

tekan F5
jika tidak ada masalah..maka akan muncul seperti gambar di atas tadi
lalu isi semua data di kolom "masukan data anda"
dan selanjutnya tekan button "proses data"
maka akan muncul tampilan seperti ini