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

Posting Komentar

Postingan populer dari blog ini

Contoh Kasus Menggunakan MS Access Query Sebagai Forensic Data Analytic

Gambar
Deskripsi Kasus: XYZ Shoes merupakan toko yang menjual berbagai macam merk sepatu dan terdapat banyak jenis sepatu untuk Pria maupun Wanita dengan kualitas Original. Untuk mempermudah dalam menjalani penjualannya toko XYZ Shoes memerlukan database yang dibuat menggunakan MS Access untuk nantinya sebagai keperluan Forensic Data Analytic  . Contoh & Penyelesaian Kasus: Membuat Tabel dimana disitu terdapat 50 record: 1.  Menampilkan merk sepatu Adidas dengan harga lebih dari 500.000                       2. Menampilkan merk sepatu Diadora untuk Perempuan dengan stok lebih dari 500 3. Menampilkan merk sepatu Compas dengan stok lebih dari 300 dan harga lebih dari 300.000 4. Menampilkan Id sepatu yang berakhiran angka 1 dengan stok diatas 400 dan harga diatas 400.000 5. Menampilkan Id sepatu yang berawalan angka 22****  untuk Jenis sepatu Laki-laki dengan stok leb...
Baca selengkapnya

Contoh Passing Grade (Java NetBeans)

Gambar
PENGERTIAN PASSING GRADE Passing Grade merupakan acuan tidak resmi batas nilai ambang minimum yang harus dicapai peserta ujian untuk bisa masuk, menyeleksicalon di suatu Instansi/jurusan. Contoh aplikasi: Penerimaan Calon PNS, Calon Mahasiswa PTN, Kepangkatan dsb Rumus Passing Grade: (benar x 4) + alah x -1) -----------------------------...x100% (jumlah soal x 4)  Kesempatan kali ini saya akan membuat contoh kasus passing grade penerimaan calon pegawai. Langsung saja: Open Xamp Control Panel (klik start pada apache dan mysql) lalu klik tombol start pada apache dan mysql Selanjutnya buat tabel database pada PhpMyadmin Buka NetBeans (lalu buat new project) Selanjutnya Connect kan ke database   Jika sudah selesai lalu Run File Sebagai Contoh Rumus Kasus Passing Grade: Nama Calon Pegawai : Noel Gallagher mengerjakan materi test ke 1 dengan soal : 100 Nilai Benar : 75 Nilai Salah : 15 Nilai Kosong : 10 rumus,...
Baca selengkapnya

PROJECT SEDERHANA PENGIRIMAN BARANG JAVA (Netbean)

Gambar
Pada kesempatan kali ini saya membuat program sederhana pengiriman barang dengan menggunakan Netbean. program ini di tujukan untuk mempermudah jasa pengiriman barang dalam hal menginput nama pengirim, kota asal, kota tujuan, dan juga menghitung biaya pengiriman. Berikut komponen - komponen yang digunakan : Label TextField Button Berikut gambar dari JFrame/form : Gambar Tabel Data Base : Berikut Source Codenya : Refresh private void refreshButtonActionPerformed(java.awt.event.ActionEvent evt) {                                                     entityManager.getTransaction().rollback();         entityManager.getTransaction().begin();         java.util.Collection data = query.getResultList();         for (Object entity : data) {           ...
Baca selengkapnya