UAS Rekayasa Perangkat Lunak
1.Analisa Kebutuhan
- Oleh admin aplikasi berfungsi untuk :
- Menginput Data
- Mengupdate Data
- Meng edit Data
- Menyimpan Data
- Menghapus Data
- Dan maempermudah dalam login data mengenai biodata mahasiswa atau nilainya
1.Desain Database
- Nama (field: teks ,60)
- NIM (field: teks ,40 ,Primary Key)
- Alamat (field: teks ,50)
- Jenis Kelamin (field: teks ,20)
- Fakultas (field: teks ,30)
- Bidang Studi (field: teks ,30)
- Ruangan(field: teks ,25)
- Nomor Telp (field: teks ,15)
- Angkatan (field: teks ,20)
2.Desain Form
2.Coding Aplikasi
Imports System.Data
Imports System.Data.OleDb
Public Class WebForm2
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ASUS\Documents\Tugas UAS\Tugas UAS\app\DATABASE_UAS.accdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO data_Mahasiswa values('" & txtnama.Text & "','" & txtnim.Text & "','" & txtttl.Text & "','" & txtalamat.Text & "','" & txtjkelamin.Text & "','" & txtfakultas.Text & "','" & txtbstudi.Text & "','" & txtruangan.Text & "','" & txtnotelp.Text & "','" & txtangkatan.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
txtnama.Text = ""
txtnim.Text = ""
txtttl.Text = ""
txtalamat.Text = ""
txtjkelamin.Text = ""
txtfakultas.Text = ""
txtbstudi.Text = ""
txtruangan.Text = ""
txtnotelp.Text = ""
txtangkatan.Text = ""
End Sub
Protected Sub Button6_Click(sender As Object, e As EventArgs) Handles btnviewdata.Click
Response.Redirect("WebForm3.aspx")
End Sub
Protected Sub txtnama_TextChanged(sender As Object, e As EventArgs) Handles txtnama.TextChanged
End Sub
End Class
3.Tampilan Web