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 : Ahmad Fahruroziq
NIM : 161021450394
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 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
mungkin cukup sekian pejelasan dari saya, mohon maaf bila ada kesalah dalam membuat tugas.
Terimakasih
Hormat saya
