Aplikasi Pendaftaran Mahasiswa Berbasis web

Aplikasi pendaftaran Mahasiswa

aplikasi ini di buat menggunakan visual studio 2012. Aplikasi ini memberikan nuansa baru bagi para administrator yang akan menginput nama mahasiswa baru yang mendaftar. tentunya aplikasi ini memberikan sentuhan kemudahan bagi administrator.

Komponen yang di gunakan :

1. Label

2. Text Box

3. Button.

                                              Tampilan Menu utama Visual Studio (VS)

Tampilan Sukses Simpat/input data

                                                      

                                                                Tampilan Update data

                                                    Tampilan sukses hapus data

                                                                  Tampilan View

                           Soucode :

 Imports System.Data
Imports System.Data.OleDb

Partial Class Mahasiswa

    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\nazwa\Documents\VB NEW1\App Mahasiswa\PENDAFTARAN MAHASISWA.accdb"
    Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
    Dim Xreader As OleDb.OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

----------------------------------------------------------------------------------------------

===Tombol Save===


    Protected Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO DaftarMahasiswa values ('" & TxtNO.Text & "','" & TxtInduk.Text & "','" & TxtNama.Text & "','" & TxtJurusan.Text & "','" & Txtalamat.Text & "','" & TxtLahir.Text & "','" & TxtTanggal.Text & "','" & Txtorgtua.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses Simpan")

    End Sub

--------------------------------------------------------------------------------------------------

===Tombol View===

    Protected Sub BTNView_Click(sender As Object, e As EventArgs) Handles BTNView.Click

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


--------------------------------------------------------------------------------------------------

===Tombol Cari===

    Protected Sub BtnCari_Click(sender As Object, e As EventArgs) Handles BtnCari.Click
        If Not Len(TxtNO.Text) = 0 Then
            objekKoneksi.Close()
            objekKoneksi.Open()
            Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM DaftarMahasiswa where NoPendaftaran='" + TxtNO.Text + "'", objekKoneksi)

            Xreader = ocmd.ExecuteReader()
            If Xreader.HasRows Then
                Xreader.Read()
                TxtNO.Text = Xreader("NoPendaftaran")
                TxtInduk.Text = Xreader("NoIndukMahasiswa")
                TxtNama.Text = Xreader("Nama")
                TxtJurusan.Text = Xreader("Jurusan")
                Txtalamat.Text = Xreader("Alamat")
                TxtLahir.Text = Xreader("TempatLahir")
                TxtTanggal.Text = Xreader("TanggalLahir")
                Txtorgtua.Text = Xreader("NamaOrangTua")
            Else
                TxtNO.Text = "Nama Mahasiswa Tidak ada"
                Exit Sub
            End If
            Xreader.Close()

        End If
    End Sub

--------------------------------------------------------------------------------------------------------

===Tombol Update===


    Protected Sub BtnUpdate_Click(sender As Object, e As EventArgs) Handles BtnUpdate.Click
        objekKoneksi.Open()
        Dim Rubah As String = "UPDATE DaftarMahasiswa set Nama='" + TxtNama.Text + "' where NoPendaftaran='" + Trim(TxtNO.Text) + "'"
        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses Update")

    End Sub

-----------------------------------------------------------------------------------------------------------

===Tombol Delete===

    Protected Sub Btndelete_Click(sender As Object, e As EventArgs) Handles Btndelete.Click
        objekKoneksi.Open()
        Dim Rubah As String = "DELETE *FROM DaftarMahasiswa where NoPendaftaran='" + Trim(TxtNO.Text) + "'"
        Dim oCmd = New OleDbCommand(Rubah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("sukses di hapus")
    End Sub
End Class