LAPORAN TUGAS PERANCANGAN
SISTEM BASIS DATA
PELAYANAN PENJUALAN BENANG
CV RISTIE RAYA LESTARI
Diajukan untuk Memenuhi Salah Satu
Syarat Kelulusan Mata Kuliah Sistem Basis Data
DISUSUN OLEH :
KELOMPOK : 51
NAMA / NPM : Dikky /10070215074
Abid Naufal /10070215146
ASISTEN : Nur Aulia Afina
LABORATORIUM SISTEM INFORMASI DAN KEPUTUSAN
PROGRAM STUDI TEKNIK INDUSTRI
FAKULTAS TEKNIK - UNIVERSITAS ISLAM BANDUNG
2016 M / 1438 H
LAPORAN TUGAS PERANCANGAN
SISTEM BASIS DATA
PELAYANAN PENJUALAN BENANG
CV RISTIE RAYA LESTARI
Diajukan untuk Memenuhi Salah Satu
Syarat Kelulusan Mata Kuliah Sistem Basis Data
DISUSUN OLEH :
KELOMPOK : 51
NAMA / NPM : Dikky /10070215074
Abid Naufal /10070215146
ASISTEN : Nur Aulia Afina
LABORATORIUM SISTEM INFORMASI DAN KEPUTUSAN
PROGRAM STUDI TEKNIK INDUSTRI
FAKULTAS TEKNIK - UNIVERSITAS ISLAM BANDUNG
2016 M / 1438 H
Lembar
Pengesahan
Dokumen Perancangan Sistem Basis Data
PELAYANAN PENJUALAN BENANG
CV RISTIE RAYA LESTARI
Oleh Kelompok 51 :
Dikky / NPM. 100702 15 074
Abid Naufal / NPM. 100702 15 146
Program
Studi Teknik Industri
Fakultas
Teknik
Universitas
Islam bandung
Tanggal ____________________
Menyetujui :
Asisten,
Nur Aulia Afina
Dosen,
Otong Rukmana, S.T., M.T.
AYAT AL QURAN
قَالَ ٱلَّذِى
عِندَهُۥ عِلْمٌ مِّنَ ٱلْكِتَٰبِ أَنَا۠ ءَاتِيكَ بِهِۦ قَبْلَ أَن يَرْتَدَّ
إِلَيْكَ طَرْفُكَ فَلَمَّا رَءَاهُ مُسْتَقِرًّا عِندَهُۥ قَالَ هَٰذَا ٓ
ءَأَشْكُرُ أَمْ أَكْفُرُ مِن فَضْلِ رَبِّى لِيَبْلُوَنِى وَمَن شَكَرَ فَإِنَّمَا
يَشْكُرُ لِنَفْسِهِۦ وَمَن كَفَرَ فَإِنَّ رَبِّى غَنِىٌّ كَرِيمٌ
Artinya: Berkatalah seorang
yang mempunyai ilmu dari Al Kitab: "Aku akan membawa singgasana itu
kepadamu sebelum matamu berkedip". Maka tatkala Sulaiman melihat
singgasana itu terletak di hadapannya, iapun berkata: "Ini termasuk kurnia
Tuhanku untuk mencoba aku apakah aku bersyukur atau mengingkari (akan
nikmat-Nya). Dan barangsiapa yang bersyukur maka sesungguhnya dia bersyukur
untuk (kebaikan) dirinya sendiri dan barangsiapa yang ingkar, maka sesungguhnya
Tuhanku Maha Kaya lagi Maha Mulia". (An Nalm 40)
MOTTO
Dikky :
“jadilah yang ter baik dari yang baik”
Abid
Naufal :
“jika kamu tidak
berani mencoba kamu tidak akan tahu betapa
berharganya dirimu”
KATA PENGANTAR
Puji dan
syukur penulis panjatkan kepada allah SWT yang senantiasa melimpahkan rahmat
dan taufik-Nya kepada kita semua. Tak lupa shalawat serta salam kita curahkan
kepada junjungan besar kita Nabi Muhammad SAW. Dengan mengucapkan
alhamdulillah, penulis dapat menyelesaikan sebuah laporan akhir Sistem Basis Data yang berjudul “SISTEM BASIS DATA PENJUALAN BENANG CV RISTIE RAYA LESTARI”.
Tujuan dalam menulis laporan akhir ini adalah untuk melengkapi tugas praktikum
dari bagian mata kuliah system basis
data. Dalam penyusunan laporan ini,
penulis merasakan banyak bantuan moril seperti doa dan motivasi serta materil
dari berbagai pihak, sehingga laporan akhir ini dapat diselesaikan pada
waktunya. Dalam penyusunan laporan ini penulis berterimakasih kepada:
1.
Orang tua yang
mendukung baik secara materil maupun non materil
2.
Bapak Otong
Rukmana ST,.MT selaku dosen mata
kuliah Sistem Basis Data.
3.
Asisten-asisten
Lab. LSIK yang telah membimbing dan menuntun dalam pembuatan program dan
laporan akhir ini, khususnya kepada Teh Nur Aulia Afina.
4.
Teman-teman
yang memberikan dukungan dan semangat pada penyusun.
Penyusun
menyadari bahwa laporan akhir ini masih jauh dari kata sempurna, oleh karna itu
kritik dan saran dari semua pihak yang bersifat membangun selalu kami harapkan
demi kesempurnaan laporan akhir ini.
Bandung, Januari 2017
Penyusun
Daftar Isi
Daftar Tabel
Daftar Gambar
BAB I
Pendahuluan
1.1
Tujuan Perancangan Sistem Basis Data
Sistem basis data ini di buat untuk mempermudah antara konsumen dan produsen
dalam melihat barang yang di jual, harga barang, pajak dan harga total
kalkulasi barang yang ada di perusahaan CV.Ristie Raya lestari, hingga konsumen
tidak terlalu memakan waktu yang banyak untuk mengetahui barang bahan baku apa saja yang dibeli.
Dalam sistem
basis data ini
memudahkan CV.Ristie Raya Lestari dalam mengkalkulasi penjualan pada
perusahaannya, dengan adanya ini perusahaan pun menjadi lebih efisien waktu dan
tenaga pegawainya untuk mengetahui
dan menghitung
semua yang telah di pesan oleh pelanggannya.
1.2
Manfaat Perancangan Sistem
Basis Data
Manfaat sistem basis data adalah mempermudah
perusahaan dan konsumen dalam melihat berapa harga yang ada dan apa saja barang
yang tersedia. Selain itu sistem basis data
ini dirancang untuk meminimalisir kesalahan, mengefisiensi waktu kerja dan
mempermudah dalam mengetahui rekapitulasi pemesanan.
Sistem basis data ini
sangat bermanfaat bagi perusahaan CV.Ristie Raya Lestari dalam mengatasi suatu
masalah dalam menjalankan usahanya di bidang penjualan benang misalnya kurang
efisiensi waktu kerja dan lambatnya perhitungan pemesanan belanja, oleh karena
itu sistem basis data ini dibuat untuk
mengetahui pemesanan barang di CV.Ristie
Raya Lestari.
1.3 Tahap Perancangan Sistem Basis
Data
Berikut
ini adalah tahapan yang harus dilalui jika ingin membuat suatu sistem basis
data yang baik dan benar yang terdiri dari 12 tahapan sebagai berikut.
Tahap 1. Perencanaan Basis Data
·
Evaluasi sistem yang ada
(objek studi kasus)
·
Pengembangan standarisasi dari
pengumpulan data,
·
format data, proses
perancangan, dan implementasi
·
Kelayakan secara teknologi,
Kelayakan secara operasional, Kelayakan secara ekonomi.
Tahap 2. Pendefinisian Sistem
Pendefinisian
ruang lingkup sistem basis data, batasan-batasan dan hubungannya dengan bagian
dari sistem informasi organisasi secara keseluruhan Para pengguna dan aplikasi
yang digunakan saat ini dan masa yang akan datang.
Tahap 3. Pengumpulan dan Analisis Kebutuhan
·
Menentukan kelompok pengguna
dan bidang-bidang aplikasinya.
·
Tinjauan dokumentasi yang ada:
kebijakan, form, report, bagan organisasi, dll.
·
Analisa lingkungan operasi dan
pemrosesan data.
·
Informasi yang sekarang dan
yang akan datang Jenis transaksi dan frekwensinya, dan arus informasi.
·
Input-output data untuk
transaksi-transaksi.
·
Daftar pertanyaan dan
wawancara dengan individu utama dari setiap kelompok pengguna.
Teknik Spesifikasi Kebutuhan
·
HIPO (Hierarchical Input
Process Output).
·
SADT (Structured Analysis and
Design Technique), sekarang
dikenal IDEF0/ICOM.
·
DFD (Data Flow Diagram) dll.
Tahap 4. Perancangan Basis Data Secara
Konseptual
Perancangan
skema basis data konseptual dengan model data tingkat tinggi tanpa bergantung
DBMS, seperti model Entity Relationship Diagram (ERD).
·
Pendekatan: Terpusat,
Integrasi View.
·
Strategi: Top Down, Bottom up,
Mixed Perancangan transaksi yang telah diketahui tanpa bergantung pada DBMS
untuk memproses dan memanipulasi basis data pada saat implementasi.
Tahap 5. Pemilihan DBMS
Faktor teknis:
·
Jenis-jenis DBMS (relational,
network, hierarchical, dll),
struktur
penyimpanan, dan jalur akses yang mendukung DBMS, pemakai, dll.
·
Tipe antarmuka, programmer,
bahasa query.
Factor ekonomi:
·
Biaya-biaya: perangkat keras,
perangkat lunak, pemeliharaan, konversi dan pembuatan basis data, personil,
pelatihan, pengoperasian, dll
Faktor politik:
·
Struktur data, personil telah
terbiasa dengan suatu sistem, tersedianya layanan vendor pengembang
Tahap 6. Perancangan Basis Data Secara Logika
Transformasi
dan menyelaraskan skema konseptual atau model data sebelumnya (ERD) kedalam
model data (ERD) dari DBMS yang dipilih. Model data (ERD) hasil perancangan
basis data secara logika menyelaraskan ERD sebelumnya hasil perancangan basis
data secara konspetual berdasarkan DBMS yang dipilih.
Tahap 7. Perancangan
Basis Data Secara Fisik
Proses pemilihan struktur-struktur penyimpanan dan
jalur-jalur akses pada file-file basis data untuk mencapai penampilan yang terbaik
pada bermacam-macam aplikasi. Dirancang spesifikasi untuk database yang
disimpan yang berhubungan dengan struktur penyimpanan fisik, penempatan record
dan jalur akses. Petunjuk: Waktu respon, penggunaan ruang penyimpanan,
jumlah/kecepatan prosesing transaksi.
Tahap 8. Prototyping
Membuat model kerja
untuk aplikasi basis data.
Tahap 9. Implementasi
Konversi rancangan basis data kedalam skema dan
tabel-tabel basis data (yang kosong) menggunakan perintah-perintah dari DBMS
yang dipilih Jika data harus dirubah dari sistem komputer sebelumnya,
perubahan-perubahan rutin mungkin diperlukan untuk format ulang data yang
kemudian dimasukkan kedalam basis data yang baru. Aplikasi/form transaksi-
transaksi telah siap dan data telah dimasukkan ke dalam basis data, maka tahap
perancangan dan implementasi telah selesai, dan sistem basis data dapat mulai
dioperasikan.
Tahap 10. Konversi dan
Loading Data
Tahap ini dilakukan apabila sistem basis data yang ada
digantikan sistem basis data baru Semua data yang ada ditransfer ke basis data
baru dan konversi aplikasi yang ada untuk basis data baru.
Tahap 11. Pengujian dan Evaluasi
Dilakukan
pengujian untuk kinerja, integritas, pengaksesan konkuren, keamanan dari basis
data Dilakukan paralel dengan pemrograman aplikasi Jika hasil gagal dilakukan
·
Diuji berdasarkan referensi
manual
·
Modifikasi perancangan fisik
·
Modifikasi perancangan logic
·
Upgrade atau pengubahan
perangkat lunak DBMS dan perangkat keras.
Tahap 12. Pengoperasian
dan Perawatan
·
Pengoperasian
basis data setelah divalidasi
·
Memonitor
kinerja sistem, jika tidak sesuai perlu reorganisasi basis data
·
Perawatan
dan upgrade sistem aplikasi basis data jika diperlukan.
BAB II
Proses Bisnis dan Spesifikasi Sistem Basis Data
2.1 Deskripsi Proses Bisnis
Proses bisnis merupakan
prosedur kerja perusahaan menangani permintaan bisnis dan pelayanan seperti
misalnya program perhitungan dan pelayanan biaya. Meskipun sifatnya merupakan
pelayanan pada pelanggan,
namun pada perusahaan CV.Ristie Raya Lestari bukan hanya itu saja karena di
perusahaan ini bisa mengetahui barang apa saja yang ada di dalamnya.
CV.Ristie Raya lestari ber-alamat di Jl.
Saparako No.50 Kec. Majalaya Kab.Bandung, perusahaan ini merupakan perusahaan
yang menyuplai benang hampir ke seluruh daerah Majalaya. Benang yang ada di
perusahaan ini merupakan barang import dari luar Negeri namun ada juga dari
daerah Indonesia sendiri, namun hampir kebanyakan barangnya masih import.
Benang yang di jual di
perusahaan CV. Ristie Raya Lestasi bisa di tukar jika benang tersebut tidak
bisa di pakai karena rusak, benang yang ada di CV.Ristie Raya Lestari ada empat
type yaitu PE, POLLYESTER, RAYON dan COTTON. Harga masing-masing dimulai dari
harga Rp. 28.000,- hingga Rp. 36.000,-
Per Kg.
 |
|
2.2 Pengelolaan
Data
Gambar 2.3 Subproses
Proses
di CV. Ristie Raya Lestari pelanggan datang ke perusahaan, memilih barang yang
akan di beli dan langsung melihat berapa yang akan dia bayar dengan melihat
harga totalnya. Setelah melihat data tersebut pelanggan menuju kasir untuk
memesan barang yang sudah di hitung tadi, lalu membayar pesanannya juga meminta
kwitansi pembelian barang tersebut.
Jika
sudah melakukan tahapan tadi maka barang akan di kirim ke perusahaan pelanggan
tersebut. Setelah sampai pegawai dari perusahaan yang tadi memebeli barang akan
mengecek surat jalan pengiriman barang apakah barang yang datang sesuai dengan
pesanan atau tidak. Kemudian setelah pengecekan barang tersebut maka barang
tersebut bisa di gunakan oleh perusahaan yang membeli barang tersebut.
2.3 Spesifikasi Sistem Basis Data
Spesifikasi
sistem basis data ini berisi tentang kegunaan sistem basis data bagi pengguna
yang akan menjalankan atau mengoperasikan sistem basis data ini.
|
NO
|
Kelompok
pengguna
|
Kebutuhan
|
Fungsi
|
|
1
|
Kasir
|
Dalam kondisi ini kasir membutuhkan sistem
basis data yang cepat dalam perhitungan, waktu dan tenaga.
|
Sebagai alat yang bisa membuat
kasir bekerja secara efisien dan tidak membuat kasir menjadi pusing dalam
perhitungan.
|
|
2
|
Owner
|
Owner membutuhkan sistem basis data yang membantu owner sehingga lebih jelas dalam melakukan pengecekan
penjualan barang.
|
Sebagai alat untuk mengetahui
data penjualan yang dilakukan di
CV. Ristie Raya Lestari.
|
BAB III
Rancangan Sistem Basis Data
3.1 Entity Relationship
Diagram (ERD)
Entity Relationship Diagram (ERD)
adalah suatu model untuk menjelaskan hubungan antar data dalam basis data
berdasarkan objek-objek dasar data yang mempunyai hubungan antar relasi.
Berikut adalah ERD (Entity Relationship Diagram)
dari sistem basis data yang akan dibuat.
1.3.1
Rancangan Spesifikasi Tabel
Rancangan spesifikasi
tabel merupakan keterangan setiap atribut yang ada di entitas tertentu yang
terdiri dari field name, field size dan
data type.
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Owner
|
5
|
Short
Text
|
|
Nama
|
25
|
Short
Text
|
|
No
Telepon
|
Long
Integer
|
Number
|
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Karyawan
|
5
|
Short
Text
|
|
ID_Owner
|
5
|
Short
Text
|
|
Nama
|
25
|
Short
Text
|
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Barang
|
5
|
Short
Text
|
|
Jenis
|
10
|
Short
Text
|
|
Harga
|
Currency
|
Currency
|
|
Jumlah
|
Long
Integer
|
Number
|
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Konsumen
|
5
|
Short
Text
|
|
Nama
|
5
|
Short
Text
|
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Memesan
|
5
|
Short
Text
|
|
ID_Barang
|
5
|
Short
Text
|
|
ID_Konsumen
|
5
|
Short
Text
|
|
FIELD
NAME
|
FIELD
SIZE
|
DATA
TYPE
|
|
ID_Proses
|
5
|
Short
Text
|
|
ID_Barang
|
5
|
Short
Text
|
|
ID_Karyawan
|
5
|
Short
Text
|
|
Jenis
Barang
|
5
|
Short
Text
|
|
Total
Barang
|
5
|
Short
Text
|
3.2 Rancangan Aplikasi dan Algoritma
Berikut ini merupakan rancangan antar muka yang dibuat
untuk karyawan dan konsumen sebagai gambaran awal dari sistem basis data yang
dibuat agar memudahkan karyawan dan konsumen dalam menggunakan sistem basis
data ini.
·
Form
pengisian nama
Dibuat
untuk memasukan nama dari karyawan atau pelanggan. Yang di form ini dibagi
menjadi 2 bagian yaitu bagian untuk karyawan dan bagian untuk pelanggan dan
masing-masing terdapat tombol tekan untuk masuk ke form selanjutnya.
·
Form
security code untuk karyawan dan owner
Form
ini dibuat untuk karyawan dan owner
yang sudah memasukan nama di form yang sebelumnya, maka akan muncul form ini
yang berisi security code yang mengharuskan karyawan mengisi password yang
telah di tentukan. Apabila sudah memasukan password maka tekan tombol log in.
·
Form
loading
Form
ini adalah proses jika karyawan sudah menekan tombol log in dan pada form ini
berisi proses untuk masuk ke form selanjutnya. Waktu yang dibutuhkan dalam
proses ini kurang lebih 5 detik.
·
Form
pemilihan barang untuk karyawan
Form
ini dibuat berisi keterangan pada
setiap tipe benang dan keterangan harganya. Serta terdapat tombol pesan untuk
memesan benang. Dan tombol exit untuk keluar.
·
Form
pengisian data untuk karyawan
Form
ini dibuat untuk memasukan data pembelian yang dilakukan oleh karyawan. Form ini berisi tombol hitung untuk mengkalkulasi, tombol new
untuk memasukan data baru, tombol transaksi untuk mengecek transaksi, tombol
exit untuk keluar dan tombol simpan untuk memasukan data ke list view dan basis
data.
·
Form pengecekan data untuk
owner
Form
ini dibuat untuk melakukan pengecekan
data pembelian yang dilakukan oleh owner.
Form ini berisi data data list
view dan basis data.
3.2.1 Algoritma
Algoritma
adalah suatu urutan dari beberapa langkah yang logis guna menyelesaikan
masalah. Pada saat kita memiliki masalah, maka kita harus dapat untuk
menyelesaikan masalah tersebut dengan menggunakan langkah-langkah yang logis.
3.3 DBMS dan Pembangun Aplikasi
Dalam pembuatan sistem basis
data maka akan diperlukan sebuah aplikasi yang bebasis database yang menunjang
proses pembuatan sistem basis data ini. Aplikasi penunjang yang digunakan dalam
pembuatan sistem basis data ini adalah Microsoft Access dan Visual Basic.Net.
Microsoft Access (Microsoft
Office Access) adalah sebuah program aplikasi basis data komputer relasional yang ditujukan untuk kalangan rumahan
dan perusahaan kecil hingga menengah. Aplikasi ini merupakan anggota dari
beberapa aplikasi Microsoft Office,
selain tentunya Microsoft Word, Microsoft Excel,
dan Microsoft PowerPoint. Aplikasi ini menggunakan mesin basis
data Microsoft Jet
Database Engine, dan
juga menggunakan tampilan grafis yang intuitif sehingga memudahkan
pengguna.
Microsoft Access dapat menggunakan
data yang disimpan di dalam format Microsoft Access, Microsoft Jet Database
Engine, Microsoft SQL Server, Oracle Database,
atau semua kontainer basis data yang mendukung standar ODBC. Para pengguna/programmer yang mahir dapat menggunakannya untuk
mengembangkan perangkat lunak aplikasi yang kompleks, sementara para programmer yang kurang mahir dapat menggunakannya
untuk mengembangkan perangkat lunak aplikasi yang sederhana. Access juga
mendukung teknik-teknik pemrograman
berorientasi objek,
tetapi tidak dapat digolongkan ke dalam perangkat bantu pemrograman
berorientasi objek.
Microsoft Visual Basic .NET adalah sebuah alat untuk mengembangkan dan membangun aplikasi
yang bergerak di atas system.NET Framework, dengan menggunakan bahasa BASIC. Menggunakan alat ini, cara programer dapat membangun aplikasi Windows Forms, Aplikasi web berbasis ASP.NET, dan juga aplikasi command-line. Alat ini dapat
diperoleh secara terpisah dari beberapa produk lainnya (seperti Microsoft Visual C++, Visual C#, atau Visual J#), atau juga dapat diperoleh
secara terpadu dalam Microsoft
Visual Studio .NET. Bahasa Visual Basic .NET sendiri menganut paradigma bahasa
pemrograman berorientasi objek yang dapat dilihat sebagai evolusi dari Microsoft Visual Basic. Versi
sebelumnya yang diimplementasikan di atas .NET Framework. Peluncurannya
mengundang kontroversi, mengingat banyak sekali perubahan yang dilakukan oleh
Microsoft, dan versi baru ini tidak kompatibel dengan versi terdahulu.
.
BAB IV
Implementasi Sistem Basis
Data
4.1 Diagram Relationship
Diagram
relationship adalah diagram yang
menggambarkan bentuk hubungan dari setiap tabel yang tersedia pada sistem basis
data ini dengan cara memberikan primary
key untuk setiap tabel dan untuk daerah tujuannya dinamakan foreign key. Berikut adalah gambar dari
Diagram relationship.
4.2 Basis Data (Tabel)
Tabel merupakan pengelompokan berdasarkan
jenis data sehingga data dapat tersusun secara baik. Dalam
basis data ini dibentuk tabel-tabel yang terhubung antara satu dan yang lainnya
beserta jenis tipe data pada setiap field. Basis data ini dirancang dengan
menggunakan 6 tabel yang telah
dihubungkan antara satu
dan
yang lainnya, berikut adalah gambar tabel beserta tipe data.
·
Tabel Owner
Tabel
owner ini digunakan untuk melakukan pengecekan data yang telah tersimpan pada
perhitungan yang dilakukan karyawan.
·
Tabel Karyawan
Tabel
karyawan ini untuk memasukan data-data karyawan pada saat melayani pelanggan.
·
Tabel Barang
Tabel
barang ini untuk mengetahui apa saja yang dijual oleh CV. Ristie Raya Lestari.
·
Tabel Konsumen
pada
tabel konsumen ini dimana sebelum memesan jenis
benang konsumen harus memasukan identitas nya terlebih dahulu agar memudahkan
karyawan pada saat transaksi.
·
Tabel Memesan
Tabel
memesan ini digunakan konsumen untuk memesan barang agar lebih mudah dan cepat.
·
Tabel Proses
Tabel
proses ini digunakan untuk memproses data penjualan oleh karyawan untuk menyimpan data yang sudah di isi dari menu
sebelumnya, kemudian karyawan menyimpan dan langsung mengitung total harga yang
harus di bayar oleh konsumen.
4.3 Form Aplikasi dan Kode Program
·
Form Pengisian Nama
Public Class Form1
Private Sub BUTTON2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
BUTTON2.Click
securitycode.Visible
= True
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
securitycode.Visible
= True
End Sub
Private Sub PictureBox1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
PictureBox1.Click
My.Computer.Audio.Play(My.Resources.Beyoncé___Halo, AudioPlayMode.Background)
End Sub
Private Sub PictureBox2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
PictureBox2.Click
My.Computer.Audio.Stop()
End Sub
End Class
·
Form Security Code untuk Karyawan dan Owner
Public Class securitycode
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "SUKSES" Then
Me.Hide()
laodingowner.Visible
= True
laodingowner.Timer1.Enabled = True
Else
TextBox1.Text = "MANTAP"
Me.Hide()
Form6.Visible
= True
Form6.Timer1.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Close()
End Sub
Private Sub Label1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label1.Click
MsgBox("HANYA
ADMIN YANG DAPAT MENGGUNAKAN APLIKASI INI", vbInformation, "PERINGATAN")
End Sub
Private Sub Label3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label3.Click, Label4.Click
End Sub
Private Sub Timer1_Tick(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Timer1.Tick
Label3.Text = TimeOfDay
Label4.Text = FormatDateTime(Now, DateFormat.LongDate)
End Sub
End Class
·
Form Loading Owner
Public Class Form6
Private Sub Timer1_Tick(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Timer1.Tick
ProgressBar1.Increment(1)
Label1.Text = ProgressBar1.Value &
("%")
If
ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("SELAMAT
DATANG", vbInformation, "LOG IN
SUCCESS")
Me.Hide()
Form3.Visible
= True
End If
End Sub
Private Sub Form6_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
End Sub
End Class
·
Form Loading Karyawan
Public Class laodingowner
Private Sub Timer1_Tick(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Timer1.Tick
ProgressBar1.Increment(1)
Label1.Text = ProgressBar1.Value &
("%")
If
ProgressBar1.Value = 100 Then
Timer1.Stop()
MsgBox("SELAMAT
DATANG", vbInformation, "LOG IN
SUCCESS")
Me.Hide()
Form8.Visible
= True
End If
End Sub
End Class
·
Form Pemilihan Barang
Karyawan
Public Class Form8
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form5.Visible
= True
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Close()
Form1.Visible
= True
End Sub
End Class
·
Form Perhitungan Karyawan
Public Class Form5
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Me.Close()
MsgBox("TERIMAKASIH",
vbInformation, "CV RISTIE RAYA LESTARI")
Form1.Visible
= True
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Me.TextBox1.Clear()
Me.TextBox2.Clear()
Me.TextBox3.Clear()
Me.TextBox4.Clear()
Me.TextBox5.Clear()
Me.TextBox6.Clear()
Me.TextBox7.Clear()
Me.TextBox8.Clear()
Me.TextBox11.Clear()
Me.TextBox9.Clear()
Me.TextBox10.Clear()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
'DEKLARASI'
Dim
PAJAK As Integer
Dim
NAMA As String
Dim
HARGAKOTOR As Integer
Dim
HARGATOTAL, JUMLAHBARANGPE, JUMLAHBARANGCOTTON, JUMLAHBARANGRAYON,
JUMLAHBARANGPOLYSTER As Integer
Dim
DISKON As Integer
Const
HARGAPE As Double
= 32000
Const
HARGACOTTON As Double
= 34000
Const
HARGARAYON As Double
= 36000
Const
HARGAPOLYSTER As Double
= 28000
'INPUT'
JUMLAHBARANGPE = Val(TextBox1.Text)
JUMLAHBARANGPOLYSTER =
Val(TextBox2.Text)
JUMLAHBARANGCOTTON = Val(TextBox3.Text)
JUMLAHBARANGRAYON = Val(TextBox4.Text)
NAMA = TextBox11.Text
'PROSES'
HARGAKOTOR = JUMLAHBARANGPE * HARGAPE +
JUMLAHBARANGCOTTON * HARGACOTTON + JUMLAHBARANGPOLYSTER * HARGAPOLYSTER +
JUMLAHBARANGRAYON * HARGARAYON
PAJAK = 10 / 100 * HARGAKOTOR
If
HARGAKOTOR > 10000000 Then
DISKON = 5 / 100 * HARGAKOTOR
Else :
DISKON = 0
End If
HARGATOTAL = HARGAKOTOR + PAJAK -
DISKON
'OUTPUT'
TextBox5.Text = HARGAKOTOR
TextBox6.Text = PAJAK
TextBox7.Text = HARGATOTAL
TextBox8.Text = DISKON
TextBox11.Text = NAMA
End Sub
Private Sub Button4_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button4.Click
'DEKLARASI'
Dim
PEMBAYARAN As Integer
Dim
KEMBALIAN As Integer
Dim
HARGATOTAL As Integer
'INPUT'
PEMBAYARAN = TextBox9.Text
HARGATOTAL = TextBox7.Text
'PROSES'
KEMBALIAN = PEMBAYARAN - HARGATOTAL
'OUTPUT'
TextBox10.Text = KEMBALIAN
End Sub
Sub
daftarlistview()
Dim
colomnsatu, colomndua, colomntiga, colomnempat, colomnlima, colomnenam As ColumnHeader
colomnsatu = New
ColumnHeader
With
colomnsatu
.Text = "NAMA"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
colomndua = New
ColumnHeader
With
colomndua
.Text = "PE"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
colomntiga = New
ColumnHeader
With
colomntiga
.Text = "POLYSTER"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
colomnempat = New
ColumnHeader
With
colomnempat
.Text = "COTTON"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
colomnlima = New
ColumnHeader
With
colomnlima
.Text = "RAYON"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
colomnenam = New
ColumnHeader
With
colomnenam
.Text = "HARGA
TOTAL"
.TextAlign = HorizontalAlignment.Center
.Width = 100
End With
With Me.ListViewPenjualan
.Columns.Add(colomnsatu)
.Columns.Add(colomndua)
.Columns.Add(colomntiga)
.Columns.Add(colomnempat)
.Columns.Add(colomnlima)
.Columns.Add(colomnenam)
.View = View.Details
.GridLines = True
End With
End Sub
Private Sub Form5_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
'TODO: This
line of code loads data into the 'DATABASE_YANG_DIPAKEDataSet.TABEL_PROSES'
table. You can move, or remove it, as needed.
Me.TABEL_PROSESTableAdapter.Fill(Me.DATABASE_YANG_DIPAKEDataSet.TABEL_PROSES)
daftarlistview()
End Sub
Private Sub Button5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button5.Click
Dim i As Integer
i = Val(TextBox12.Text)
TextBox12.Text =
Str(Val(TextBox12.Text) + 1)
ListViewPenjualan.Items.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(ListViewPenjualan.Items.Count - 1).SubItems.Add("")
ListViewPenjualan.Items(i).SubItems(0).Text = TextBox11.Text
ListViewPenjualan.Items(i).SubItems(1).Text = TextBox1.Text
ListViewPenjualan.Items(i).SubItems(2).Text
= TextBox2.Text
ListViewPenjualan.Items(i).SubItems(3).Text = TextBox3.Text
ListViewPenjualan.Items(i).SubItems(4).Text = TextBox4.Text
ListViewPenjualan.Items(i).SubItems(5).Text = TextBox7.Text
End Sub
Private Sub Button6_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button6.Click
Me.Validate()
Me.TABEL_PROSESBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DATABASE_YANG_DIPAKEDataSet)
End Sub
Private Sub Button7_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button7.Click
TABEL_PROSESBindingSource.AddNew()
End Sub
Private Sub Button8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button8.Click
Me.Hide()
Form2.Visible
= True
Form2.TextBox1.Text = TextBox11.Text
Form2.TextBox2.Text = TextBox1.Text
Form2.TextBox3.Text = TextBox2.Text
Form2.TextBox4.Text = TextBox3.Text
Form2.TextBox5.Text = TextBox4.Text
Form2.TextBox6.Text = TextBox7.Text
Form2.TextBox7.Text = TextBox9.Text
Form2.TextBox8.Text = TextBox10.Text
End Sub
Private Sub TABEL_PROSESDataGridView_CellContentClick(ByVal sender As
System.Object, ByVal
e As System.Windows.Forms.DataGridViewCellEventArgs) Handles TABEL_PROSESDataGridView.CellContentClick
End Sub
End Class
·
Form Print Struck
Public Class Form2
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
PrintDialog1.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Hide()
Form1.Visible
= True
End Sub
End Class
·
Form Pengecekan Owner
Public Class Form3
Private Sub TABEL_PROSESBindingNavigatorSaveItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles
TABEL_PROSESBindingNavigatorSaveItem.Click
Me.Validate()
Me.TABEL_PROSESBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DATABASE_YANG_DIPAKEDataSet)
End Sub
Private Sub Form3_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
'TODO: This
line of code loads data into the 'DATABASE_YANG_DIPAKEDataSet.TABEL_PROSES'
table. You can move, or remove it, as needed.
Me.TABEL_PROSESTableAdapter.Fill(Me.DATABASE_YANG_DIPAKEDataSet.TABEL_PROSES)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Me.Hide()
Form1.Visible
= True
MsgBox("TERIMAKASIH",
vbInformation, "CV RISTIE RAYA LESTARI")
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Me.Hide()
Form4.Visible
= True
End Sub
End Class
·
Form Penambahan Data Karyawan
Public Class Form4
Private Sub TABEL_KARYAWANBindingNavigatorSaveItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles
TABEL_KARYAWANBindingNavigatorSaveItem.Click
Me.Validate()
Me.TABEL_KARYAWANBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DATABASE_YANG_DIPAKEDataSet)
End Sub
Private Sub Form4_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
'TODO: This
line of code loads data into the 'DATABASE_YANG_DIPAKEDataSet.TABEL_KARYAWAN'
table. You can move, or remove it, as needed.
Me.TABEL_KARYAWANTableAdapter.Fill(Me.DATABASE_YANG_DIPAKEDataSet.TABEL_KARYAWAN)
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
TABEL_KARYAWANBindingSource.AddNew()
End Sub
BAB V
HASIL PENGUJIAN BASIS DATA
LEMBAR
PENGUJIAN SISTEM BASIS DATA
|
NO
|
TANGGAL
|
FUNGSI
DAN FITUR UJI
|
INPUT
|
OUTPUT
|
KESUKSESAN
(Y/T)
|
REKOMENDASI
|
PARAF
ASISTEN
|
|
1
|
4/1/2017
|
FORM
KARYAWAN
|
ID
PROSES
ID
TRANSAKSI
|
TOTAL
HARGA
|
Y
|
TAMBAHKAN
LIST VIEW
|
|
|
2
|
6/1/2017
|
FORM
OWNER
|
PASSWORD
|
LAPORAN
|
T
|
PAKAI
REPORT DI VB.NET
|
|
|
3
|
7/1/2017
|
FORM
OWNER
|
PASSWORD
|
LAPORAN
|
Y
|
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
BAB VI
PANDUAN PENGGUNAAN PROGRAM
Berikut adalah langkah-langkah
menggunakan aplikasi pelayanan penjualan benang CV RISTIE RAYA LESTARI,
diantaranya:
·
Panduan untuk owner
1. Buka
terlebih dahulu aplikasinya
2. Masuk
kedalam kolom pemilihan, ketik nama pada kolom owner
dan klik tekan.
3. Muncul
security code dan masukan password “SUKSES” pada security code dan klik log in
4. Muncul sistem basis data yang merupakan catatan penjualan
yang ada.
5. Klik Data karyawan jika ingin melihat dan menambahkan
data karyawan
6. Masukan data yang ada kemudian klik TAMBAH
7. Klik selesai jika ingin keluar program
·
Panduan untuk karyawan
1. Buka
terlebih dahulu aplikasinya.
2.
Masuk
kedalam kolom pemilihan, ketik nama pada kolom karyawan dan klik tekan. 
Masuk
kedalam kolom pemilihan, ketik nama pada kolom karyawan dan klik tekan.
3.
Muncul
security code dan masukan password “MANTAP”
pada security code dan klik log in.
Muncul
security code dan masukan password “MANTAP”
pada security code dan klik log in.
4. Tunggu
proses masuk berlangsung dan tekan ok.
5. Muncul form keterangan tentang barang apa saja yang akan
dijual dan harganya. Kemudian klik pesan untuk melakukan pemesanan barang.
6. Isi
data pembelian pelanggan pada kolom perhitungan, klik hitung jika ingin
mengetahui harga yang harus anda bayar. Maka akan muncul total harga.
7. Masukan
jumlah uang yang dibayar oleh pelanggan.
8. Klik
transaksi dan akan di dapat kembaliannya.
9. Klik
new jika ingin memasukan data baru.
10. Klik tambah jika ingin menambah data yang tesimpan di
basis data. Klik OK jika ingin menyimpan data.
11. Klik
exit jika ingin keluar dari program.
BAB VII
KESIMPULAN DAN SARAN
7.1 Kesimpulan
Berdasarkan hasil penulisan laporan
serta pembuatan sistem basis data, penulis dapat menarik kesimpulan bahwa jenis konsep dasar
sistem basis data yang
penulis gunakan pada program “Sistem
Basis Data
Penjualan Benang CV Ristie Raya Lestari” adalah konsep dasar
sistem basis data yaitu
pengkoneksian antara Ms Access dan VB.Net sehingga dapat melakukan pengolahan
data base. Selain itu, aplikasi yang penulis buat merupakan sebuah aplikasi yang
digunakan untuk pemesanan benang dengan menggunakan aplikasi Ms Access dan VB.Net yang digunakan untuk pengguna karyawan dan owner.
Kesimpulan dalam uji coba dan analisis rancangan system basis data pemesanan benang di CV Ristie Raya Lestari ini dapat diambil beberapa kesimpulan, diantaranya:
1.
Dengan adanya system basis
data ini,
memudahkan pengguna di sebuah perusahaan untuk mengkalkulasi pembelanjaan
benang.
2.
Memudahkan karyawan dan owner dalam
pelayanan dan pengecekan atau
pengontrolan
transaksi.
3.
Untuk mengurangi adanya sistem manual dan kesalahan pada pendataan,
selain itu juga untuk mempermudah pengontrolan pemesanan benang di CV Ristie
Raya Lestari.
7.2 Saran
Saran untuk pengembang yang akan datang, sangat
memungkinkan dibuatnya basis data yang lebih praktis dan memiliki kemampuan
dalam penyimpanan data atau data base. Aplikasi yang dibuat masih banyak
kekurangan dan akan diperbaiki lagi bila ada kesempatan.juga sangat dibutuhkan
kembali aplikasi yang lebih baik lagi untuk mempermudah suatu proses pelayanan.
Saran untuk pengembang aplikasi yang
akan mengembangkan aplikasi seperti ini diharapkan agar lebih mempersiapkan
konsep yang lebih matang dan pengetahuan di bidang pembuatan program lebih baik
lagi sehingga pengembang aplikasi tidak kesulitan dalam merancang aplikasi ini.
Sebaiknya
aplikasi serupa yang dibuat oleh pengembang berikutnya menggunakan Visual
Basic.Net versi Ultimate tahun 2010 dan menggunakan Microsoft Access 2016,
dengan aplikasi tambahan buatan dari microsoft yaitu database engine.
Tidak ada komentar:
Posting Komentar