DESKRIPSI FORM :
Pada Form latihan 14 ini terdapat Tujuh object yaitu GroupBox,
Label, TextBox, Button, DataGriedView, dan DateTimePicker.
Object GroupBox:
Pada form ini terdapat Empat item GroupBox yang berguna untuk menyatukan beberapa object toolbox dalam satu kategori
tertentu dan GroupBox ini bernama (Urutkan
Berdasarkan, Filter Berdasarkan, Filter dengan menggabungkan, dan Pengaturan
Warna).
Object Label :
Pada form ini terdapat delapan item yang bertuliskan (Gaji Orang tua lebih dari, Bukan kelas,
Tanggal lahir sebelum, dan Nama memiliki umur).
Object Textbox :
Pada form ini terdapat 12 textbox yaitu (enam status input dan enam berstatus Read Only). Status input digunakan untuk memasukkan data yang
diinginkan pada (Gaji Orang tua lebih
dari, Bukan kelas, Tanggal lahir sebelum, dan Nama memiliki umur), Sedangkan, Status Read Only ini digunakan untuk memberikan warna dalam DataGriedView berdasarkan warna yang
telah diguankan untuk gaji orang tua.
Object Button :
Pada form ini
terdapat Dua item Button yaitu pada GroupBox
Pertama Bertuliskan (Filter) Pada GroupBox Keempat(Atur Warna) yang dimana
Tombol Filter ini digunakan untuk menghasilkan data yang telah diinput ke dalam textbox yang
berada pada groupbox (Filter dengan menggabungkan). Tombol Atur Warna digunakan untuk menampilkan Warna dalam datagridview sesuai dengan wrna yang diberikan pada gaji orang tua
dalam groupbox (pengaturan warna).
Object DataGridView :
Pada form ini terdapat satu objek DataGridView yang berfungsi untuk menampilkan semua data maba yang berada dalam rumus yang telah dimasukkan.
Object DateTimePicker:
Pada form ini terdapat Dua object DateTimePicker yang digunakan untuk menentukan tanggal,bulan, dan
Tahun kelahiran Maba.
Object RadioButton
:
Pada form ini terdapat Empat object Radiobutton yang digunakan untuk pengelompokan berdasarkan
kelompok-kelompok yang bernama (Urutkan Berdasarkan, Filter Berdasarkan, Filter
dengan menggabungkan, dan Pengaturan Warna).
1.
Cara Membuat From
Latihan 14 :
- Buatlah form baru dengan langkah atau cara yang sama dengan form-form sebelumnya.
- Ubahlah nama form sesuai dengan urutan latihannya.
- Buatlah design form seperti pada gambar berikut ini :
4.Klik
kanan lalu pilih “View Code” ,setelah itu ketik rumus untuk menjalankan from
diatas.
Public Class Latihan_14_46110006
Dim FITRI As New DataTable
Dim DV As New DataView
Private Sub Latihan_14_46110006_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
FITRI.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
FITRI.Columns.Add(New DataColumn("Nama",
GetType(String)))
FITRI.Columns.Add(New DataColumn("Jenis
Kelamin", GetType(String)))
FITRI.Columns.Add(New DataColumn("Tanggal
Lahir", GetType(String)))
FITRI.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
FITRI.Columns.Add(New DataColumn("Kelas",
GetType(String)))
FITRI.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994",
3000000, "1AD4")
FITRI.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
FITRI.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
FITRI.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
FITRI.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
FITRI.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
FITRI.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
FITRI.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
FITRI.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
FITRI.Rows.Add("46112014",
"Mariana", "P", "06/22/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
FITRI.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
FITRI.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
FITRI.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
FITRI.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
FITRI.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112016",
"Dyah Sukma Anggraini", "P", "05/10/1994",
3500000, "1AD4")
FITRI.Rows.Add("46112010",
"Nur Indah Purnamasari", "P", "07/22/1994",
2500000, "1AD4")
FITRI.Rows.Add("46112012",
"Nurul Qadri Musra", "L", "08/24/1994",
3000000, "1AD4")
FITRI.Rows.Add("46112055",
"Reni Anggraeni", "P", "10/12/1994",
1500000, "1BD4")
FITRI.Rows.Add("46112042",
"Faradhiba Zainal Putri", "P", "12/04/1993",
3000000, "1BD4")
FITRI.Rows.Add("46112054",
"Rahmi Ani", "P", "11/30/1994",
2000000, "1BD4")
FITRI.Rows.Add("46112043",
"Remon Agit Rimang", "L", "01/06/1995",
3000000, "1BD4")
FITRI.Rows.Add("46112032",
"Abd. Rahman", "L", "10/08/1994",
1500000, "1BD4")
FITRI.Rows.Add("46112057",
"I Ketut Yuda Sadpwa", "L", "05/02/1993",
4500000, "1BD4")
FITRI.Rows.Add("46112037",
"Herianto", "L", "12/08/1993",
3000000, "1BD4")
FITRI.Rows.Add("46112058",
"citra amalia ramadhani", "L", "02/16/1995",
3000000, "1BD4")
FITRI.Rows.Add("46112050",
"Andi Akbar", "L", "11/26/1994",
2000000, "1BD4")
FITRI.Rows.Add("46112034",
"Gamaliel Giovani Rafael Nong", "L", "08/06/1993",
3700000, "1BD4")
FITRI.Rows.Add("46112047",
"Hasmawati", "P", "11/22/1994",
5000000, "1BD4")
FITRI.Rows.Add("46112038",
"Viorensi S", "P", "10/13/1994",
2000000, "1BD4")
FITRI.Rows.Add("46112046",
"Andini Hayrunnisyah", "P", "06/27/1994",
1500000, "1BD4")
FITRI.Rows.Add("46112031",
"Irmayanti", "P", "05/02/1994",
1000000, "1BD4")
FITRI.Rows.Add("46112039",
"Carissa Evan Anthen", "P", "10/23/1994",
6000000, "1BD4")
FITRI.Rows.Add("46112052",
"Aprianto Sandy", "L", "04/11/1993",
3000000, "1BD4")
FITRI.Rows.Add("46112049",
"Muhammad Farid Syah", "L", "01/20/1995",
5000000, "1BD4")
FITRI.Rows.Add("46112033",
"Maulanan Ibrahim", "L", "04/10/1994",
1000000, "1BD4")
FITRI.Rows.Add("46112035",
"Herpita Tohura", "P", "10/24/1993",
700000, "1BD4")
FITRI.Rows.Add("46112048",
"Udin Pranata", "L", "01/29/1993",
1000000, "1BD4")
FITRI.Rows.Add("46112051",
"Afrisca Fraktiani Rante", "P", "04/13/1995",
5000000, "1BD4")
FITRI.Rows.Add("46112056",
"Kartini Widyasita", "P", "04/21/1993",
4650000, "1BD4")
FITRI.Rows.Add("46112045",
"Abdul Qawwam Nurjaya", "L", "11/26/1994",
3500000, "1BD4")
FITRI.Rows.Add("46112040",
"Tommy Paunganan", "L", "02/22/1993",
2000000, "1BD4")
FITRI.Rows.Add("46112053",
"Khusnul Khatimah A", "P", "08/27/1994",
3000000, "1BD4")
FITRI.Rows.Add("46112041",
"Nida Hazimah Ulfah", "P", "09/24/1995",
5000000, "1BD4")
FITRI.Rows.Add("46112044",
"Ulfah Nas", "P", "01/26/1994",
5000000, "1BD4")
FITRI.Rows.Add("46112036",
"Hasmiati Hajar", "P", "05/17/1994",
5000000, "1BD4")
FITRI.Rows.Add("36112001",
"Fitri", "P",
"10/20/1994", 5000000, "1AD3")
FITRI.Rows.Add("36112002",
"andri prianto tukan", "L", "04/26/1994",
2000000, "1BD3")
FITRI.Rows.Add("36112003",
"Fathin Ammar Asidik", "L", "06/29/1994",
6800000, "1AD3")
FITRI.Rows.Add("36112004",
"Endah Mariadi", "P", "11/07/1994",
7500000, "1AD3")
FITRI.Rows.Add("36112005",
"Mawar Aztanti", "P", "06/01/1993",
4000000, "1AD3")
FITRI.Rows.Add("36112006",
"Izmi Istiqamah", "P", "11/04/1994",
7000000, "1AD3")
FITRI.Rows.Add("36112007",
"Imran Novrin Ruslim", "L", "11/21/1994",
1000000, "1AD3")
FITRI.Rows.Add("36112008",
"Adbul Malik", "L", "11/09/1993",
2500000, "1AD3")
FITRI.Rows.Add("36112010",
"Yulianti", "P", "09/28/1994",
2500000, "1AD3")
FITRI.Rows.Add("36112011",
"Zulfitra Qadar Yasin", "L", "03/10/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112012",
"Sri Aprianti", "P", "04/05/1994",
4000000, "1AD3")
FITRI.Rows.Add("36112013",
"Noviantri Paembonan", "P", "11/19/1994",
6000000, "1AD3")
FITRI.Rows.Add("36112016",
"Andi Jusma Nilam Sari", "P", "09/02/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112017",
"Dana Abrian", "L", "10/05/1994",
5000000, "1AD3")
FITRI.Rows.Add("36112018",
"Kurniawati", "P", "10/11/1994",
2000000, "1AD3")
FITRI.Rows.Add("36112020",
"Bernard Talebong", "P", "10/01/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112023",
"Andi Arhami Hamzah", "P", "06/28/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112024",
"Syahrul Kamal", "L", "10/18/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112027",
"Nurul Rezki Susanti", "P", "09/24/1994",
5000000, "1AD3")
FITRI.Rows.Add("36112059",
"Ummul Hayyul Qayyum", "P", "12/01/1993",
3500000, "1AD3")
FITRI.Rows.Add("36112022",
"Rismawati", "P", "09/07/1994",
900000, "1AD3")
FITRI.Rows.Add("36112026",
"Melinda Rizkawati", "P", "05/07/1994",
2000000, "1AD3")
FITRI.Rows.Add("36112025",
"Ivana Olivia Aser", "P", "01/14/1993",
6000000, "1AD3")
FITRI.Rows.Add("36112021",
"Sulaipah", "P", "09/28/1994",
1000000, "1AD3")
FITRI.Rows.Add("36112061",
"Rahmat Adi Pratama", "L", "04/21/1994",
10000000, "1AD3")
FITRI.Rows.Add("36112060",
"Nita", "P",
"01/04/1995", 2500000, "1AD3")
FITRI.Rows.Add("36112019",
"Kharisma Yusuf", "P", "06/14/1994",
4000000, "1AD3")
FITRI.Rows.Add("36112014",
"A. Rahmawaty", "P", "04/04/1994",
5000000, "1AD3")
FITRI.Rows.Add("36112015",
"Danela Mangintek", "P", "11/06/1994",
3000000, "1AD3")
FITRI.Rows.Add("36112009",
"Rahmaniah", "P", "01/19/1994",
2500000, "1AD3")
FITRI.Rows.Add("36112057",
"Reenaldy Alchudri Azsagaf", "L", "05/03/1994",
10000000, "1BD3")
FITRI.Rows.Add("36112039",
"Andi Syahril", "L", "10/02/1994",
2000000, "1BD3")
FITRI.Rows.Add("36112051",
"Muhammad Adhe Anugrah", "L", "08/31/1993",
5000000, "1BD3")
FITRI.Rows.Add("36112042",
"Sukmawati Amir", "P", "04/13/1994",
6000000, "1BD3")
FITRI.Rows.Add("36112019",
"Dian Eka Puteri", "P", "11/11/1993",
1000000, "1BD3")
FITRI.Rows.Add("36112048",
"Tri Wahyuni", "P", "11/11/1994",
800000, "1BD3")
FITRI.Rows.Add("36112047",
"A. Dian Pelita Waty", "P", "05/05/1994",
3000000, "1BD3")
FITRI.Rows.Add("36112028",
"Mu'minat Nur", "P", "05/17/1995",
5000000, "1BD3")
FITRI.Rows.Add("36112038",
"Andi Anggi Fadliyah", "P", "08/15/1994",
1500000, "1BD3")
FITRI.Rows.Add("36112033",
"A. Syasya Annisa Ausan", "P", "08/08/1994",
7000000, "1BD3")
FITRI.Rows.Add("36112044",
"Muhammad Fachri Sani", "L", "02/02/1994",
5000000, "1BD3")
FITRI.Rows.Add("36112053",
"Resky Yonada Ahmad", "P", "03/22/1994",
1500000, "1BD3")
FITRI.Rows.Add("36112029",
"Trinayanti", "P", "06/03/1992",
3000000, "1BD3")
FITRI.Rows.Add("36112041",
"Musyarafah Asis", "L", "07/13/1994",
6000000, "1BD3")
FITRI.Rows.Add("36112055",
"Achmad Rezky Satria Perdana", "L", "12/17/1993",
3000000, "1BD3")
FITRI.Rows.Add("36112040",
"Fibra Yoseph P", "P", "03/27/1995",
6000000, "1BD3")
FITRI.Rows.Add("36112045",
"Ibnu Affan Al-Mufar'id", "L", "08/05/1994",
8000000, "1BD3")
FITRI.Rows.Add("36112030",
"Sri Widya Ayu Wandini", "P", "06/01/1994",
5000000, "1BD3")
FITRI.Rows.Add("36112046",
"Sri Wahyuni Hafid", "P", "12/25/1994",
11000000, "1BD3")
FITRI.Rows.Add("36112032",
"Rosita Satri", "P", "12/06/1994",
3000000, "1BD3")
FITRI.Rows.Add("36112052",
"Sabri", "L",
"07/24/1993", 700000, "1BD3")
FITRI.Rows.Add("36112049",
"Alfin Riani Bandaso", "P", "04/11/1994",
3000000, "1BD3")
FITRI.Rows.Add("36112036",
"Nurmilasari", "P", "07/06/1993",
2000000, "1BD3")
FITRI.Rows.Add("36112035",
"Tri Arismunandar", "L", "12/09/1993",
1000000, "1BD3")
FITRI.Rows.Add("36112031",
"Nur Indahsari Idris", "P", "08/28/1994",
5000000, "1BD3")
FITRI.Rows.Add("36112037",
"Ismawati", "P", "08/01/1994",
900000, "1BD3")
FITRI.Rows.Add("36112034",
"Rezky Arianti", "P", "01/27/1994",
3000000, "1BD3")
FITRI.Rows.Add("36112043",
"Artis Susan", "P", "10/29/1993",
5000000, "1BD3")
FITRI.Rows.Add("36112054",
"Ade Apriathis Rantelino", "L", "04/27/1994",
3000000, "1BD3")
DV = FITRI.DefaultView
DTG_46110006.DataSource = DV
End Sub
Private Sub T1_46110006_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
T1_46110006.CheckedChanged
If
T1_46110006.Checked = True Then
DV.Sort = "Stambuk"
End If
End Sub
Private Sub T2_46110006_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
T2_46110006.CheckedChanged
If
T2_46110006.Checked = True Then
DV.Sort = "kelas
desc"
End If
End Sub
Private Sub T3_46110006_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
T3_46110006.CheckedChanged
If
T3_46110006.Checked = True Then
DV.Sort = "kelas,tanggal
Lahir"
End If
End Sub
Private Sub T4_46110006_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
T4_46110006.CheckedChanged
If
T4_46110006.Checked = True Then
DV.Sort = "Gaji
Ortu desc"
End If
End Sub
Private Sub F1_46110006_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
F1_46110006.TextChanged
DV.RowFilter = "[Gaji
Ortu]>=" & Val(F1_46110006.Text)
End Sub
Private Sub F2_46110006_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
F2_46110006.TextChanged
DV.RowFilter = "Kelas
<> '" & F2_46110006.Text & "'"
End Sub
Private Sub DTP_46110006_ValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
DTP_46110006.ValueChanged
DV.RowFilter = "[Tanggal
Lahir] < #" & DTP_46110006.Value.Date & "#"
End Sub
Private Sub F3_46110006_TextChanged(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles
F3_46110006.TextChanged
DV.RowFilter = "nama
like '%" & F3_46110006.Text & "%'"
End Sub
Private Sub FIL_46110006_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles FIL_46110006.Click
DV.RowFilter = "[Gaji
ortu] > " & Val(F1_46110006.Text) & " and kelas <>" & "'" & F2_46110006.Text & "'" & "and
[tanggal lahir] < #" & DTP1_46110006.Value.Month & "/" & DTP1_46110006.Value.Day & "/" & DTP1_46110006.Value.Year &
"#" & "
and nama like '%" & G3_46110006.Text & "%'"
End Sub
Private Sub AW_46110006_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles AW_46110006.Click
For Each FITRI1 As
DataGridViewRow In DTG_46110006.Rows
If
FITRI1.Cells("gaji ortu").Value
> 6000000 Then
FITRI1.DefaultCellStyle.BackColor
= KUN_46110006.BackColor
ElseIf
FITRI1.Cells("gaji ortu").Value
> 5000000 Then
FITRI1.DefaultCellStyle.BackColor = HJ_46110006.BackColor
ElseIf
FITRI1.Cells("gaji ortu").Value
> 4000000 Then
FITRI1.DefaultCellStyle.BackColor = BIR_46110006.BackColor
ElseIf
FITRI1.Cells("gaji ortu").Value
> 3000000 Then
FITRI1.DefaultCellStyle.BackColor = BI_46110006.BackColor
ElseIf
FITRI1.Cells("gaji ortu").Value
> 2000000 Then
FITRI1.DefaultCellStyle.BackColor = UNG_46110006.BackColor
Else
FITRI1.DefaultCellStyle.BackColor = MER_46110006.BackColor
End
If
Next
End Sub
End Class
5. Setelah script selesai Klik start debugging.
·
Data akan secara otomatis muncul pada object
datagridview. Untuk memfilter data yang ada di dalam datagridview pilihlah Radio Button, atau masukkan syarat pada groupbox dan klik button filter , atau jika anda ingin
mengelompokkan berdasarkan gaji orang tua yang di tunjukkan dengan warna maka
klik button atur warna.
Script Unique
Untuk membuat data tabel
Dim tabel As New
DataTable
Membuat kolom pada data tabel
tabel.Columns.Add(New
DataColumn("no. pembelian", GetType(String)))
tabel.Columns.Add(New
DataColumn("nama barang", GetType(String)))
Membuat data source
ISI_46110006.DataSource
= DV
Menginput data
DTMABA.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
DTMABA.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
Mengurutkan data berdasarkan perintah
If STB_46110006.Checked
= True Then
DV.Sort = "Stambuk"
End If
Memfilter data berdasarkan perintah
DV.RowFilter =
"[Gaji Ortu] > " & Val(GOTLD_46110006.Text)
Memfilter data dengan lebih dari satu kriteria sekaligus
DV.RowFilter
= "[Gaji ortu] > " &
Val(F1_46110006.Text) & " and kelas
<>" & "'"
& F2_46110006.Text & "'"
& "and [tanggal lahir] < #"
& DTP1_46110006.Value.Month & "/"
& DTP1_46110006.Value.Day & "/"
& DTP1_46110006.Value.Year & "#"
& " and nama like '%" &
G3_46110006.Text & "%'"
Memberi warna di setiap klasifikasi gaji orang tua (telah
ditentukan)
If FITRI1.Cells("gaji ortu").Value
> 6000000 Then
FITRI1.DefaultCellStyle.BackColor =
KUN_46110006.BackColor
Even
ButtonClick
TextChanged
CheckedChanged
Load
ValueChanged
Property TextBox => ReadOnly =
True
Property TextBox => BackColor
Langkah-Langkah Menjalankan Form
Latihan 14 :
- Untuk menjalankan perintah pada GroupBox 1 (urutkan berdasarkan) pilih salah satu perintah dengan meng-klik perintah yang diinginkan. Datagrideview akan menampilkan tabel sesuai perintah.
- Untuk menjalankan perintah pada GroupBox 2 (filter berdasarkan) input data pada textbox yang tersedia. Datagrideview akan menampilkan tabel sesuai perintah yang telah diinput.
- Untuk menjalankan perintah pada GroupBox 3 (filter dengan menggabungkan) input data pada semua textbox yang tersedia, kemudian klik tombol “Filter”. Datagrideview akan menampilkan tabel sesuai perintah yang diinput.
- Untuk menjalankan perintah pada GroupBox 4 (pengaturan warna) cukup dengan meng-klik tombol “Atur Warna”. Tabel akan berwarna sesuai klasifikasi gaji.
Tidak ada komentar:
Posting Komentar