Latihan Apkom 4

Minggu, 07 Oktober 2012

Latihan_20_46110055

Deskripsi Latihan 20

Pada form latihan 20 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneks i:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter :
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", connect)

Mengisi datatable ke database :
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai :
feby.Dispose()

Even
Load

Cara membuat Latihan 20:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 20”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.
7. Pilih menu “view” klik “code”.

8. Masukkan rumus berikut :

Public Class Latihan_20_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim fb As New DataTable
Private Sub Latihan_20_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()

End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_19_46110055

Deskripsi Latihan 19

Pada form latihan 19 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi :
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter :
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", connect)

Mengisi datatable ke database :
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai :
feby.Dispose()

Even
Load

Cara membuat Latihan 19:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 19”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :

Public Class Latihan_19_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Dim fb As New DataTable
Private Sub Latihan_19_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()
End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_18_46110055

Deskripsi Latihan 18

Pada form latihan 18 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)

Mengisi datatable ke database:
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai:
feby.Dispose()

Even
Load

Cara membuat Latihan 18:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 18”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :

Public Class Latihan_18_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Dim fb As New DataTable
Private Sub Latihan_18_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()
End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_17_46110055

Deskripsi Latihan 17

Pada form latihan 17 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)

Mengisi datatable ke database:
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai:
feby.Dispose()

Even
Load

Cara membuat Latihan 17:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 17”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :

Public Class Latihan_17_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Dim fb As New DataTable
Private Sub Latihan_17_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from mastertransaksi", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()
End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_16_46110055

Deskripsi Latihan 16

Pada form latihan 16 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)

Mengisi datatable ke database:
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai:
feby.Dispose()

Even
Load

Cara membuat Latihan 16:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 16”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :

Public Class Latihan_16_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Dim fb As New DataTable
Private Sub Latihan_16_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from detailtransaksi", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()
End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :

Latihan_15_46110055

Deskripsi Latihan 15

Pada form latihan 15 ini, hanya terdapat satu object, yaitu object DataGridView .

Script Unique

Membuat koneksi:
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source = " & Application.StartupPath & "\datatransaksijualbeli.accdb")

Membuat Adapter:
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from barang", connect)

Mengisi datatable ke database:
feby.Fill(fb)
dgv46110055.DataSource = fb

Menghancurkan adapter yg telah dipakai:
feby.Dispose()

Even
Load

Cara membuat Latihan 15:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 15”

6. Setelah itu ganti nama design yang diakhiri nim anda pada object DataGriedView.

7. Pilih menu “view” klik “code”.
8. Masukkan rumus berikut :

Public Class Latihan_15_46110055
Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source = " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim fb As New DataTable

Private Sub Latihan_15_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim feby As New OleDb.OleDbDataAdapter
feby = New OleDb.OleDbDataAdapter("select * from barang", connect)
fb.Rows.Clear()
feby.Fill(fb)
dgv46110055.DataSource = fb
feby.Dispose()

End Sub
End Class

9. klik start debugging.

10. Maka akan muncul hasil seperti dibawah ini :

latihan_14_46110055

Deskripsi Latihan 14

Pada form latihan 14 terdapat 7 object yang digunakan yaitu Label, Text Box, Button, Date Time Picker, Radio Button, Data Grid View dan Group Box.

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").

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".

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.

Object DateTimePicker
Pada form ini terdapat dua object datetimepicker yang digunakan dalam memfilter data tabel yang ada di datagridview.

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).

Object DataGridView
Pada form ini terdapat satu objeck datagridview yang digunakan untuk menampilkan data tabel yang telah dibuat.

Object GroupBox
Terdapat 4 object groupbox pada latihan 14 ("urutkan berdasarkan", "filter berdasarkan", "filter dengan menggabungkan" dan "pengaturan warna").

Script Unique
Untuk memfilter :
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)

Untuk mengatur warna :
For Each X As DataGridViewRow In dgv46110055.Rows
If X.Cells("Gaji Ortu").Value > 6000000 Then
X.DefaultCellStyle.BackColor = biru46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
X.DefaultCellStyle.BackColor = kuning46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
X.DefaultCellStyle.BackColor = merah46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
X.DefaultCellStyle.BackColor = ungu46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
X.DefaultCellStyle.BackColor = hijau46110055.BackColor
Else
X.DefaultCellStyle.BackColor = tosca46110055.BackColor
End If
Next
End Sub

Even
CheckedChanged
ButtonClick
Load
Valuechanged

Property
Property TextBox ==> ReadOnly=True

Cara membuat Latihan 14:

1. Buka Microsoft Visual Studio 2008
2. Setelah itu pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME” (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 14”

6. Setelah itu beri teks pada label, group box, DateTimePicker, RadioButton dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik “code”

8. Masukkan rumus berikut :

Public Class Latihan_14_46110055
Dim feby As New DataTable
Dim dvmaba As New DataView

Private Sub Latihan_14_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
feby.Columns.Add(New DataColumn("Stambuk", GetType(String)))
feby.Columns.Add(New DataColumn("NAMA", GetType(String)))
feby.Columns.Add(New DataColumn("Jenis Kelamin", GetType(String)))
feby.Columns.Add(New DataColumn("Tanggal Lahir", GetType(Date)))
feby.Columns.Add(New DataColumn("Gaji Ortu", GetType(Double)))
feby.Columns.Add(New DataColumn("Kelas", GetType(String)))

feby.Rows.Add("46112003", "Nurawalia M", "P", "12/04/1994", 3000000, "1AD4")
feby.Rows.Add("46120023", "Puspita Susilawati Ridjal", "P", "01/01/1994", 4000000, "1AD4")
feby.Rows.Add("46110018", "Rose Anne Tarida Situmorang", "P", "12/01/1994", 5000000, "1AD4")
feby.Rows.Add("46112004", "Siti Khaerunnisa", "P", "03/28/1994", 1000000, "1AD4")
feby.Rows.Add("46112015", "Irmayanti", "P", "09/23/1994", 1000000, "1AD4")
feby.Rows.Add("46112011", "Delsi Tifani Lan", "P", "12/24/1994", 2000000, "1AD4")
feby.Rows.Add("46112027", "Reny Rita Waty Djafar", "P", "07/26/1993", 3000000, "1AD4")
feby.Rows.Add("46112002", "Dewi Sartika", "P", "02/10/1994", 1000000, "1AD4")
feby.Rows.Add("46112004", "Anita Rahmah Muhtadin", "P", "12/07/1994", 5000000, "1AD4")
feby.Rows.Add("46112021", "Rafidah", "P", "06/05/1994", 500000, "1AD4")
feby.Rows.Add("46112009", "Eka Yuli Astuti", "P", "08/07/1994", 2000000, "1AD4")
feby.Rows.Add("46112025", "Fitri Amalia Islamiati", "P", "03/26/1995", 4000000, "1AD4")
feby.Rows.Add("46112014", "Mariana", "P", "06/22/1994", 1000000, "1AD4")
feby.Rows.Add("46112013", "A. Muh. Lutfi Ahmad", "L", "10/10/1993", 4000000, "1AD4")
feby.Rows.Add("46112008", "Nanda Ardilia Pratama", "L", "08/01/1994", 1000000, "1AD4")
feby.Rows.Add("46112022", "Liliani Paelongan", "P", "05/25/1994", 3000000, "1AD4")
feby.Rows.Add("46112007", "Andi Rabiah", "L", "09/07/1994", 1000000, "1AD4")
feby.Rows.Add("46112001", "Rizka Awalia Mustakim", "P", "10/07/1994", 3000000, "1AD4")
feby.Rows.Add("46112005", "Mardhotillah", "P", "01/13/1994", 3000000, "1AD4")
feby.Rows.Add("46112017", "Camelia Indulgenssya Gundung", "P", "09/14/1994", 2000000, "1AD4")
feby.Rows.Add("46112028", "Nur Salim Rusdi", "L", "04/12/1994", 1500000, "1AD4")
feby.Rows.Add("46112026", "Muhammad Khaidir", "L", "12/26/1993", 3000000, "1AD4")
feby.Rows.Add("46112020", "Sukriani Karunia Rahma", "P", "12/01/1994", 3000000, "1AD4")
feby.Rows.Add("46112006", "Rezky Tri Utami", "P", "07/03/1994", 3000000, "1AD4")
feby.Rows.Add("46112029", "Azwar Arfah", "L", "04/03/1994", 3000000, "1AD4")
feby.Rows.Add("46112016", "Dyah Sukma Anggraini", "P", "05/10/1994", 3500000, "1AD4")
feby.Rows.Add("46112010", "Nur Indah Purnamasari", "P", "07/22/1994", 2500000, "1AD4")
feby.Rows.Add("46112012", "Nurul Qadri Musra", "L", "08/24/1994", 3000000, "1AD4")
feby.Rows.Add("46112055", "Reni Anggraeni", "P", "10/12/1994", 1500000, "1BD4")
feby.Rows.Add("46112042", "Faradhiba Zainal Putri", "P", "12/04/1993", 3000000, "1BD4")
feby.Rows.Add("46112054", "Rahmi Ani", "P", "11/30/1994", 2000000, "1BD4")
feby.Rows.Add("46112043", "Remon Agit Rimang", "L", "01/06/1995", 3000000, "1BD4")
feby.Rows.Add("46112032", "Abd. Rahman", "L", "10/08/1994", 1500000, "1BD4")
feby.Rows.Add("46112057", "I Ketut Yuda Sadpwa", "L", "05/02/1993", 4500000, "1BD4")
feby.Rows.Add("46112037", "Herianto", "L", "12/08/1993", 3000000, "1BD4")
feby.Rows.Add("46112058", "citra amalia ramadhani", "L", "02/16/1995", 3000000, "1BD4")
feby.Rows.Add("46112050", "Andi Akbar", "L", "11/26/1994", 2000000, "1BD4")
feby.Rows.Add("46112034", "Gamaliel Giovani Rafael Nong", "L", "08/06/1993", 3700000, "1BD4")
feby.Rows.Add("46112047", "Hasmawati", "P", "11/22/1994", 5000000, "1BD4")
feby.Rows.Add("46112038", "Viorensi S", "P", "10/13/1994", 2000000, "1BD4")
feby.Rows.Add("46112046", "Andini Hayrunnisyah", "P", "06/27/1994", 1500000, "1BD4")
feby.Rows.Add("46112031", "Irmayanti", "P", "05/02/1994", 1000000, "1BD4")
feby.Rows.Add("46112039", "Carissa Evan Anthen", "P", "10/23/1994", 6000000, "1BD4")
feby.Rows.Add("46112052", "Aprianto Sandy", "L", "04/11/1993", 3000000, "1BD4")
feby.Rows.Add("46112049", "Muhammad Farid Syah", "L", "01/20/1995", 5000000, "1BD4")
feby.Rows.Add("46112033", "Maulanan Ibrahim", "L", "04/10/1994", 1000000, "1BD4")
feby.Rows.Add("46112035", "Herpita Tohura", "P", "10/24/1993", 700000, "1BD4")
feby.Rows.Add("46112048", "Udin Pranata", "L", "01/29/1993", 1000000, "1BD4")
feby.Rows.Add("46112051", "Afrisca Fraktiani Rante", "P", "04/13/1995", 5000000, "1BD4")
feby.Rows.Add("46112056", "Kartini Widyasita", "P", "04/21/1993", 4650000, "1BD4")
feby.Rows.Add("46112045", "Abdul Qawwam Nurjaya", "L", "11/26/1994", 3500000, "1BD4")
feby.Rows.Add("46112040", "Tommy Paunganan", "L", "02/22/1993", 2000000, "1BD4")
feby.Rows.Add("46112053", "Khusnul Khatimah A", "P", "08/27/1994", 3000000, "1BD4")
feby.Rows.Add("46112041", "Nida Hazimah Ulfah", "P", "09/24/1995", 5000000, "1BD4")
feby.Rows.Add("46112044", "Ulfah Nas", "P", "01/26/1994", 5000000, "1BD4")
feby.Rows.Add("46112036", "Hasmiati Hajar", "P", "05/17/1994", 5000000, "1BD4")
feby.Rows.Add("36112001", "Fitri", "P", "10/20/1994", 5000000, "1AD3")
feby.Rows.Add("36112002", "andri prianto tukan", "L", "04/26/1994", 2000000, "1BD3")
feby.Rows.Add("36112003", "Fathin Ammar Asidik", "L", "06/29/1994", 6800000, "1AD3")
feby.Rows.Add("36112004", "Endah Mariadi", "P", "11/07/1994", 7500000, "1AD3")
feby.Rows.Add("36112005", "Mawar Aztanti", "P", "06/01/1993", 4000000, "1AD3")
feby.Rows.Add("36112006", "Izmi Istiqamah", "P", "11/04/1994", 7000000, "1AD3")
feby.Rows.Add("36112007", "Imran Novrin Ruslim", "L", "11/21/1994", 1000000, "1AD3")
feby.Rows.Add("36112008", "Adbul Malik", "L", "11/09/1993", 2500000, "1AD3")
feby.Rows.Add("36112010", "Yulianti", "P", "09/28/1994", 2500000, "1AD3")
feby.Rows.Add("36112011", "Zulfitra Qadar Yasin", "L", "03/10/1994", 10000000, "1AD3")
feby.Rows.Add("36112012", "Sri Aprianti", "P", "04/05/1994", 4000000, "1AD3")
feby.Rows.Add("36112013", "Noviantri Paembonan", "P", "11/19/1994", 6000000, "1AD3")
feby.Rows.Add("36112016", "Andi Jusma Nilam Sari", "P", "09/02/1994", 10000000, "1AD3")
feby.Rows.Add("36112017", "Dana Abrian", "L", "10/05/1994", 5000000, "1AD3")
feby.Rows.Add("36112018", "Kurniawati", "P", "10/11/1994", 2000000, "1AD3")
feby.Rows.Add("36112020", "Bernard Talebong", "P", "10/01/1994", 10000000, "1AD3")
feby.Rows.Add("36112023", "Andi Arhami Hamzah", "P", "06/28/1994", 10000000, "1AD3")
feby.Rows.Add("36112024", "Syahrul Kamal", "L", "10/18/1994", 10000000, "1AD3")
feby.Rows.Add("36112027", "Nurul Rezki Susanti", "P", "09/24/1994", 5000000, "1AD3")
feby.Rows.Add("36112059", "Ummul Hayyul Qayyum", "P", "12/01/1993", 3500000, "1AD3")
feby.Rows.Add("36112022", "Rismawati", "P", "09/07/1994", 900000, "1AD3")
feby.Rows.Add("36112026", "Melinda Rizkawati", "P", "05/07/1994", 2000000, "1AD3")
feby.Rows.Add("36112025", "Ivana Olivia Aser", "P", "01/14/1993", 6000000, "1AD3")
feby.Rows.Add("36112021", "Sulaipah", "P", "09/28/1994", 1000000, "1AD3")
feby.Rows.Add("36112061", "Rahmat Adi Pratama", "L", "04/21/1994", 10000000, "1AD3")
feby.Rows.Add("36112060", "Nita", "P", "01/04/1995", 2500000, "1AD3")
feby.Rows.Add("36112019", "Kharisma Yusuf", "P", "06/14/1994", 4000000, "1AD3")
feby.Rows.Add("36112014", "A. Rahmawaty", "P", "04/04/1994", 5000000, "1AD3")
feby.Rows.Add("36112015", "Danela Mangintek", "P", "11/06/1994", 3000000, "1AD3")
feby.Rows.Add("36112009", "Rahmaniah", "P", "01/19/1994", 2500000, "1AD3")
feby.Rows.Add("36112057", "Reenaldy Alchudri Azsagaf", "L", "05/03/1994", 10000000, "1BD3")
feby.Rows.Add("36112039", "Andi Syahril", "L", "10/02/1994", 2000000, "1BD3")
feby.Rows.Add("36112051", "Muhammad Adhe Anugrah", "L", "08/31/1993", 5000000, "1BD3")
feby.Rows.Add("36112042", "Sukmawati Amir", "P", "04/13/1994", 6000000, "1BD3")
feby.Rows.Add("36112019", "Dian Eka Puteri", "P", "11/11/1993", 1000000, "1BD3")
feby.Rows.Add("36112048", "Tri Wahyuni", "P", "11/11/1994", 800000, "1BD3")
feby.Rows.Add("36112047", "A. Dian Pelita Waty", "P", "05/05/1994", 3000000, "1BD3")
feby.Rows.Add("36112028", "Mu'minat Nur", "P", "05/17/1995", 5000000, "1BD3")
feby.Rows.Add("36112038", "Andi Anggi Fadliyah", "P", "08/15/1994", 1500000, "1BD3")
feby.Rows.Add("36112033", "A. Syasya Annisa Ausan", "P", "08/08/1994", 7000000, "1BD3")
feby.Rows.Add("36112044", "Muhammad Fachri Sani", "L", "02/02/1994", 5000000, "1BD3")
feby.Rows.Add("36112053", "Resky Yonada Ahmad", "P", "03/22/1994", 1500000, "1BD3")
feby.Rows.Add("36112029", "Trinayanti", "P", "06/03/1992", 3000000, "1BD3")
feby.Rows.Add("36112041", "Musyarafah Asis", "L", "07/13/1994", 6000000, "1BD3")
feby.Rows.Add("36112055", "Achmad Rezky Satria Perdana", "L", "12/17/1993", 3000000, "1BD3")
feby.Rows.Add("36112040", "Fibra Yoseph P", "P", "03/27/1995", 6000000, "1BD3")
feby.Rows.Add("36112045", "Ibnu Affan Al-Mufar'id", "L", "08/05/1994", 8000000, "1BD3")
feby.Rows.Add("36112030", "Sri Widya Ayu Wandini", "P", "06/01/1994", 5000000, "1BD3")
feby.Rows.Add("36112046", "Sri Wahyuni Hafid", "P", "12/25/1994", 11000000, "1BD3")
feby.Rows.Add("36112032", "Rosita Satri", "P", "12/06/1994", 3000000, "1BD3")
feby.Rows.Add("36112052", "Sabri", "L", "07/24/1993", 700000, "1BD3")
feby.Rows.Add("36112049", "Alfin Riani Bandaso", "P", "04/11/1994", 3000000, "1BD3")
feby.Rows.Add("36112036", "Nurmilasari", "P", "07/06/1993", 2000000, "1BD3")
feby.Rows.Add("36112035", "Tri Arismunandar", "L", "12/09/1993", 1000000, "1BD3")
feby.Rows.Add("36112031", "Nur Indahsari Idris", "P", "08/28/1994", 5000000, "1BD3")
feby.Rows.Add("36112037", "Ismawati", "P", "08/01/1994", 900000, "1BD3")
feby.Rows.Add("36112034", "Rezky Arianti", "P", "01/27/1994", 3000000, "1BD3")
feby.Rows.Add("36112043", "Artis Susan", "P", "10/29/1993", 5000000, "1BD3")
feby.Rows.Add("36112054", "Ade Apriathis Rantelino", "L", "04/27/1994", 3000000, "1BD3")

dvmaba = feby.DefaultView

dgv46110055.DataSource = dvmaba

End Sub

Private Sub stb46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stb46110055.CheckedChanged
dvmaba.Sort = "STAMBUK"
End Sub

Private Sub kls146110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls146110055.CheckedChanged
dvmaba.Sort = "KELAS desc"
End Sub

Private Sub kls246110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kls246110055.CheckedChanged
dvmaba.Sort = "KELAS , Tanggal Lahir"
End Sub

Private Sub gaji46110055_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji46110055.CheckedChanged
dvmaba.Sort = "Gaji Ortu desc"
End Sub

Private Sub gaji146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gaji146110055.TextChanged
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji146110055.Text)
End Sub

Private Sub bkn146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bkn146110055.TextChanged
dvmaba.RowFilter = "kelas <>" & "'" & bkn146110055.Text & "'"
End Sub

Private Sub tgl146110055_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tgl146110055.ValueChanged
dvmaba.RowFilter = "[tanggal lahir] < #" & tgl146110055.Value & "#"
End Sub

Private Sub nama146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama146110055.TextChanged
dvmaba.RowFilter = " nama like '%" & nama146110055.Text & "%'"
End Sub

Private Sub filter46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles filter46110055.Click
dvmaba.RowFilter = "[Gaji ortu] > " & Val(gaji246110055.Text) & "and kelas <>" & "'" & bkn246110055.Text & "'" & "and [tanggal lahir] < #" & tgl146110055.Value.Month & "/" & tgl246110055.Value.Day & "/" & tgl246110055.Value.Year & "#" & " and nama like '%" & nama246110055.Text & "%'"
End Sub

Private Sub atur46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles atur46110055.Click
For Each X As DataGridViewRow In dgv46110055.Rows
If X.Cells("Gaji Ortu").Value > 6000000 Then
X.DefaultCellStyle.BackColor = biru46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 5000000 Then
X.DefaultCellStyle.BackColor = kuning46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 4000000 Then
X.DefaultCellStyle.BackColor = merah46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 3000000 Then
X.DefaultCellStyle.BackColor = ungu46110055.BackColor
ElseIf X.Cells("Gaji Ortu").Value > 2000000 Then
X.DefaultCellStyle.BackColor = hijau46110055.BackColor
Else
X.DefaultCellStyle.BackColor = tosca46110055.BackColor
End If
Next
End Sub

End Class

9. klik start debugging.

Langkah-Langkah Menjalankan Latihan 14 :
1. Pada GroupBox "urutkan berdasarkan" pilih salah satu perintah dengan meng-klik perintah yang diinginkan. Datagrideview akan menampilkan tabel sesuai perintah.
2. Pada GroupBox "filter berdasarkan" input data pada textbox yang tersedia. Datagrideview akan menampilkan tabel sesuai perintah yang telah diinput.
3. Pada GroupBox "filter dengan menggabungkan" input data pada semua textbox yang tersedia, kemudian klik tombol “Filter”. Datagrideview akan menampilkan tabel sesuai perintah yang diinput.
4. Pada GroupBox "pengaturan warna" cukup dengan meng-klik tombol “Atur Warna”. Tabel akan berwarna sesuai klasifikasi gaji.

Halaman

Minggu, 07 Oktober 2012