UAS Lab Pengantar Pemrograman Bisnis 2 - Melati Putri Anggraeni

Hi, all! Pada kesempatan kali ini, saya akan menjelaskan tentang memanipulasi data. Data yang ada disini berasal dari Microsoft Access yang dihubungkan ke Microsoft Visual Basic, dan data yang saya olah ini merupakan data yang ada pada rental dvd “Video 8”. Wanna know more? Let’s check it out!

First of all, kita harus membuat project baru berbasis Visual Basic. Caranya adalah dengan meng-klik “File” pada menu strip, kemudian klik “Project”. Pilih “Windows Application” dan namai project tersebut sesuai dengan keinginan. Jangan lupa untuk memilih project pada kolom “Visual Basic”, bukan kolom yang lain karena nanti akan berbeda bahasa pemrograman.

Setelah muncul form kosong, ubah nama form tersebut sesuai dengan keinginan. Kali ini saya ubah form tersebut dengan mengganti nama dan text(judul)nya. Kemudian masukkan komponen yang dibutuhkan, seperti 4 buah label, 2 buah text box, dan 2 buah button. Atur sedemikian rupa sehingga terbentuk form login seperti ini:

*untuk merubah warna background, caranya dengan klik pada “Properties”, kemudian klik pada “BackColor”, dan pilih warna sesuai keinginan. Jangan lupa juga untuk mengatur textbox untuk password dengan klik pada textbox tersebut, kemudian klik kanan dan pilih “Properties”, lalu ubah “UseSystemPassword” yang sebelumnya “False” menjadi “True”.

Pada project kali ini, dibutuhkan beberapa form. Jadi, kita tambah lagi form yang baru dengan klik kanan pada project yang ada di sisi kanan Ms. Visual Studio 2008. Kemudian pilih “Add”, dan klik “Windows Form…”. Ubah nama form menjadi “FormMenu”.

Kemudian isi form tersebut dengan komponen yang dibutuhkan. Kali ini, hanya butuh 2 buah button. Atur sedemikian rupa sehingga terbentuk form seperti ini:

Sehubungan project ini bertujuan untuk memanipulasi data yang ada pada Microsoft Access, maka kita buat terlebih dahulu databasenya. Bukalah Ms. Office Access, kemudian pilih “Blank Database”. Ubah nama database jika diinginkan. Setelah itu, buat database seperti berikut:

Caranya adalah dengan klik kanan pada “Table1”, kemudian klik “Design View” dan ubah nama table tersebut dengan “Stock”. isilah kolom-kolom tersebut untuk membuat field baru.

Setelah field selesai dibuat, maka field tersebut dapat diisi dengan data yang ingin dimanipulasi. Kali ini, saya akan memanipulasi data stock dvd yang ada pada store room “Video 8”.

isilah field tersebut dengan data stock dvd yang tersedia:

 

Dibutuhkan 1 buah table selanjutnya. Caranya dengan klik “Create”, kemudian klik “Table” dan lakukan hal yang sama seperti membuat table sebelumnya. Isi kolom-kolom yang ada untuk membuat field baru, seperti berikut:

Isi field yang telah dibuat dengan data peminjam dan customer, seperti berikut:

Untuk menghubungkan antar-primary key yang ada pada masing-masing table, caranya adalah dengan klik “Create”, kemudian klik pada “Query Design”. Klik table yang akan dihubungkan, pada project kali ini adalah table stock dan table borrowing.

Hasilnya adalah seperti ini:

Setelah database dibuat, saatnya menghubungkan database tersebut kedalam Ms. Visual Studio. Caranya adalah dengan klik “Data” pada menu strip Ms. Visual Studio, kemudian klik “Add New Datasource” dan ikuti langkah berikut:

 pilih "Database", klik "Next >"

klik "New Connection", kemudian klik "Browse..."

klik "Test Connection", jika sukses, klik "OK"
klik pada tanda (+) di connection string untuk menyalin sumber database yang diperoleh dan akan dimasukkan dalam source code nantinya

klik pada checkbox untuk memilih "Tables" and "Views", kemudian klik "Finish"

Setelah database terhubung dengan Ms. Visual Studio, maka harus dibuat form baru untuk menginput, menghapus, menyimpan, dan mencari data yang telah dibuat. Cara membuat formnya sama seperti yang telah dilakukan sebelumnya, namun untuk komponennya berasal dari datasource yang telah dihubungkan tersebut yang kemudian di drag ke dalam form. Tata sedemikian rupa sehingga membentuk 2 form seperti berikut ini:

 Untuk form stock, data yang diambil adalah dari table stock.

Untuk form peminjaman, data yang diambil adalah dari table query peminjaman.

Agar project dapat dijalankan, maka harus dimasukkan source code untuk mengeksekusinya. Berikut source code yang digunakan dalam project ini:

Pada form “LOGIN”:

Double klik pada button Login,  kemudian isi source code

Private Sub ButtonLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLogin.Click

        If TextBoxUsername.Text = "melatiputri" And Password.Text = "1306470092" Then

            FormMenu.Show()

        Else

            If TextBoxUsername.Text = "" And Password.Text = "" Then

                MessageBox.Show("YOUR USERNAME AND PASSWORD AREN'T MATCH")

            End If

        End If

    End Sub

Double klik pada button Cancel, kemudian isi source code

Me.Close()

Pada form “FormMenu”:

Double klik pada button “Data Stock”, kemudian isi source code

STOCK.Show()

Double klik pada button “Data Peminjaman”, kemudian isi source code

PEMINJAMAN.Show()

Pada form “STOCK”:

Double klik pada tool strip button “Add New” atau yang menggunakan icon (+), kemudian isi source code

Ingat, untuk terlebih dahulu memasukkan source code imports yang akan menghubungkan database dengan form. Letakkan source code ini diatas public class

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Barulah kemudian isi dengan source code berikut

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

        IDDVDTextBox.Text = ""

        JudulFilmTextBox.Text = ""

        GenreFilmTextBox.Text = ""

        TahunTextBox.Text = ""

        StockTextBox.Text = ""

    End Sub

 Double klik pada tool strip button “Delete” atau yang menggunakan icon (X), kemudian isi source code

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

        StockBindingSource.RemoveCurrent()

    End Sub

Double klik pada tool strip button “Save” atau yang menggunakan icon save, kemudian isi source code

Private Sub StockBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.StockBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me._UAS_VB2_MelatiPutriA_1306470092DataSet)

        Dim koneksion As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\HP\Documents\UAS_VB2_MelatiPutriA-1306470092.accdb"

        Dim adding As String = "INSERT INTO stock values('" & IDDVDTextBox.Text & "', '" & JudulFilmTextBox.Text & "', '" & GenreFilmTextBox.Text & "', '" & TahunTextBox.Text & "', '" & StockTextBox.Text & "')"

        Dim objekoneksion As New OleDb.OleDbConnection(koneksion)

        objekoneksion.Open()

        Dim ocmd = New OleDbCommand(adding, objekoneksion)

        ocmd.ExecuteNonQuery()

        MsgBox("Save Success!!")

        objekoneksion.Close()

    End Sub

Untuk menambah tool strip, dapat di klik pada pilihan Add ToolMenuStrip, kemudian pilih “Button”. Ubah nama tool strip button tersebut menjadi “Search”.  Agar muncul gambar iconnya, klik “Properties”, klik “Image”, kemudian import gambar dari project resource file.

Double klik pada tool strip button “Search” atau yang menggunakan icon search, kemudian isi source code

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click

        Dim i As String

        i = InputBox("Cari Film")

        StockBindingSource.Position = StockBindingSource.Find("JudulFilm", i)

    End Sub

Pada form “PEMINJAMAN”:

Double klik pada tool strip button “Add New” atau yang menggunakan icon (+), kemudian isi source code

Sama seperti form “STOCK” untuk selalu menambahkan source code imports terlebih dahulu agar dapat terhubung antara database dan form

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Lalu masukkan source code berikut

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

        IDCustomerTextBox.Text = ""

        IDDVDTextBox.Text = ""

        JudulFilmTextBox.Text = ""

        TahunTextBox.Text = ""

        StockTextBox.Text = ""

    End Sub

 Double klik pada tool strip button “Delete” atau yang menggunakan icon (X), kemudian isi source code

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

        BorrowingBindingSource.RemoveCurrent()

    End Sub

Double klik pada tool strip button “Save” atau yang menggunakan icon save, kemudian isi source code

Private Sub StockBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StockBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.StockBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me._UAS_VB2_MelatiPutriA_1306470092DataSet)

        Dim koneksion As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\HP\Documents\UAS_VB2_MelatiPutriA-1306470092.accdb"

        Dim adding As String = "INSERT INTO stock values('" & IDDVDTextBox.Text & "', '" & JudulFilmTextBox.Text & "', '" & GenreFilmTextBox.Text & "', '" & TahunTextBox.Text & "', '" & StockTextBox.Text & "')"

        Dim objekoneksion As New OleDb.OleDbConnection(koneksion)

        objekoneksion.Open()

        Dim ocmd = New OleDbCommand(adding, objekoneksion)

        ocmd.ExecuteNonQuery()

        MsgBox("Save Success!!")

        objekoneksion.Close()

    End Sub

Untuk menambah tool strip, dapat di klik pada pilihan Add ToolMenuStrip, kemudian pilih “Button”. Ubah nama tool strip button tersebut menjadi “Search”.  Agar muncul gambar iconnya, klik “Properties”, klik “Image”, kemudian import gambar dari project resource file.

Double klik pada tool strip button “Search” atau yang menggunakan icon search, kemudian isi source code

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click

        Dim i As String

        i = InputBox("Cari Film")

        StockBindingSource.Position = StockBindingSource.Find("JudulFilm", i)

    End Sub

Untuk menjalankan project, klik debug. Kemudian nanti project akan jalan dan keluar form yang telah dibuat beserta perintah perintah yang telah dimasukkan sebelumnya.

Isilah username dengan “melatiputri” dan passwordnya “1306470092”. Lalu klik “Login”

 

Jika username dan password tidak diisi, maka akan muncul peringatan

Jika username dan password tepat, maka akan langsung membuka “FormMenu”. Klik pada button “Data Peminjaman”

Untuk menambah data, kosongkan terlebih dulu field field yang ada dengan klik “Add New” atau tool strip button yang menggunakan icon (+)

Kemudian, isikan data sesuai dengan field. Untuk menyimpannya, klik pada icon “Save” dan akan muncul dialog box seperti ini

Untuk menghapus data yang telah disimpan, klik pada icon “Delete” atau tool strip button

 

 

Untuk mencari data yang ada dalam database, klik pada icon "Search"

Sekarang, kita buka form "Data Peminjaman". caranya adalah dengan kembali ke "Form Menu", kemudian pilih "Data Peminjaman"

setelah diklik, akan keluar form "PEMINJAMAN" seperti ini

Untuk menambah data, kosongkan terlebih dulu field field yang ada dengan klik “Add New” atau tool strip button yang menggunakan icon (+)

 

Kemudian, isikan data sesuai dengan field. Untuk menyimpannya, klik pada icon “Save” dan akan muncul dialog box seperti ini

Untuk mencari data yang ada dalam database, klik pada icon "Search" 

Sekian penjelasan tentang manipulasi data kali ini. Semoga bermanfaat!^^