REKAYASA PERANGKAT LUNAK

  💻Program Visual Basic 2012 Berbasis Web dengan menggunakan Database Ms.Access 2016

Assalamualaikum WR WB🙏

Hai... Bertemu lagi di Blog Rifa Awaliyah ! ! !

 😊😊😊😊

   Edisi kali ini aku membuat Postingan dalam rangka pemenuhan nilai UAS RPL pada hari sabtu 17 November 2018 yang dikumpulkan terakhir hari ini Senin 19 November 2018 Pukul 23.59 WIB. program yang saya buat adalah tentang Admin sebuah toko buku untuk mempermudah Admin dalam memeriksa buku yang sudah keluar dari toko dan keuangannya.Sesuai dengan analisa kebutuhan dan perancangan yang sudah aku tulis di lembar jawab, tapi aku buatnya sangat amat sederhana Background belum aku ganti, intinya sederhana banget mohon maklum 🙏😥. Berikut perancangan sistem dan program yang saya buat.

---MICROSOFT ACCES 2016---

1. Membuat database di Ms.Access

    Aku buat duua table

langkah - langkahnya adalah :

• buka Ms.Access
• buatlah sebuah database ( create new database), saya membuat database dengan judul DB_BOOK1.mdb ( Aku menggunakan versi 2002-2003, karena ada ERROR di versi sebelumnya )
• Next, buatlah sebuah tabel di dalam database tersebut. yang berisikan :

         -TBL_BOOK

           a. KODE BUKU (text,25)
           b. JUDUL BUKU (text,25)
           c. KATEGORI(text,25)
           d. PENULIS(text,25)

           e. HARGA (Number,25

         -TBL_Admin 

           a. User Name (text,25)

           b. Password  (text,25)

---VISUAL STUDIO 2012---

Next, Membuat Desain

 seperti berikut :

1. bukalah program visual studio 2012
2. buatlah sebuah projectyang berbasis WEb ya !,aku kasih Nama "UAS_RPL"
3. add web form pada project tesebut
4. Aku kasih nama RIFA_BOOK dan Form_Admin ,buatlah design form.

 Contoh : RIFA_BOOK

 Next, masukan Coding
Imports System.Data
Imports System.Data.OleDb

Public Class RIFA_BOOK
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pak agus\DBPOS\DB_BOOK1.mdb"

    Dim ObjekKonek As New OleDb.OleDbConnection(Koneksi)
    Dim BReader As OleDb.OleDbDataReader


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

    End Sub

SIMPAN

 

 

Jika Berhasil maka muncul kotak dialog seperti dibawah ini :

 

 

 

jika Sudah diisi semua nya makan di Acces akan muncul data yang disimpan . seperti gambar dibawah ini :

Untuk menyimpan , berikut source code :

    Protected Sub BtnSimpan_Click(sender As Object, e As EventArgs) Handles BtnSimpan.Click
        ObjekKonek.Open()
        Dim input As String = "INSERT INTO TBL_BOOK values('" & TXTKODE.Text & "', '" & TXTBUKU.Text & "','" & CBKategori.Text & "','" & TXTPENULIS.Text & "','" & TXTHARGA.Text & "')"
        Dim ObjCMD = New OleDbCommand(input, ObjekKonek)
        ObjCMD.ExecuteNonQuery()
        ObjekKonek.Close()
        MsgBox("Data Berhasil Disimpan !")
    End Sub

VIEW

Untuk View cukup mudah dan sedikitource Code nya, seperti berikut :

    Protected Sub BtnView_Click(sender As Object, e As EventArgs) Handles BtnView.Click
        Response.Redirect("View_Tabel.aspx")

    End Sub

HAPUS

Source Code Hapus :
    Protected Sub BtnHapus_Click(sender As Object, e As EventArgs) Handles BtnHapus.Click
        TXTKODE.Text = ""
        TXTBUKU.Text = ""
        CBKategori.Text = ""
        TXTPENULIS.Text = ""
        TXTHARGA.Text = ""

    End Sub

 SEARCH

Source Code untuk search cukup lumayan rumit untuk saya 😀, Sebgai berikut :

    Protected Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
        If Not Len(TXTSearch.Text) = 0 Then
            ObjekKonek.Close()
            ObjekKonek.Open()
            Dim Ocmd As New OleDb.OleDbCommand("SELECT * FROM TBL_BOOK where Kode ='" + TXTSearch.Text + "'", ObjekKonek)

            BReader = Ocmd.ExecuteReader()

            If BReader.HasRows Then
                BReader.Read()
                TXTKODE.Text = BReader("Kode")
                CBKategori.Text = BReader("Kategori")
                TXTBUKU.Text = BReader("Buku")
                TXTPENULIS.Text = BReader("Penulis")
                TXTHARGA.Text = BReader("Harga")


            Else
                TXTSearch.Text = "Data Buku Tidak ada"
                Exit Sub
            End If
            BReader.Close()
        End If
    End Sub
End Class

Form_Admin

Oh ya lupa!😛

Sebelum masuk ke RIFA_BOOK kita harus Log in dulu

berikut ilustrasinya :

 

 

Source Code :

 Public Class Form_admin
    Inherits System.Web.UI.Page
    Dim Konek As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\pak agus\DBPOS\DB_BOOK1.mdb"
    Public Function akses() As OleDb.OleDbConnection
        Dim connect As New OleDb.OleDbConnection(Konek)
        connect.Open()
        Return connect
    End Function
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        Dim login As String
        login = "SELECT * from TBL_Admin where User Name'" + UNtxt.Text + "' and password='" + PINtxt.Text + "' "
        Dim perintah As New OleDb.OleDbCommand(login, akses)
        Dim baca As OleDb.OleDbDataReader = perintah.ExecuteReader
        If baca.Read Then
            MsgBox("login sukses")
            Response.Redirect("RIFA_BOOK.aspx")
        Else
            MsgBox("login gagal")
            UNtxt.Text = ""
            PINtxt.Text = ""
        End If
    End Sub

    Protected Sub BtnClose_Click(sender As Object, e As EventArgs) Handles BtnClose.Click
        UNtxt.Text = ""
        PINtxt.Text = ""
    End Sub
End Class

Akan keluar hasil seperti ini , Masukan User Name dan Password kalau tidak salah punya ku itu.....

User Name : Rifa

Password : Rifa

Sekian dariku, jika ada kekurangan saya mohon maaf pribadi.. Sebatas itulah kemampuan ku😓.Terima Kasih

 Dosen Pengampu : Ir. Agus Suharto S.Kom M.Kom

Silahkan dicoba ! !

Wassalamualaikum WR WB 🙏

😍SEMOGA BERMANFAAT😍

Continue