Deskripsi form latihan 14
Form Latihan 14 Terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan datagriedview
Object Label :
Dalam form latihan ini terdapat 14 buah label, antara lain 2 label bertuliskan gaji orang tua lebih dari, 2 label bertuliskan bukan kelas, 2 label bertuliskan tanggal lahir sebelum, 2 label bertuliskan nama memiliki unsur dan 6 label yang diberi warna yang berbeda-beda untuk membedakan penghasilan orang tua pada data yang telah ada.
Object Textbox
Dalam form ini enam buah textbox yang semuanya berstatus input, antara lain gaji orang tua lebih dari, bukan kelas, nama memiliki unsur yang masing-masing berjumlah 2 textbox
Radio Button :
Dalam form ini terdapat 4 buah object radio button, antara lain stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil). Radiobutton ini berfungsi untuk memilih satu diantara beberapa pilihan yang ada.
Object datagridview :
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
2. Ketikkan nama form latihan_14_xxxxx, lalu klik add
3. Buat form seperti gambar di bawah ini:
4. Ganti semua nama object kecuali label pada properties, seperti gambar di bawah ini,
4. Setelah itu input script berikut ini :
Public Class latihan_14_46110004
Dim sulhi As New DataTable
Dim DV As New DataView
Private Sub Latihan14012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sulhi.Columns.Add(New DataColumn("Stambuk", GetType(String)))
sulhi.Columns.Add(New DataColumn("Nama", GetType(String)))
sulhi.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))
sulhi.Columns.Add(New DataColumn("TanggalLahir", GetType(String)))
sulhi.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))
sulhi.Columns.Add(New DataColumn("Kelas", GetType(String)))
sulhi.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
sulhi.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
sulhi.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
sulhi.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
sulhi.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
sulhi.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
sulhi.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
sulhi.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
sulhi.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
sulhi.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
sulhi.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
sulhi.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
sulhi.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
sulhi.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
sulhi.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
sulhi.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
sulhi.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
sulhi.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
sulhi.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
sulhi.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
sulhi.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
sulhi.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
sulhi.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
sulhi.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
sulhi.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
sulhi.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
sulhi.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
sulhi.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
sulhi.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
sulhi.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
sulhi.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
sulhi.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
sulhi.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
sulhi.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
sulhi.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
sulhi.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
sulhi.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
sulhi.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
sulhi.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
sulhi.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
sulhi.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
sulhi.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
sulhi.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
sulhi.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
sulhi.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
sulhi.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
sulhi.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
sulhi.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
sulhi.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
sulhi.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
sulhi.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
sulhi.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
sulhi.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
sulhi.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
sulhi.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
DV = sulhi.DefaultView
dgv_46110004.DataSource = DV
End Sub
Private Sub warna_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles warna_46110004.Click
For Each X As DataGridViewRow In dgv_46110004.Rows
If X.Cells("GAJIORTU").Value > 6000000 Then
X.DefaultCellStyle.BackColor = Label9.BackColor
ElseIf X.Cells("GAJIORTU").Value > 5000000 Then
X.DefaultCellStyle.BackColor = Label10.BackColor
ElseIf X.Cells("GAJIORTU").Value > 4000000 Then
X.DefaultCellStyle.BackColor = Label11.BackColor
ElseIf X.Cells("GAJIORTU").Value > 3000000 Then
X.DefaultCellStyle.BackColor = Label12.BackColor
ElseIf X.Cells("GAJIORTU").Value > 2000000 Then
X.DefaultCellStyle.BackColor = Label13.BackColor
Else
X.DefaultCellStyle.BackColor = Label14.BackColor
End If
Next
End Sub
Private Sub filter_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter_46110004.Click
DV.RowFilter = "[GajiOrtu]>" & Val(gaji2_46110004.Text) & " AND [Kelas] <>'" & bkl1_46110004.Text & "'" & " AND [TanggalLahir] <#" & tgl2_46110004.Value.Month & "/" & tgl2_46110004.Value.Day & "/" & tgl2_46110004.Value.Year & "#" & " AND Nama LIKE '%" & nama2_46110004.Text & "%'"
End Sub
Private Sub tgl_46110004_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tgl_46110004.ValueChanged
DV.RowFilter = "TanggalLahir < #" & tgl_46110004.Value.Date & "#"
End Sub
Private Sub nama1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nama1_46110004.TextChanged
DV.RowFilter = "NAMA LIKE'% " & nama1_46110004.Text & "%'"
End Sub
Private Sub bkl_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bkl_46110004.TextChanged
DV.RowFilter = "Kelas <> '" & bkl_46110004.Text & "'"
End Sub
Private Sub gaji1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gaji1_46110004.TextChanged
DV.RowFilter = "GajiOrtu>=" & Val(gaji1_46110004.Text)
End Sub
Private Sub stb_46110004_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles stb_46110004.CheckedChanged
If stb_46110004.Checked = True Then
DV.Sort = "Stambuk"
End If
End Sub
Private Sub kls_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls_46110004.CheckedChanged
If kls_46110004.Checked = True Then
DV.Sort = "kelas desc"
End If
End Sub
Private Sub ktl_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ktl_46110004.CheckedChanged
If ktl_46110004.Checked = True Then
DV.Sort = "kelas,tanggalLahir"
End If
End Sub
Private Sub gaji_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_46110004.CheckedChanged
If gaji_46110004.Checked = True Then
DV.Sort = "GajiOrtu desc"
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 14 seperti dibawah ini :
7. Setelah menekan tombol tresebut maka tampilan latihan 14 sebagai berikut :
8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Form Latihan 14 Terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan datagriedview
Object Label :
Dalam form latihan ini terdapat 14 buah label, antara lain 2 label bertuliskan gaji orang tua lebih dari, 2 label bertuliskan bukan kelas, 2 label bertuliskan tanggal lahir sebelum, 2 label bertuliskan nama memiliki unsur dan 6 label yang diberi warna yang berbeda-beda untuk membedakan penghasilan orang tua pada data yang telah ada.
Dalam form ini enam buah textbox yang semuanya berstatus input, antara lain gaji orang tua lebih dari, bukan kelas, nama memiliki unsur yang masing-masing berjumlah 2 textbox
Radio Button :
Dalam form ini terdapat 4 buah object radio button, antara lain stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil). Radiobutton ini berfungsi untuk memilih satu diantara beberapa pilihan yang ada.
Object datagridview :
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.
Object Groupbox :
Dalam form ini terdapat 4 buah object groupbox. Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.
Dalam form ini terdapat 4 buah object groupbox. Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.
Object Datetimepicker :
Dalam form ini terdapat dua buah object datetimepicker yang semuanya bertuliskan tanggal lahir sebelum . Object ini digunakan untuk menginput tanggal.
Dalam form ini terdapat dua buah object datetimepicker yang semuanya bertuliskan tanggal lahir sebelum . Object ini digunakan untuk menginput tanggal.
Object Button :
Terdapat dua object button yakni filter dan atur warna). Button filter berfungsi memfilter data tabel berdasarkan data yang telah diinput di textbox. Button atur warna berfungsi memberikan warna berbeda menurut besarnya gaji orang tua pada data yang ditampilkan di datagridview
Terdapat dua object button yakni filter dan atur warna). Button filter berfungsi memfilter data tabel berdasarkan data yang telah diinput di textbox. Button atur warna berfungsi memberikan warna berbeda menurut besarnya gaji orang tua pada data yang ditampilkan di datagridview
Script Unique :
Perintah untuk memfilter multi syarat :
Perintah untuk memfilter multi syarat :
DV.RowFilter = "[GajiOrtu]>" & Val(gaji2_46110004.Text) & " AND [Kelas] <>'" & bkl1_46110004.Text & "'" & " AND [TanggalLahir] <#" & tgl2_46110004.Value.Month & "/" & tgl2_46110004.Value.Day & "/" & tgl2_46110004.Value.Year & "#" & " AND Nama LIKE '%" & nama2_46110004.Text & "%'"
Perintah untuk memfilter syarat tunggal :
DV.RowFilter = "TanggalLahir < #" & tgl_46110004.Value.Date & "#"
Perintah untuk mengatur warna :
For Each X As DataGridViewRow In DataGridView1.Rows
If X.Cells("GAJI ORTU").Value > 6000000 Then
X.DefaultCellStyle.BackColor = T7.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 5000000 Then
X.DefaultCellStyle.BackColor = T8.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 4000000 Then
X.DefaultCellStyle.BackColor = T9.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 3000000 Then
X.DefaultCellStyle.BackColor = T10.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 2000000 Then
X.DefaultCellStyle.BackColor = T11.BackColor
Else
X.DefaultCellStyle.BackColor = T12.BackColor
End If
Next
Even :
Buttonclick
Textchanged
Load
Checkchanged
If X.Cells("GAJI ORTU").Value > 6000000 Then
X.DefaultCellStyle.BackColor = T7.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 5000000 Then
X.DefaultCellStyle.BackColor = T8.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 4000000 Then
X.DefaultCellStyle.BackColor = T9.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 3000000 Then
X.DefaultCellStyle.BackColor = T10.BackColor
ElseIf X.Cells("GAJI ORTU").Value > 2000000 Then
X.DefaultCellStyle.BackColor = T11.BackColor
Else
X.DefaultCellStyle.BackColor = T12.BackColor
End If
Next
Even :
Buttonclick
Textchanged
Load
Checkchanged
Langkah-langkah penyelesaian form latihan 14
1.Buat form baru seperti gambar dibawah ini,
Public Class latihan_14_46110004
Dim sulhi As New DataTable
Dim DV As New DataView
Private Sub Latihan14012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sulhi.Columns.Add(New DataColumn("Stambuk", GetType(String)))
sulhi.Columns.Add(New DataColumn("Nama", GetType(String)))
sulhi.Columns.Add(New DataColumn("JenisKelamin", GetType(String)))
sulhi.Columns.Add(New DataColumn("TanggalLahir", GetType(String)))
sulhi.Columns.Add(New DataColumn("GajiOrtu", GetType(Double)))
sulhi.Columns.Add(New DataColumn("Kelas", GetType(String)))
sulhi.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
sulhi.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
sulhi.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
sulhi.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
sulhi.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
sulhi.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
sulhi.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
sulhi.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
sulhi.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
sulhi.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
sulhi.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
sulhi.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
sulhi.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
sulhi.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
sulhi.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
sulhi.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
sulhi.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
sulhi.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
sulhi.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
sulhi.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
sulhi.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
sulhi.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
sulhi.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
sulhi.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
sulhi.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
sulhi.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
sulhi.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
sulhi.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
sulhi.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
sulhi.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
sulhi.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
sulhi.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
sulhi.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
sulhi.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
sulhi.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
sulhi.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
sulhi.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
sulhi.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
sulhi.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
sulhi.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
sulhi.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
sulhi.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
sulhi.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
sulhi.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
sulhi.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
sulhi.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
sulhi.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
sulhi.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
sulhi.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
sulhi.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
sulhi.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
sulhi.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
sulhi.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
sulhi.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
sulhi.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
sulhi.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
sulhi.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
sulhi.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
sulhi.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
sulhi.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
sulhi.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
sulhi.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
sulhi.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
sulhi.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
DV = sulhi.DefaultView
dgv_46110004.DataSource = DV
End Sub
Private Sub warna_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles warna_46110004.Click
For Each X As DataGridViewRow In dgv_46110004.Rows
If X.Cells("GAJIORTU").Value > 6000000 Then
X.DefaultCellStyle.BackColor = Label9.BackColor
ElseIf X.Cells("GAJIORTU").Value > 5000000 Then
X.DefaultCellStyle.BackColor = Label10.BackColor
ElseIf X.Cells("GAJIORTU").Value > 4000000 Then
X.DefaultCellStyle.BackColor = Label11.BackColor
ElseIf X.Cells("GAJIORTU").Value > 3000000 Then
X.DefaultCellStyle.BackColor = Label12.BackColor
ElseIf X.Cells("GAJIORTU").Value > 2000000 Then
X.DefaultCellStyle.BackColor = Label13.BackColor
Else
X.DefaultCellStyle.BackColor = Label14.BackColor
End If
Next
End Sub
Private Sub filter_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter_46110004.Click
DV.RowFilter = "[GajiOrtu]>" & Val(gaji2_46110004.Text) & " AND [Kelas] <>'" & bkl1_46110004.Text & "'" & " AND [TanggalLahir] <#" & tgl2_46110004.Value.Month & "/" & tgl2_46110004.Value.Day & "/" & tgl2_46110004.Value.Year & "#" & " AND Nama LIKE '%" & nama2_46110004.Text & "%'"
End Sub
Private Sub tgl_46110004_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tgl_46110004.ValueChanged
DV.RowFilter = "TanggalLahir < #" & tgl_46110004.Value.Date & "#"
End Sub
Private Sub nama1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles nama1_46110004.TextChanged
DV.RowFilter = "NAMA LIKE'% " & nama1_46110004.Text & "%'"
End Sub
Private Sub bkl_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bkl_46110004.TextChanged
DV.RowFilter = "Kelas <> '" & bkl_46110004.Text & "'"
End Sub
Private Sub gaji1_46110004_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gaji1_46110004.TextChanged
DV.RowFilter = "GajiOrtu>=" & Val(gaji1_46110004.Text)
End Sub
Private Sub stb_46110004_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles stb_46110004.CheckedChanged
If stb_46110004.Checked = True Then
DV.Sort = "Stambuk"
End If
End Sub
Private Sub kls_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls_46110004.CheckedChanged
If kls_46110004.Checked = True Then
DV.Sort = "kelas desc"
End If
End Sub
Private Sub ktl_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ktl_46110004.CheckedChanged
If ktl_46110004.Checked = True Then
DV.Sort = "kelas,tanggalLahir"
End If
End Sub
Private Sub gaji_46110004_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji_46110004.CheckedChanged
If gaji_46110004.Checked = True Then
DV.Sort = "GajiOrtu desc"
End If
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:
8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar