Public Class Form1
Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBarangToolStripMenuItem.Click
Form_Barang.MdiParent = Me
Form_Barang.Show()
End Sub
Private Sub DataPenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenjualanToolStripMenuItem.Click
Form_Jual.MdiParent = Me
Form_Jual.Show()
End Sub
Private Sub PencarianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form_Pencarian.MdiParent = Me
Form_Pencarian.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
If MsgBox(“Apakah Anda Yakin”, 4 + 32 + 256, “Keluar”) = MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
Private Sub LaporanBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanBarangToolStripMenuItem.Click
Form_LaporanBarang.MdiParent = Me
Form_LaporanBarang.Show()
End Sub
Private Sub LaporanJualToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanJualToolStripMenuItem.Click
Form_LaporanJual.MdiParent = Me
Form_LaporanJual.Show()
End Sub
Private Sub PencarianBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PencarianBarangToolStripMenuItem.Click
Form_PencarianBarang.MdiParent = Me
Form_PencarianBarang.Show()
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
End Class
• Form1 adalah form utama dari semua form yang ada, biasanya Form ini juga dapat di sebut sebagai Form induk atau MDI Parent. Form ini berguna untuk menampilkan seluruh form yang telah dibuat secara bersamaan mauun secara tersendiri.Cara membuat Form MDI Parent adalah Cara 1
– Atur Properti IsMDIContainer pada form biasa menjadi true
• Cara 2
– Tambahkan form baru dan langsung pilih MDI Parent Form
Setelah MDI Parent telah terbuat untuk menampilkan form – form yang lain selain Form1 atau MDI
Parent dengan menggunakan bahasa pemrogramannya seperti Namaform.MdiParent = me Namaform.show() .
Dalam Form1 atau MDI Parent ada MenuStrip yang di beri nama windows dan di dalam MenuStrip tersebut terdapat 3 pilihan menu.
- Menu Windows -> Cascade berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas mengggunakan bahasa pemrograman seperti
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
- Menu Windows -> Horizontal berguna untuk membuat tampilan Form yang lain atau Form Mdi Chlid seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
- Menu Windows -> Vertikal berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Public Class Form_Barang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangBindingNavigatorSaveItem.Click
Dim Ketemu As Integer
Ketemu = BarangBindingSource.Find(“Kode_Barang”, Kode_BarangTextBox.Text)
If Ketemu >= 0 Then
MsgBox(“Kode Barang Sudah Terpakai”, 0 + 16, “Perhatian”)
Exit Sub
End If
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BarangBindingSource.Filter = “”
End Sub
End Class
Form Barang adalah Form yang berfungsi untuk pengisian Barang yang akan di masukan ke database. Didalam Form Barang ada sebuah kolom untuk pencarian berdasarkan satuan barang. Form tersebut bertujuan untuk memudahkan kita dalam mencari barang yang dinginkan hanya dengan menuliskan satuan barang tersebut. Bahasa pemrogramannya adalah
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
Langkah Pembuatan Laporan
Project – Add New Item – Reporting – Crystal Report – berinama pada name – Add
Using the Report Wizard – Standard – OK
Create New Connection – OleDB Ado – Sql Native Client – Next – Lengkapi isiannya – Next – Finish
Masukan Sumber datanya – Next
Pilih field yang akan dimasukan dalam laporan – Next
Pilih Kriteria Pengelompokan – Next
ISI Summary Information – Next
Tentukan Kriterian Pengurutan Group – Finish
Lihat Hasilnya dengan Main Report Preview
Setelah laporannya selesai di buat agar dapat di tampilkan dalam form lakukan cara di bawah ini
• Tambahkan form baru
• Masukan Control Crystal Rreport Viewer ke dalam form
Click kanan pada crystal report viewer – Choose a crystal – report pilih laporannya – OK
Public Class Form_PencarianBarang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_PencarianBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub
End Class
Form pencarian adalah form berisi sebuah textbox yang digunakan untuk memasukan nama barang yang akan kita cari , dan secara otomatis nama yang kita ketikkan akan muncul di DataGridView.. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti di bawah ini :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub
Public Class Form1
Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBarangToolStripMenuItem.Click
Form_Barang.MdiParent = Me
Form_Barang.Show()
End Sub
Private Sub DataPenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenjualanToolStripMenuItem.Click
Form_Jual.MdiParent = Me
Form_Jual.Show()
End Sub
Private Sub PencarianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form_Pencarian.MdiParent = Me
Form_Pencarian.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
If MsgBox(“Apakah Anda Yakin”, 4 + 32 + 256, “Keluar”) = MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
Private Sub LaporanBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanBarangToolStripMenuItem.Click
Form_LaporanBarang.MdiParent = Me
Form_LaporanBarang.Show()
End Sub
Private Sub LaporanJualToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanJualToolStripMenuItem.Click
Form_LaporanJual.MdiParent = Me
Form_LaporanJual.Show()
End Sub
Private Sub PencarianBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PencarianBarangToolStripMenuItem.Click
Form_PencarianBarang.MdiParent = Me
Form_PencarianBarang.Show()
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
End Class
• Form1 adalah form utama dari semua form yang ada, biasanya Form ini juga dapat di sebut sebagai Form induk atau MDI Parent. Form ini berguna untuk menampilkan seluruh form yang telah dibuat secara bersamaan mauun secara tersendiri.Cara membuat Form MDI Parent adalah Cara 1
– Atur Properti IsMDIContainer pada form biasa menjadi true
• Cara 2
– Tambahkan form baru dan langsung pilih MDI Parent Form
Setelah MDI Parent telah terbuat untuk menampilkan form – form yang lain selain Form1 atau MDI
Parent dengan menggunakan bahasa pemrogramannya seperti Namaform.MdiParent = me Namaform.show() .
Dalam Form1 atau MDI Parent ada MenuStrip yang di beri nama windows dan di dalam MenuStrip tersebut terdapat 3 pilihan menu.
- Menu Windows -> Cascade berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas mengggunakan bahasa pemrograman seperti
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
- Menu Windows -> Horizontal berguna untuk membuat tampilan Form yang lain atau Form Mdi Chlid seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
- Menu Windows -> Vertikal berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Public Class Form_Barang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangBindingNavigatorSaveItem.Click
Dim Ketemu As Integer
Ketemu = BarangBindingSource.Find(“Kode_Barang”, Kode_BarangTextBox.Text)
If Ketemu >= 0 Then
MsgBox(“Kode Barang Sudah Terpakai”, 0 + 16, “Perhatian”)
Exit Sub
End If
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BarangBindingSource.Filter = “”
End Sub
End Class
Form Barang adalah Form yang berfungsi untuk pengisian Barang yang akan di masukan ke database. Didalam Form Barang ada sebuah kolom untuk pencarian berdasarkan satuan barang. Form tersebut bertujuan untuk memudahkan kita dalam mencari barang yang dinginkan hanya dengan menuliskan satuan barang tersebut. Bahasa pemrogramannya adalah
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
Langkah Pembuatan Laporan
Project – Add New Item – Reporting – Crystal Report – berinama pada name – Add
Using the Report Wizard – Standard – OK
Create New Connection – OleDB Ado – Sql Native Client – Next – Lengkapi isiannya – Next – Finish
Masukan Sumber datanya – Next
Pilih field yang akan dimasukan dalam laporan – Next
Pilih Kriteria Pengelompokan – Next
ISI Summary Information – Next
Tentukan Kriterian Pengurutan Group – Finish
Lihat Hasilnya dengan Main Report Preview
Setelah laporannya selesai di buat agar dapat di tampilkan dalam form lakukan cara di bawah ini
• Tambahkan form baru
• Masukan Control Crystal Rreport Viewer ke dalam form
Click kanan pada crystal report viewer – Choose a crystal – report pilih laporannya – OK
Public Class Form_PencarianBarang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_PencarianBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub
End Class
Form pencarian adalah form berisi sebuah textbox yang digunakan untuk memasukan nama barang yang akan kita cari , dan secara otomatis nama yang kita ketikkan akan muncul di DataGridView.. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti di bawah ini :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub
Public Class Form1
Private Sub DataBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBarangToolStripMenuItem.Click
Form_Barang.MdiParent = Me
Form_Barang.Show()
End Sub
Private Sub DataPenjualanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenjualanToolStripMenuItem.Click
Form_Jual.MdiParent = Me
Form_Jual.Show()
End Sub
Private Sub PencarianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form_Pencarian.MdiParent = Me
Form_Pencarian.Show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
If MsgBox(“Apakah Anda Yakin”, 4 + 32 + 256, “Keluar”) = MsgBoxResult.Yes Then
Me.Close()
End If
End Sub
Private Sub LaporanBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanBarangToolStripMenuItem.Click
Form_LaporanBarang.MdiParent = Me
Form_LaporanBarang.Show()
End Sub
Private Sub LaporanJualToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanJualToolStripMenuItem.Click
Form_LaporanJual.MdiParent = Me
Form_LaporanJual.Show()
End Sub
Private Sub PencarianBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PencarianBarangToolStripMenuItem.Click
Form_PencarianBarang.MdiParent = Me
Form_PencarianBarang.Show()
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
End Class
• Form1 adalah form utama dari semua form yang ada, biasanya Form ini juga dapat di sebut sebagai Form induk atau MDI Parent. Form ini berguna untuk menampilkan seluruh form yang telah dibuat secara bersamaan mauun secara tersendiri.Cara membuat Form MDI Parent adalah Cara 1
– Atur Properti IsMDIContainer pada form biasa menjadi true
• Cara 2
– Tambahkan form baru dan langsung pilih MDI Parent Form
Setelah MDI Parent telah terbuat untuk menampilkan form – form yang lain selain Form1 atau MDI
Parent dengan menggunakan bahasa pemrogramannya seperti Namaform.MdiParent = me Namaform.show() .
Dalam Form1 atau MDI Parent ada MenuStrip yang di beri nama windows dan di dalam MenuStrip tersebut terdapat 3 pilihan menu.
- Menu Windows -> Cascade berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas mengggunakan bahasa pemrograman seperti
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
- Menu Windows -> Horizontal berguna untuk membuat tampilan Form yang lain atau Form Mdi Chlid seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
- Menu Windows -> Vertikal berguna untuk membuat tampilan Form yang lain atau Form MdiChild seperti gambar. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti
Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Public Class Form_Barang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangBindingNavigatorSaveItem.Click
Dim Ketemu As Integer
Ketemu = BarangBindingSource.Find(“Kode_Barang”, Kode_BarangTextBox.Text)
If Ketemu >= 0 Then
MsgBox(“Kode Barang Sudah Terpakai”, 0 + 16, “Perhatian”)
Exit Sub
End If
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_Barang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BarangBindingSource.Filter = “”
End Sub
End Class
Form Barang adalah Form yang berfungsi untuk pengisian Barang yang akan di masukan ke database. Didalam Form Barang ada sebuah kolom untuk pencarian berdasarkan satuan barang. Form tersebut bertujuan untuk memudahkan kita dalam mencari barang yang dinginkan hanya dengan menuliskan satuan barang tersebut. Bahasa pemrogramannya adalah
Me.BarangBindingSource.Filter = “Satuan ='” & TextBox1.Text & “‘”
Langkah Pembuatan Laporan
Project – Add New Item – Reporting – Crystal Report – berinama pada name – Add
Using the Report Wizard – Standard – OK
Create New Connection – OleDB Ado – Sql Native Client – Next – Lengkapi isiannya – Next – Finish
Masukan Sumber datanya – Next
Pilih field yang akan dimasukan dalam laporan – Next
Pilih Kriteria Pengelompokan – Next
ISI Summary Information – Next
Tentukan Kriterian Pengurutan Group – Finish
Lihat Hasilnya dengan Main Report Preview
Setelah laporannya selesai di buat agar dapat di tampilkan dalam form lakukan cara di bawah ini
• Tambahkan form baru
• Masukan Control Crystal Rreport Viewer ke dalam form
Click kanan pada crystal report viewer – Choose a crystal – report pilih laporannya – OK
Public Class Form_PencarianBarang
Private Sub BarangBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.BarangBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.EnggalDataSet)
End Sub
Private Sub Form_PencarianBarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘TODO: This line of code loads data into the ‘EnggalDataSet.Barang’ table. You can move, or remove it, as needed.
Me.BarangTableAdapter.Fill(Me.EnggalDataSet.Barang)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub
End Class
Form pencarian adalah form berisi sebuah textbox yang digunakan untuk memasukan nama barang yang akan kita cari , dan secara otomatis nama yang kita ketikkan akan muncul di DataGridView.. Agar tampilan terlihat seperti diatas menggunakan bahasa pemrograman seperti di bawah ini :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Me.BarangBindingSource.Filter = “Nama_Barang like ‘%” & TextBox1.Text & “%'”
End Sub