Ok, sorry rada telat postingnya.. kemarin sempat ada proyek n juga beberapa hari kemarin lagi sakit.
Sebagai tambahan, lebih tepatnya "update", pada tiap tabel dalam database semua yang bertype nchar di ubah ke nvarchar.. tanya kenapa??
Sebelum dilanjutkan, ada baiknya semua kode-kode dalam form barang di hapus dahulu, kecuali, kode-kode di bawah ini:
Public Class frmBarang
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
1. Dekarasi beberapa variabel umum
Masukkan kode berikut pada bagian atas setelah Public Class frmBarang :
Private db As New DataClasses1DataContext
Private edit As Boolean
1.a. Sub Procedure buka
Digunakan untuk mengunci dan membuka TextBox dan ComboBox dalam frmBarang:
Private Sub buka(ByVal t As Boolean)
Dim daftarTextBox = From myControl In Me.Controls _
Where TypeOf myControl Is TextBox _
Select myControl
For Each myTeksBoks As TextBox In daftarTextBox
If t Then
myTeksBoks.Enabled = True
Me.cmbKodeKategori.Enabled = True
Else
myTeksBoks.Enabled = False
Me.cmbKodeKategori.Enabled = False
End If
Next
End Sub
1.b. Sub Procedure isiCombo
Digunakan untuk mengisi daftar kategori untuk ComboBox pada frmBarang:
Private Sub isiCombo()
Me.cmbKodeKategori.ResetText()
Dim cmbKate = From kategori In db.kategoris _
Select kategori.NmKategori
For Each kate As String In cmbKate
Me.cmbKodeKategori.Items.Add(kate)
Next
End Sub
1.c. Sub Procedure resData
Digunakan untuk me-refresh (mengisi) data dalam DataGridView1 dengan data yang baru (Kodenya sedikit berbeda dari tutorial 2 kemarin):
Private Sub resData()
Dim qBarang = From barang In db.barangs _
Join kategori In db.kategoris _
On kategori.KDKategori Equals barang.KDKategori _
Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual
Me.DataGridView1.DataSource = qBarang
End Sub
1.d. Sub Procedure dgKlik
Digunakan untuk mengisi tiap TextBox dan ComboBox berdasarkan data yang ada dalam DataGridView1 saat setiap kali data dalam DataGridView1 dipilih.
Private Sub dgKlik()
Try
Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value
Dim dkate = From kategori In db.kategoris _
Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
Select kategori.NmKategori
Me.cmbKodeKategori.Text = dkate.Single
Catch ex As Exception
MessageBox.Show("Error: " & ex.Message)
End Try
End Sub
1.e. Sub Procedure resTeks
Digunakan untuk mengosongkan semua TextBox dan Combobox dalam frmBarang :
Private Sub resTeks()
isiCombo()
Dim daftarTextBox = From myControl In Me.Controls _
Where TypeOf myControl Is TextBox _
Select myControl
For Each myTeksBoks As TextBox In daftarTextBox
myTeksBoks.Text = ""
Next
End Sub
1.f. Function katPerNama
Digunakan untuk mengambil kode Kategori barang berdasarkan nama kategorinya :
Private Function katPerNama(ByVal n As String) As Integer
Dim kat As Integer = 0
Dim kate = From kategori In db.kategoris _
Where kategori.NmKategori Is n _
Select kategori.KDKategori
kat = kate.Single
Return kat
End Function
2. DataGridView1_Click
Pada designer view, double klik Control DataGridView1 > akan masuk ke dalam tampilan Code View. Pada bagian Method Name, pilih Click. Lihat Gambar :
Ketikkan kode berikut pada bagian DataGridView1_Click :
Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
dgKlik()
End Sub
3. Sub Procedure Saat Tombol Edit Diklik
Double klik tombol edit dan masukkan kode berikut :
Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
Me.cmdBaru.Text = "Batal"
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Me.cmdSimpan.Enabled = True
edit = True
buka(True)
Me.txtKodeBarang.Enabled = False
Me.txtNamaBarang.Focus()
End Sub
4. Sub Procedure Saat Tombol Baru Diklik
Double klik tombol baru dan masukkan kode berikut :
Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
If Me.cmdBaru.Text = "Baru" Then
Me.cmdBaru.Text = "Batal"
Me.resTeks()
buka(True)
Me.DataGridView1.Enabled = False
Me.cmdSimpan.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Me.cmdKeluar.Enabled = False
Me.txtKodeBarang.Focus()
Else
Me.cmdBaru.Text = "Baru"
buka(False)
Me.DataGridView1.Enabled = True
edit = False
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
Me.cmdKeluar.Enabled = True
dgKlik()
End If
End Sub
5. Sub Procedure Saat Tombol Simpan Diklik
Double klik tombol simpan dan masukkan kode berikut :
Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
'Validasi data inputan, akan dijelaskan nanti...
If edit Then
Dim updatebrg = (From barang In db.barangs _
Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
With updatebrg
.NmBarang = Me.txtNamaBarang.Text
.KDKategori = katPerNama(Me.cmbKodeKategori.Text)
.Jumlah = Me.txtJumlah.Text
.HargaJual = Me.txtHarga.Text
End With
Else
Dim brg As New barang With { _
.KDBarang = Me.txtKodeBarang.Text, _
.NmBarang = Me.txtNamaBarang.Text, _
.KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
.Jumlah = Me.txtJumlah.Text, _
.HargaJual = Me.txtHarga.Text}
End If
Try
db.SubmitChanges()
Catch ex As Exception
MessageBox.Show("Error :" & ex.Message)
End Try
resData()
dgKlik()
buka(False)
Me.cmdSimpan.Enabled = False
Me.cmdBaru.Text = "Baru"
Me.cmdEdit.Enabled = True
Me.cmdKeluar.Enabled = True
edit = False
Me.cmdHapus.Enabled = True
Me.DataGridView1.Enabled = True
End Sub
6. Sub Procedure Saat Tombol Hapus Diklik
Double klik tombol hapus dan masukkan kode berikut :
Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
If Me.txtKodeBarang.Text = "" Then Exit Sub
Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If rep = MsgBoxResult.No Then Exit Sub
Dim deleteBrg = (From barang In db.barangs _
Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
db.barangs.DeleteOnSubmit(deleteBrg)
Try
db.SubmitChanges()
Catch ex As Exception
MessageBox.Show("Error :" & ex.Message)
End Try
resData()
dgKlik()
End Sub
7. Sub Procedure Saat Tombol Keluar Diklik
Double klik tombol keluar dan masukkan kode berikut :
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
Me.Close()
End Sub
Terakhir, tambahkan kode berikut pada bagian frmBarang_Load :
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
resData()
isiCombo()
buka(False)
Me.cmdSimpan.Enabled = False
edit = False
End Sub
Yups, dengan semua tombol telah memiliki kode masing-masing, coba jalankan program dengan mengklik tanda play atau menekan tombol F5 pada keyboard.
Pada bagian selanjutnya kita akan langsung mencoba membuat form untuk menampilkan data laporan dari data barang yang barusan dibuat..
Selamat bereksperimen semoga sukses... ;)
Kode Selengkapnya :
Public Class frmBarang
Private db As New DataClasses1DataContext
Private edit As Boolean 'penentuan apakah sedang dalam proses edit atau bukan
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
resData() 'memanggil sub resData untuk mengisi data ke dalam DataGridView1
isiCombo() 'mengisi ComboBox kategori
buka(False) 'kunci semua textbox
Me.cmdSimpan.Enabled = False 'matikan tombol simpan
edit = False 'variabel edit di atur menjadi false
End Sub
Private Sub buka(ByVal t As Boolean) 'enable dan disable control TextBox dan ComboBox
'Pilih semua control yang merupakan TextBox
Dim daftarTextBox = From myControl In Me.Controls _
Where TypeOf myControl Is TextBox _
Select myControl
'Looping setiap control TextBox
For Each myTeksBoks As TextBox In daftarTextBox
If t Then
myTeksBoks.Enabled = True 'textbox aktif
Me.cmbKodeKategori.Enabled = True 'combobox aktif
Else
myTeksBoks.Enabled = False
Me.cmbKodeKategori.Enabled = False
End If
Next
End Sub
Private Sub isiCombo() 'Mengisi Combobox dengan daftar kategori dari tabel kategori
Me.cmbKodeKategori.ResetText() 'reset Combo kategori
'ambil semua nama kategori dari tabel kategori
Dim cmbKate = From kategori In db.kategoris _
Select kategori.NmKategori
'looping setiap hasil dari cmbkate dan tambahkan ke dalam combo kategori
For Each kate As String In cmbKate
Me.cmbKodeKategori.Items.Add(kate)
Next
End Sub
Private Sub resData() 'mengisi ulang data ke dalam DataGridView1
Dim qBarang = From barang In db.barangs _
Join kategori In db.kategoris _
On kategori.KDKategori Equals barang.KDKategori _
Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual
Me.DataGridView1.DataSource = qBarang
End Sub
Private Sub resTeks() 'mengosongkan semua combobox dan textbox
isiCombo()
Dim daftarTextBox = From myControl In Me.Controls _
Where TypeOf myControl Is TextBox _
Select myControl
For Each myTeksBoks As TextBox In daftarTextBox
myTeksBoks.Text = ""
Next
End Sub
Private Sub dgKlik() 'sub procedure saat baris dalam DataGridView1 diklik
Try
Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value
'isi combo kategori berdasarkan kategori tiap barang dari DataGridView1
Dim dkate = From kategori In db.kategoris _
Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
Select kategori.NmKategori
Me.cmbKodeKategori.Text = dkate.Single
Catch ex As Exception 'Jika terjadi error, ya know lah...
MessageBox.Show("Error: " & ex.Message)
End Try
End Sub
Private Function katPerNama(ByVal n As String) As Integer 'mengambil kode kategori berdasarkan nama kategori
Dim kat As Integer = 0
Dim kate = From kategori In db.kategoris _
Where kategori.NmKategori Is n _
Select kategori.KDKategori
kat = kate.Single
Return kat
End Function
Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
dgKlik() 'memanggil sub procedure dgKlik saat DataGridView1 diklik.
End Sub
Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
'saat tombol edit diklik
Me.cmdBaru.Text = "Batal"
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Me.cmdSimpan.Enabled = True
edit = True 'sedang dalam proses edit
buka(True) 'buka semua control
Me.txtKodeBarang.Enabled = False 'kunci txtKodeBarang
Me.txtNamaBarang.Focus() 'Fokuskan cursor pada txtNamaBarang
End Sub
Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
'Tombol baru diklik
'lakukan pengeceka apakah sekarang tombol baru atau tombol batal
If Me.cmdBaru.Text = "Baru" Then 'jika yang diklik tombol baru
Me.cmdBaru.Text = "Batal" 'ubah text tombol baru menjadi batal
Me.resTeks() 'memanggil sub procedure resTeks : mengosongkan semua teks
buka(True) 'buka semua control
Me.DataGridView1.Enabled = False 'non aktifkan DataGridView1 sehingga tidak bisa diklik
Me.cmdSimpan.Enabled = True
Me.cmdEdit.Enabled = False
Me.cmdHapus.Enabled = False
Me.cmdKeluar.Enabled = False
Me.txtKodeBarang.Focus() 'Fokuskan cursor pada txtKodeBarang
Else 'jika yang diklik adalah tombol baru dengan teks Batal
Me.cmdBaru.Text = "Baru" 'ubah teks tombol baru menjadi Baru
buka(False) 'Kunci semua kontrol
Me.DataGridView1.Enabled = True
edit = False 'pastikan bukan dalam proses edit
Me.cmdSimpan.Enabled = False
Me.cmdEdit.Enabled = True
Me.cmdHapus.Enabled = True
Me.cmdKeluar.Enabled = True
dgKlik()
End If
End Sub
Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
'Validasi data inputan, belakangan akan dijelaskan...
If edit Then 'jika dalam proses edit / tombol edit diklik
Dim updatebrg = (From barang In db.barangs _
Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
With updatebrg
.NmBarang = Me.txtNamaBarang.Text
.KDKategori = katPerNama(Me.cmbKodeKategori.Text)
.Jumlah = Me.txtJumlah.Text
.HargaJual = Me.txtHarga.Text
End With
Else 'jika bukan proses edit / tombol baru diklik
Dim brg As New barang With { _
.KDBarang = Me.txtKodeBarang.Text, _
.NmBarang = Me.txtNamaBarang.Text, _
.KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
.Jumlah = Me.txtJumlah.Text, _
.HargaJual = Me.txtHarga.Text}
End If
Try
db.SubmitChanges() 'simpan semua perubahan, baik itu proses update maupun insert
Catch ex As Exception
MessageBox.Show("Error :" & ex.Message)
End Try
resData()
dgKlik()
buka(False)
Me.cmdSimpan.Enabled = False
Me.cmdBaru.Text = "Baru"
Me.cmdEdit.Enabled = True
Me.cmdKeluar.Enabled = True
edit = False
Me.cmdHapus.Enabled = True
Me.DataGridView1.Enabled = True
End Sub
Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
'saat tombol hapus diklik
If Me.txtKodeBarang.Text = "" Then Exit Sub 'jika kodebarang kosong, keluar dari sub procedure
'mencoba memastikan apakah data akan benar2 dihapus?
Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If rep = MsgBoxResult.No Then Exit Sub 'jika hasilnya NO, data tidak akan dihapus
Dim deleteBrg = (From barang In db.barangs _
Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
db.barangs.DeleteOnSubmit(deleteBrg)
Try
db.SubmitChanges() 'simpan semua perubahan ke dalam database
Catch ex As Exception
MessageBox.Show("Error :" & ex.Message)
End Try
resData()
dgKlik()
End Sub
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
Me.Close() 'tutup form
'bisa juga menggunakan : Application.Exit()
End Sub
End Class
Sorry kalau masih ada yang keliru atau kesalahan dalam proses penulisan di atas..mohon koreksinya juga.. heheh..e
Home
Downloads
RSS
Smart Defrag
The big news this week will be the announcement for the first Android device from Google, 
With Fall settling in, you can expect the usual bumper crop harvest of annual sports sims to come our way. One of these titles include Konami's Pro Evolution Soccer 2009, which has been confirmed to be released this October 17 on the PlayStation 3, Xbox 360, and the PC.
1. FaceBox
2. MochauiMochaUI is a beautiful web applications user interface library built on the Mootools JavaScript framework to develope quickly Web Applications, Web Desktops, Web Sites, Widgets, Standalone Windows and Modal Dialogs.
3. SmoothGallery 2.0
4. MooSlide revamp slider
5. MooFlow
6. Simple images slider to create Flickr-like slideshows
7. Slimbox, the ultimate lightweight Lightbox clone
The ATI Radeon HD 4670 and ATI Radeon HD 4650 graphics cards feature AMD’s TeraScale graphics engine, with 320 stream processing cores, and are based on AMD’s advanced second generation 55nm process. 
