Deskripsi
Form Latihan 14
Pada latihan 14
terdapat 7 Object yaitu Label; DateTimePicker; TextBox; GroupBox; Checkbox, DataGridView dan Button.
Object Label
Terdapat 8 Label
yaitu 2 label Gaji Orang Tua Lebih Dari; 2 label Bukan Kelas; 2
label Tanggal Lahir Sebelum; 2 label Nama Memiliki Unsur.
Object DateTimePicker
Terdapat 2
DateTimepicker yaitu “Tanggal Lahir Sebelum” pada groupBox Filter berdasarkan
dan “Tanggal Lahir Sebelum” pada groupbox Filter Dengan Menggabungkan.
Object
TextBox
Terdapat 12
Textbox, 6 textbox
berstatus input yaitu “Gaji Orang Tua Lebih Dari; Bukan Kelas dan Nama
Memiliki Unsur” masing-masing berada di groupbox Filter berdasarkan dan Filter
Dengan Gabungan. 6 textbox lainnya berada pada groupbox Pengaturan Warna yaitu
Gaji Ortu >= 6000000; Gaji Ortu >= 5000000; Gaji Ortu >= 4000000; Gaji
Ortu >= 3000000; Gaji Ortu >= 2000000; Selain itu.
Object GroupBox
Terdapat 4
GroupBox, yaitu:
1. Urutkan Berdasarkan,
isi groupbox ini adalah Checkbox yaitu Stambuk; Kelas (Besar -> Kecil);
Kelas (Kecil -> Besar) Tanggal Lahir (Kecil -> Besar) dan Gaji Orang Tua
(Besar -> Kecil)
2. Filter Berdasarkan,
isi groupbox ini adalah Label (Gaji Orang Tua Lebih Dari; Bukan Kelas; Tanggal
Lahir Sebelum; Nama Memiliki Unsur) dan DateTimePicker (Tanggal Lahir Sebelum).
3. Filter Dengan
Menggabungkan, isi groupbox ini sama adalah Label (Gaji Orang Tua Lebih Dari;
Bukan Kelas; Tanggal Lahir Sebelum; Nama Memiliki Unsur); DateTimePicker (Tanggal Lahir Sebelum) dan Button (Filter).
4. Pengaturan Warna, isi
groupbox ini adalah Textbox (Gaji Ortu >= 6000000; Gaji Ortu >= 5000000;
Gaji Ortu >= 4000000; Gaji Ortu >= 3000000; Gaji Ortu >= 2000000;
Selain itu) dan Button (Atur Warna).
Object Checkbox
Terdapat 4 checkbox yaitu Stambuk; Kelas (Besar ->
Kecil); Kelas (Kecil -> Besar) Tanggal Lahir (Kecil -> Besar) dan Gaji
Orang Tua (Besar -> Kecil), jika checkbox di check maka data dalam DataGridView
akan menampilkan data sesuai dengan kriteria yang dicheck tersebut.
Object
DataGridView
Terdapat 1
DataGridView yaitu pada GroupBox Data yang berfungsi untuk menampilkan data
yang telah disimpan.
Object Button
Terdapat 2 Button
yaitu:
Tombol Filter pada
GroupBox Filter Dengan Menggunakan, fungsi tombol ini adalah ketika di click akan
menampilkan data yang sesuai dengan data yang di input di textbox input yang
masih dalam group yang sama.
Tombol Atur Warna pada
GroupBox Pengaturan Warna gunanya adalah ketika tombol ini diclick maka data
yang ada dalam DataGridView akan berubah Warnanya dari putih menjadi
berwarna-warni sesuai dengan warnah dari kriteria gaji.
Script Unique
*Membuat Data View Baru
Dim DV As New DataView
*Menentukan Data yang akan di View oleh Dataview
DV = INNA.DefaultView
Inna adalah nama datatable
*Memasukkan data kedalam DataTable
INNA.Rows.Add("46112003", "Nurawalia
M", "P", "12/04/1994", 3000000, "1AD4")
INNA.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
Yang warna hijau dalah data yang dimasukkan dalam table
*Menentukan penampilan data berdasarkan apa yang diinginkan
If
Stb46110037.Checked = True Then
DV.Sort = "Stambuk"
End If
Artinya adalah
ketika stambuk diklik maka akan menampilkan data berdasarkan stambuk
Even
TextChanged; Click dan Check
Property
Property Textbox=> Backcolor (pilih warnah yang disukai)
Langkah-Langkah
Menjalankan Form
- Check kriteria yang diinginkan pada GroupBox berdasarkan, maka data dalam DataGridView akan menampilkan data berdasarkan kriteria yang dicheck.
- Input kriteria di textbox atau DateTimePicker yang berada pada groupbox “Filter Berdasarkan” maka secara otormatis data akan ditampilkan berdasarkan kriteria yang diinput.
- Input kriteria pada semua atau beberapa textboxt dan DateTimePicker yang berada pada groupbox “Filter Dengan Menggabungkan”, kemudian click tombl filter, maka data yang tampil pada DataGridView hanya berdasarkan kriteria yang dimasukkan.
- Click Atur Warna, maka data dalam DataGridView akan berubah warna sesuai dengan warna kriteria gaji yang telah diatur.
Langkah-langkah
Menyelesaikan Form
- Buka project yang telah dibuat.
- Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
- Buat desain form seperti gambar di atas dengan menggunakan Label; DateTimePicker; TextBox; GroupBox; Checkbox, DataGridView dan Button.
- Ganti nama DateTimePicker; TextBox; GroupBox; Checkbox, DataGridView dan Button di properties-Name
- Ganti warna Textbox di properties lalu pilih backcolor (sesuaikan dengan keinginan).
- Click Kanan lalu pilih View Code kemudian buatlah Script seperti di bawah ini:
Dim INNA As
New DataTable
Dim DV As New DataView
----------------------------------------------------------------------------
Private Sub LATIHAN_14_46110037_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
INNA.Columns.Add(New DataColumn("Stambuk",
GetType(String)))
INNA.Columns.Add(New DataColumn("Nama",
GetType(String)))
INNA.Columns.Add(New DataColumn("JenisKelamin",
GetType(String)))
INNA.Columns.Add(New DataColumn("TanggalLahir",
GetType(Date)))
INNA.Columns.Add(New DataColumn("Gaji
Ortu", GetType(Double)))
INNA.Columns.Add(New DataColumn("Kelas",
GetType(String)))
INNA.Rows.Add("46112003",
"Nurawalia M", "P", "12/04/1994",
3000000, "1AD4")
INNA.Rows.Add("46120023",
"Puspita Susilawati Ridjal", "P", "01/01/1994",
4000000, "1AD4")
INNA.Rows.Add("46110018",
"Rose Anne Tarida Situmorang", "P", "12/01/1994",
5000000, "1AD4")
INNA.Rows.Add("46112004",
"Siti Khaerunnisa", "P", "03/28/1994",
1000000, "1AD4")
INNA.Rows.Add("46112015",
"Irmayanti", "P", "09/23/1994",
1000000, "1AD4")
INNA.Rows.Add("46112011",
"Delsi Tifani Lan", "P", "12/24/1994",
2000000, "1AD4")
INNA.Rows.Add("46112027",
"Reny Rita Waty Djafar", "P", "07/26/1993",
3000000, "1AD4")
INNA.Rows.Add("46112002",
"Dewi Sartika", "P", "02/10/1994",
1000000, "1AD4")
INNA.Rows.Add("46112004",
"Anita Rahmah Muhtadin", "P", "12/07/1994",
5000000, "1AD4")
INNA.Rows.Add("46112021",
"Rafidah", "P", "06/05/1994",
500000, "1AD4")
INNA.Rows.Add("46112009",
"Eka Yuli Astuti", "P", "08/07/1994",
2000000, "1AD4")
INNA.Rows.Add("46112025",
"Fitri Amalia Islamiati", "P", "03/26/1995",
4000000, "1AD4")
INNA.Rows.Add("46112014",
"Mariana", "P", "06/22/1994",
1000000, "1AD4")
INNA.Rows.Add("46112013",
"A. Muh. Lutfi Ahmad", "L", "10/10/1993",
4000000, "1AD4")
INNA.Rows.Add("46112008",
"Nanda Ardilia Pratama", "L", "08/01/1994",
1000000, "1AD4")
INNA.Rows.Add("46112022",
"Liliani Paelongan", "P", "05/25/1994",
3000000, "1AD4")
INNA.Rows.Add("46112007",
"Andi Rabiah", "L", "09/07/1994",
1000000, "1AD4")
INNA.Rows.Add("46112001",
"Rizka Awalia Mustakim", "P", "10/07/1994",
3000000, "1AD4")
INNA.Rows.Add("46112005",
"Mardhotillah", "P", "01/13/1994",
3000000, "1AD4")
INNA.Rows.Add("46112017",
"Camelia Indulgenssya Gundung", "P", "09/14/1994",
2000000, "1AD4")
INNA.Rows.Add("46112028",
"Nur Salim Rusdi", "L", "04/12/1994",
1500000, "1AD4")
INNA.Rows.Add("46112026",
"Muhammad Khaidir", "L", "12/26/1993",
3000000, "1AD4")
INNA.Rows.Add("46112020",
"Sukriani Karunia Rahma", "P", "12/01/1994",
3000000, "1AD4")
INNA.Rows.Add("46112006",
"Rezky Tri Utami", "P", "07/03/1994",
3000000, "1AD4")
INNA.Rows.Add("46112029",
"Azwar Arfah", "L", "04/03/1994",
3000000, "1AD4")
DV = INNA.DefaultView
DGV46110037.DataSource = DV
End Sub
- Untuk Perintah Urutkan Berdasarkan,scriptnya sebagai berikut:
Private Sub
Stb46110037_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Stb46110037.CheckedChanged
If
Stb46110037.Checked = True Then
DV.Sort = "Stambuk"
End If
End Sub
---------------------------------------------------------------------------
Private Sub KBK46110037_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KBK46110037.CheckedChanged
If
KBK46110037.Checked = True Then
DV.Sort = "kelas
desc"
End If
End Sub
---------------------------------------------------------------------------
Private Sub KKBTgl46110037_CheckedChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KKBTgl46110037.CheckedChanged
If
KKBTgl46110037.Checked = True Then
DV.Sort = "kelas,tanggalLahir"
End If
End Sub
---------------------------------------------------------------------------
Private Sub
Gaji46110037_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Gaji46110037.CheckedChanged
If
Gaji46110037.Checked = True Then
DV.Sort = "GajiOrtu
desc"
End If
End Sub
- Untuk Perintah Filter Berdasarkan,scriptnya sebagai berikut:
Private Sub GOTLD146110037_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
GOTLD146110037.TextChanged
DV.RowFilter = "[Gaji
Ortu]>=" & Val(GOTLD146110037.Text)
End Sub
---------------------------------------------------------------------------
Private Sub BukKls146110037_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
BukKls146110037.TextChanged
DV.RowFilter = "Kelas
<> '" & BukKls146110037.Text & "'"
End Sub
---------------------------------------------------------------------------
Private Sub TglLahir146110037_ValueChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
TglLahir146110037.ValueChanged
DV.RowFilter = "
TanggalLahir <#" & TglLahir146110037.Value.Date & "#"
End Sub
---------------------------------------------------------------------------
Private Sub UnsurNm146110037_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
UnsurNm146110037.TextChanged
DV.RowFilter = "
AND NAMA LIKE'% " & UnsurNm146110037.Text & "%'"
End Sub
- Untuk Perintah Filter Dengan Menggabungkan,scriptnya sebagai berikut:
Private Sub
Filter46110037_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Filter46110037.Click
DV.RowFilter = "[GAJI
ORTU]>=" & Val(GOTLD246110037.Text) & " AND [KELAS] <>'" &
BukKls246110037.Text & "'"
& " AND NAMA LIKE '%" &
UnsurNm246110037.Text & "%'"
& " AND [TANGGALLAHIR] <#"
& TglLahir246110037.Value.Month & "/"
& TglLahir246110037.Value.Day & "/"
& TglLahir246110037.Value.Year & "#"
End Sub
- Untuk Perintah Pengaturan Warna,scriptnya sebagai berikut:
Private Sub
Warna46110037_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Warna46110037.Click
For Each X As
DataGridViewRow In DGV46110037.Rows
If
X.Cells("GAJI ORTU").Value >
6000000 Then
X.DefaultCellStyle.BackColor =
GJ646110037.BackColor
ElseIf
X.Cells("GAJI ORTU").Value > 5000000
Then
X.DefaultCellStyle.BackColor =
GJ546110037.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
4000000 Then
X.DefaultCellStyle.BackColor =
GJ446110037.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
3000000 Then
X.DefaultCellStyle.BackColor =
GJ346110037.BackColor
ElseIf
X.Cells("GAJI ORTU").Value >
2000000 Then
X.DefaultCellStyle.BackColor =
GJ246110037.BackColor
Else
X.DefaultCellStyle.BackColor =
LAINNYA46110037.BackColor
End
If
Next
End Sub
- Selesai, click Start Debugging untuk menjalankan
program.
Tidak ada komentar:
Posting Komentar