UAS_Pemrograman_04TPLP001

Nama : Doddy Sumirat Ginanjar
Nim : 161021450280
Kelas : 04TPLP001


UAS_Pemrograman


 Deskripsi Program

• Judul dari Program ini adalah " Pendataan Ijazah Sekolah " tujuan dari program ini ialah untuk memudahkan pendataan Ijazah dengan lebih mudah dan lebih efisien.

Screenshot Program

Penjelasan Program

 User hanya tinggal menginput data yang di butuhkan untuk membuat Ijazah, Setelah di buat data yang tadi sudah di buat akan tersimpan di dalam database.

• Berikut penjelasan Tombol Buttonnya

• Button Delete, Berfungsi untuk menghapus data yang pernah di buat yang sudah tersimpan di dalam database.
• Button Save, Berfungsi untuk menyimpan data yang sudah di buat ke dalam database.
• Button View, Berfungsi untuk melihat data yang sudah di buat atau yang sudah di Delete.
• Button Search, Berfungsi untuk Mencari User yang ada di dalam database untuk di Delete.

Source Code

Imports System.Data

Imports System.Data.OleDb

Public Class Web_Data_Ijazah_Sekolah

    Inherits System.Web.UI.Page

    Dim koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\ASUS\Desktop\UAS_Pemrograman.mdb"

    Dim con As New OleDb.OleDbConnection(koneksi)

    Dim xReader As OleDb.OleDbDataReader

    Dim status As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        checkbox1.Text = "LULUS"

        CheckBox2.Text = "TIDAK LULUS"

        Dim tanggal As Integer

        Dim tahun As Integer

        DropDownList2.Items.Add("Januari")

        DropDownList2.Items.Add("Februari")

        DropDownList2.Items.Add("Maret")

        DropDownList2.Items.Add("April")

        DropDownList2.Items.Add("Mei")

        DropDownList2.Items.Add("Juni")

        DropDownList2.Items.Add("Juli")

        DropDownList2.Items.Add("Agustus")

        DropDownList2.Items.Add("September")

        DropDownList2.Items.Add("Oktober")

        DropDownList2.Items.Add("November")

        DropDownList2.Items.Add("Desember")

        For tanggal = 1 To 31

            DropDownList1.Items.Add(tanggal)

            For tahun = 1980 To 2019

                DropDownList3.Items.Add(tahun)

            Next

        Next

    End Sub

    Sub simpan()

        If checkbox1.Checked = True Then

            status = "LULUS"

        Else

            status = "TIDAK LULUS"

        End If

        Dim tambah As String = "INSERT INTO TableIjazah values ('" & Txtnama.Text & "','" & DropDownList1.Text & "','" & DropDownList2.Text & "','" & DropDownList3.Text & "','" & txttempat.Text & "','" & txtnisn.Text & "','" & txtas.Text & "','" & status & "')"

        Dim oCmd = New OleDbCommand(tambah, con)

        oCmd.ExecuteNonQuery()

        con.Close()

        MsgBox("Success !")

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        simpan()

    End Sub

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

        Response.Redirect("view.aspx")

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        con.Open()

        Dim hapus As String = "DELETE * From Tableijazah WHERE Nama = '" & txtsearch.Text & "'"

        Dim oCmd = New OleDbCommand(hapus, con)

        oCmd.ExecuteNonQuery()

        con.Close()

        MsgBox("Berhasil Menghapus!!")

        Txtnama.Text = ""

        txttempat.Text = ""

        txtnisn.Text = ""

        txtas.Text = ""

        checkbox1.Checked = False

        CheckBox2.Checked = False

    End Sub

    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

        If Not Len(txtsearch.Text) = 0 Then

            con.Close()

            con.Open()

            Dim ocmd As New OleDbCommand("SELECT * From Tableijazah WHERE Nama = '" + txtsearch.Text + "'", con)

            xReader = ocmd.ExecuteReader

            If xReader.HasRows Then

                xReader.Read()

                Txtnama.Text = xReader("Nama")

                txttempat.Text = xReader("Tempat")

                txtnisn.Text = xReader("Nomer Siswa Induk Nasional")

                txtas.Text = xReader("Asal Sekolah")

                If xReader("Keterangan") = "LULUS" Then

                    checkbox1.Checked = True

                    CheckBox2.Checked = False

                End If

                If xReader("Keterangan") = "TIDAK LULUS" Then

                    CheckBox2.Checked = True

                    checkbox1.Checked = False

                End If

            End If

        End If

    End Sub

End Class