Aplikasi Kasir Visual Studio berbasis Web connect to Data Base Access

Aplikasi Kasir Visual Studio Berbasis web

Pada postingan kali ini saya akan membuat aplikasi kasir penjualan alat ukur dengan menggunakan aplikasi Visual Studio 2012, pada aplikasi ini Berbasis web, yang nantinya dapat membantu pegawai agar tidak mencatat secara manual lagi, kegunaan dari terhubungnya aplikasi ini dengan Browser dan dapat mencetak bukti pembelian yang menyimpan data penjualan ke Data Base Acces.

Tampilan awal aplikasi ini menujukan pilihan Kode Transaksi dan berapa harga alat tersebut setelah dikalikan dengan jumlah alat yang dibeli. aplikasi ini juga mencantumkan nama kasir dan nama pembeli agar suatu saat nanti jika alat mengalami kerusakan yang masih bisa ditangggung garansi maka akan diperbaiki atau diganti dengan alat baru sesuai garansi yang tertera untuk alat tersebut. 


*Desain Tampilan awal






*Tampilan Yang Sudah diisi dan disimpan ke data base


*Tampilan data base yang Sudah diinput dan disimpan



*Tampilan Rancangan database access



*Tampilan Database yang telah diinput dan disimpan





#Source Code


Imports System.Data
Imports System.Data.OleDb

>Source code public Class Koneksi
Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim Koneksi As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=C:\Users\Acer\Documents\Visual Studio 2012\Projects\WebApplication15\WebApplication15\appdata\uas.mdb"
    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

>Button Hitung

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, b, c As Single
        a = TextBox6.Text
        b = TextBox8.Text
        c = a * b
        TextBox9.Text = c


    End Sub


>Button Koneksi database
    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        objekKoneksi.Open()
        Dim tambah As String = "INSERT INTO penjualan values('" & TextBox1.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
        Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
        oCmd.ExecuteNonQuery()
        objekKoneksi.Close()
        MsgBox("Sukses")

    End Sub

>Button View
    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Response.Redirect("ViewData.aspx")
    End Sub


>Button Hapus

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        TextBox1.Focus()
    End Sub
End Class


#Database dikoneksikan dengan database access menggunakan source code paling
diatas....!!!

Terima kasih.
Selamat Mencoba!!!

Komentar

Postingan populer dari blog ini

Program Terbilang Menggunakan Python (Canopy)

Java Netbeans Aplikasi Sederhana 1