Project UAS "Aplikasi Berbasis Website"

Assalamu'alaikum Wr.Wb

Kali ini saya akan berbagi project UAS saya, kali ini berkaitan dengan software Visual Studio 2012. jadi jika kalian ingin mengikuti tutorial aplikasi ini, pastikan kalian sudah meng-instal aplikasi tersebut. langsung saja ini dia penjelasannya ...

project UAS yang saya  buat kali ini adalah sebuah aplikasi "daftar peserta bpjs tahun 2018/19" yang berbasis website. aplikasi ini sebagai database yang memudahkan admin untuk melihat data peserta bpjs secara lengkap seperti nama, no telp, golongan dll. diaplikasi ini saya menggunakan ms.access untuk software databasenya. dibawah ini beberapa tampilan gambar berupa desain dan aplikasi ketika dijalankan dan berikut source code nya.

#Database Ms.Access

#Desain Aplikasi

desain aplikasi "daftar peserta BPJS tahun 2018/19"

#Input data dan Tombol simpan

#Tombol lihat

#Tombol cari

memasukan ID yang ingin dicari lalu tekan tombol cari

 

tampilan data yang kita cari

#Tombol simpan perubahan

merubah  golongan menjadi 1,2 atau 3 lalu tekan tombol simpan perubahan

#Tombol hapus

menghapus/membersikan form bukan menghapus database yang ada di ms.access

#Tombol keluar

berikut adalah source codenya :

Imports System.Data

Imports System.Data.OleDb

#SC untuk koneksi Database ms.access

 Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\KAMPUS\SEMESTER 5\PEMROGRAMAN VISUAL\DataBase\DBBPJS2018.accdb"

    Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

    Dim XReader As OleDb.OleDbDataReader

#SC untuk tombol lihat

Response.Redirect("WebFormView.aspx")

#SC untuk tombol simpan

objekkoneksi.Open()

        Dim tambah As String = "INSERT INTO TablePeserta values('" & TextID.Text & "','" & TextNAMA.Text & "','" & TextALAMAT.Text & "','" & TextNO.Text & "','" & TextJK.Text & "','" & TextGOL.Text & "')"

        Dim oCMD = New OleDbCommand(tambah, objekkoneksi)

        oCMD.ExecuteNonQuery()

        objekkoneksi.Close()

        MsgBox("TERSIMPAN")

#SC untuk tombol cari

If Not Len(TextID.Text) = 0 Then

            objekkoneksi.Close()

            objekkoneksi.Open()

            Dim oCMD As New OleDb.OleDbCommand("SELECT * FROM TablePeserta where IDPESERTA='" + TextID.Text + "'", objekkoneksi)

            XReader = oCMD.ExecuteReader()

            If XReader.HasRows Then

                XReader.Read()

                TextID.Text = XReader("IDPESERTA")

                TextNAMA.Text = XReader("NAMA")

                TextALAMAT.Text = XReader("ALAMAT")

                TextNO.Text = XReader("NOTELP")

                TextJK.Text = XReader("JENISKELAMIN")

                TextGOL.Text = XReader("GOLONGAN")

                BTNPER.Enabled = True

            Else

                TextID.Text = "NAMA PESERTA TIDAK TERDAFTAR"

                Exit Sub

            End If

            XReader.Close()

#SC untuk tombol hapus

TextID.Text = ""

        TextNAMA.Text = ""

        TextALAMAT.Text = ""

        TextNO.Text = ""

        TextJK.Text = ""

        TextGOL.Text = ""

        TextID.Focus()

#SC untuk simpan perubahan

objekkoneksi.Open()

        Dim rubah As String = "UPDATE TablePeserta set GOLONGAN='" + TextGOL.Text + "' where IDPESERTA='" + Trim(TextID.Text) + "'"

        Dim oCMD = New OleDbCommand(rubah, objekkoneksi)

        oCMD.ExecuteNonQuery()

        objekkoneksi.Close()

        MsgBox("PERUBAHAN GOLONGAN BERHASIL DISIMPAN")

#SC untuk tombol keluar

 Dim response As MsgBoxResult

        response = MsgBox("Anda yakin Ingin keluar ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")

        If response = MsgBoxResult.Yes Then

            Me.Dispose()

        ElseIf response = MsgBoxResult.No Then

            Exit Sub

untuk databse tidak saya letakan diblog, namun jika kalian ingin databasenya kalian bisa menghubung sata lewat email, sekian untuk project kali ini jika ada yang kurang paham silahkan tanya di kolom komentar, kurang lebihnya mohon maaf.

Wassalamuaaikum.Wr.Wb