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
