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
Form Login Ini tampilan awal untuk masuk ke WebSite DataBase Perpustakaan.

Design Dari Tampilan Home 

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
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
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.

Leave a Reply

Subscribe to Posts | Subscribe to Comments

// Copyright © Kelvin Gunawan //Anime-Note//Powered by Blogger // Designed by Kelvin Gunawan //