Aplikasi Penginputan Stok Barang Berbasis ASP.net Dan Terhubung Ke Ms.Acces. Tugas UAS

Aplikasi Penginputan Stok Barang Berbasis ASP.net Dan Terhubung Ke Ms.Acces

Nama : Muhammad Edo Firmansyah

NIM : 161021450388

Kelas : 06TPLE004 / V520

Mata Kuliah : Pemrograman Web 2

Deskripsi :

Pada aplikasi kali ini yaitu membuat sebuah aplikasi sederhana visual studio untuk melakukan pemanagement pada stok barang. Aplikasi ini di latar belakangi tidak lain yaitu semakin meningkatnya pengembangan sebuah perangkat aplikasi untuk dapat mempermudah untuk melakukan kegiatan, sehingga sebuah system informasi dapat dijadikan sebagai media solusi kemudahan peroses management stok barang yang masih dilakukan dengan secara manual. Dalam pembuatan aplikasi ini saya akan menggunakan konsep yang bisa terhubung kedalam sebuah database Ms.Acces,jadi secara otomatis data tersebut akan tersimpan kedalam database.

Berikut  Screnshoot dari aplikasi tersebut:

•        Screnshoot ditampilan visual studio

• Screnshoot ditampilan visual studio login

•  Screenshot tampilan login

• Screenshot tampilan input stok barang dan silahkan diisi seperti berikut

• Tampilan berhasil tersimpan di word, excel, database. Tampilannya sama saja seperti dibawah ini

• Tampilan data yang sudah tersimpan didalam word, excel, dan database, seperti dibawah ini

• Berikut tampilan screenshoot source code tersebut:

Berikut souce codenya:

• Codingan excel

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

        Dim aplikasiexcel As New excel.Application

        Dim fileExcelnya As excel.Workbook

        fileExcelnya = aplikasiexcel.Workbooks.Open("D:\tugas_web_program\penjualan.xlsx")

        aplikasiexcel.Range("A2").Value = TextBox1.Text

        aplikasiexcel.Range("B2").Value = DropDownList2.Text

        aplikasiexcel.Range("C2").Value = TextBox2.Text

        aplikasiexcel.Range("D2").Value = TextBox3.Text

        aplikasiexcel.Range("E2").Value = TextBox6.Text

        aplikasiexcel.Range("F2").Value = TextBox7.Text

        fileExcelnya.SaveAs("D:\tugas_web_program\penjualan.xlsx")

        MsgBox("Sukses")

        aplikasiexcel.Visible = True

    End Sub

• Codingan word

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

        Dim Aplikasi As New word.Application

        Dim Dokumen As word.Document

        Dokumen = Aplikasi.Documents.Open("D:\tugas_web_program\penjualan.docx")

        Dokumen.Bookmarks("ID").Select()

        Aplikasi.Selection.TypeText(TextBox1.Text.ToString)

        Dokumen.Bookmarks("Jenis").Select()

        Aplikasi.Selection.TypeText(DropDownList2.Text.ToString)

        Dokumen.Bookmarks("Nama").Select()

        Aplikasi.Selection.TypeText(TextBox2.Text.ToString)

        Dokumen.Bookmarks("Jumlah").Select()

        Aplikasi.Selection.TypeText(TextBox3.Text.ToString)

        Dokumen.Bookmarks("Beli").Select()

        Aplikasi.Selection.TypeText(TextBox6.Text.ToString)

        Dokumen.Bookmarks("Jual").Select()

        Aplikasi.Selection.TypeText(TextBox7.Text.ToString)

        Dokumen.SaveAs2("D:\tugas_web_program\penjualan.docx")

        MsgBox("Sukses")

        Aplikasi.Visible = True

    End Sub

•  Codingan login

Dim Username As String

        Dim Password As String

        Username = Trim(TextBox1.Text.ToString)

        Password = Trim(TextBox2.Text.ToString)

        If (Username = "admin") And (Password = "admin") Then Response.Redirect("InputStokBarang.aspx")

        MsgBox("Berhasil Login")

        Else

        MsgBox("Username & Password salah, Silahkan Dicek Kembali")

        End If

• Codingan semuanya

Imports System.Data

Imports System.Data.OleDb

Imports excel = Microsoft.Office.Interop.Excel

Imports word = Microsoft.Office.Interop.Word

Public Class MasterPegawai

    Inherits System.Web.UI.Page

    Public connstrin As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\a\projectuas.accdb"

    Public conn As New OleDbConnection(connstrin)

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

    End Sub

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

        Dim aplikasiexcel As New excel.Application

        Dim fileExcelnya As excel.Workbook

        fileExcelnya = aplikasiexcel.Workbooks.Open("D:\tugas_web_program\penjualan.xlsx")

        aplikasiexcel.Range("A2").Value = TextBox1.Text

        aplikasiexcel.Range("B2").Value = DropDownList2.Text

        aplikasiexcel.Range("C2").Value = TextBox2.Text

        aplikasiexcel.Range("D2").Value = TextBox3.Text

        aplikasiexcel.Range("E2").Value = TextBox6.Text

        aplikasiexcel.Range("F2").Value = TextBox7.Text

        fileExcelnya.SaveAs("D:\tugas_web_program\penjualan.xlsx")

        MsgBox("Sukses")

        aplikasiexcel.Visible = True

    End Sub

    Protected Sub DropDownList2_SelectedIndexChanged1(sender As Object, e As EventArgs) Handles DropDownList2.SelectedIndexChanged

        Dim golongan As String

        golongan = DropDownList2.SelectedItem.ToString

        If golongan = "Minuman" Then

            TextBox8.Text = "Minuman"

        ElseIf golongan = "Biskuit" Then

            TextBox8.Text = "Biskuit"

        ElseIf golongan = "Mie Instan" Then

            TextBox8.Text = "Mie Instan"

        ElseIf golongan = "Sembako" Then

            TextBox8.Text = "Sembako"

        Else

            TextBox8.Text = "ATK"

        End If

    End Sub

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

        Dim Aplikasi As New word.Application

        Dim Dokumen As word.Document

        Dokumen = Aplikasi.Documents.Open("D:\tugas_web_program\penjualan.docx")

        Dokumen.Bookmarks("ID").Select()

        Aplikasi.Selection.TypeText(TextBox1.Text.ToString)

        Dokumen.Bookmarks("Jenis").Select()

        Aplikasi.Selection.TypeText(DropDownList2.Text.ToString)

        Dokumen.Bookmarks("Nama").Select()

        Aplikasi.Selection.TypeText(TextBox2.Text.ToString)

        Dokumen.Bookmarks("Jumlah").Select()

        Aplikasi.Selection.TypeText(TextBox3.Text.ToString)

        Dokumen.Bookmarks("Beli").Select()

        Aplikasi.Selection.TypeText(TextBox6.Text.ToString)

        Dokumen.Bookmarks("Jual").Select()

        Aplikasi.Selection.TypeText(TextBox7.Text.ToString)

        Dokumen.SaveAs2("D:\tugas_web_program\penjualan.docx")

        MsgBox("Sukses")

        Aplikasi.Visible = True

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        TextBox1.Text = ""

        TextBox8.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

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

        Dim Script_aql_insert = "insert into uas values(@id_barang,@jenis_barang,@nama_barang,@jumalah_barang,@harga_beli_satuan,@harga_jual_satuan)"

        Using ikon = New OleDbConnection(connstrin)

            If ikon.State = ConnectionState.Open Then ikon.Close()

            ikon.Open()

            Try

                Using icmd = New OleDbCommand(Script_aql_insert, ikon)

                    icmd.Parameters.Add(New OleDbParameter("@id_barang", TextBox1.Text))

                    icmd.Parameters.Add(New OleDbParameter("@jenis_barang", TextBox8.Text))

                    icmd.Parameters.Add(New OleDbParameter("@nama_barang", TextBox2.Text))

                    icmd.Parameters.Add(New OleDbParameter("@jumlah_barang", TextBox3.Text))

                    icmd.Parameters.Add(New OleDbParameter("@harga_beli_satuan", TextBox6.Text))

                    icmd.Parameters.Add(New OleDbParameter("@harga_jual_satuan", TextBox7.Text))

                End Using

                MsgBox("berhasil simpan data")

            Catch ex As Exception

                MsgBox("error simpan data" & ex.Message)

            End Try

        End Using

    End Sub

End Class

   berikut foto lembar jawaban UAS:

mungkin cukup sekian pejelasan dari saya, mohon maaf bila ada kesalah dalam membuat tugas.

Terimakasih

Hormat saya