Melati Putri Anggraeni's: 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:

Sesuaikan letak dimana data akan masuk ke output yang tepat
Klik Insert, pilih Bookmarks
Buatlah nama bookmark sesuai keinginan dan kebutuhan di tempat yang sudah kita sesuaikan seperti pada point 1
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: