[ UAS REKAYASA PERANGKAT LUNAK ]

  

> PERANCANGAN FORM PEMBAYARAN SPP

Di Bawah ini adalah Design Form Pembayaran SPP  :

o>  Tampilam "RESET"

 

o> Tampilan "SIMPAN"

 

o> Tampilan "LIHAT"

 

o> Tampilan "CARI"

 

o> Tampilan Tabel1

Berikut ini adalah source code dari tampilan design RESET, SIMPAN, LIHAT DAN CARI  :

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\ASUS\Documents\TUGAS UAS\PEMBAYARAN SPP.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

    Protected Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
        txtNim.Text = ""
        txtNama.Text = ""
        txtJurusan.Text = ""
        txtJumlah.Text = ""
        txtNim.Focus()
        MsgBox("Berhasil DiReset")
    End Sub

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

        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO Table1 values('" & txtNim.Text & "','" & txtNama.Text & "','" & txtJurusan.Text & "','" & txtJumlah.Text & "')"
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox(" Data Berhasil Disimpan")

    End Sub

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

    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 Table 1 where NIM='" + txtCari.Text + "'", objekKoneksi)

            xReader = ocmd.ExecuteReader()
            If xReader.HasRows Then
                xReader.Read()
                txtNim.Text = xReader("Nim")
                txtNama.Text = xReader("Nama")
                txtJurusan.Text = xReader("Jurusan")
                txtJumlah.Text = xReader("Jumlah")

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

        End If
    End Sub

Mohon maaf apabila terdapat kesalahan maupun kekurangan didalamnya.

 

Sekian dan Terima Kasih.....................................................