PROGRAM APLIKASI

FORMULIR PENDAFTARAN PERLOMBAAN
DENGAN VISUAL STUDIO 2012
BERBASIS ASP.NET

• NAMA  : JIKRI FIRDAUS

• NIM   : 161021450160

• KELAS : 04TPLP001 / RUANG 515

• KAMPUS: STMIK ERESHA

Tugas UAS Project kali ini saya akan Membuat Program Aplikasi "Formulir Pendaftaran Perlombaan". (ASP.NET)

1. Deskripsi dan Tujuan Pembuatan Project.

Sesuai pembahasan saya di lembar jawaban UTS kemarin, saya akan membuat program "Formulir Pendaftaran Perlombaan" berbasis(ASP.NET)

Program ini saya buat untuk mempermudah panitia perlombaan dalam melakukan Pendaftaran para peserta lomba berbasis ASP.NET

Semua termasuk Jenis-Jenis Perlombaannya, Jenis Kelamin, Perlombaan golongan usia dari anak-anak sampai Dewasa.

Dan juga mempermudah untuk pendataan dari setiap peserta lomba dari RT / RW.

Program ini saya buat juga untuk Export to Ms.Word dan Ms.Excell, jadi panitia perlombaan dapat lebih mudah untuk pendataan para setiap peserta lomba dan mengecek pendataan peserta lomba.


Komponen-komponen yang digunakan :

• Label
• Text Box
• Combo Box
• Button
• Connect to Database Ms.Access

Cara kerjanya adalah meng-input data data setiap peserta lomba dari nama lengkap, jenis kelamin, golongan usia, jenis perlombaan, RT/RW, dan No.Handphone.

Setelah meng-input semua data, kemudian tekan SAVE untuk menyimpan data para peserta lomba.

Kita juga bisa men-DELETE data peserta lomba apabila data tersebut tidak valid.

Bisa juga melihat Database hasil dari meng-input para peserta lomba dengan menekan tombol VIEW.

Dan tombol CLEAR untuk mengulang inputan kembali.

Dan terakhir yaitu kita juga bisa mencari data peserta lomba apabila kita membutuhkannya, dengan menekan tombol SEARCH, otomatis system akan langsung muncul data yang telah ingin kita cari tersebut. 

2. Screenshoot Project dan Penjelasannya.

TAMPILAN DESIGN WEB FORMULIR PENDAFTARAN LOMBA

TAMPILAN DESIGN FORMULIR PENDAFTARAN LOMBA

TAMPILAN TABLE DATABASE CONNECT TO MS.ACCESS

SOURCE CODE

Add caption

SOURCE CODE

SOURCE CODE

DESIGN VIEW DATA BASE MS.ACCESS

DATA SHEET TABLE FORMULIR PENDAFTARAN LOMBA

INPUT PESERTA LOMBA

HASIL VIEW

INPUT NAMA PESERTA LOMBA YANG LAIN

MUNCUL NOTIFIKASI SUCCESS KETIKA BERHASIL MENYIMPAN DATA PESERTA LOMBA

HASIL VIEW BAHWA PARA PESERTA LOMBA SUDAH DI INPUT

INPUT PESERTA LOMBA YANG LAIN

HASIL VIEW

PENCARIAN DATA PESERTA LOMBA DENGAN MEMASUKKAN NAMA LENGKAP PESERTA LOMBA

HASILNYA AKAN MUNCUL DATA DATA PESERTA LOMBA

BISA MEN-DELETE DATA PESERTA LOMBA

MUNCUL NOTIFIKASI BERHASIL DIHAPUS

HASIL VIEW SETELAH DIHAPUS DATANYA

3. Source Code

Imports System.Data
Imports System.Data.OleDb

Public Class web_formulir_pendaftaran_lomba
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\JIKRI\Desktop\DB_FORMULIR PENDAFTARAN LOMBA.accdb"
    Dim con As New OleDb.OleDbConnection(Koneksi)
    Dim xReader As OleDb.OleDbDataReader
    Dim gender As String

    Dim ObjekKoneksi As New OleDb.OleDbConnection(Koneksi)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        DropDownList3.Items.Add("Laki-Laki")
        DropDownList3.Items.Add("Perempuan")

        DropDownList1.Items.Add("Anak-Anak")
        DropDownList1.Items.Add("Dewasa")

        DropDownList2.Items.Add("Balap Karung")
        DropDownList2.Items.Add("Makan Kerupuk")
        DropDownList2.Items.Add("Jalan Kelereng")
        DropDownList2.Items.Add("Masukan Belut")
        DropDownList2.Items.Add("Menyanyi")
        DropDownList2.Items.Add("Joget Jeruk")
    End Sub

    Protected Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        ObjekKoneksi.Open()
        Dim tambah As String = "INSERT INTO TablePendaftaran values ('" & TxtNama.Text & "','" & DropDownList3.Text & "','" & DropDownList1.Text & "','" & DropDownList2.Text & "','" & TxtRW.Text & "','" & TxtNoHP.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, ObjekKoneksi)
        oCmd.ExecuteNonQuery()
        ObjekKoneksi.Close()
        MsgBox("SUCCESS !")
    End Sub

  
    Protected Sub BtnDelete_Click(sender As Object, e As EventArgs) Handles BtnDelete.Click
        con.Open()
        Dim DELETE As String = "DELETE * From TablePendaftaran WHERE Nama_Lengkap = '" + TxtSearch.Text + "'"
        Dim oCmd = New OleDbCommand(DELETE, con)
        oCmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Dihapus!")
    End Sub


    Protected Sub BtnView_Click(sender As Object, e As EventArgs) Handles BtnView.Click


        Response.Redirect("view.aspx")
    End Sub

    Protected Sub BtnSearch_Click(sender As Object, e As EventArgs) Handles BtnSearch.Click
        If Not Len(TxtSearch.Text) = 0 Then
            con.Close()
            con.Open()
            Dim ocmd As New OleDb.OleDbCommand("SELECT * From TablePendaftaran WHERE Nama_Lengkap = '" + TxtSearch.Text + "'", con)

            xReader = ocmd.ExecuteReader()
            If xReader.HasRows Then
                xReader.Read()
                TxtNama.Text = xReader("Nama_Lengkap")
                If xReader("Jenis_Kelamin") = "Laki-laki" Then
                    DropDownList3.SelectedIndex = 1
                Else
                    DropDownList3.SelectedIndex = 2
                End If

                If xReader("Golongan_Usia") = "Anak-Anak" Then
                    DropDownList1.SelectedIndex = 1
                Else
                    DropDownList1.SelectedIndex = 2
                End If

                If xReader("Jenis_Perlombaan") = "Balap Karung" Then
                    DropDownList2.SelectedIndex = 1

                ElseIf xReader("Jenis_Perlombaan") = "Makan Kerupuk" Then
                    DropDownList2.SelectedIndex = 2

                ElseIf xReader("Jenis_Perlombaan") = "Jalan Kelereng" Then
                    DropDownList2.SelectedIndex = 3

                ElseIf xReader("Jenis_Perlombaan") = "Masukan Belut" Then
                    DropDownList2.SelectedIndex = 4

                ElseIf xReader("Jenis_Perlombaan") = "Menyanyi" Then
                    DropDownList2.SelectedIndex = 5

                ElseIf xReader("Jenis_Perlombaan") = "Joget Jeruk" Then
                    DropDownList2.SelectedIndex = 6

                    '--------------------------------------------------------
                End If

                TxtRW.Text = xReader("RT_RW")
                TxtNoHP.Text = xReader("No_Handphone")

            End If
        End If
    End Sub

    Protected Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        TxtNama.Text = ""
        TxtRW.Text = ""
        TxtNoHP.Text = ""
        TxtSearch.Text = ""
        DropDownList3.SelectedIndex = 0
        DropDownList1.SelectedIndex = 0
        DropDownList2.SelectedIndex = 0
    End Sub

End Class





Demikian Hasil Project yang telah saya buat.



Thanks & Regards,


JIKRI FIRDAUS

TUGAS UAS DATABASE dengan SQL Server 2012 & Website ASP.Net

PROGRAM APLIKASI

DATA PENJUALAN BENGKEL FIRDAUS
BERBASIS DATABASE
 DENGAN SQL SERVER 2012 & WEBSITE PADA ASP.NET DENGAN METODE NORMALISASI

• NAMA  : JIKRI FIRDAUS

• NIM   : 161021450160

• KELAS : 05TPLP001 / RUANG 509

• KAMPUS: STMIK ERESHA

Tugas UAS Project kali ini saya akan Membuat Program Aplikasi "DATA PENJUALAN BENGKEL FIRDAUS". (BERBASIS DATABASE SQL SERVER 2012 & WEBSITE pada ASP.NET)

Dengan membuat normalisasi database dari sebuah Struk Belanja dan membuat Web Designnya serta saya akan menampilkan hasil dari database tersebut kedalam Web menggunakan Visual Studio (ASP.NET)  dan juga terkoneksi dengan SQL Server 2012.

Rancangan ini dibuat dengan menggunakan normalisasi dengan cara UN-Normalized, 1NF, 2NF, 3NF dan juga Relasinya.

Berikut Adalah contoh Foto Struk yang akan dinormalisasikan :

Struk Penjualan Bengkel Firdaus

1. Rancangan Basis Data Menggunakan Normalisasi

        - Bentuk UN-NORMALIZED

Berikut adalah data apa adanya yang tertera pada struk normalisasi tersebut, tidak ada format dan inputan apapun.

Bentuk UNNORMALIZED

         - Bentuk NORMALIZED

Bentuk normal pertama jika relasi tersebut tidak mengandung atribut yang bernilai ganda, harus mengandung 1 nilai dan harus di isi datanya (tidak boleh kosong).

Bentuk NORMALIZED

            - Bentuk RELASI

Bentuk dari hubungan semua table yang sudah dibuat.

Bentuk RELASI

 

2. Setelah melewati tahap Normalisasi, kita lanjut membuat Basis Data (Database) pada SQL Server 2012 sesuai dengan bentuk Normal 3 (3NF).

Input Data pada SQL Server

Tabel Barang

Tabel Pembeli

Tabel Penjualan

Tabel Struk

3. Setelah Database selesai dibuat, Langkah selanjutnya membuat website pada Visual Studio (ASP.Net)

Tampilan Tabel Barang pada saat input barang via web 

Tampilan Tabel Pembeli pada saat input pembelian via web

Tampilan Tabel Penjuala pada saat input penjualan via web

Tampilan Tabel Struk pada saat input Struk via web

- Berikut adalah Source Code yang digunakan pada Tabel Barang, dan untuk Tabel Penjualan, Tabel Pembeli, Tabel Struk bisa menggunakan source code ini juga hanya tinggal mengganti nama Tabelnya saja :

Demikian Hasil Project yang telah saya buat.



Thanks & Regards,


JIKRI FIRDAUS

Tugas UTS Program Aplikasi "Data Penjualan Bengkel Firdaus" Berbasis Database dengan Visual Studio

PROGRAM APLIKASI

DATA PENJUALAN BENGKEL FIRDAUS
BERBASIS DATABASE
 DENGAN VISUAL STUDIO

• NAMA  : JIKRI FIRDAUS

• NIM   : 161021450160

• KELAS : 05TPLP001 / RUANG 509

• KAMPUS: STMIK ERESHA

Tugas UTS Project kali ini saya akan Membuat Program Aplikasi "DATA PENJUALAN BENGKEL FIRDAUS". (BERBASIS DATABASE ASP.NET)

Dengan membuat normalisasi database dari sebuah Struk Belanja dan membuat Web Designnya serta saya akan menampilkan hasil dari database tersebut kedalam Web menggunakan Visual Studio (ASP.NET)  dan juga terkoneksi Microsoft Office Access.

Rancangan ini dibuat dengan menggunakan normalisasi dengan cara UN-Normalized, 1NF, 2NF, 3NF dan juga Relasinya.

Berikut Adalah contoh Foto Struk yang akan dinormalisasikan :

Struk Penjualan Bengkel Firdaus

1. Rancangan Basis Data Menggunakan Normalisasi

        - Bentuk UN-NORMALIZED

Berikut adalah data apa adanya yang tertera pada struk normalisasi tersebut, tidak ada format dan inputan apapun.

Bentuk UNNORMALIZED

         - Bentuk NORMALIZED

Bentuk normal pertama jika relasi tersebut tidak mengandung atribut yang bernilai ganda, harus mengandung 1 nilai dan harus di isi datanya (tidak boleh kosong).

Bentuk NORMALIZED

            - Bentuk RELASI

Bentuk dari hubungan semua table yang sudah dibuat.

Bentuk RELASI

 

2. Bentuk Form pada Visual Studio

Setelah semua normalisasi dibuat pada Ms.Access , kemudian membuat Website pada Visual Studio (ASP.NET)

Form Visual Studio

Notifikasi Jika Berhasil menambahkan / menginput data

Notifikasi Jika Berhasil Mengubah / Mengedit Data

Notifikasi Jika Berhasil Menghapus Data

Hasil Inputan pada Database :

Hasil Inputan Database

- Berikut adalah Source Code yang digunakan :

Imports System.Data
Imports System.Data.OleDb

Public Class Data_Penjualan_Bengkel_Firdaus
    Inherits System.Web.UI.Page
    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Semester 5\Selasa\Bpk. Agus\TUGAS_UTS.mdb"
    Dim con As New OleDb.OleDbConnection(koneksi)
    Dim xReader As OleDb.OleDbDataReader

    Protected Sub btnInput_Click(sender As Object, e As EventArgs) Handles btnInput.Click
        con.Open()
        Dim add As String = "INSERT INTO TBL_UNNORMALIZED VALUES ('" + txtNo.Text + "','" + txtNamaBarang.Text + "','" + txtQty.Text + "','" + txtHargaSatuan.Text + "','" + txtJumlah.Text + "','" + txtJumlahTotal.Text + "','" + txtNamaPembeli.Text + "','" + txtTanggal.Text + "')"
        Dim cmd = New OleDbCommand(add, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Menambahkan List Data!")
    End Sub

    Protected Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
        con.Open()
        Dim edit As String = "UPDATE TBL_UNNORMALIZED set QTY ='" + txtQty.Text + "' WHERE Nama_Barang = '" + txtNamaBarang.Text + "'"
        Dim cmd = New OleDbCommand(edit, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Mengubah Data!")
    End Sub

    Protected Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
        con.Open()
        Dim delete As String = "DELETE * From TBL_UNNORMALIZED WHERE Nama_Barang = '" + txtNamaBarang.Text + "'"
        Dim cmd = New OleDbCommand(delete, con)
        cmd.ExecuteNonQuery()
        con.Close()
        MsgBox("Berhasil Menghapus Data!")
    End Sub

   
End Class



Demikian Hasil Project yang telah saya buat.



Thanks & Regards,


JIKRI FIRDAUS