Deskripsi Form Latihan 14
1.
Object Label
Pada form ini terdapat delapan object label ( 2 yang bertuliskan "gaji orang tua
lebih dari" , 2 "bukan kelas", 2 "tanggal
lahir sebelum", dan 2 label untuk "nama memiliki unsur").
2.
Object Textbox
Pada form ini
terdapat dua belas textbox (enam status input; delapan status read only
dan hanya digunakan sebagai pengganti label). Status input digunakan untuk
memasukkan gaji orang tua lebih dari, bukan kelas, dan nama memiliki unsur.
Masing-masing 2 textbox. Status Read Only digunakan sebagai pengganti label
yang bertuliskan "gaji ortu>=6000000, gaji ortu>=5000000, gaji
ortu>=4000000, gaji ortu>=3000000, gaji ortu>=2000000, selain itu".3. Object Button
Pada form ini terdapat dua object button yaitu (Filter dan Atur Warna). Button filter digunakan untuk memfilter data tabel berdasarkan data yang telah diinput di textbox. Button atur warna digunakan untuk memberikan warna pada data yang ada dalam datagridview menurut besar gaji ortunya.
4. Object DateTimePicker
Pada form ini terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di datagridview.
5. Object RadioButton
Pada form ini terdapat empat object radiobutton (stambuk, kelas (besar->kecil), kelas (kecil->besar) tanggal lahir (kecil->besar), dan gaji orang tua (besar->kecil).
6. Object DataGridView
Pada form ini terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.
- Langkah-langkah Membuat Form 14
Public Class Latihan_14_46110027
Dim RESTY As New DataTable
Dim DV As New DataView
Private Sub Lat14_46110027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RESTY.Columns.Add(New DataColumn("STAMBUK", GetType(String)))
RESTY.Columns.Add(New DataColumn("NAMA", GetType(String)))
RESTY.Columns.Add(New DataColumn("JENIS KELAMIN", GetType(String)))
RESTY.Columns.Add(New DataColumn("TANGGAL LAHIR", GetType(String)))
RESTY.Columns.Add(New DataColumn("GAJI ORTU", GetType(Double)))
RESTY.Columns.Add(New DataColumn("KELAS", GetType(String)))
RESTY.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
RESTY.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
RESTY.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
RESTY.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
RESTY.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
RESTY.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
RESTY.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
RESTY.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
RESTY.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
RESTY.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
RESTY.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
RESTY.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
RESTY.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
RESTY.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
RESTY.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
RESTY.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
RESTY.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
RESTY.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
RESTY.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
RESTY.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
RESTY.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
RESTY.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
RESTY.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
RESTY.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
RESTY.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
RESTY.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
RESTY.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
RESTY.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
RESTY.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
RESTY.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
RESTY.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
RESTY.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
RESTY.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
RESTY.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
RESTY.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
RESTY.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
RESTY.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
RESTY.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
RESTY.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
RESTY.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
RESTY.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
RESTY.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
RESTY.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
RESTY.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
RESTY.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
RESTY.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
RESTY.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
RESTY.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
RESTY.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
RESTY.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
RESTY.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
RESTY.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
RESTY.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
RESTY.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
RESTY.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
RESTY.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
RESTY.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
RESTY.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
RESTY.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
RESTY.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
RESTY.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
RESTY.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
RESTY.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
RESTY.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
RESTY.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
RESTY.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
RESTY.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
RESTY.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
RESTY.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
RESTY.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
RESTY.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
RESTY.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
RESTY.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
RESTY.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
RESTY.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
RESTY.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
RESTY.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
RESTY.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
RESTY.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
RESTY.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
RESTY.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
RESTY.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
RESTY.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
RESTY.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
RESTY.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
RESTY.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
RESTY.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
RESTY.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
RESTY.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
RESTY.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
RESTY.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
RESTY.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
RESTY.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
RESTY.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
RESTY.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
RESTY.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
RESTY.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
RESTY.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
RESTY.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")
DV = RESTY.DefaultView
isi_46110027.DataSource = DV
End Sub
Private Sub p1_46110027_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p1_46110027.CheckedChanged
If p1_46110027.Checked = True Then
DV.Sort = "Stambuk"
End If
End Sub
Private Sub p2_46110027_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p2_46110027.CheckedChanged
If p2_46110027.Checked = True Then
DV.Sort = "kelas desc"
End If
End Sub
Private Sub p3_46110027_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p3_46110027.CheckedChanged
If p3_46110027.Checked = True Then
DV.Sort = "kelas,tanggal Lahir"
End If
End Sub
Private Sub p4_46110027_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p4_46110027.CheckedChanged
DV.Sort = "Gaji Ortu desc"
End Sub
Private Sub r1_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r1_46110027.TextChanged
DV.RowFilter = "[Gaji ortu] > " & Val(r1_46110027.Text)
End Sub
Private Sub p2_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r2_46110027.TextChanged
DV.RowFilter = "Kelas <> '" & p2_46110027.Text & "'"
End Sub
Private Sub DTP1_46110021_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtp1_46110027.ValueChanged
DV.RowFilter = "[Tanggal Lahir] < #" & dtp1_46110027.Value.Date & "#"
End Sub
Private Sub r3_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles r3_46110027.TextChanged
DV.RowFilter = "nama like '%" & r3_46110027.Text & "%'"
End Sub
Private Sub FILTER_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Filter_46110027.Click
DV.RowFilter = "[Gaji ortu] > " & Val(s1_46110027.Text) & "and kelas <>" & "'" & s2_46110027.Text & "'" & "and[tanggal lahir] < #" & dtp2_46110027.Value.Month & "/" & dtp2_46110027.Value.Day & "/" & dtp2_46110027.Value.Year & "#" & " and nama like '%" & s3_46110027.Text & "%'"
End Sub
Private Sub ATur_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Atur_46110027.Click
For Each CINTA As DataGridViewRow In isi_46110027.Rows
If CINTA.Cells("gaji ortu").Value > 6000000 Then
CINTA.DefaultCellStyle.BackColor = g1_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 5000000 Then
CINTA.DefaultCellStyle.BackColor = g4_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 4000000 Then
CINTA.DefaultCellStyle.BackColor = g2_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 3000000 Then
CINTA.DefaultCellStyle.BackColor = g5_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 2000000 Then
CINTA.DefaultCellStyle.BackColor = g4_46110027.BackColor
Else
CINTA.DefaultCellStyle.BackColor = g6_46110027.BackColor
End If
Next
End Sub
End Class
- Langkah-langkah Menjalankan Form 14
- Script Unique
DV.RowFilter = "[Gaji ortu] > " & Val(r1_46110027.Text)
Untuk mengatur warna
For Each CINTA As DataGridViewRow In isi_46110027.Rows
If CINTA.Cells("gaji ortu").Value > 6000000 Then
CINTA.DefaultCellStyle.BackColor = g1_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 5000000 Then
CINTA.DefaultCellStyle.BackColor = g4_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 4000000 Then
CINTA.DefaultCellStyle.BackColor = g2_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 3000000 Then
CINTA.DefaultCellStyle.BackColor = g5_46110027.BackColor
ElseIf CINTA.Cells("gaji ortu").Value > 2000000 Then
CINTA.DefaultCellStyle.BackColor = g4_46110027.BackColor
Else
CINTA.DefaultCellStyle.BackColor = g6_46110027.BackColor
End If
Next
End Sub
- Even
ButtonClick
Load
Valuechanged
- Property
Postingan
0 komentar:
Posting Komentar