UAS Rekayasa Perangkat Lunak

UAS Rekayasa Perangkat Lunak

1.Analisa Kebutuhan

  

•    Oleh admin aplikasi berfungsi untuk :

1. Menginput Data 
2. Mengupdate Data
3. Meng edit Data
4. Menyimpan Data
5. Menghapus Data 

• Dan maempermudah dalam login data mengenai biodata mahasiswa atau nilainya

2.Perancangan Desain

      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