UTS - Web Program II

Web Aplikasi Input Barang Masuk


Web aplikasi inout barang masuk adalah aplikasi web yang berfungsi untuk mendata barang masuk suatu perusahaan retail untuk mempermudah dalam merekap dan mendata barang-barang yang baru datang.


Web page akan berisi form penginputan barang masuk sebagai berikut :

Form akan diisi sesuai dengan barang yang masuk, seperti berikut :

Jika kita mengklik Import to Word, maka inputan yang tadi kita isi akan masuk ke file Word. disini file word bisa berfungsi sebagai daftar barang yang masuk.

Sedangkan jika kita klik Import to Excel, maka otomatis inputan yang tadi akan tersimpan di file Excel. fungsi file excel ini adalah untuk merekap barang masuk juga sebagai acuan untuk pencarian barang yang sudah masuk.

File pun akan tersimpan otomatis di folder yang sudah kita tentukan sendiri.

Source Code

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

Public Class About
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim aplikasinya As New word.Application
        Dim dokumennya As word.Document

        dokumennya = aplikasinya.Documents.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.docx")

        dokumennya.Bookmarks("kodebarang").Select()
        aplikasinya.Selection.TypeText(txtkodebarang.Text)

        dokumennya.Bookmarks("namabarang").Select()
        aplikasinya.Selection.TypeText(txtnamabarang.Text)

        dokumennya.Bookmarks("jenisbarang").Select()
        aplikasinya.Selection.TypeText(ddjenisbarang.Text)

        dokumennya.Bookmarks("hargabarang").Select()
        aplikasinya.Selection.TypeText(txthargabarang.Text)

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim aplikasiexcel As New excel.Application
        Dim dokumenexcel As excel.Workbook

        dokumenexcel = aplikasiexcel.Workbooks.Open("D:\1908 Collage's Shits\1908-2 Tugas\Tugas Kelas\WebProgram2\databasebarang.xlsx")

        aplikasiexcel.Range("A5").Value = txtkodebarang.Text
        aplikasiexcel.Range("B5").Value = txtnamabarang.Text
        aplikasiexcel.Range("C5").Value = ddjenisbarang.Text
        aplikasiexcel.Range("D5").Value = txthargabarang.Text

        MsgBox("SUKSES")
        aplikasiexcel.Visible = True

    End Sub

End Class