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!!!