UAS RPL FARRELL EZRA RASYIDIN 161011700371 SIFE002

PROJECT : Aplikasi Tempat Penitipan Motor

Analisa Kebutuhan :
  1. Aplikasi ini berfungsi untuk menyimpan data transaksi
  2. Membantu memantau kelua masuknya kendaraan
  3. Membantu memasukan data seperti :
         -Tanda Nomor Kendaraan Bermotor
         - Brand Kendaraan
         - Jenis Kendaraan

Design Data Table Yang Digunakan :
         - Nomor Polisi  :  Short Text
         - Brand Motor   :  Long Text
         - Jenis Motor     :  Long Text
         - Jam Masuk      :  Number

Design Aplikasi Pada VisualStudio :

Design Data Table Pada DataBase Access :



Tampilan Awal Aplikasi :

Tampilan Aplikasi Setalah Data Sukses Tersimpan :

Tampilan Data Pada Aplikasi :

Tampilan Data Pada DataBase :

Source Code Yang Digunakan Dalam Aplikasi Ini :

Imports System.Data
Imports System.Data.OleDb

Public Class TampilanMasuk
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Users\UZER\Documents\Visual Studio 2012\Projects\PenitipanMotorUAS\PenitipanMotorUAS\App\datapenitipanmotor.mdb"
    Dim PenitipanMotorUAS 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 Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PenitipanMotorUAS.Open()
        Dim tambah As String = "INSERT INTO datamotor values('" & NomorPolisi.Text & "','" & BrandMotor.Text & "','" & JenisMotor.Text & "','" & JamMasuk.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, PenitipanMotorUAS)
        oCmd.ExecuteNonQuery()
        PenitipanMotorUAS.Close()
        MsgBox("Sukses")
    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Response.Redirect("TampilanData.aspx")
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        NomorPolisi.Text = ""
        BrandMotor.Text = ""
        JenisMotor.Text = ""
        JamMasuk.Text = ""
    End Sub
End Class