MAKALAH TENTANG PERANCANGAN PROGRAM SISTEM KASIR TOKO KELONTONG
Kelompok Anggota : 1. Kurniawan Ismail 2. Tiara Awaliyah Pamuncar 3. Bagus Hendrawan W
( 4B / 1512030041) (4B/1512030020) (4B/15120300046)
KATA PENGANTAR Dengan menyebut nama Allah SWT yang Maha Pengasih lagi Maha Panyayang, Kami panjatkan puja dan puji syukur atas kehadirat-Nya, yang telah melimpahkan rahmat, hidayah, dan inayah-Nya kepada kami, sehingga kami dapat menyelesaikan makalah tentang pemrograman sistem kasir toko kelontong ini telah kami susun dengan maksimal dan mendapatkan bantuan dari berbagai pihak sehingga dapat memperlancar pembuatan makalah ini. Untuk itu kami menyampaikan banyak terima kasih kepada semua pihak yang telah membantu dalam pembuatan makalah ini. Terlepas dari semua itu, Kami menyadari sepenuhnya bahwa masih ada kekurangan baik dari segi susunan kalimat maupun tata bahasanya. Oleh karena itu dengan tangan terbuka kami menerima segala saran dan kritik dari pembaca agar kami dapat memperbaiki makalah ini. Akhir kata kami berharap semoga makalah ilmiah tentang pemrograman sistem kasir toko kelontong ini manfaatnya untuk masyarakan ini dapat memberikan manfaat bagi pembacanya.
Surakarta, 11 Juni 2017
DAFTAR ISI
KATA PENGANTAR . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .i DAFTAR ISI . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .ii BAB I PENDAHULUAN. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .1 1.1 1.2 1.3
Latar Belakang . . . . . . . . . . . . . . . . . . . . . . . . . . . . .2 Tujuan . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3 Manfaat . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 4
BAB II PEMBAHASAN . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .5 2.1
Perancangan ERD . . . . . . . . . . . . . . . . . . . . . . . . . . 6
2.2
Perancangan Relasi. . . . . . . . . . . . . . . . . . . . . . . . . .7
2.3
Rancangan Tabel. . . . . . . . . . . . . . . . . . . . . . . . . . . .8
2.4 2.5
Hasil Screen Shot dari program. . . . . . . . . . . . . . . . 9 Hasil script dari program. . . . . . . . . . . . . . . . . . . . .10
BAB III PENUTUP 3.1 3.2
Kesimpulan. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 11 Saran. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 12
BAB I PENDAHULUAN
1.1 Latar Belakang Perkembangan teknologi komputer saat ini semakin pesat, khususnya bidang teknologi informasi dan komunikasi. Hal ini menjadi kebutuhan manusia yang tak terpisahkan oleh jarak ruang dan waktu. Dengan perkembangan teknologi informasi yang semakin maju, manusia dapat membuat berbagai macam peralatan sebagai alat bantu dalam menjalankan berbagai aktifitas guna mendukung produktifitas seperti pada sebuah swalayan dimana sebenarnya adalah semacam "toko kelontong" yang menjual segala macam barang dan makanan yang menerapkan sebuah sistem mesin kasir sebagai point of sale lebih dikenal dengan istilah POS. POS yaitu merupakan Aktivitas yang berorientasi pada penjualan serta sistem yang membantu proses transaksi penjualan dan stok barang . Setiap POS terdiri dari Hardware ( Peralatan ) dan Software (Program) dimana kedua komponen tersebut saling bekerja untuk setiap proses transaksi. Berbeda dengan toko kelontong, swalayan menerapkan sistem swalayan, dimana pembeli mengambil sendiri barang yang dibutuhkan pada rak-rak swalayan kemudian membayarnya dimeja mesin kasir. Sistem ini juga membantu agar pembeli tidak berhutang dan meninggalkan pencatatan secara manual. Selain digunakan untuk menghitung total belanja, mesin kasir juga bisa digunakan untuk membantu dalam membuat laporan penjualan yang dapat dilihat didalam basis data. Hanya dengan memasukkan kode barang, dapat dengan mudah menghitung total belanja pelanggan atau pembeli.
1.2 Tujuan Tujuan dari makalah ini adalah : 1. Menganalisa permasalahan pada proses yang terdapat toko kelontong 2. Membuat solusi pemecahan masalah yang terdapat toko kelontong ini seperti perancangan sistem pemesanan, sistem pembayaran, dan lain-lain. 3. Mengevaluasi solusi pemecahan masalah yang telah dibuat.
1.3 Manfaat Manfaat dari makalah ini adalah : 1. Membantu pemilik dalam meningkatkan sistem transaksi yang sebelumnya manual menjadi sistem yang lebih baik. 2. Membantu pemilik dalam penambahan atau perubahan menu, seperti perubahan stok, harga dan penambahan menu pada makanan dan minuman.
BAB II PEMBAHASAN Di zaman teknologi yang sedang berkembang pesat saat ini, hampir semua aspek kehidupan membutuhkan sentuhan teknologi untuk mempermudah pekerjaan dan memenuhi kebutuhan dengan cepat dan tepat. Dari yang sebelumnya teknologi berawal dari PC hingga Smartphone yang sedang berkembang pesat saat ini. Tidak hanya kebutuhan individu yang menginginkan teknologi yang berkembang, tetapi perusahaan atau instansi seperti toko keontong ini juga membutuhkan teknologi tersebut. Salah satu contoh sistem manajemen restoran yang masih menggunakan sistem manual adalah Toko kelontong . Toko kelontong merupakan salah satu bisnis usaha keluarga yang bergerak dalam bidang jasa toko kecil-kecian seperti toko kelontong ini. Seperti halnya kasir, kasir adalah sesorang yang bisa mengoprasikan seperangkat komputer yang ditunjukan untuk menunjang sebuah transaksi penjualan. Ada istilah kasir dan juga kassa, kasir itu adalah orangnya/user dan kassa itu adalah tempatnya. Profesi kasir adalah seseorang yang pekerjaannya menerima uang pembayaran saat pembelian produk barang atau jasa dan melakukan pengembalian uang sisa pembayaran, sekaligus menyerahkan produk barang atau jasa kepada pelanggan (customer) di loket-loket kasir di suatu toko.
2.2 Perancangan ERD Entity-Relationship Diagram (ERD) merupakan suatu model jaringan yang mengggunakan susunan data yang disimpan pada sistem secara abstrak. ERD juga menggambarkan hubungan antara satu himpunan entitas yang memiliki atribut dengan himpunan entitas yang lain dalam suatu sistem yang terintegrasi (Yakub, 2008) . Simbol- simbol dalam ERD disajikan dalam tabel 2.2. 1) Entitas, Atribut, dan Relasi Suatu entitas merupakan individu yang mewakili sesuatu yang nyata eksistensinya dan dapat dibedakan dari objek-objek yang lain. Suatu entitas memiliki sekumpulan sifat, dan nilai dari beberapa sifat tersebut dapat mengidentifaksi entitas tersebut. Sekumpulan entitas yang mempunyai tipe yang sama (sejenis) dan berada dalam lingkup yang sama membentuk suatu himpunan entitas (Fathansyah, 1999)
2.3 Perancangan Relasi
PROGRAM YANG DIGUNAKAN: 1. Visual Basic 6.0 2. XAMPP v3.2.2 (Sebagai Database) 3. ODBC Connector MYSQL (Sebagai Penghubung XAMPP Dengan Visual Basic)
RANCANGAN DATABASE PROJECT VISUAL BASIC “KASIR TOKO KELONTONG”
TABEL
RELASI TABEL
DIAGRAM KONTEKS
DFD KASIR
HASIL SCREENSHOOT PROJECT VISUAL BASIC “KASIR TOKO KELONTONG”
Menu Utama & Script Manu Utama:
Sub Terkunci() MnLogin.Enabled = True MnLogout = False MnMaster.Enabled = False MnTransaksi.Enabled = False MnLaporan.Enabled = False End Sub
Private Sub Form_Load() Call Terkunci End Sub
Private Sub MnBarang_Click() FormMasterBarang.Show vbModal End Sub
Private Sub MnKasir_Click() FormMasterKasir.Show End Sub
Private Sub MnKeluar_Click() End End Sub
Private Sub MnLogin_Click() FormLogin.Show vbModal End Sub
Private Sub MnLogout_Click() Call Terkunci End Sub
Private Sub MnPelanggan_Click()
FormMasterPelanggan.Show vbModal
End Sub Private Sub MnTransJual_Click() FormTransJual.Show vbModal End Sub
Private Sub MnTransaksi_Click() FormTransJual.Show vbModal End Sub
(Form Login Aplikasi) Script Login =========
Sub Terbuka() FormMenuUtama.MnLogin.Enabled = False FormMenuUtama.MnLogout.Enabled = True FormMenuUtama.MnMaster.Enabled = True FormMenuUtama.MnTransaksi.Enabled = True FormMenuUtama.MnLaporan.Enabled = True End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() Text1 = "" Text2 = "" Text1.SetFocus End Sub Sub Form_Load()
Call BukaDB Text1.MaxLength = 6 Text2.MaxLength = 10 Text2.PasswordChar = "X" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Command1.SetFocus End If End Sub Function CariData() Call BukaDB RSKasir.Open "Select * From TBL_Kasir where kodeKasir='" & Text1 & "'", koneksi End Function Private Sub Command1_Click() Call BukaDB RSKasir.Open "Select * from TBL_Kasir where KodeKasir ='" & Text1 & "' and PasswordKasir='" & Text2 & "'", koneksi If RSKasir.EOF Then MsgBox "KodeKasir atau Password Salah!"
Text1.SetFocus Else Unload Me FormMenuUtama.Show Call Terbuka End If End Sub
(Form Kasir) Script Form Kasir: ============== Dim mvBookMark As Variant Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then MsgBox "Data Belum Lengkap" Else Call BukaDB Dim SQLTambah As String SQLTambah = "Insert Into tbl_kasir values ('" & Text1 & "' ,'" & Text2 & "',' " & Text3 & "','" & Combo1 & "')" koneksi.Execute SQLTambah MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
Form_Activate Call kondisiawal End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 20 Text3.MaxLength = 15 Text3.PasswordChar = "X" kondisiawal End Sub Private Sub kondisiawal() Command1.Caption = "&Input" Command2.Caption = "&Edit" Command3.Caption = "&Hapus" Command4.Caption = "&Tutup" Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Text1 = ""
Text2 = "" Text3 = "" Combo1.Clear Combo1.AddItem "USER" Combo1.AddItem "ADMIN" End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = koneksi Adodc1.RecordSource = "select KodeKasir,NamaKasir,LevelKasir from tbl_kasir" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Call kondisiawal Command1.SetFocus End Sub
(Form Pelanggan)
Script Form Pelanggan: ================= Dim mvBookMark As Variant Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Call BukaDB Dim SQLTambah As String SQLTambah = "Insert Into TBL_Pelanggan values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')" koneksi.Execute SQLTambah
MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan" Form_Activate Call kondisiawal End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 50 Text3.MaxLength = 30 Text4.MaxLength = 20 kondisiawal End Sub Private Sub kondisiawal() Command1.Caption = "&Input" Command2.Caption = "&Edit" Command3.Caption = "&Hapus" Command4.Caption = "&Tutup" Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Text1 = "" Text2 = "" Text3 = "" Text4 = ""
End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = koneksi Adodc1.RecordSource = "select * from TBL_Pelanggan" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Call kondisiawal Command1.SetFocus End Sub
(Form Barang) Script Form Barang: Dim mvBookMark As Variant
Private Sub Command1_Click() If Text1 = "" Or Text2 = "" Or Text3 = "" Or Combo1 = "" Then MsgBox "Data Belum Lengkap" Else Call BukaDB Dim SQLTambah As String SQLTambah = "Insert Into TBL_BARANG values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Combo1 & "')"
koneksi.Execute SQLTambah MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan" Form_Activate Call kondisiawal End If End Sub Private Sub Command4_Click() Unload Me End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 50 Text3.MaxLength = 12 kondisiawal End Sub Private Sub kondisiawal() Command1.Caption = "&Input" Command2.Caption = "&Edit" Command3.Caption = "&Hapus" Command4.Caption = "&Tutup" Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Text1 = "" Text2 = "" Text3 = "" Combo1 = ""
End Sub Private Sub Form_Activate() Call BukaDB Adodc1.ConnectionString = koneksi Adodc1.RecordSource = "select * from TBL_BARANG" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Call kondisiawal Command1.SetFocus End Sub
(Form Penjualan)
BAB III PENUTUPAN 3.1 Kesimpulan
a. Berdasarkan hasil penelitian Analisis dan Perancangan Sistem Penjualan dan
Pendataan Stok Barang diharapkan berguna bagi kelancaran transaksi penjualan pada Tata Distro b. Perlunya dibangun rancangan sistem.
3.2 Saran a. Analisis dan Perancangan Sistem Penjualan dan Pendataan Stok Barang ini kedepannya dapat diaplikasikan menjadi suatu sistem yang nyata sehingga dapat diterapkan pada kasir.
b. Pada Analisis dan Perancangan Sistem Penjualan dan Pendataan Stok Barang, hanya
sebatas tentang pendataan barang serta sistem kasirnya, kedepannya dapat dikembangkan menjadi toko online.
