Aplikasi Cuci Mobil/Motor

Sekarang saatnya untuk ber-koding ria (hahaha). skr gue mau nunjukin aplikasi buat orang yang punya jasa cuci cuci, bukan laundry bukan juga cuci helm, apalagi cuci foto. tapi sekarang guw mau nunjukin aplikasi untuk cuci mobil maupun motor, lengkap dengan fitur tambahannya.

ok let's go!

ini adalah tampilan awal dari program ini

bisa dilihat di dalam sudah terdapat beberapa nama beserta kode barangnya. data grid ini menunjukan transakti yang telah terjadi selama ini. database dipanggil dari data access pembelian jasa.

jika kita menklik tombol list jasa, maka akan terbuka window baru yang berisikan kode kode jasa dan namanya, hal ini dibuat untuk memebrikan refrensi kepada user yang ingin menginput data.

sekarang cara untuk menginput data:

1. masukan no pelanggan, perlu diingat bahwa nomor pelanggan tidak boleh sama, jadi lihat history dan masukan nomor setelah transaksi terakhir, jika tidak akan terjadi seperti ini 

hal ini memungkinkan user dapat melihat letak kesalahannya dan mengganti dengan yang benar.

2. masukan nama pelanggan, lalu masukan kode jasa yang telah dilakukan. kode jasa bisa di pilih di drop down list yang otomatis akan mengisi nama dan harga jasa di bawahnya. jika kita belum tahu kode apa yang harus dimasukan, bisa membuka list jasa yang sudah di beritahu sebelumnya 

3. click hitung untuk memulainya, selanjutnya masukan uang yang diberikan oleh pelanggan. lalu klik bayar yang nanti nya akan otomatis menghitung kembaliannya dan mengecek apakah uangnya cukup

voila! sekarang kita bisa tahu berapa kembaliannya (jika ada) dan data akan otomatis tersimpan di database dengan aman.

Database access

tapi... gimana kalo uangnya kurang...?

 tenang sistemnya sudah di program untuk menangkal hal tersebut 

nah itu adalah aplikasi simple yang menggunakan koneksi database ke access, kalo mau nyoba guw akan kasih source codenya. coba di ngertiin kodingannya dan coba bereksmerimen dengan aplikasinya. Good Luck ;)

>RDV<

Source Code

Imports System.Text

Imports System.Windows.Forms

Imports System.Data.OleDb

Public Class Form1

    Dim con As New OleDbConnection()

    Dim tambah As New OleDbCommand()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'ProdukDataSet.tbl_barang' table. You can move, or remove it, as needed.

        Me.Tbl_barangTableAdapter.Fill(Me.ProdukDataSet.tbl_barang)

        'TODO: This line of code loads data into the 'ProdukDataSet.tbl_pembeli' table. You can move, or remove it, as needed.

        Me.Tbl_pembeliTableAdapter.Fill(Me.ProdukDataSet.tbl_pembeli)

        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\Users\Radactive\Documents\All bout computer data\apa aja rev 3\apa aja rev 3\Produk.accdb"

        con.Open()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'cek koneksi udah kebuka atau belum

        If con.State = ConnectionState.Closed Then

            con.Open()

        End If

        'koding cek uang yang di kasih sama pelanggan

        If TextBox3.Text = "" Then

            MsgBox("Isi Uang yang dikasih pelanggan", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "Error")

            Exit Sub

        ElseIf Val(TextBox3.Text) < Val(Label5.Text) Then

            MsgBox("Uangnya kurang boss! minta lagi kurangnya...", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Hmm??")

            Exit Sub

            'koding untuk save data dan ngitung kembalian

        Else

            Try 'coba jalanin ini

                Dim kembalian As Integer

                kembalian = Val(TextBox3.Text) - Val(Label5.Text)

                tambah.Connection = con

                tambah.CommandText = "INSERT INTO tbl_pembeli VALUES ( '" & TextBox5.Text & "' ,'" & TextBox1.Text & "', '" & ComboBox1.Text & "','" & TextBox2.Text & "', '" & Label5.Text & "')"

                tambah.ExecuteNonQuery()

                Tbl_pembeliTableAdapter.Insert(TextBox5.Text, TextBox1.Text, ComboBox1.Text, TextBox2.Text, Label5.Text)

                Tbl_pembeliTableAdapter.Fill(Me.ProdukDataSet.tbl_pembeli)

                MessageBox.Show("Kembaliannya : Rp." + kembalian.ToString + ",Terimasih sudah menggunakan jasa kami", "Thank you :)!")

            Catch ex As Exception 'kalo error ngesave, jalanin ini

                MsgBox("Data Tidak Dapat di save, Cek kembali nomor pelanggan!", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "UH OH!!!")

            End Try

        End If

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Label5.Text = TextBox2.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        List_Jasa.Show()

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Application.Exit()

    End Sub

End Class