Buat program nich

Langsung aja, di tutorial ke-2 kemarin kita telah sedikit mengenal tentang LINQ dan juga telah membuat suatu form barang. Kali ini kita akan mencoba menambahkan kode-kode yang akan diproses oleh tiap tombol dalam form barang tersebut. Untuk kali ini validasi dalam setiap proses akan diabaikan terlebih dahulu, nanti pasti menyusul…

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:

view plaincopy to clipboardprint?

1. Public Class frmBarang
2. 
   
3. Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4. 
   
5. End Sub
6. End Class

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 :

view plaincopy to clipboardprint?

1. Private db As New DataClasses1DataContext
2. Private edit As Boolean

    Private db As New DataClasses1DataContext     Private edit As Boolean

1.a. Sub Procedure buka
Digunakan untuk mengunci dan membuka TextBox dan ComboBox dalam frmBarang:

view plaincopy to clipboardprint?

1. Private Sub buka(ByVal t As Boolean)
2. Dim daftarTextBox = From myControl In Me.Controls _
3. Where TypeOf myControl Is TextBox _
4. Select myControl
5. 
   
6. For Each myTeksBoks As TextBox In daftarTextBox
7. If t Then
8. myTeksBoks.Enabled = True
9. Me.cmbKodeKategori.Enabled = True
10. Else
11. myTeksBoks.Enabled = False
12. Me.cmbKodeKategori.Enabled = False
13. End If
14. Next
15. End Sub

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:

view plaincopy to clipboardprint?

1. Private Sub isiCombo()
2. Me.cmbKodeKategori.ResetText()
3. Dim cmbKate = From kategori In db.kategoris _
4. Select kategori.NmKategori
5. 
   
6. For Each kate As String In cmbKate
7. Me.cmbKodeKategori.Items.Add(kate)
8. Next
9. End Sub

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

view plaincopy to clipboardprint?

1. Private Sub resData()
2. Dim qBarang = From barang In db.barangs _
3. Join kategori In db.kategoris _
4. On kategori.KDKategori Equals barang.KDKategori _
5. Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
6. Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual
7. 
   
8. Me.DataGridView1.DataSource = qBarang
9. End Sub

    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.

view plaincopy to clipboardprint?

1. Private Sub dgKlik()
2. Try
3. Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
4. Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
5. Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
6. Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value
7. 
   
8. Dim dkate = From kategori In db.kategoris _
9. Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
10. Select kategori.NmKategori
11. Me.cmbKodeKategori.Text = dkate.Single
12. 
    
13. Catch ex As Exception
14. MessageBox.Show(“Error: ” & ex.Message)
15. End Try
16. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub resTeks()
2. isiCombo()
3. Dim daftarTextBox = From myControl In Me.Controls _
4. Where TypeOf myControl Is TextBox _
5. Select myControl
6. For Each myTeksBoks As TextBox In daftarTextBox
7. myTeksBoks.Text = “”
8. Next
9. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Function katPerNama(ByVal n As String) As Integer
2. Dim kat As Integer = 0
3. Dim kate = From kategori In db.kategoris _
4. Where kategori.NmKategori Is n _
5. Select kategori.KDKategori
6. kat = kate.Single
7. Return kat
8. End Function

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 :

view plaincopy to clipboardprint?

1. Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
2. dgKlik()
3. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
2. Me.cmdBaru.Text = “Batal”
3. Me.cmdEdit.Enabled = False
4. Me.cmdHapus.Enabled = False
5. Me.cmdSimpan.Enabled = True
6. edit = True
7. buka(True)
8. Me.txtKodeBarang.Enabled = False
9. Me.txtNamaBarang.Focus()
10. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
2. If Me.cmdBaru.Text = “Baru” Then
3. Me.cmdBaru.Text = “Batal”
4. Me.resTeks()
5. buka(True)
6. Me.DataGridView1.Enabled = False
7. Me.cmdSimpan.Enabled = True
8. Me.cmdEdit.Enabled = False
9. Me.cmdHapus.Enabled = False
10. Me.cmdKeluar.Enabled = False
11. Me.txtKodeBarang.Focus()
12. Else
13. Me.cmdBaru.Text = “Baru”
14. buka(False)
15. Me.DataGridView1.Enabled = True
16. edit = False
17. Me.cmdSimpan.Enabled = False
18. Me.cmdEdit.Enabled = True
19. Me.cmdHapus.Enabled = True
20. Me.cmdKeluar.Enabled = True
21. dgKlik()
22. End If
23. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
2. ‘Validasi data inputan, akan dijelaskan nanti…
3. 
   
4. If edit Then
5. Dim updatebrg = (From barang In db.barangs _
6. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
7. 
   
8. With updatebrg
9. .NmBarang = Me.txtNamaBarang.Text
10. .KDKategori = katPerNama(Me.cmbKodeKategori.Text)
11. .Jumlah = Me.txtJumlah.Text
12. .HargaJual = Me.txtHarga.Text
13. End With
14. 
    
15. Else
16. Dim brg As New barang With { _
17. .KDBarang = Me.txtKodeBarang.Text, _
18. .NmBarang = Me.txtNamaBarang.Text, _
19. .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
20. .Jumlah = Me.txtJumlah.Text, _
21. .HargaJual = Me.txtHarga.Text}
22. End If
23. 
    
24. Try
25. db.SubmitChanges()
26. 
    
27. Catch ex As Exception
28. MessageBox.Show(“Error :” & ex.Message)
29. End Try
30. 
    
31. resData()
32. dgKlik()
33. buka(False)
34. Me.cmdSimpan.Enabled = False
35. Me.cmdBaru.Text = “Baru”
36. Me.cmdEdit.Enabled = True
37. Me.cmdKeluar.Enabled = True
38. edit = False
39. Me.cmdHapus.Enabled = True
40. Me.DataGridView1.Enabled = True
41. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
2. If Me.txtKodeBarang.Text = “” Then Exit Sub
3. Dim rep As Integer = MessageBox.Show(“Data tersebut akan dihapus?”, “Konfirmasi”, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
4. If rep = MsgBoxResult.No Then Exit Sub
5. 
   
6. Dim deleteBrg = (From barang In db.barangs _
7. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
8. 
   
9. db.barangs.DeleteOnSubmit(deleteBrg)
10. 
    
11. Try
12. db.SubmitChanges()
13. Catch ex As Exception
14. MessageBox.Show(“Error :” & ex.Message)
15. End Try
16. 
    
17. resData()
18. dgKlik()
19. 
    
20. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
2. Me.Close()
3. End Sub

    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 :

view plaincopy to clipboardprint?

1. Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2. resData()
3. isiCombo()
4. buka(False)
5. Me.cmdSimpan.Enabled = False
6. t = False
7. End Sub

    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 :

view plaincopy to clipboardprint?

1. Public Class frmBarang
2. Private db As New DataClasses1DataContext
3. Private edit As Boolean ‘penentuan apakah sedang dalam proses edit atau bukan
4. 
   
5. Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6. resData() ‘memanggil sub resData untuk mengisi data ke dalam DataGridView1
7. isiCombo() ‘mengisi ComboBox kategori
8. buka(False) ‘kunci semua textbox
9. Me.cmdSimpan.Enabled = False ‘matikan tombol simpan
10. edit = False ‘variabel edit di atur menjadi false
11. End Sub
12. Private Sub buka(ByVal t As Boolean) ‘enable dan disable control TextBox dan ComboBox
13. ‘Pilih semua control yang merupakan TextBox
14. Dim daftarTextBox = From myControl In Me.Controls _
15. Where TypeOf myControl Is TextBox _
16. Select myControl
17. ‘Looping setiap control TextBox
18. For Each myTeksBoks As TextBox In daftarTextBox
19. If t Then
20. myTeksBoks.Enabled = True ‘textbox aktif
21. Me.cmbKodeKategori.Enabled = True ‘combobox aktif
22. Else
23. myTeksBoks.Enabled = False
24. Me.cmbKodeKategori.Enabled = False
25. End If
26. Next
27. End Sub
28. Private Sub isiCombo() ‘Mengisi Combobox dengan daftar kategori dari tabel kategori
29. Me.cmbKodeKategori.ResetText() ‘reset Combo kategori
30. ‘ambil semua nama kategori dari tabel kategori
31. Dim cmbKate = From kategori In db.kategoris _
32. Select kategori.NmKategori
33. ‘looping setiap hasil dari cmbkate dan tambahkan ke dalam combo kategori
34. For Each kate As String In cmbKate
35. Me.cmbKodeKategori.Items.Add(kate)
36. Next
37. End Sub
38. Private Sub resData() ‘mengisi ulang data ke dalam DataGridView1
39. Dim qBarang = From barang In db.barangs _
40. Join kategori In db.kategoris _
41. On kategori.KDKategori Equals barang.KDKategori _
42. Select Kode = barang.KDBarang, Nama = barang.NmBarang, _
43. Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = barang.HargaJual
44. 
    
45. Me.DataGridView1.DataSource = qBarang
46. End Sub
47. Private Sub resTeks() ‘mengosongkan semua combobox dan textbox
48. isiCombo()
49. Dim daftarTextBox = From myControl In Me.Controls _
50. Where TypeOf myControl Is TextBox _
51. Select myControl
52. 
    
53. For Each myTeksBoks As TextBox In daftarTextBox
54. myTeksBoks.Text = “”
55. Next
56. End Sub
57. Private Sub dgKlik() ’sub procedure saat baris dalam DataGridView1 diklik
58. Try
59. Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value
60. Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value
61. Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value
62. Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value
63. 
    
64. ‘isi combo kategori berdasarkan kategori tiap barang dari DataGridView1
65. Dim dkate = From kategori In db.kategoris _
66. Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value _
67. Select kategori.NmKategori
68. Me.cmbKodeKategori.Text = dkate.Single
69. 
    
70. Catch ex As Exception ‘Jika terjadi error, ya know lah…
71. MessageBox.Show(“Error: ” & ex.Message)
72. End Try
73. End Sub
74. 
    
75. Private Function katPerNama(ByVal n As String) As Integer ‘mengambil kode kategori berdasarkan nama kategori
76. Dim kat As Integer = 0
77. Dim kate = From kategori In db.kategoris _
78. Where kategori.NmKategori Is n _
79. Select kategori.KDKategori
80. 
    
81. kat = kate.Single
82. Return kat
83. End Function
84. Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
85. dgKlik() ‘memanggil sub procedure dgKlik saat DataGridView1 diklik.
86. End Sub
87. 
    
88. Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
89. ’saat tombol edit diklik
90. Me.cmdBaru.Text = “Batal”
91. Me.cmdEdit.Enabled = False
92. Me.cmdHapus.Enabled = False
93. Me.cmdSimpan.Enabled = True
94. edit = True ’sedang dalam proses edit
95. buka(True) ‘buka semua control
96. Me.txtKodeBarang.Enabled = False ‘kunci txtKodeBarang
97. Me.txtNamaBarang.Focus() ‘Fokuskan cursor pada txtNamaBarang
98. End Sub
99. 
    
100. Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click
101. ‘Tombol baru diklik
102. ‘lakukan pengeceka apakah sekarang tombol baru atau tombol batal
103. If Me.cmdBaru.Text = “Baru” Then ‘jika yang diklik tombol baru
104. Me.cmdBaru.Text = “Batal” ‘ubah text tombol baru menjadi batal
105. Me.resTeks() ‘memanggil sub procedure resTeks : mengosongkan semua teks
106. buka(True) ‘buka semua control
107. Me.DataGridView1.Enabled = False ‘non aktifkan DataGridView1 sehingga tidak bisa diklik
108. Me.cmdSimpan.Enabled = True
109. Me.cmdEdit.Enabled = False
110. Me.cmdHapus.Enabled = False
111. Me.cmdKeluar.Enabled = False
112. Me.txtKodeBarang.Focus() ‘Fokuskan cursor pada txtKodeBarang
113. Else ‘jika yang diklik adalah tombol baru dengan teks Batal
114. Me.cmdBaru.Text = “Baru” ‘ubah teks tombol baru menjadi Baru
115. buka(False) ‘Kunci semua kontrol
116. Me.DataGridView1.Enabled = True
117. edit = False ‘pastikan bukan dalam proses edit
118. Me.cmdSimpan.Enabled = False
119. Me.cmdEdit.Enabled = True
120. Me.cmdHapus.Enabled = True
121. Me.cmdKeluar.Enabled = True
122. dgKlik()
123. End If
124. End Sub
125. 
     
126. Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click
127. ‘Validasi data inputan, belakangan akan dijelaskan…
128. 
     
129. If edit Then ‘jika dalam proses edit / tombol edit diklik
130. Dim updatebrg = (From barang In db.barangs _
131. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
132. 
     
133. With updatebrg
134. .NmBarang = Me.txtNamaBarang.Text
135. .KDKategori = katPerNama(Me.cmbKodeKategori.Text)
136. .Jumlah = Me.txtJumlah.Text
137. .HargaJual = Me.txtHarga.Text
138. End With
139. 
     
140. Else ‘jika bukan proses edit / tombol baru diklik
141. Dim brg As New barang With { _
142. .KDBarang = Me.txtKodeBarang.Text, _
143. .NmBarang = Me.txtNamaBarang.Text, _
144. .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _
145. .Jumlah = Me.txtJumlah.Text, _
146. .HargaJual = Me.txtHarga.Text}
147. End If
148. 
     
149. Try
150. db.SubmitChanges() ’simpan semua perubahan, baik itu proses update maupun insert
151. 
     
152. Catch ex As Exception
153. MessageBox.Show(“Error :” & ex.Message)
154. End Try
155. 
     
156. resData()
157. dgKlik()
158. buka(False)
159. Me.cmdSimpan.Enabled = False
160. Me.cmdBaru.Text = “Baru”
161. Me.cmdEdit.Enabled = True
162. Me.cmdKeluar.Enabled = True
163. edit = False
164. Me.cmdHapus.Enabled = True
165. Me.DataGridView1.Enabled = True
166. End Sub
167. 
     
168. Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click
169. ’saat tombol hapus diklik
170. If Me.txtKodeBarang.Text = “” Then Exit Sub ‘jika kodebarang kosong, keluar dari sub procedure
171. ‘mencoba memastikan apakah data akan benar2 dihapus?
172. Dim rep As Integer = MessageBox.Show(“Data tersebut akan dihapus?”, “Konfirmasi”, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
173. If rep = MsgBoxResult.No Then Exit Sub ‘jika hasilnya NO, data tidak akan dihapus
174. 
     
175. Dim deleteBrg = (From barang In db.barangs _
176. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0)
177. 
     
178. db.barangs.DeleteOnSubmit(deleteBrg)
179. 
     
180. Try
181. db.SubmitChanges() ’simpan semua perubahan ke dalam database
182. Catch ex As Exception
183. MessageBox.Show(“Error :” & ex.Message)
184. End Try
185. 
     
186. resData()
187. dgKlik()
188. 
     
189. End Sub
190. 
     
191. Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click
192. Me.Close() ‘tutup form
193. ‘bisa juga menggunakan : Application.Exit()
194. End Sub
195. End Class

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

Klik disini untuk melanjutkan »»

Area untuk calon temanku, temanku, yang pernah jadi temanku bahkan bukan temanku di Wearnes Education Center SEMARANG. Tinggalkan sedikit komentar dan pesan tentang saya, tentang blog saya, tentang WEC SMG atau tentang apa saja.
Bagi yang komentarnya memenuhi kriteria tertentu, aneh, orisinil, lucu, lain dari yang lain, unik, medeni uwong, ekslusif, tak ada duanya, menyentuh hati dll akan saya beri bonus.

* Yang calon mahasiswa, saya doakan diterima di WEARNES SMG
* Yang mahasiswa, bagi-bagi dunk nilainya
* Yang masih ujian, saya doakan nilainya bagus
* Yang sudah bekerja, saya doakan makin sukses
* Yang berumah tangga saya doakan keluarganya sakinah mawaddah warohmah
* Yang masih nganggur saya doakan cepat dapat kerjaan
* Yang masih jomblo saya doakan cepet dapat jodoh
* Yang pernah punya salah ke saya akan saya ampuni
* Yang masih punya hutang ke saya, akan saya anggap lunas
* Yang apapun akan saya apakan.

Kamu2 lah yang membentuk saya menjadi saya seperti sekarang ini. Komentarmu adalah apresiasimu terhadapku, yang akan menyemangatiku.

Klik disini untuk melanjutkan »»