STMIK Eresha (UNPAM) TUGAS UAS RPL : Dosen Bpk Agus Suharto

(RPL) REKAYASA PENGAKAT LUNAK

1. Membuat Database
-NIS (prymary)
-NAMA(text, 50)
-KELAS (text, 10)
-ALAMAT (text, 200)
-JENIS_KELAMIN (text, 5)

Berikut Tampilan Desai Database :

2. Membuat Desain Form di Visual Studio

- 5 Label

- 6 TextBox

- 4 Botton

Berikut tampilan Desain Form :

3. Mengkoneksikan ke Database Siswa.accdb.

4. Membuat Source Code :

A. Membuat Source Coke Koneksi

Imports System.Data
Imports System.Data.OleDb

Public Class WebForm1
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Dwi Destia\Documents\Tugas UAS\DataSiswa.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

B. Source Code Reset

Protected Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
txtNis.Text = ""
txtNama.Text = ""
txtKelas.Text = ""
txtAlamat.Text = ""
txtJk.Text = ""
txtCari.Text = ""
txtNis.Focus()
EndSub

C. Membuat Desain Lihat dan Mengkoneksikannya dari database ke formdatasiswa
Berikut Desain dan Source Codenya :

Source Code Lihat Ridirect to formdatasiswa.aspx

Protected Sub btnLihat_Click(sender As Object, e As EventArgs) Handles btnLihat.Click
Response.Redirect("formdatasiswa")
End Sub

D. Membuat Source Code Simpan

Protected Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click

objekKoneksi.Open()
Dim tambah As String = "INSERT INTO siswa values('" & txtNis.Text & "','" & txtNama.Text & "','" & txtKelas.Text & "','" & txtAlamat.Text & "','" & txtJk.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")

End Sub

E. Membuat Source Code Cari

Protected Sub btnCari_Click(sender As Object, e As EventArgs) Handles btnCari.Click
If Not Len(txtCari.Text) = 0 Then
objekKoneksi.Close()
objekKoneksi.Open()
Dim ocmd As New OleDb.OleDbCommand("SELECT * FROM siswa where NIS='" + txtCari.Text + "'", objekKoneksi)

xReader = ocmd.ExecuteReader()
If xReader.HasRows Then
xReader.Read()
txtNis.Text = xReader("NIS")
txtNama.Text = xReader("NAMA")
txtKelas.Text = xReader("KELAS")
txtAlamat.Text = xReader("ALAMAT")
txtJk.Text = xReader("JENIS_KELAMIN")

Else
txtCari.Text = "Nama Siswa Tidak ada :)"
Exit Sub
End If
xReader.Close()

End If

End Sub

4. Menjalankan Program

A. Reset Data