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