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