Tugas 12 : Memanipulasi Data

Hi all! Saya akan menjelaskan tentang cara memanipulasi data. Kali ini, saya akan memanipulasi data pemesanan tiket konser. Berikut langkah-langkahnya:

1. Buatlah project baru (saat ini menggunakan Ms. Visual Studio 2008) dengan klik File, pilih New, kemudian klik Project. Berikan nama project tersebut "FormLogin" dan lengkapi dengan 2 label, 2 textbox, dan 2 button.
   
   
   
    
2.  Buat form yang kedua untuk mengakses database. Caranya adalah dengan klik kanan pada project yang telah dibuat yang ada pada sisi kanan layar. pada kasus ini projectnya berjudul VB2_12_MelatiPutriAnggraeni_FormAplikasi. Setelah klik kanan, pilih “Add” kemudian klik “Windows Form”. Ubah nama form kedua tersebut dengan nama “DatabaseTicketing.vb”. Isi form tersebut dengan data-data yang akan dibutuhkan oleh database dengan cara drag komponen dari data source yang sudah ditambahkan sebelumnya. Tambahkan 4 button dan atur sedemikian rupa.
   
   
   
   
   
   Untuk dapat mengakses database, kita harus memasukkan database yang telah dibuat terlebih dahulu (contoh seperti dibawah)
   
   
   
   
   
   
   
   Caranya adalah dengan klik “Data” pada menu strip, kemudian klik pada “Add New Data Source” dan ikuti langkah seperti dibawah ini
   
   
   
   
   
   Pada gambar dibawah ini, untuk memasukkan databasenya caranya adalah klik "Browse" pada dialog box "Add Connection" kemudian nanti akan terhubung ke tempat penyimpanan file database
   
   
   
   
   
    
   
   Untuk melihat hasil inputan, kita bisa membuat form yang berisi table database yang telah dibuat sebelumnya. Caranya sama seperti membuat form baru yang telah dicontohkan sebelumnya namun yg berbeda adalah komponen yang di-drag. Hasilnya adalah seperti ini
   
   
   
   
   
   
   
   
   
   Sekarang, untuk mengeksekusi program, kita membutuhkan source code yang tepat untuk menjalankannya. Pada FormLogin, ntuk memasukkan source code, langkah yang dilakukan adalah dengan double click pada Button 1 yang sudah diberi judul “Sign In” dan diberi nama “SignInButton”. Kemudian masukkan source code berikut:
   If TextBoxUsername.Text = "Melati Putri Anggraeni" And TextBoxPassword.Text = "1306470092" Then
               DatabaseTicketing.Show()
               Me.Hide()
           Else
               Dim wronginput As Integer
               wronginput = MsgBox("UPS! Your User ID/Password is incorrect!!", MsgBoxStyle.Critical)
           End If
   Maksud dari source code diatas adalah jika memasukkan username dan password sesuai dengan yang ditentukan (misal: username adalah Melati Putri Anggraeni” dan password adalah 1306470092), maka akan masuk ke form berikutnya. Namun jika tidak, maka akan keluar dialog box yang bertuliskan “UPS! Your User ID/Password is incorrect!!”.
   
   
   Untuk menggagalkan pengisian form, caranya simple yaitu dengan double click pada Button 2 yang telah diberi label “Cancel” dan diberi nama “CancelButton” kemudian masukkan source code:
   Me.Close()
   
   
   Kemudian, coba debug form tersebut. hasilnya nanti akan keluar seperti ini:
   
   
   
   
   
   Setelah memasukkan username dan password dengan tepat, maka akan langsung beralih ke form berikutnya. Dalam kasus ini, form login yang sukses akan beralih ke form “Database Ticketing”.
   Dari form “Database Ticketing” inilah kita dapat menginput data ke dalam database yang telah kita buat sebelumnya. Kita dapat memasukkan source code agar data dapat tersambung dari form ini ke database yang telah disambungkan sebelumnya. Caranya, dengan double click pad Button 1 yang sudah diberi label “SAVE” dan diberi nama “ButtonSave” dan masukkan source code seperti berikut:
   Private Sub ButtonSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSave.Click
           Dim connection As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\HP\Documents\VB2_12_MelatiPutri_Database.accdb"
           Dim objectconnection As New OleDb.OleDbConnection(connection)
   
   
           Dim tambah As String = "INSERT INTO TableTicketingSell values ('" & IDAudienceTextBox.Text & "', '" & NameAudienceTextBox.Text & "', '" & AddressAudienceTextBox.Text & "', '" & PhoneAudienceTextBox.Text & "', '" & RowTextBox.Text & "', '" & PriceTextBox.Text & "', '" & AmountOrderTextBox.Text & "', '" & TotalPriceTextBox.Text & "')"
           Dim ocmd = New OleDbCommand(tambah, objectconnection)
   
   
           objectconnection.Open()
           ocmd.ExecuteNonQuery()
           MsgBox("Success!!!")
           objectconnection.Close()
   
   
       End Sub
    
   
   Sekarang masukkan data baru yang akan di input ke database
   
   
   
   
   
   
   
   Untuk melihat data yang telah di input, caranya adalah dengan double click pada Button 2 yang sudah diberi label “DATABASE” dan diberi nama “ButtonLoadData” kemudian masukkan source code berikut:
   
   
       Private Sub ButtonLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoadData.Click
           AllDatabase.Show()
       End Sub
   
   
   
   
    Hasilnya adalah:
   
   
   
   
   
   
   
   Saat ingin memasukkan data baru lainnya, kita harus menghapus data yang sudah masuk kedalam database yang masih ada di form. Untuk menghapusnya, kita membutuhkan satu buah button yang diberi label “CLEAR” dan diberi nama “ButtonClear” kemudian masukkan source code seperti berikut:
   
   
       Private Sub ButtonClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClear.Click
           IDAudienceTextBox.Text = ""
           NameAudienceTextBox.Text = ""
           AddressAudienceTextBox.Text = ""
           PhoneAudienceTextBox.Text = ""
           RowTextBox.Text = ""
           PriceTextBox.Text = ""
           AmountOrderTextBox.Text = ""
    
   
   Hasilnya akan kembali kosong seperti semula: