Aplikasi Pendaftaran Mahasiswa Baru - Microsoft Visual Studio 2012 - ASP.NET

   Assalamu'alaikum Warahmatullahi Wabarakatuh

   Salah satu tugas Ujian Akhir Semester, dan untuk memenuhi kelengkapan nilai mata kuliah Pemograman 1 di STMIK ERESHA. Untuk penjelasannya penulis sudah membuat perancangannya di pekan uas lalu. 
   Progam yang telah di buat adalah Aplikasi Pendaftaran Mahasiswa Baru, mungkin ini hanya program sederhana saja atau bisa dibilang program untuk progamer pemula. Deskripsi dari program ini adalah untuk user sudah bisa menyimpan data, menghapus data ,dan mengedit data yang sudah tersimpan. Dalam artian program yang saya sudah buat ini, user sudah bisa memanipulasi semua data yang akan di input/diberikan user dan sesuai keinginan nya.

Untuk pengoprasian nya ;
- Input data calon mahasiswa,
- Proses,
- Simpan,
- Selesai
- Data yang sudah di simpan , sudah terkoneksi oleh database Ms. Acces


Yang akan saya berikan di Blog ini :
- Contoh Design
- Source code
- Flow Chart
- Hasil Run

 - Flow Chart -

- Contoh design -

- Grid View -

- Data Base -

- Source code (Button Simpan)

Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        dbuas()
        Dim query As New OleDbCommand("Insert into [login_tbl] values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "');", oConn)
        Dim x = query.ExecuteNonQuery
        If x = 1 Then
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")
            tampildata()
       

Else
            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Source code (Button Hapus)

Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        dbuas()
        Dim query As New OleDbCommand("DELETE * FROM [login_tbl] WHERE NIP = " & TextBox1.Text & "", oConn)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di Hapus", MsgBoxStyle.Information, "Sukses")

       

Else
            MsgBox("Data Gagal Di Hapus", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Source code (Button Edit)

Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        dbuas()
        Dim query As New OleDbCommand("UPDATE login_tbl SET NamaMahasiswa='" & TextBox2.Text & "', TempatLahir='" & TextBox3.Text & "', TanggalLahir='" & TextBox4.Text & "', Alamat='" & TextBox5.Text & "', Fakultas='" & TextBox6.Text & "', ProgramStudi='" & TextBox7.Text & "', NamaOrangTuaKandung='" & TextBox8.Text & "'  WHERE NIP=" & TextBox1.Text & "", oConn)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di Edit", MsgBoxStyle.Information, "Sukses")

       

Else
            MsgBox("Data Gagal Di Edit", MsgBoxStyle.Critical, "Gagal")
        End If
        oConn.Close()
        Response.Redirect("MBagoesAprilYanada_161011400129.aspx")
    End Sub

- Hasil RUN

- Button Simpan -

- Button EDIT -

- Source Code untuk deklarasi nya

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb

Partial Class Login
    Inherits System.Web.UI.Page
    Dim oConn As New OleDbConnection
    Dim sql As String
    Dim da As DataSet
    Dim dt As DataTable

    Public Sub dbuas()
        Dim A As String
        A = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\STMIK ERESHA\db_uas\Database2.accdb"
        oConn = New OleDbConnection(A)
        oConn.Open()
    End Sub

    Sub tampildata()
        dbuas()
        sql = "Select * From login_tbl"
        Dim da = New OleDbDataAdapter(sql, oConn)
        Dim ds = New Data.DataSet
        ds.Reset()
        da.Fill(ds)
        GridView1.DataSource = ds.Tables(0)
    End Sub