Aplikasi Sederhana Entry Data Peminjaman Buku (Visual Studio)

DESKRIPSI

Aplkasi sederhana ini dibuat menggunakan Visual studio, Aplikasi sederhana ini dapat terkoneksi dengan Ms.Word dan Excel. Pada designnya menggunakan komponen-komponen berikut:

  • Label
  • TextBox
  • Button
Aplikasi sederhana ini dibuat untuk mempermudah pada saat entry data peminjaman buku dengan mengetahui NIK/nomor identitas peminjam, Nama Peminjam, Judul Buku dan Kode Buku. Aplikasi sederhana ini juga dapat menyimpan koneksi dengan Ms.Word dan Ms.Excel.
Berikut Screenshootnya:

1. Ini tampilan awal designnya












2. Ini tampilan sebelum dientry data (masih kosong)




3. Ini tampilan sesudah dientry data dan terkoneksi dengan MS.Word dan Ms.Excel












Berikut Source codenya:


Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasi As New word.Application
        Dim dokumen As word.Document

        dokumen = aplikasi.Documents.Open("E:\Semeter 5\ENTRY DATA PEMINJAMAN.docx")

        dokumen.Bookmarks("BNIK").Select()
        aplikasi.Selection.TypeText(TxtNIK.Text)

        dokumen.Bookmarks("BNamaPeminjam").Select()
        aplikasi.Selection.TypeText(TxtNamaPeminjam.Text)

        dokumen.Bookmarks("BKodeBuku").Select()
        aplikasi.Selection.TypeText(TxtKodeBuku.Text)

        dokumen.Bookmarks("BJudulBuku").Select()
        aplikasi.Selection.TypeText(TxtJudulBuku.Text)
        dokumen.SaveAs("E:\Semeter 5\" + TxtNIK.Text + " " + TxtNamaPeminjam.Text + " " + "ENTRY DATA PEMINJAMAN.docx")
        aplikasi.Visible = True
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        TxtNIK.Text = ("")
        TxtNamaPeminjam.Text = ("")
        TxtKodeBuku.Text = ("")
        TxtJudulBuku.Text = ("")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim AplikasiExcel As New excel.Application
        Dim FileExcel As excel.Workbook
        FileExcel = AplikasiExcel.Workbooks.Open("E:\Semeter 5\Data Peminjaman Buku.xlsx")
        AplikasiExcel.Range("A5").Value = TxtNIK.Text
        AplikasiExcel.Range("B5").Value = TxtNamaPeminjam.Text
        AplikasiExcel.Range("C5").Value = TxtKodeBuku.Text
        AplikasiExcel.Range("D5").Value = TxtJudulBuku.Text

        FileExcel.SaveAs("E:\Semeter 5\Data Peminjaman Buku.xlsx")
        MsgBox("Sukses")
        AplikasiExcel.Visible = True
    End Sub
End Class

Komentar

Postingan populer dari blog ini

Contoh Passing Grade (Java NetBeans)

Contoh Kasus Menggunakan MS Access Query Sebagai Forensic Data Analytic

PROJECT SEDERHANA PENGIRIMAN BARANG JAVA (Netbean)