Newest Post
// Posted by :kelvin
// On :Senin, 07 Januari 2019
Aplikasi WebSite DataBase Perpustakaan, Aplikasi ini saya buat menggunakan Visaul Studio. saya akan memberika penjelasan tentang Aplikasi WebSite DataBase Perpustakaan dalam rangka memenuhi Tugas Ujian Akhir Semester (UAS) Pemograman.
- Judul Project Dan Penjelasan
Aplikasi WebSite DataBase Perpustakaan.
Website aplikasi ini dibuat untuk mempermudah kita / orang lain yang menggunakan aplikasi ini dimana nama program ini adalah database perpustakaan kita dapat mencari buku yang kita cari dengan mudah kita bisa Search bisa dari kode buku atau juga dari nama penulis bukunya
Website ini sudah dilengkapi dengan fitur :
- Database
- Form Login
- Report To Word
- Report To Excel
Ada Beberapa Button
- Save
- Update
- Delete
- Clear
- View
- Search
Design Form Login
Form Login
Form Login Ini tampilan awal untuk masuk ke WebSite DataBase Perpustakaan.
- Database
- Form Login
- Report To Word
- Report To Excel
Ada Beberapa Button
- Save
- Update
- Delete
- Clear
- View
- Search
Design Form Login
Form Login |
Form Login Ini tampilan awal untuk masuk ke WebSite DataBase Perpustakaan.
Design Dari Tampilan Home
HOME |
Gambar diatas adalah tampilan home dari website database perpustakaan, dimana di tampilan home tersebut ada button HOME, About Us , DataBase , Input Data , Contacts.
Design Dari DataBase
DataBase |
Gambar Diatas adalah tampilan dari database perpustakaan dimana kita bisa input data yang baru atau juga kita bisa update.
Design Input Data
Input Data |
Gambar diatas adalah tampilan dari input data dimana kita bisa input data- data yang baru dari kode buku , judul buku lokasi penyimpanan , nama pengarang , Tahun Terbit.. dan ada beberapa button untuk mesupportnya seperti Tombol SAVE ,UPDATE , DELETE ,CLEAR , VIEW Dan Search. Tombol Search ini kita bisa mencari data- data dengan mengetik kode bukunya saja dan lokasi buku tersebut akan tertera atau di ketehui.
Source Code dari Form Input Data
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports word = Microsoft.Office.Interop.Word
Imports excel = Microsoft.Office.Interop.Excel
Public Class WebForm3
Inherits System.Web.UI.Page
Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Kelvin\Documents\dbkaryawan.mdb"
Dim objKoneksi As New OleDb.OleDbConnection(koneksi)
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
objKoneksi.Close()
objKoneksi.Open()
Dim sql1 As String = "insert into tblkaryawan values ('" & TextKode.Text & "','" & TextJudul.Text & "','" & TextLokasi.Text & "', '" & TextPengarang.Text & "','" & TextTahun.Text & "')"
Dim ocmd = New OleDbCommand(sql1, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
objKoneksi.Close()
objKoneksi.Open()
Dim rubah As String = "update tblkaryawan set Tahun_Terbit = '" + TextTahun.Text + "' where Kode_Buku='" + TextKode.Text + "'"
Dim ocmd = New OleDbCommand(rubah, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub btnclear_Click(sender As Object, e As EventArgs) Handles btnclear.Click
TextKode.Text = ""
TextJudul.Text = ""
TextPengarang.Text = ""
TextLokasi.Text = ""
TextTahun.Text = ""
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql4 As String = "delete from tblkaryawan where Kode_Buku = '" & TextKode.Text & "'"
Dim ocmd As New OleDbCommand(sql4, objKoneksi)
ocmd.ExecuteNonQuery()
objKoneksi.Close()
MsgBox("Data Telah Dihapus")
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub txtcari_Click(sender As Object, e As EventArgs) Handles btnsearch.Click
objKoneksi.Close()
objKoneksi.Open()
Dim sql As String = "select * from tblkaryawan where Kode_Buku like '%" & TextCari.Text & "'"
Dim ocmd As New OleDbCommand(sql, objKoneksi)
Dim xReader As OleDbDataReader
xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
TextKode.Text = xReader("Kode_Buku")
TextJudul.Text = xReader("Judul_Buku")
TextPengarang.Text = xReader("Nama_Pengarang")
TextLokasi.Text = xReader("Lokasi_Penyimpanan")
TextTahun.Text = xReader("Tahun_Terbit")
btnupdate.Enabled = True
Else
MsgBox("Data Tidak Ditemukan!!!")
Exit Sub
End If
objKoneksi.Close()
End Sub
Protected Sub btnview_Click(sender As Object, e As EventArgs) Handles btnview.Click
Response.Redirect("WebForm2.aspx")
End Sub
Protected Sub TextCari_TextChanged(sender As Object, e As EventArgs) Handles TextCari.TextChanged
End Sub
Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles btnword.Click
Dim aplikasi As New word.Application
Dim dokumen As New word.Document
dokumen = aplikasi.Documents.Open("E:\Tugas_Uas\filemaster.docx")
dokumen.Bookmarks("kb").Select()
aplikasi.Selection.TypeText(TextKode.Text)
dokumen.Bookmarks("jb").Select()
aplikasi.Selection.TypeText(TextJudul.Text)
dokumen.Bookmarks("lp").Select()
aplikasi.Selection.TypeText(TextLokasi.Text)
dokumen.Bookmarks("np").Select()
aplikasi.Selection.TypeText(TextPengarang.Text)
dokumen.Bookmarks("tt").Select()
aplikasi.Selection.TypeText(TextTahun.Text)
dokumen.SaveAs2("E:\Tugas_Uas\Laporan.docx")
aplikasi.Visible = True
End Sub
Protected Sub btnexcel_Click(sender As Object, e As EventArgs) Handles btnexcel.Click
Dim aplikasiExcel As New excel.Application
Dim fileExcelnya As excel.Workbook
Dim gabungan As String
gabungan = (TextKode.Text + " " + TextJudul.Text)
fileExcelnya = aplikasiExcel.Workbooks.Open("E:\Tugas_Uas\FileMaster2.xlsx")
aplikasiExcel.Range("A3").Value = TextKode.Text
aplikasiExcel.Range("B3").Value = TextJudul.Text
aplikasiExcel.Range("C3").Value = TextLokasi.Text
aplikasiExcel.Range("D3").Value = TextPengarang.Text
aplikasiExcel.Range("E3").Value = TextTahun.Text
fileExcelnya.SaveAs("E:\Tugas_Uas\Laporan.xlsx" + gabungan + ".xlsx")
MsgBox("Sukses")
aplikasiExcel.Visible = True
End Sub
End Class
Sekian pembahasan saya untuk Aplikasi Website DataBase Perpustakaan dengan berbasis ASP.Net Visual BAsic sekiranya ada tambahan kalian bisa tinggalkan di kolom komentar.