Tugas 6 Lab Pengantar Pemrograman Bisnis 2

Tugas 6 mata kuliah VB2 sedang membahas tentang MDI dan menustrip. Kali ini saya akan membuat database pembelian mobil untuk PT CARINDO WONDERFUL. Berikut langkah-langkah yang saya lakukan untuk membuat database tersebut.

• Buka Visual Studio (dalam pembuatan database ini saya menggunakan Visual Studio 2008)
• Klik File, pilih New, lalu klik New Project
• Keluar form kosong yang kemudian saya isi dengan toolbox seperti Label, TextBox, Button, dan LinkLabel dan ditambah dengan background color yang nantinya akan menjadi form Sign In

• Agar aplikasi dapat dijalankan, maka harus dibuat source codenya. Caranya adalah:

||Untuk menjalankan button Sign In, double klik pada button Sign In, kemudian isikan source code berikut:Private Sub SignInButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SignInButton.Click
        If TextBoxUserID.Text = "Customer" And TextBoxPassword.Text = "1306470092" Then
            MDIParent1.Show()
            Me.Hide()
        Else
            Dim wronginput As Integer
            wronginput = MsgBox("UPS! Your User ID/Password is incorrect!!", MsgBoxStyle.Critical)
        End If
    End Sub



 ||Untuk menjalankan button Cancel, double klik pada button Cancel, kemudian isikan source code berikut:
Private Sub CancelButtonSignIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButtonSignIn.Click
        Me.Close()
    End Sub

||Untuk menjalankan perintah Sign Up, double klik pada link label Sign Up kemudian isikan source code berikut:
Private Sub LinkLabelSignUp_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabelSignUp.LinkClicked
        LinkLabelSignUp.LinkVisited = True
        Me.LinkLabelSignUp = New System.Windows.Forms.LinkLabel
        SignUp.Show()
    End Sub

• Buat form baru dengan klik kanan pada project (dalam kasus ini nama projectnya adalah Tugas6_VB2_MelatiPutriAnggraeni-1306470092), lalu pilih Add dan klik pada Windows Form... untuk membuat form Sign Up
• Keluar form kosong yang kemudian saya isi dengan Label, TextBox, RadioButton, DateTimePicker, dan Button. Hasilnya adalah sebagai berikut:

||Untuk memproses data sign up, double klik pada button Sign Up dan isikan source code berikut:
 Private Sub SignUpButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SignUpButton.Click
        MessageBox.Show("YOUR ACCOUNT HAS BEEN CREATED!!")
    End Sub

||Untuk menjalankan perintah Cancel, double klik pada button Cancel dan isikan source code berikut:
Private Sub CancelButtonSignUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButtonSignUp.Click
        Me.Close()
    End Sub

• Buat form baru dengan cara klik kanan pada project yang sudah diberi keterangan sebelumnya, dan ikuti langkah yang sama. Kali ini kita akan membuat form MDIparent. Berikut ini adalah hasilnya

||Untuk dapat menyambungkan MDI dengan Form Car Sales, maka harus membuat source code seperti berikut:
Private Sub FormCarSalesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormCarSalesToolStripMenuItem.Click
        Dim ChildForm As New CarSalesInputDatabase
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Form Car Sales" & m_ChildFormNumber

        ChildForm.Show()
    End Sub

•  Buat lagi form baru dengan cara seperti yang sudah dijelaskan sebelumnya. Form yang akan dibuat adalah Form Car Sales

||Untuk memproses data pada form diatas, double klik pada button PROCESS dan isikan source code berikut:
Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Word\
*Source code diatas berfungsi untuk menyambungkan database dengan Ms.Word yang akan menjadi tempat output data data tersebut

  Private Sub ProcessButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProcessButton.Click
        Dim myWord As New Microsoft.Office.Interop.Word.Application
        Dim myDoc As New Microsoft.Office.Interop.Word.Document
        myDoc = myWord.Documents.Open("D:\LALA\college\VA-TERM-3\Lab Pemrograman Bisnis 2\Tugas 6 VB2_Melati Putri Anggraeni-1306470092.docx")

        myDoc.Bookmarks("NoPolisi").Select()
        myWord.Selection.TypeText(TextBoxNoPol.Text)

        myDoc.Bookmarks("JenisMobil").Select()
        myWord.Selection.TypeText(ComboBoxJenisMobil.Text)

        myDoc.Bookmarks("MerkMobil").Select()
        myWord.Selection.TypeText(ComboBoxMerkMobil.Text)

        myDoc.Bookmarks("KodeMobil").Select()
        myWord.Selection.TypeText(TextBoxKodeMobil.Text)

        myDoc.Bookmarks("Harga").Select()
        myWord.Selection.TypeText(TextBoxHarga.Text)

        myDoc.Bookmarks("NamaCustomer").Select()
        myWord.Selection.TypeText(TextBoxUserID.Text)

        myDoc.Bookmarks("Sales").Select()
        myWord.Selection.TypeText(TextBoxSalesID.Text)

        If RadioButtonKredit.Checked Then
            myDoc.Bookmarks("JenisPembayaran").Select()
            myWord.Selection.TypeText("KREDIT")
        End If

        If RadioButtonCash.Checked Then
            myDoc.Bookmarks("JenisPembayaran").Select()
            myWord.Selection.TypeText("CASH")
        End If

        myDoc.SaveAs("D:\LALA\college\Tugas 6 VB2_Melati Putri Anggraeni-1306470092-1.docx")
    End Sub

*Source code yang ditandai dengan warna Merah, dapat diganti sesuai dengan nama dokumen dan path dokumen tersebut
  
||Untuk menjalankan perintah Cancel, klik pada button Cancel kemudian isikan source code berikut:
Private Sub CancelButtonFormCarSales_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButtonFormCarSales.Click
        Me.Close()
    End Sub 


Setelah memasukkan source code, sekarang aplikasi dapat dijalankan. Berikut langkah-langkahnya:

• Debug program, pastikan form yang keluar pertama adalah form Sign In.

  

• Karena belum memiliki akun, maka harus Sign Up terlebih dahulu dengan klik link label Sign Up dan akan keluar kotak dialog seperti ini:

Kemudian isikan dengan data yang dibutuhkan dan jika berhasil akan keluar tampilan seperti ini

• Kembali lagi ke form Sign In. Kali ini kita bisa sign in karena sudah memiliki akun. Masukkan User ID dan Password sesuai dengan yang telah diisi di form Sign Up (dalam kasus ini, User ID: Customer dan Passrword: 1306470092)

• Ketika button Sign In diklik, akan langsung tersambung ke MDIparent yang telah disambungkan lagi ke form car sales

• Klik pada Form Car Sales kemudian akan keluar tampilan form yang siap diisi oleh data

 

Isilah database diatas dengan data yang dibutuhkan

• Nantinya output dari database diatas akan otomatis masuk ke Ms. Word yang sudah dihubungkan sebelumnya

Aplikasi Database Resi Pengiriman Paket

Hi, all!

Akhir-akhir ini, kemudahan dalam berniaga, terlebih kepada kemudahan pengiriman paket dalam bentuk dokumen ataupun barang-barang kebutuhan sudah semakin meningkat. Hal itu tercermin pada data yang diperoleh dari beberapa perusahaan cargo dan PT POS dimana masyarakat lebih banyak mengirimkan barang daripada pengiriman surat. Apalagi saat ini yang sedang trend adalah online shopping dimana kita bisa membeli barang tanpa harus keluar rumah dan barang yang kita inginkan akan datang menghampiri kita melalui pengiriman cargo dari berbagai belahan dunia.

Nah, pada kesempatan kali ini, saya akan membagikan informasi dan cara membuat aplikasi database resi pengiriman paket yang datanya sangat penting bagi semua pihak dalam bertransaksi mengirim barang. Seperti pengirim, penerima, dan tentunya untuk data perusahaan cargo tersebut.

Untuk tahap pertama, buka Visual Studio (untuk saat ini saya menggunakan program Visual Studio 2008). Kemudian, klik File, pilih New, dan klik Project.

Terbukalah form kosong yang siap kita isi dengan interface dan source code untuk menjalankan aplikasinya.

Di bawah ini adalah contoh form kosong yang telah diisi dengan interface sesuai dengan keinginan kita. Dalam kasus ini, diisi dengan interface untuk database resi pengiriman paket

Sesuai dengan kebutuhan, kali ini saya mengisi form dengan data-data yang dibutuhkan untuk sebuah database pengiriman paket. Dalam form ini dibutuhkan:

• 15 label dengan text yang berbeda
• 7 text box
• 2 combo box
• 3 radio button
• 2 rich text box
• 1 date time picker
•  2 button yang masing masing juga diberi text yang berbeda sesuai kebutuhan. 

Juga jangan lupa untuk memberi nama pada label tersebut agar mempermudah saat membuat source code. Perubahan text dan nama dapat dilakukan dengan klik kanan pada komponen toolbox tersebut diatas dan klik pada properties.

Untuk menjalankan aplikasi yang dibangun dalam form database diatas, maka dibutuhkan source code yang benar. Source code dalam form ini sebagian besar berada dalam button PROCESS karena disana, semua data akan diproses dan akan menghasilkan output sesuai dengan keinginan kita.

Tujuan dalam pembuatan database kali ini adalah automation dari aplikasi yang menghasilkan output berupa data di Microsoft Word atau Microsoft Excel dan siap untuk dicetak sebagai bukti pengiriman barang.

Sesuai dengan tujuan yang telah disebutkan, maka untuk automasi ini terlebih dahulu kita harus membuat dokumen Ms. Word atau Ms. Excel. Dalam kasus ini, saya membuat Ms. Word dan mengisinya sesuai data yang akan di input. Hasilnya adalah sebagai berikut:

Agar dapat tersambung antara data yang akan diinput dari form aplikasi dengan output yang akan tertera di Ms. Word diatas, maka terlebih dahulu membuat bookmarks dengan cara:

1. Sesuaikan letak dimana data akan masuk ke output yang tepat
2. Klik Insert, pilih Bookmarks
3. Buatlah nama bookmark sesuai keinginan dan kebutuhan di tempat yang sudah kita sesuaikan seperti pada point 1
4. Setelah dibuat bookmark pada seluruh data yang ingin outputnya tertera, kemudian Save dokumen Ms. Word tersebut dan Close dokumennya

Kembali lagi ke perancangan aplikasi di Visual Studio 2008. Langkah selanjutnya adalah menyambungkan form aplikasi dengan Ms. Word yang dibuat tadi agar dalam pembuatan source code-nya tidak error dan dapat tersambung secara otomatis dengan cara klik Project, pilih Add Reference. Kemudian akan muncul kotak dialog Add Reference, klik pada kolom COM, dan pilih Microsoft Word 12.0 Object Library.

Setelah membuat sambungan dari Ms. Word ke Visual Studio dan sebaliknya, sekarang kita mulai membuat source code yang merupakan elemen penting dalam pembangunan aplikasi. Berikut langkah dalam membuat source code di form Database JNE ini. 

• double click pada button PROCESS.
• isi code berikut untuk menyambungkan Ms. Word dengan form aplikasi ini 

Imports Microsoft.Office.Core
Imports Microsoft.Office.Interop.Word

• dalam class Form1, isi dengan code berikut

Private Sub ProcessButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProcessButton.Click
        Dim myWord As New Microsoft.Office.Interop.Word.Application
        Dim myDoc As New Microsoft.Office.Interop.Word.Document
        myDoc = myWord.Documents.Open("D:\LALA\college\VA-TERM-3\Lab Pemrograman Bisnis 2\UTS VB2 Melati Putri Anggraeni-1306470092.docx")
*untuk path yang berwarna merah dapat diganti sesuai path atau letak dokumen yang telah dibuat tadi itu disimpan dengan menyertakan nama dokumen tersebut*

|| Untuk memasukkan input dari aplikasi yang akan menghasilkan output di Ms.Word, kita akan menyambungkan bookmarks yang telah dibuat tadi ke dalam source code di form aplikasi

        myDoc.Bookmarks("Cabang").Select()
        myWord.Selection.TypeText(ComboBoxCabang.Text)

        myDoc.Bookmarks("NoResi").Select()
        myWord.Selection.TypeText(TextBoxResi.Text)

        myDoc.Bookmarks("TglPengiriman").Select()
        myWord.Selection.TypeText(DateTimePicker1.Text)

        myDoc.Bookmarks("JenisBarang").Select()
        myWord.Selection.TypeText(ComboBoxJenisBarang.Text)

        myDoc.Bookmarks("Berat").Select()
        myWord.Selection.TypeText(TextBoxBerat.Text)

        If RadioButtonOke.Checked Then
            myDoc.Bookmarks("KategoriPaket").Select()
            myWord.Selection.TypeText("OKE")
            myDoc.Bookmarks("Tariff").Select()
            myWord.Selection.TypeText(System.Convert.ToInt16(TextBoxBerat.Text))
        End If

        If RadioButtonOke.Checked Then
            TextBoxTariff.Text = 8000 * System.Convert.ToInt32(TextBoxBerat.Text)
            myDoc.Bookmarks("Tariff").Select()
            myWord.Selection.TypeText(TextBoxTariff.Text)
            myDoc.Bookmarks("KategoriPaket").Select()
            myWord.Selection.TypeText("OKE")
        End If

        If RadioButtonYes.Checked Then
            TextBoxTariff.Text = 10000 * System.Convert.ToInt32(TextBoxBerat.Text)
            myDoc.Bookmarks("Tariff").Select()
            myWord.Selection.TypeText(TextBoxTariff.Text)
            myDoc.Bookmarks("KategoriPaket").Select()
            myWord.Selection.TypeText("YES")
        End If

        If RadioButtonSuperKilat.Checked Then
            TextBoxTariff.Text = 25000 * System.Convert.ToInt32(TextBoxBerat.Text)
            myDoc.Bookmarks("Tariff").Select()
            myWord.Selection.TypeText(TextBoxTariff.Text)
            myDoc.Bookmarks("KategoriPaket").Select()
            myWord.Selection.TypeText("SUPER KILAT")
        End If

        myDoc.Bookmarks("NamaPengirim").Select()
        myWord.Selection.TypeText(TextBoxNamaPengirim.Text)

        myDoc.Bookmarks("AlamatPengirim").Select()
        myWord.Selection.TypeText(RichTextBoxAlamatPengirim.Text)

        myDoc.Bookmarks("TlpPengirim").Select()
        myWord.Selection.TypeText(TextBoxTlpPengirim.Text)

        myDoc.Bookmarks("NamaPenerima").Select()
        myWord.Selection.TypeText(TextBoxNamaPenerima.Text)

        myDoc.Bookmarks("AlamatPenerima").Select()
        myWord.Selection.TypeText(RichTextBoxAlamatPenerima.Text)

        myDoc.Bookmarks("TlpPenerima").Select()
        myWord.Selection.TypeText(TextBoxTlpPenerima.Text)

||Setelah selesai input, data akan secara otomatis tersimpan dalam dokumen baru dengan cara:

        myDoc.SaveAs("D:\LALA\college\VA-TERM-3\UTS VB2 Melati Putri Anggraeni-1306470092-1.docx")
    End Sub
 *untuk path yang berwarna merah dapat diganti sesuai path atau letak dokumen yang telah dibuat tadi itu disimpan dengan menyertakan nama dokumen tersebut ditambah dengan perbedaan penamaan, misalkan dalam contoh diatas saya menambahkan "-1" agar dapat muncul dokumen baru yang berbeda dan sudah terisi oleh data yang telah diinput*

||Untuk membatalkan input, klik pada button CLOSE

Private Sub CancelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelButton.Click
        Me.Close()
    End Sub

Setelah memasukkan source code diatas, sekarang kita coba debug aplik
asinya dan isi data pada kolom yang tersedia. Contohnya seperti berikut ini:

Kemudian klik button PROCESS dan hasilnya akan menjadi seperti berikut ini:

Data yang sudah keluar dan masuk ke Ms. Word sudah siap untuk dicetak dan menjadi bukti pengiriman barang melalui cargo JNE