Tugas UAS PEMROGRAMAN I

TUGAS UAS

Aplikasi Data Mahasiswa 

Deskripsi Program:

Apikasi data mahasiswa ini adalah program yang dibuat untuk mencari data mahasiswa, mahasiswa yang sudah disimpan didalam database.

Program ini berkorelasi dengan database pada microsoft access ke aplikasi data mahasiswa tadi,

Program ini dibuat untuk memudahkan pencarian data nama, kelas dll, pada mahasiswa yang jumlahnya sangat banyak disetiap Kampus. 

Program ini memiliki beberapa button diantaranya adalah 

Add, save, Serach, Show 

Berikut adalah contoh program  yang saya buat 

Untuk mencari data yang diinginkan pengguna harus tau NIM dari mahasiswa jika NIM sudah diisi, maka Klik button search lalu aplikasi akan menampilkan data lengkap mahasiswa.

 data yang akan yang sudah disave akan tersimpan pada database berikut.

ini adalah hasil dari run database.

Desain Pada VB.

Kemudian Source Code dari Program 

 Source Code InputForm Mahasiswa_161011400168

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

Partial Class WebForm1
    Inherits System.Web.UI.Page
    Dim transfer As OleDbConnection
    Dim constring As String = ConfigurationManager.ConnectionStrings("ConnectionString2").ConnectionString
    Dim oConn As New OleDbConnection(constring)
    Dim xReader As OleDbDataReader
    Dim Sql As String

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

    End Sub

    Protected Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        Dim sql As String = "INSERT INTO Kelas VALUES ('" & TxtNim.Text & "','" & TxtNama.Text & "','" & TxtKelas.Text & "','" & TxtFakultas.Text & "');"
        Dim oCmd As New OleDbCommand
        oConn.Open()
        oCmd.Connection = oConn
        oCmd.CommandText = sql
        oCmd.ExecuteNonQuery()
    End Sub

    Protected Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
        TxtNim.Text = ""
        TxtNama.Text = ""
        TxtKelas.Text = ""
        TxtFakultas.Text = ""
        TxtNim.Focus()
    End Sub

    Protected Sub btntampil_Click(sender As Object, e As EventArgs) Handles btntampil.Click
        Response.Redirect("Form_DataMahasiswa_Reva_Alfaridzi_161011400168.aspx")
    End Sub

    Protected Sub btncari_Click(sender As Object, e As EventArgs) Handles btncari.Click
        If Not Len(TxtNim.Text) = 0 Then
            oConn.Close()
            oConn.Open()
            Dim ocmd As New OleDbCommand("SELECT * FROM Kelas where NIM='" + TxtNim.Text + "'", oConn)
            xReader = ocmd.ExecuteReader
            If xReader.HasRows Then
                xReader.Read()
                TxtNim.Text = xReader("NIM")
                TxtNama.Text = xReader("Nama")
                TxtKelas.Text = xReader("Kelas")
                TxtFakultas.Text = xReader("Fakultas")
            Else
                TxtNim.Text = "NIM Tidak Ditemukan"
                Exit Sub

            End If
            xReader.Close()
        End If
    End Sub
End Class


Flowchart