Deskripsi Form Latihan_14_46110038:
Form Latihan_14_46110038 terdapat 6 object yaitu Label, Textbox,
Button, Datetimepicker, dan
Datagridview:
Object Label
Di Latihan_14_46110038 ada 12 label
yang berisi teks gaji orang tua lebih dari, bukan kelas, tanggal lahir sebelum,
dan nama memiliki unsur masing-masing dua. Dan gaji ortu>=6000000, gaji
ortu>=5000000, gaji ortu>=4000000, gaji ortu>=3000000, gaji
ortu>=2000000, selain itu.
Object TextBox
Di Latihan_14_46110038 ada 6 textbox
yang berstatus input, 3 berstatus read only. Status input digunakan untuk
memasukkan gaji orang tua lebih dari, bukan kelas, dan nama memiliki unsur.
Masing-masing 2 textbox.
Object
Button
Di Latihan_14_46110038 ada 2 object
button yang berisi teks 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.
Object
Datetimepicker
Di Latihan_14_46110038 ada 2 object
datetimepicker yang digunakan dalam memfilter data tabel yang ada di
datagridview.
Object
Datagridview
Di Latihan_14_46110038 ada 1 objek
datagridview yang digunakan untuk menampilkan datatable yang telah dibuat.
Script Unique
Untuk
button Filter dan Atur warna:
T946110038_Click
T1046110038_Click
Even
TextChanged
CheckedChanged
Property
Property TextBox =>ReadOnly=True
Cara Membuat Form
Latihan_14_46110038:
1. Buka project yang telah
dibuat.
2. pilih Add New Item pada
Microsoft Visual Studio 2005/ 2008
3. Setelah add new item
terbuka, pilih windows form, lalu ketik nama form dan add.
4.
Kemudian buat form seperti di bawah ini:
5. Setelah format untuk Latihan_14_46110038 sudah dibuat maka selanjutnya membuat listing
program pada jendela code:
Public
Class Latihan_14_46110038
Dim erma As New DataTable
Dim dvmaba As New DataView
Private Sub Latihan_14_46110038_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
erma.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
erma.Columns.Add(New DataColumn("NAMA",
GetType(String)))
erma.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
erma.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(Date)))
erma.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
erma.Columns.Add(New DataColumn("Kelas",
GetType(String)))
erma.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994",
3000000, "1AD4")
erma.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
erma.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
erma.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
erma.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
erma.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
erma.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
erma.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
erma.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
erma.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
erma.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
erma.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
erma.Rows.Add("46112014",
"Mariana", "P", "06/22/1994",
1000000, "1AD4")
erma.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
erma.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
erma.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
erma.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
erma.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
erma.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
erma.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
erma.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
erma.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
erma.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
erma.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
erma.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
erma.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
erma.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
erma.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
erma.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
erma.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
erma.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
erma.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
erma.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
erma.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
erma.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
erma.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
erma.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
erma.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
erma.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
erma.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
erma.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
erma.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
erma.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
erma.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
erma.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
erma.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
erma.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
erma.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
erma.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
erma.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
erma.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
erma.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
erma.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
erma.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
erma.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
erma.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
erma.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
erma.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
erma.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
erma.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
erma.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
erma.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
erma.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
erma.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
erma.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
erma.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
2500000, "1AD3")
erma.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
2500000, "1AD3")
erma.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
erma.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
erma.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
erma.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
erma.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
erma.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
erma.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
erma.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
erma.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
erma.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
erma.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
erma.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
erma.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
erma.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
erma.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
erma.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
erma.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
erma.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
erma.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
erma.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
erma.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
erma.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
2500000, "1AD3")
erma.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
erma.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
erma.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
erma.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
erma.Rows.Add("36112019",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
erma.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
erma.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
erma.Rows.Add("36112028",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
erma.Rows.Add("36112038",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
erma.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
erma.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
erma.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
erma.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
erma.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
erma.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
erma.Rows.Add("36112040",
"Fibra Yoseph P", "P", "03/27/1995",
6000000, "1BD3")
erma.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
erma.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
erma.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
erma.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
erma.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
erma.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
erma.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
2000000, "1BD3")
erma.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
erma.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
erma.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
erma.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
erma.Rows.Add("36112043",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
erma.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
dvmaba = erma.DefaultView
Data46110038.DataSource = dvmaba
End Sub
Private Sub stambuk46110038_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
stambuk46110038.CheckedChanged
If
stambuk46110038.Checked = True Then
dvmaba.Sort = "STAMBUK"
End If
End Sub
Private Sub besar46110038_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
besar46110038.CheckedChanged
If
besar46110038.Checked = True Then
dvmaba.Sort = "KELAS desc"
End If
End Sub
Private Sub kecil46110038_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kecil46110038.CheckedChanged
If
kecil46110038.Checked = True Then
dvmaba.Sort = "KELAS , Tanggal Lahir"
End If
End Sub
Private Sub gaji46110038_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
gaji46110038.CheckedChanged
If
gaji46110038.Checked = True Then
dvmaba.Sort = "Gaji Ortu desc"
End If
End Sub
Private Sub t146110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
T146110038.TextChanged
dvmaba.RowFilter = "[Gaji Ortu]>=" &
Val(T146110038.Text)
End Sub
Private Sub T246110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
T246110038.TextChanged
dvmaba.RowFilter = "Kelas <> '" & T246110038.Text
& "'"
End Sub
Private Sub T346110038_ValueChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
T346110038.ValueChanged
dvmaba.RowFilter = "[TanggalLahir] < #" &
T346110038.Value.Date & "#"
End Sub
Private Sub T446110038_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
T446110038.TextChanged
dvmaba.RowFilter = " NAMA LIKE'% " & T446110038.Text
& "%'"
End Sub
Private Sub T946110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles T946110038.Click
dvmaba.RowFilter = "[GAJI ORTU]>=" &
Val(T546110038.Text) & " AND
[KELAS]<>'" & T646110038.Text & "'" & "
AND [TANGGALLAHIR] < #" & T746110038.Value.Month & "/" & T746110038.Value.Day & "/" & T746110038.Value.Year & "#" & "
NAMA LIKE '%" & T846110038.Text & "%'"
End Sub
Private Sub T1046110038_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles T1046110038.Click
For Each X As
DataGridViewRow In Data46110038.Rows
If
X.Cells("GAJI ORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
Label9.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
5000000 Then
X.DefaultCellStyle.BackColor =
Label10.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
Label11.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
Label12.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
Label13.BackColor
Else
X.DefaultCellStyle.BackColor =
Label13.BackColor
End
If
Next
End Sub
End
Class
Langkah untuk menjalankan Latihan_14_46110038:
1. Klik start debugging.
2. Pilih
sesuai
yang Anda
mau atau isi textbox yang berstatus input.
3. Hasil akan muncul secara otomatis
pada datagridview.
Tidak ada komentar:
Posting Komentar