UAS - 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 sudah di upgrade memakai database. sehingga lebih memudahkan dalam mencari data dan melihat summary


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 Access, maka inputan yang tadi kita isi akan masuk ke database.

berikut untuk tampilan summary nya.

berikut jika data tidak ada.

Source Code

Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Imports System.Data
Imports System.Data.OleDb


Public Class About
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Wbprogram sources\databarang.mdb"
    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)
    Dim Xreader As OleDb.OleDbDataReader


    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

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objekkoneksi.Open()
        Dim Tambah As String = "Insert Into barangmasuk Values ('" & txtkodebarang.Text & "','" & txtnamabarang.Text & "','" & ddjenisbarang.SelectedItem.Value & "','" & txthargabarang.Text & "')"

        Dim oCMD = New OleDbCommand(Tambah, objekkoneksi)
        oCMD.ExecuteNonQuery()
        MsgBox("Sukses")

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If Not Len(txtkodebarang.Text) = 0 Then
            objekkoneksi.Close()
            objekkoneksi.Open()

            Dim ocmd As New OleDb.OleDbCommand("Select * from barangmasuk Where KodeBarang = ('" & txtnamabarang.Text & "'", objekkoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                txtkodebarang.Text = Xreader("KodeBarang")
                txtnamabarang.Text = Xreader("NamaBarang")
                ddjenisbarang.Text = Xreader("JenisBarang")
                txthargabarang.Text = Xreader("HargaBarang")
            Else
                txtkodebarang.Text = "Nomor Tersebut tidak Ada"

                Exit Sub
            End If
        End If
    End Sub
End Class