UAS LAB VB 2 - SHABRINA GHASSANI 1306470110

Halo semuanya! Kali ini saya akan menjelaskan tentang cara memanipulasi data dengan menghubungkan Microsoft Access dengan Visual Basic. Saya telah membuat form mengenai pembayaran gaji karyawan. Berikut adalah ketentuan-ketentuan dalam menghitung gaji karyawan:

1. Gaji pokok manajer sebesar Rp25.000.000,- sedangkan gaji staf sebesar Rp10.000.000,-
2. Jika status karyawan menikah, maka tunjangan pasangannya sebesar 10% dari gaji pokok, sedangkan jika belum menikah, maka karyawan tidak mendapatkan tunjangan pasangan.
3. Jika karyawan memiliki anak, maka tunjangan anak yang didapatkan adalah sebesar 2% dari gaji pokok untuk setiap anak. Tetapi maksimal hanya 2 anak yang akan mendapatkan tunjangan anak. Jika karyawan memiliki anak lebih dari 2, maka tunjangan anak yang didapatkan hanya sebesar tunjangan anak untuk 2 anak, dan jika karyawan tidak memiliki anak, maka karyawan tidak mendapatkan tunjangan anak.
4. Setiap karyawan dikenakan pajak yang besarnya 5% dari gaji pokok.
5. Total gaji karyawan diperoleh dari: gaji pokok + tunjangan pasangan + tunjangan anak - pajak

Hal pertama yang saya lakukan adalah membuat database pada Microsoft Access. Tabel telah saya namakan tblGajiKaryawan, dengan nama-nama field dan tipe data seperti berikut:

Setelah itu, simpan tabel kita. Lalu masukkan data-data yang pengguna perlukan seperti berikut:

Simpan data-data yang telah dimasukkan. Lalu, buat query untuk memasukkan rumus yang dibutuhkan dalam menghitung gaji karyawan. Cara membuat query adalah dengan klik Create, lalu pilih Query Design seperti berikut:

Pada Show Table, pilih tabel yang telah dibuat dan klik Add, lalu masukkan rumus berikut:

• GajiPokok: IIf([Jabatan]="Manajer";25000000;10000000)
• TunjanganPasangan: IIf([StatusPernikahan]="Menikah";[GajiPokok]*10/100;0)
• TunjanganAnak: IIf([JumlahAnak]=0;0;IIf([JumlahAnak]=1;[GajiPokok]*2/100;[GajiPokok]*2/100*2))
• Pajak: [GajiPokok]*5/100
• TotalGaji: [GajiPokok]+[TunjanganPasangan]+[TunjanganAnak]-[Pajak]

Simpan database kita dalam folder yang sama dengan project VB yang akan dibuat. Buat project baru pada VB, lalu koneksikan dengan database yang telah kita buat dengan cara seperti berikut:

Pada General Tab, klik Data Sources lalu klik Add New Data Source

Pilih Database, lalu klik Next

Pilih Dataset, lalu klik Next

Klik Browse dan pilih database Ms.Access yang telah dibuat, lalu klik OK

Expand pada "Connection string that you will save in the application" lalu Copy untuk dimasukkan pada source code nanti, lalu klik Finish

Klik Yes

Check pada CheckBox "Yes, save the connection as", lalu klik Next

Check pada CheckBox Tables dan Views, lalu klik Finish

Setelah itu, buatlah 2 form, form pertama bernama FormLogin dan form kedua saya namakan Form1. Susunlah kedua form seperti berikut:

FormLogin

Pada TextBox untuk password, ubah UseSystemPasswordChar pada Properties dari False menjadi True agar saat di debug, password tidak dapat terlihat.

Form1
Drag isi tblGajiKaryawan dari Data Sources pada General Tab, Anda dapat mengganti TextBox dengan tools lainnya dengan cara klik pada tanda panah berikut:

Pada Tab General, pilih Data Source, lalu double klik DatabaseGajiDataSet, setelah itu drag tblGajiKaryawan ke Form1.

Untuk TextBox gaji pokok, tunjangan pasangan, tunjangan anak, pajak, serta RichTextBox total gaji, ubah ReadOnly pada Properties TextBox dan RichTextBox dari False menjadi True agar saat di debug hasil perhitungan tidak dapt diubah sembarangan.

Berikut ini adalah source code untuk FormLogin:

Button Login:

Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
        If txtusername.Text = "admin" And txtpassword.Text = "123" Then
            MsgBox("Anda telah masuk kedalam form pembayaran gaji pegawai", MsgBoxStyle.Information, "Login")
            Form1.Show()
        Else
            If txtusername.Text = "" And txtpassword.Text = "" Then
                MsgBox("Username dan Password Tidak Ditemukan", MsgBoxStyle.Critical, "Error")
            Else
                If txtusername.Text = "" Then
                    MsgBox("Username Tidak Ditemukan", MsgBoxStyle.Critical, "Error")
                Else
                    If txtpassword.Text = "" Then
                        MsgBox("Password Tidak Ditemukan", MsgBoxStyle.Critical, "Error")
                    Else
                        MsgBox("Username dan/atau Password salah", MsgBoxStyle.Critical, "Error")
                    End If
                End If
            End If
        End If
    End Sub

Button Cancel:

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

Source code untuk Form1:

Pada Form1 itu sendiri tambahkan source code berikut:

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DatabaseGajiDataSet.tblGajiKaryawan' table. You can move, or remove it, as needed.
        Me.TblGajiKaryawanTableAdapter.Fill(Me.DatabaseGajiDataSet.tblGajiKaryawan)

    End Sub

Button Baru:

Private Sub BaruButton_Click(sender As Object, e As EventArgs) Handles BaruButton.Click
        TblGajiKaryawanBindingSource.AddNew()
    End Sub

Button Simpan:

Private Sub SimpanButton_Click(sender As Object, e As EventArgs) Handles SimpanButton.Click
        Me.Validate()
        Me.TblGajiKaryawanBindingSource.EndEdit()
        TblGajiKaryawanTableAdapter.Update(Me.DatabaseGajiDataSet.tblGajiKaryawan)

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\UAS LAB VB 2 - SHABRINA GHASSANI 1306470110\DatabaseGaji.accdb"

        Dim tambah As String = "insert into tblGajiKaryawan values('" & NIKTextBox.Text & "','" & NamaKaryawanTextBox.Text & "','" & JabatanComboBox.Text & "','" & GajiPokokTextBox.Text & "','" & StatusPernikahanComboBox.Text & "','" & JumlahAnakComboBox.Text & "','" & TunjanganPasanganTextBox.Text & "','" & TunjanganAnakTextBox.Text & "','" & PajakTextBox.Text & "','" & TotalGajiRichTextBox.Text & "')"

        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

        objekkoneksi.Open()
        Dim ocmd = New OleDbCommand(tambah, objekkoneksi)
        ocmd.ExecuteNonQuery()
        MsgBox("Data telah tersimpan")
        objekkoneksi.Close()
     
    End Sub

Button Hapus:

Private Sub HapusButton_Click(sender As Object, e As EventArgs) Handles HapusButton.Click
        TblGajiKaryawanBindingSource.RemoveCurrent()
    End Sub

Button Hitung:

Private Sub HitungButton_Click(sender As Object, e As EventArgs) Handles HitungButton.Click
        If JabatanComboBox.Text = "Manajer" Then
            GajiPokokTextBox.Text = "25000000"
        Else
            GajiPokokTextBox.Text = "10000000"
        End If
        If StatusPernikahanComboBox.Text = "Belum Menikah" Then
            TunjanganPasanganTextBox.Text = "0"
        Else
            TunjanganPasanganTextBox.Text = GajiPokokTextBox.Text * 10 / 100
        End If
        If JumlahAnakComboBox.Text = "0" Then
            TunjanganAnakTextBox.Text = "0"
        End If
        If JumlahAnakComboBox.Text = "1" Then
            TunjanganAnakTextBox.Text = GajiPokokTextBox.Text * 2 / 100
        End If
        If JumlahAnakComboBox.Text = "2" Then
            TunjanganAnakTextBox.Text = GajiPokokTextBox.Text * 2 / 100 * 2
        End If
        If JumlahAnakComboBox.Text > "2" Then
            TunjanganAnakTextBox.Text = GajiPokokTextBox.Text * 2 / 100 * 2
        End If
        PajakTextBox.Text = GajiPokokTextBox.Text * 5 / 100
        TotalGajiRichTextBox.Text = Val(GajiPokokTextBox.Text) + Val(TunjanganPasanganTextBox.Text) + Val(TunjanganAnakTextBox.Text) - Val(PajakTextBox.Text)
    End Sub

Button Ubah:

Private Sub UbahButton_Click(sender As Object, e As EventArgs) Handles UbahButton.Click
        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\UAS LAB VB 2 - SHABRINA GHASSANI 1306470110\DatabaseGaji.accdb;persist security info = false"
        Dim conn As New OleDb.OleDbConnection(koneksi)
        conn.Open()
        Dim MyIndex As Integer
        Dim NIK As Integer
        Dim NamaKaryawan As String
        Dim Jabatan As String
        Dim StatusPernikahan As String
        Dim JumlahAnak As String

        MyIndex = TblGajiKaryawanDataGridView.CurrentRow.Index
        NIK = TblGajiKaryawanDataGridView.Item(0, MyIndex).Value
        NamaKaryawan = TblGajiKaryawanDataGridView.Item(1, MyIndex).Value
        Jabatan = TblGajiKaryawanDataGridView.Item(2, MyIndex).Value
        StatusPernikahan = TblGajiKaryawanDataGridView.Item(4, MyIndex).Value
        JumlahAnak = TblGajiKaryawanDataGridView.Item(5, MyIndex).Value

        Dim query As String = "Update tblGajiKaryawan set NamaKaryawan='" & NamaKaryawan & "',Jabatan='" & Jabatan & "',StatusPernikahan='" & StatusPernikahan & "',JumlahAnak='" & JumlahAnak & "' where NIK= " & NIK & ""
        Dim command As New OleDbCommand

        With command
            .CommandText = query
            .Connection = conn
            .ExecuteNonQuery()
        End With
        MsgBox("Data telah diubah")
        conn.Close()
    End Sub

Button Cari:

Private Sub CariButton_Click(sender As Object, e As EventArgs) Handles CariButton.Click
        If NIKRadioButton.Checked Then
            Me.TblGajiKaryawanBindingSource.Filter = "NIK ='" & CariTextBox.Text & "'"
        End If
        If NamKaryawanRadioButton.Checked Then
            Me.TblGajiKaryawanBindingSource.Filter = "NamaKaryawan LIKE'%" & CariTextBox.Text & "'"
        End If
        If JabatanRadioButton.Checked Then
            Me.TblGajiKaryawanBindingSource.Filter = "Jabatan LIKE'%" & CariTextBox.Text & "'"
        End If
    End Sub

Berikut adalah hasil saat project di debug:

Username: admin
Password: 123

Saat meng-klik Button Baru:

Saat meng-klik Button Hitung:

Saat meng-klik Button Simpan:

Saat ingin menghapus data yang NIK nya adalah 1000015:

Setelah meng-klik Button Hapus maka data yang memiliki NIK 1000015 hilang:

Untuk Button Ubah, kita hanya dapat mengubah NIK, Nama Karyawan, Jabatan, Status Pernikahan, dan Jumlah Anak karena Gaji Pokok, Tunjangan Pasangan, Tunjangan Anak, Pajak, dan Total Gaji adalah hasil perhitungan dan tidak dapat diubah. Karyawan yang bernama Lola Agustina diubah namanya menjadi Lola Tiara, berikut adalah hasil setelah mengubah nama karyawan lalu meng-klik Button Ubah:

Berikut adalah hasil pencarian berdasarkan NIK, Nama Karyawan, dan Jabatan dengan menggunakan Button Cari:

Sekian penjelasan dari saya, semoga bermanfaat untuk kita semua Aamin....

TUGAS VB 2 MANIPULASI DATA - SHABRINA GHASSANI 1306470110

Halo semuanya! Pada hari ini saya akan menjelaskan mengenai manipulasi data. Saya akan membuat form dan data mengenai pembelian barang, pencatatannya dilakukan oleh pegawai toko buku.

Hal pertama yang harus kita lakukan adalah membuat halaman baru pada Microsoft Access. Buatlah halaman pada Microsoft Access seperti berikut:

Setelah itu, kita akan membuat query yang berisi rumus-rumus yang diperlukan untuk menghitung total harga, diskon, total pembelian, dan kembalian.

1. Klik Create, lalu pilih Query Design

2. Klik Add untuk menambahkan table yang kamu inginkan, kemudian click Close.

Kemudian masukkan field – field table ke dalam kisi QBE bagian bawah dengan cara klik tahan nama field, kemudian geser ke bagian fungsi QBE.

Lalu tulis rumus-rumus berikut pada kolom total harga, diskon, total pembelian, dan kembalian pada kolom yang tersedia:

• TotalHarga: [JumlahBuku]*[HargaSatuan]
• Diskon: IIf([Status]="Member";[TotalHarga]*10/100;0)
• TotalPembelian: [TotalHarga]-[Diskon]
• Kembalian: [UangPembayaran]-[TotalPembelian]

3. Save query yang tela kita buat. Jika setelah Anda mengisi jumlah buku, harga satuan, status, dan total harga, diskon, total pembelian, serta kembalian otomatis dapat menghitung angka yang telah Anda masukkan, maka query berhasil dibuat.

Lalu simpan halaman pekerjaan Microsoft Access Anda dengan cara klik Office Button, lalu klik Save.

Setelah itu kita membuat project pada Visual Basic. Kali ini kita akan membuat 3 Form, yaitu:

1. Form1

Kita akan memasukkan atau menghubungkan pekerjaan di Microsoft Access yang telah kita buat dengan Visual Basic yang sedang kita buat.

Pada Tab General Form 1, klik Data Source, lalu klik Add New Data Source.

Pilih Database, lalu klik Next

Pilih Dataset, setelah itu klik Next

Klik Browse dan pekerjaan kita yang telah dibuat di Microsoft Access, lalu klik OK

Expand pada "Connection string that you will save in the application" lalu copy untuk koding kita nanti, setelah itu klik Next

Jika Ada pertanyaan seperti dibawah ini, pilih Yes

Setelah itu klik Next

Lalu Check pada Tables dan klik Finish

Setelah itu, pada Tab General, pilih Data Source, klik double pada DataPembeliDataSet, lalu klik double pada TablePembeli, setelah itu drag isi TablePembeli satu-satu dan susun seperti berikut:

Tambahkan pula 4 Button dan ganti Text Button seperti gambar diatas

Sebelum koding Public Class Form1, tulislah koding berikut ini:

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Koding untuk Button Clear:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        IDPembeliTextBox.Text = ""

        NamaPembeliTextBox.Text = ""

        EmailTextBox.Text = ""

        JumlahBukuTextBox.Text = ""

        HargaSatuanTextBox.Text = ""

        TotalHargaTextBox.Text = ""

        StatusTextBox.Text = ""

        DiskonTextBox.Text = ""

        TotalPembelianTextBox.Text = ""

        UangPembayaranTextBox.Text = ""

        KembalianTextBox.Text = ""

    End Sub

Koding untuk Button Save:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Shabrina Ghassani\Lab VB2\Tugas VB 2 - Shabrina Ghassani\DataPembeli.accdb"

        Dim tambah As String = "INSERT INTO TablePembeli values('" & IDPembeliTextBox.Text & "', '" & NamaPembeliTextBox.Text & "','" & EmailTextBox.Text & "','" & JumlahBukuTextBox.Text & "','" & HargaSatuanTextBox.Text & "','" & TotalHargaTextBox.Text & "','" & StatusTextBox.Text & "','" & DiskonTextBox.Text & "','" & TotalPembelianTextBox.Text & "','" & UangPembayaranTextBox.Text & "','" & KembalianTextBox.Text & "')"

        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

        Dim ocmd = New OleDbCommand(tambah, objekkoneksi)

        objekkoneksi.Open()

        ocmd.ExecuteNonQuery()

        MsgBox("Sukses")

        objekkoneksi.Close()

    End Sub

Koding untuk Button Check:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Form2.Show()

    End Sub

Koding untuk Button Exit:

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

2. Form2

Pada Tab General, pilih Data Source, lalu double klik DataPembeliDataSet, setelah itu drag TablePembeli ke Form2. Berikut adalah tampilannya:

3. FormLogin

Masukkan 2 Label, 2 TextBox, serta 1 Button dan susun seperti berikut ini:

Koding untuk Button Login:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.Text = "Pegawai" And TextBox2.Text = "123456" Then

            Form1.Show()

            Form2.Hide()

        Else

            MsgBox("Sorry, Wrong Username/Password")

        End If

    End Sub

Untuk memilih Form mana yang muncul pertama kali saat kita debug, pilih Project, lalu klik Tugas VB 2 - Shabrina Ghassani Properties, setelah itu pilih Application, lalu pada Startup Form pilih form yang Anda inginkan untuk muncul pertama kali. Tetapi dalam kasus ini, saya memilih FormLogin untuk menjadi Startup Form

Berikut ini adalah hasil dari pekerjaan yang telah dilakukan saat di debug:

Masukkan username dan password sesuai koding. Pada kasus ini, username nya adalah Pegawai dan passwordnya adalah 123456, setelah itu klik Login.

Berikut adalah form yang terbuka setelah kita meng-klik Login. Data yang tertera adalah data pertama yang sudah tertera di Microsoft Access kita. Untuk menambahkan data baru, maka kita harus mengosongkan semua TextBox yang ada dengan cara meng-klik Button Clear.

Setelah semua TextBox kosong, Anda dapat memasukkan data yang baru.

Jika data telah ditulis, maka klik Button Save dan akan keluar MessageBox seperti berikut yang menandakan data sukses di input.

Untuk mengecek data yang sudah tersimpan, klik Button Check, lalu Form2 akan muncul. Pada Form2 berikut, data baru yang telah kita masukkan sudah ter-input.

Setelah Anda memasukkan data-data baru dan sudah berhasil tersimpan, Anda dapat keluar dari Form dengan cara meng-klik Button Exit.

Sekian penjelasan dari saya, semoga bermanfaat untuk kita semua. Aamin Aamiin :)

TUGAS 6 LAB VB 2 SEMESTER 3 VOKASI AKUNTANSI 2013

Pada kesempatan kali ini saya akan menjelaskan bagaimana membuat suatu project dengan menggunakan MDI Parent dalam VB.NET.

Buatlah project baru dalam VB.Net. Susun Form1 seperti berikut ini:

Di sebelah kanan project ada nama project yang sedang kita kerjakan, klik kanan pada nama project lalu klik Add dan pilih New Form. Buatlah 4 form baru seperti berikut ini:

Pada Button Login di Form1, masukkan source code berikut:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "pelanggan" And TextBox2.Text = "123456" Then
            MDIParent1.Show()
            Me.Hide()

        Else
            Dim salahinput As Integer
            salahinput = MsgBox("Maaf Username/Password yang Anda masukkan salah", MsgBoxStyle.Critical)

        End If
    End Sub

Untuk LinkLabel di Form satu masukkan source code berikut:

Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        LinkLabel1.LinkVisited = True
        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
        Sign_Up.Show()
    End Sub

Dan untuk Button Cancel di Form1 masukkan coding berikut:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

Pada Form MDI Parent, klik File > New > Lalu tulis nama form yang akan dibuat. Dalam project kali ini  tulis Our Books dan Confirmation of Payment.

Klik double pada Our Books dan masukkan source code berikut:

Private Sub OurBooksToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OurBooksToolStripMenuItem.Click
        Dim ChildForm As New Our_Books
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Our Books" & m_ChildFormNumber

        ChildForm.Show()
    End Sub

Klik double pada Confirmation of Payment, berikut adalah source codenya:

Private Sub ConfirmationOfPaymentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConfirmationOfPaymentToolStripMenuItem.Click
        Dim ChildForm As New Confirmation_of_Payment
        ChildForm.MdiParent = Me

        m_ChildFormNumber += 1
        ChildForm.Text = "Confirmation of Payment" & m_ChildFormNumber

        ChildForm.Show()
    End Sub

Pada Button OK di Form Sign Up, masukkan coding berikut:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MessageBox.Show("Your account has been successfully created.Your new username is pelanggan and your password is 123456")
    End Sub

Sementara itu untuk coding Button Close adalah:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

Berikut adalah source code pada Form Our Books

Untuk Form Our Books:

Private Sub Our_Books_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.Items.Add("The Fault in Or Stars")
        ComboBox1.Items.Add("Summer in Seoul")
        ComboBox1.Items.Add("Autumn in Paris")
        ComboBox1.Items.Add("Winter in Tokyo")
        ComboBox1.Items.Add("Spring in London")
        ComboBox1.Items.Add("Sunshine Becomes You")
    End Sub

Untuk Button I Want To See The Price

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Select Case ComboBox1.SelectedIndex
            Case 0
                MsgBox("Rp 78.000,-")
            Case 1
                MsgBox("Rp 62.000,-")
            Case 2
                MsgBox("Rp 65.000,-")
            Case 3
                MsgBox("Rp 70.000,-")
            Case 4
                MsgBox("Rp 75.000,-")
            Case 5
                MsgBox("Rp 80.000,-")
        End Select
    End Sub

Untuk Button Order:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         
        MessageBox.Show("Thank you for ordering! We will send your book(s) a day after you send us proof of payment to our page")

    End Sub

Untuk Button Close:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

Berikut adalah source code di Form Confirmation of Payment:

Untuk Button Open:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        OpenFileDialog1.Filter = "Image Files(*.jpg;*.jpeg;*.gif;*.bmp)|*.jpg;*.jpeg;*.gif;*.bmp"
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
            PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
        End If

    End Sub

Untuk Button Send:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show("Thank you, we will check your payment first and then tomorrow we will send your book(s):D")
    End Sub

Untuk Button Print:

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim myapp As New Microsoft.Office.Interop.Word.Application
        Dim mydoc As New Microsoft.Office.Interop.Word.Document

        mydoc = myapp.Documents.Open("D:\Shabrina Ghassani\Lab VB2\Tugas 6 - Shabrina Ghassani 1306470110\bukti1.docx")

        mydoc.Bookmarks("rekening").Select()
        myapp.Selection.TypeText(TextBox1.Text)

        mydoc.Bookmarks("atasnama").Select()
        myapp.Selection.TypeText(TextBox2.Text)

        mydoc.Bookmarks("tanggal").Select()
        myapp.Selection.TypeText(TextBox3.Text)

        mydoc.Bookmarks("jumlah").Select()
        myapp.Selection.TypeText(TextBox4.Text)

        mydoc.SaveAs("D:\Shabrina Ghassani\Lab VB2\Tugas 6 - Shabrina Ghassani 1306470110\bukti2.docx")
    End Sub

Lalu pada project kita, klik Project > Add Reference > Pilih Microsoft Word 12.0 Object Library > klik OK

Buatlah dokumen pada Ms.Word seperti berikut:

Pada dokumen kita tersebut, klik Insert > Bookmark > tulis nama bookmark yang diinginkan > klik Add

Selain menyimpan dokumen diatas, kita juga harus menyimpan 1 dokumen Ms.Word lagi, tetapi biarkan dokumen yang satu ini kosong. Simpan kedua dokumen di folder yang sama dengan project VB.NET kita.

Berikut ini adalah screenshots cara kerja project yang saya telah buat:

Jika username dan password benar dan klik Login, maka yang keluar adalah:

Tapi jika username atau password salah maka yang keluar adalah:

Tapi jika Anda belum mempunyai username/password maka dapat klik Sign Up dan yang akan keluar adalah:

Jika Anda sudah login, pilih Our Books:

Setelah itu jika Anda telah memesan buku dan telah men-transfer uang, pilih Confirmation of Payment:

Klik Open untuk membilih gambar bukti transaksi, dan Send untuk mengirim bukti transfer, sedangkan Print untuk mencetak bukti konfirmasi yang akan muncul di word: