[Tutorial] Membuat Aplikasi Dengan Visual Basic .NET 2008 - 1 10
Share
0digg
Visual basic merupakan bahasa yang paling mudah untuk dipahami, dikarenakan bahasanya yang sederhana dan hampir mendekati bahasa yang digunakan manusia sehari-hari. Aplikasi yang akan dibuat adalah contoh aplikasi penjualan barang sederhana... (sangat sederhana). Dalam pembahasan kali ini, saya akan mencoba menjelaskan langkah-langkah dalam proses pembuatan suatu aplikasi menggunakan Visual Basic .NET 2008 dengan asumsi bahwa Anda telah sedikit memahami dan mengerti tentang apa itu Visual Basic beserta IDE yang akan digunakan (Visual Studio) termasuk syntax-syntax sederhana dalam pembuatan aplikasi menggunakan VB. Semuanya akan dibuat dengan cepat dan ringkas.... hmmm... Anda mungkin tidak percaya, pembuatan aplikasi penjualan ini hanya dikerjakan dalam waktu kurang dari satu hari...yups, 1 hari.. Tetapi itu belum dihitung dengan trial and error testnya.. hehe.. Untuk membuat suatu program yang profesional, waktu setahun atau dua tahun belum mencukupi. ;) Bahan-bahan: 1. Visual Studio Professional 2008 / Visual Basic.net Express Edition 2. MS SQL Server 2005 Express Edition
1. Membuat Membuat proyek ba bar ru Buka Visual Studio 2008 dan buat sebuah proyek baru dengan menggunakan menu File > New Project..
Pilih "Windows Forms Application" dengan target Framework 3.5 dan berikan nama "CTHAplik plikas i1"" kemudian klik OK. asi1
2. Mena Menam mbah Databas atabase e Langkah berikutnya adalah kita akan menambahkan database dan coba menentukan tabel-tabel apa saja yang terdapat dalam database untuk aplikasi ini. Untuk tutorial pertama ini kita akan memulai dengan membuat 2 tabel yang terdiri dari : "Ba "Bar rang ang"" dan "Kat "Kate egori ori". ". Pastikan SQL Express telah dijalankan. Masih di IDE VS (Visual Studio) klik menu Project > Add New Item.. Dalam tampilan dialog Add New Item, pilih "Service "Service Bas Based ed Databas Database e" dan masukkan nama "Databas atabase1.mdf e1.mdf ". ". Kemudian klik tombol "Add". Lihat gambar:
Akan muncul kotak dialog "D "Datas ataso ource Confi figu gur rat atio ion n Wiz Wiza ard rd". ". Klik Finish. Jika semuanya telah dilakukan dengan benar, maka tampilan dalam Solution Explorer akan tampak seperti ini :
3. Mena Menam mbah Tab abel el ke da dalam Databas Database e Klik menu View > Server Explorer untuk menampilkan Server Explorer.
Pilih "Windows Forms Application" dengan target Framework 3.5 dan berikan nama "CTHAplik plikas i1"" kemudian klik OK. asi1
2. Mena Menam mbah Databas atabase e Langkah berikutnya adalah kita akan menambahkan database dan coba menentukan tabel-tabel apa saja yang terdapat dalam database untuk aplikasi ini. Untuk tutorial pertama ini kita akan memulai dengan membuat 2 tabel yang terdiri dari : "Ba "Bar rang ang"" dan "Kat "Kate egori ori". ". Pastikan SQL Express telah dijalankan. Masih di IDE VS (Visual Studio) klik menu Project > Add New Item.. Dalam tampilan dialog Add New Item, pilih "Service "Service Bas Based ed Databas Database e" dan masukkan nama "Databas atabase1.mdf e1.mdf ". ". Kemudian klik tombol "Add". Lihat gambar:
Akan muncul kotak dialog "D "Datas ataso ource Confi figu gur rat atio ion n Wiz Wiza ard rd". ". Klik Finish. Jika semuanya telah dilakukan dengan benar, maka tampilan dalam Solution Explorer akan tampak seperti ini :
3. Mena Menam mbah Tab abel el ke da dalam Databas Database e Klik menu View > Server Explorer untuk menampilkan Server Explorer.
Database yang baru dibuat tadi akan tampil dalam Server Explorer, dalam tutorial ini "Databas e1.mdf ", ", jika terdapat tanda silang merah di database kita, klik kanan dan pilih refresh atabase1.mdf untuk membuka koneksi ke database. Lihat gambar:
Klik tanda plus (+) kemudian klik kanan di bagian "Tab les able s" dan pilih "Add New table".
Akan muncul tampilan isian tabel. Isikan seperti gambar di bawah ini.
Jadikan "K "KDKat Kate egori ori"" sebagai primary key dengan mengklik kanan baris "KDKategori" dan memilih "Set Primary Key".
Simpan tabel tersebut dengan nama "kategori" (tanpa tanda kutip). Masih dalam tabel kategori, di tab Col olu umn Proper Properttie ies s, pada bagianI bagianIde dent ntiity Specificat Specificatio ion n> nilai (Is (Is Ide dent ntiity) di ubah menjadi "Ye "Yes s" denganI denganIde dent ntiity In Increme crement nt sebanyak 1.
Hal di atas dilakukan untuk memberikan Increment Value terhadap KDKategori dengan nilai Increment=1. Atau dengan kata lain, memberikan "Auto Number" terhadap KDKategori. :D Pembuatan tabel kategori selesai.... ;)
Lakukan hal yang sama dengan tabel barang, dengan isian seperti gambar di bawah:
Jika kedua tabel telah selesai dibuat, maka tampilan dalam Server Explorer akan menjadi seperti gambar di bawah:
4.
Membuat Diagram Relasi
Selanjutnya kita akan membuat relasi antar tabel. Klik kanan Database Diagrams dalam Server Explorer dan pilih Add New Diagram. Akan muncul kotak dialog konfirmasi, pilih Yes. Setelah tombol Yes diklik, akan muncul kotak dialog "Add table". Tentukan tabel-tabel apa saja yang ingin dimasukkan ke dalam relasi. Dalam hal ini, masukkan tabel kategori dan tabel barang kemudian klik Close. Tampilan tab diagram akan menjadi seperti gambar di bawah ini :
Klik dan tahan kolom KDKategori dari tabel kategori dan geser ke kolom KDKategori dalam tabel barang untuk membuat keduanya berelasi.
Akan muncul kotak konfirmasi, untuk memastikan kolom yang dimaksudkan sesuai dengan yang kita inginkan. Klik OK, maka akan tampil kotak dialog Foreign Key Relationship. Pada bagian INSER T R ule menjadi
And
Cascade
:
UPDATE Specification, ubah nilai Delete R uledan Update
Maksud dari Cascade dalam Delete Rule di atas adalah, setiap baris yang terdapat dalam relasi dengan pengaturan Cascade akan ikut terhapus bila tabel yang memiliki primary key dari relasi tersebut dihapus. Demikian juga dengan aturan Update Rule = Cascade. Setelah tombol OK diklik, maka tampilan diagram relasinya menjadi :
Simpan diagram di atas dengan nama Diagram1.
5.
Menambahkan LINQ to SQL Classes (Apa itu LINQ? = belum dibahas).
Berikutnya kita akan menambahkan LINQ to SQL Classes (LINQ = Language-Integrated Query). Klik Project > Add New Item.. kemudian pilih LINQ to SQL Classes dan beri nama DataClasses1.dbml kemudian klik Add.
Tab
Object
Relational Designer dari DataClasses1.dbml akan langsung terbuka. Masih dalam
tab Object Relational Designer, buka Server Explorer dan geser kedua tabel yang barusan kita buat tadi ke dalam area Object Relational Designer, sehingga menjadi seperti gambar di bawah ini:
Klik Save untuk menyimpannya. Simpan proyek kita dan tutup Visual Studio.
[Tutorial] Membuat Aplikasi Dengan Visual Basic .NET 2008 - 2 21
Share
0digg
Melanjutkan artikel kemarin, sebelum kita l anjutkan pembuatan aplikasi ini, ada baiknya kita berkenalan sedikit dengan LINQ. Apa itu LINQ? LINQ (Language Integrated Query), merupakan suatu bahasa yang digunakan untuk melakukan query terhadap suatu sumber data (-sederhananya-). LINQ terdiri dari b eberapa pernyataan (statement) yang bisa diterapkan ke dalam program kita untuk memilih item dari beberapa koleksi (collection) berdasarkan kriteria yang berbeda. Contoh struktur LINQ dan aturannya dalam aplikasi. Coba kita lihat daftar array di bawah ini: view plaincopy to clipboardprint?
1.
Dim data() As Int16 = {3, 2, 5, 4, 6, 4, 12, 43, 45, 42, 65}
Untuk menentukan elemen dari array tersebut, kita akan menggunakan looping For..Next, mengeksekusi tiap elemen array, dan nantinya bisa menyimpannya ke dalam array baru atau menghapusnya. Untuk memilih elemen dengan nilai yang lebih kecil dari 10, kita gunakan kode di bawah ini:
view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6. 7. 8. 9.
Dim nilaiKecil(data.Length-1) As Integer Dim itm As Integer = 0 For i As Integer = 0 To data.Length If data(i) < 10 Then nilaiKecil(itm) = data(i) itm += 1 End If Next ReDim nilaiKecil(itm)
Akan lebih mudah menyimpan elemen-elemen yang telah terpilih ke dalam suatu ArrayList menggunakan looping seperti di bawah ini:
view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6. 7.
Dim nilaiKecil As New ArrayList Dim itm As Integer For Each itm In data If itm < 10 Then nilaiKecil.Add(itm) End If Next
Bila kita menggunakan LINQ,
view plaincopy to clipboardprint?
1. 2. 3.
Dim nilaiKecil = From n In data _ Where n < 10 _ Select n
Penggunaan bahasa dalam LINQ hampir sama dengan bahasa yang digunakan dalam SQL. Jika kita telah terbiasa dengan bahasa yang digunakan dalam SQL, kita akan menemukan beberapa kemiripan.
Contoh pernyataan SQL:
SELECT *
FROM data
WHERE data.n < 10
(Contoh di atas mengasumsikan dalam database kita terdapat tabel data yang memiliki kolom bernama n). Bila menggunakan LINQ, kode kita menjadi:
Dim = From n In data
Where n < 10
Ok, cukup teorinya... kita langsung saja ke praktek pembuatan program ;)
Pada tutorial kemarin kita telah membuat database barang dan kategori menggunakan SQL Express 2005, nah sekarang kita akan membuat tiap-tiap form untuk form barang dan untuk form kategori. Ikuti langkah-langkah berikut:
1. Menambah Form Barang
Tambahkan satu form dan beri nama frmBarang, dengan cara memilih menu Project > Add Windows Form atau dengan mengklik kanan nama proyek kita di solution explorer dan memilih Add > Windows Form. Akan muncul window Add New Item, masukkan nama frmBarang dan klik add.
Akan muncul form baru dengan nama frmBarang. Atur besar form sesuai keinginan.
2. Property Form Barang
(Skip jik a i ngi n melewat i bagi an i ni.)
Buka jendela property dari form barang (frmBarang) atau dengan cara menekan tombol
F4.
Atur
property frmBarang sebagai berikut:
y
Text : Data barang
y
FormBorderStyle : FixedToolWindow
Ini hanya sekedar contoh dari property suatu form yang sering saya buat, silahkan di ubah sesuai keinginan.
3.
Menambah DataGridView
Tampilkan jendela Toolbox (default: bagian kiri) dengan memilih menu View > Toolbox atau dengan menekan kombinasi tombol
Geser
CTRL+ALT+X.
control DataGridView ke dalam frmBarang:
Nama DataGridView1 akan secara otomatis diberikan untuk control DataGridView tadi.
4.
Menampilkan Data Ke Dalam DataGridView
Sekarang kita akan mencoba menampilkan data ke dalam control DataGridView1, data yang akan ditampilkan diambil dari tabel 'barang' dan tabel 'kategori.
Double klik tampilan frmBarang, maka kita akan masuk ke dalam tampilan Code View.
Ketikkan perintah berikut di bagian Private Sub frmBarang_Load
view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6. 7.
Dim db As New DataClasses1DataContext Dim qBarang = From barang In db.barangs _ Join kategori In db.kategoris _ On kategori.KDKategori Equals barang.KDKategori _ Select barang Me.DataGridView1.DataSource = qBarang
Pada kode di atas (Hampir sama dengan pernyataan SQL) kita memulai dengan mendeklarasikan db sebagai object dari ClassDataClasses1DataContext, kemudian membuat suatu variable baru dengan nama qBarang dan menuliskan query LINQ yang berfungsi untuk mengambil data dari 2 tabel (barang dan kategori, yang memiliki relasi pada kolom KDKategori) dari database. Hasil dari query LINQ tersebut akan ditampilkan dalam control DataGridView1 dengan menggunakan object
DataSource
dari property DataGridView1.
Kode lengkapnya seperti ini:
view plaincopy to clipboardprint?
1.
2. 3. 4. 5. 6. 7. 8. 9. 10.
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ndles MyBase.Load Dim db As New DataClasses1DataContext Dim qBarang = From barang In db.barangs _ Join kategori In db.kategoris _ On kategori.KDKategori Equals barang.KDKategori _ Select barang Me.DataGridView1.DataSource = qBarang End
Sub
Sebelum kita mencoba menjalankan program ini, pastikan frmBarang merupakan Startup Form dengan cara memilih menu Project > CTHAplikasi1 Properties. Pada tab Application bagian Startup form, pilih frmBarang sebagai form yang akan di load saat pertama kali aplikasi dijalankan. Jalankan aplikasi dengan menekan tombol
F5.
Tampilan form setelah dijalankan (masih kosong karena belum ada data yang dimasukkan.. ) :
5.
Menambah Kontrol Tombol, Teks Dan Label.
Aplikasi kita sudah bisa dijalankan, tetapi kita masih perlu menambahkan tombol dan teks serta label ke dalam frmBarang agar memudahkan dalam interaksi dari user terhadap aplikasi.
Kembali ke Designer View (Klik kanan di area kosong di bagian kode dan pilih View Designer atau dengan menekan kombinasi tombol Shif t+F7) dan tambahkan 1 label, dengan cara menggeser control Label dari Toolbox ke dalam frmBarang. Pada bagian property untuk Label1, untuk text masukkan 'Kode Barang:' dan untuk name masukkan 'lblKode'.
Tambahkan Control TextBox ke dalam frmBarang, dengan property, name: txtKodeBarang dan pada bagian text dikosongkan.
Lakukan hal yang sama untuk 4 Label, 1 ComboBox dan 3 TextBox selanjutnya dengan property sebagai berikut:
Control ComboBox: name = cmbKategori
Control TextBox: name = txtNamaBarang, text = dikosongkan
Control TextBox: name = txtJumlah, text = '0'
Control TextBox: name = txtHargaJual, text = '0'
Control Label: name = lblKategori, text = 'Kategori'
Control Label: name = lblNamaBarang, text = Nama Barang'
Control Label: name = lblJumlah, text = 'Jumlah'
Control Label: name = lblHargaJual, text = 'Harga Jual'
Sehingga hasilnya menjadi :
Setelah penambahan TextBox, Label serta ComboBox di atas selesai, kita lanjutkan dengan menambahkan Tombol-tombol (Button).
Klik dan geser 5 buah Control Button dari Toolbox ke dalam frmBarang dengan nilai property masing-masing:
Tombol 1: name = cmdEdit, Text = 'Edit'
Tombol 2: name = cmdBaru, Text = 'Baru'
Tombol 3: name = cmdSimpan, Text = 'Simpan'
Tombol 4: name = cmdHapus, Text = 'Hapus'
Tombol 5: name = cmdKeluar, Text = 'Keluar'
Sehingga tampilan akhir dari frmBarang akan menjadi :
Langsung aja, ditutorial ke-2kemarin 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. 2. 3.
Public
Class
frmBarang
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) H MyBase.Load
andles
4. 5. 6.
End
Sub
End Class
1. Dekarasi beberapa variabel umum
Masukkan kode berikut pada bagian atas setelah P ubl i c Class frmBarang : view plaincopy to clipboardprint?
1. 2.
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) Dim daftarTextBox = From myControl In Me.Controls _ 2. 3. Where TypeOf myControl Is TextBox _ Select myControl 4. 5. For Each myTeksBoks As TextBox In daftarTextBox 6. If t Then 7. 8. myTeksBoks.Enabled = True Me.cmbKodeKategori.Enabled = True 9. Else 10. 11. myTeksBoks.Enabled = False 12. Me.cmbKodeKategori.Enabled = False End If 13. Next 14. End Sub 15.
1.b. Sub Procedure isiCombo
Digunakan untuk mengisi daftar kategori untuk ComboBox pada frmBarang: view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6. 7. 8. 9.
Private Sub isiCombo() Me.cmbKodeKategori.ResetText() Dim cmbKate = From kategori In db.kategoris _ Select kategori.NmKategori
kate As String In cmbKate Me.cmbKodeKategori.Items.Add(kate) Next End Sub For Each
1.c. Sub Procedure resData
Digunakan untuk me-refresh (mengisi) data dalam DataGridView1 dengan data yang baru (Kodenya sed iki t ber beda dar i tutor i al 2 k emar i n): view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6.
7. 8. 9.
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
End
Me.DataGridView1.DataSource = qBarang 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?
Private Sub dgKlik() Try Me.txtKodeBarang.Text = Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Inde x).Value Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Inde 4. x).Value Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).V 5. alue 6. Me.txtHarga.Text = Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Va lue 7. Dim dkate = From kategori In db.kategoris _ 8. 9. Where kategori.NmKategori Is Me.DataGridView1.Item(2, Me.DataGridView 1.CurrentRow.Index).Value _ 10. Select kategori.NmKategori 1. 2. 3.
11. Me.cmbKodeKategori.Text = dkate.Single 12. Catch ex As Exception 13. 14. MessageBox.Show("Error: " & ex.Message) End Try 15. 16. End Sub
1.e. Sub Procedure resTeks
Digunakan untuk mengosongkan semua TextBox dan Combobox dalam frmBarang : view plaincopy to clipboardprint?
1. 2. 3. 4. 5. 6. 7. 8. 9.
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. 2. 3. 4. 5. 6. 7. 8.
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
Private
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?
Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Hand les DataGridView1.Click . 2 dgKlik() 3. End Sub 1.
3. Sub Procedure Saat Tombol Edit Diklik
Double klik tombol edit dan masukkan kode berikut : view plaincopy to clipboardprint?
1.
2. 3. 4. 5. 6. 7. 8. 9. 10.
Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Han dles 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.
2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13.
Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Han dles 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"
14. 15. 16. 17. 18. 19. 20. 21. End 22. 23. End Sub
5.
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() If
Sub Procedure Saat Tombol Simpan Diklik
Double klik tombol simpan dan masukkan kode berikut : view plaincopy to clipboardprint?
Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H andles cmdSimpan.Click 2. 'Validasi data inputan, akan dijelaskan nanti... 3. If edit Then 4. Dim updatebrg = (From barang In db.barangs _ 5. Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 6. 7. With updatebrg 8. .NmBarang = Me.txtNamaBarang.Text 9. 10. .KDKategori = katPerNama(Me.cmbKodeKategori.Text) 11. .Jumlah = Me.txtJumlah.Text 12. .HargaJual = Me.txtHarga.Text End With 13. 14. Else 15. 16. Dim brg As New barang With { _ 17. .KDBarang = Me.txtKodeBarang.Text, _ 18. .NmBarang = Me.txtNamaBarang.Text, _ 19. .KDKategori = katPerNama(Me.cmbKodeKategori.Text), _ .Jumlah = Me.txtJumlah.Text, _ 20. .HargaJual = Me.txtHarga.Text} 21. End If 22. 23. Try 24. 25. db.SubmitChanges() 26. Catch ex As Exception 27. 28. MessageBox.Show("Error :" & ex.Message) End Try 29. 30. 31. resData() 32. dgKlik() 33. buka(False) Me.cmdSimpan.Enabled = False 34. 35. Me.cmdBaru.Text = "Baru" Me.cmdEdit.Enabled = True 36. Me.cmdKeluar.Enabled = True 37. 38. edit = False Me.cmdHapus.Enabled = True 39. Me.DataGridView1.Enabled = True 40. 41. End Sub 1.
6.
Sub Procedure Saat Tombol
Hapus
Diklik
Double klik tombol hapus dan masukkan kode berikut : view plaincopy to clipboardprint?
Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ndles cmdHapus.Click If Me.txtKodeBarang.Text = "" Then Exit Sub 2. Dim rep As Integer = MessageBox.Show("Data tersebut akan dihapus?", "Konfirmasi", Mes 3. sageBoxButtons.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() Catch ex As Exception 13. 14. MessageBox.Show("Error :" & ex.Message) End Try 15. 1.
16. 17. resData() 18. dgKlik() 19. 20. End Sub
7.
Sub Procedure Saat Tombol Keluar Diklik
Double klik tombol keluar dan masukkan kode berikut : view plaincopy to clipboardprint?
Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) H andles cmdKeluar.Click Me.Close() 2. 3. End Sub 1.
Terakhir, tambahkan kode berikut pada bagian frmBarang_Load : view plaincopy to clipboardprint?
1.
2. 3. 4. 5. 6. 7.
Private Sub frmBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ndles MyBase.Load resData() isiCombo() buka(False) Me.cmdSimpan.Enabled = False t = 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. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42.
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, _
43.
Kategori = kategori.NmKategori, Jumlah = barang.Jumlah, Harga = bar ang.HargaJual
44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59.
Me.DataGridView1.DataSource = qBarang Sub Private Sub resTeks() 'mengosongkan semua combobox dan textbox isiCombo() Dim daftarTextBox = From myControl In Me.Controls _ Where TypeOf myControl Is TextBox _ Select myControl End
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 60. Me.txtNamaBarang.Text = Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow. Index).Value 61. Me.txtJumlah.Text = Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Inde x).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.DataGrid View1.CurrentRow.Index).Value _ 67. Select kategori.NmKategori 68. Me.cmbKodeKategori.Text = dkate.Single 69. Catch ex As Exception 'Jika terjadi error, ya know lah... 70. 71. MessageBox.Show("Error: " & ex.Message) End Try 72. End Sub 73. 74. Private Function katPerNama(ByVal n As String) As Integer 'mengambil kode kategori be 75. rdasarkan nama kategori Dim kat As Integer = 0 76. Dim kate = From kategori In db.kategoris _ 77. 78. Where kategori.NmKategori Is n _ Select kategori.KDKategori 79. 80. 81. kat = kate.Single Return kat 82. End Function 83. Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) 84. Handles DataGridView1.Click 85. dgKlik() 'memanggil sub procedure dgKlik saat DataGridView1 diklik. End Sub 86. 87. Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 88. Handles cmdEdit.Click 89. 'saat tombol edit diklik Me.cmdBaru.Text = "Batal" 90. 91. Me.cmdEdit.Enabled = False Me.cmdHapus.Enabled = False 92. Me.cmdSimpan.Enabled = True 93. 94. edit = True 'sedang dalam proses edit 95. buka(True) 'buka semua control 6. Me.txtKodeBarang.Enabled = False 'kunci txtKodeBarang 9 Me.txtNamaBarang.Focus() 'Fokuskan cursor pada txtNamaBarang 97. End Sub 98. 99. For Each
100.
Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.Even tArgs) 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. 107.
buka(True) 'buka semua control Me.DataGridView1.Enabled = False 'non aktifkan DataGridView1 sehingga t
idak bisa diklik 108. 109. 110. 111. 112. 113. 114. 115. 116. 117. 118. 119. 120. 121. 122. 123. 124. 125. 126.
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.Ev entArgs) 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 End With 138. 139. Else 'jika bukan proses edit / tombol baru diklik 140. 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} End If 147. 148. 149. Try 150. db.SubmitChanges() 'simpan semua perubahan, baik itu proses update maup un insert 151. Catch ex As Exception 152. 153. MessageBox.Show("Error :" & ex.Message) End Try 154. 155. 156. resData() 157. dgKlik() 158. buka(False) 159. Me.cmdSimpan.Enabled = False 160. Me.cmdBaru.Text = "Baru"
161. 162. 163. 164. 165. 166. 167. 168.
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.Eve ntArgs) 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?", "Konfir masi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 173. If rep = MsgBoxResult.No Then Exit Sub 'jika hasilnya NO, data tidak akan d ihapus 174. 175. Dim deleteBrg = (From barang In db.barangs _ Where barang.KDBarang = Me.txtKodeBarang.Text).ToList()(0) 176. 177. 178. db.barangs.DeleteOnSubmit(deleteBrg) 179. 180. Try 181. db.SubmitChanges() 'simpan semua perubahan ke dalam database Catch ex As Exception 182. 183. MessageBox.Show("Error :" & ex.Message) End Try 184. 185. 186. resData() dgKlik() 187. 188. End Sub 189. 190. 191. Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.Ev entArgs) Handles cmdKeluar.Click 192. Me.Close() 'tutup form 193. 'bisa juga menggunakan : Application.Exit() End Sub 194. End Class 195.
Untuk memanage sebuah organisasi pasti dibutuhkan database agar dapat mengatur data-data yang ada. Dengan menggunakan Visual Basic dengan mudah kita dapat membuat form dengan mudah dan menyimpannya sebagai
database.
Berikut
adalah
langkah-langkahnya:
1. Buatlah sebuah project baru kemudian klik kanan pada project dan pilih add >> new item
2. Kemudian akan muncul jendela seperti dibawah ini, pilih service-b ased database. Namun dapat juga menggunakan local database untuk membuat database lokal pada pc Anda. dengan langkah-langkah yang sama dengan langkah pada service-based database.
3. Tuliskan namenya kemudian pilih Add >> tuliskan namanya>> Finish.
4. Maka akan muncul tab database explorer seperti gambar berikut:
5. Untuk membuat sebuah table baru klik kanan folder table >> add new table
6. Maka akan muncul tab dbo.table1:... isi nama kolom, tipe data, dan check pada allow null jika pada kolom tersebut diizinkan kosong. setelah selesai klik kanan pada tab >> save table isi nama tablenya.
7.Untuk mengeset id sebagai primary key , klik kanan pada id >> primary key
8. Untuk memasukkan table pada form aplikasi klik tab data source>>configure data set with wizard seperti gambar berikut
9. checklist apa saja yang mau dimasukkan pada form, misal table. Maka pada tab data source muncul tabel yang telah kita check tadi, klik pada table pilih details untuk memunculkan database pada form dengan format textboxt seperti gambar dibawah ini. Kemudian drag table coba ke form1
10. Buat form baru misal form2, kemudian klik table yang ada pada data source tadi kemudian yang tadinya dibikin detail diganti menjadi datagridview untuk menampilkan data yang sudah diinput dalam bentuk table. Drag table coba masukan pada form 2
11.Kembali ke form1 dan tambahkan button untuk menghubungkan antara form1 dan form2. Klik ganda pada button dan masukkan sorce code berikut: Form2.Show() Me.Visible = False
// untuk mengvisible kan form1 jadi ketika masuk ke form 2 form 1 tidak
terlihat 12.Karena menggunakan fungsi visible maka effectnya program tidak dapat berhenti ketika form2 sudah ditutup, maka menggunakan langkah tambahan. Klik pada form 1 kemudian klik event (tanda petir) pada properties pilih form closed >> klik ganda >> masukkan source berikut: System.Windows.Forms.Application.Exit() 13. Lakukan langkah 12 pada form2 14. Kemudian run dan lihat gambar dibawah ini
