MAKALAH APLIKASI PENJUALAN KREDIT
Disusun oleh
Ai Laelatusyarifah (10260013)
AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER
Aplikasi Penjualan kredit 2012
AMIK HASS BANDUNG KATA PENGANTAR Puji syukur kepada Tuhan yang Maha Esa atas segala berkat yang telah diberikan-Nya, sehingga Makalah program “ Aplikasi Penjualan Kredit ” ini dapat diselesaikan. Makalah ini ditujukan untuk memenuhi salah satu syarat kelulusan mata kuliah Pemograman Visual pada Program Pendidikan Diploma III Program Studi Manajemen Informatika AMIK HASS Bandung. Wala Wa laup upun un bany banyak ak kesu kesuli lita tan n yang yang haru haruss diha dihada dapi pi keti ketika ka meny menyus usun un penulisan ilmiah ini, namun berkat bantuan dan dorongan dari berbagai pihak, akhirnya makalah ini dapat diselesaikan dengan baik. Oleh karena itu, dengan rasa tulus penyusun mengucapkan terima kasih yang sebesar-besarnya kepada semua pihak yang telah membantu dalam proses pengerjaan makalah ini. Meng Mengin inga gatt dan dan meny menyad adar arii bahw bahwaa mung mungki kin n masi masih h terd terdap apat at bany banyak ak kekurangan dalam penulisan makalah ini. Oleh karena itu, kritik dan saran akan sangat bermanfaat. Semoga makalah ini dapat membantu dan bermanfaat bagi semua pihak yang membacanya.
Bandung, Januari 2012
Penyusun
2
Aplikasi Penjualan kredit 2012 DAFTAR ISI KATA PENGANTAR.......................... PENGANTAR................................................. .............................................. ..........................................2 ...................2 DAFTAR ISI............................................. ISI.................................................................... .......................................................... ................................... ..3 BAB I PENDAHULUAN............................ PENDAHULUAN................................................... ................................................. .......................... ........4 1.1 Maksud Penulisan..................................... Penulisan............................................................ .................................. ......................4 ...........4 1.2 Tujuan................................... Tujuan.......................................................... ............................................................. ...................................... ....4 BAB II PERANCANGAN PROGRAM............................................................. PROGRAM............................................................. ..5 2.1 Perancangan database, struktur tabel, relationship................................6 2.2 Perancangan Interface.......................... Interface................................................. ..................................................7 ...........................7 BAB III IMPLEMENTASI PROGRAM.......................................................... PROGRAM.......................................................... ....13 3.1 Spesifikasi hardware dan software.........................................................13 software.........................................................13 3.1.1 Konfigurasi sistem....................................................................... sistem....................................................................... 13 3.1.2 Software pendukung...................................... pendukung....................................................... .............................. .............13 13 3.2 Panduan pengoperasian program........................................................... program........................................................... 13 BAB IV KESIMPULAN DAN SARAN..................................... SARAN...............................................................16 ..........................16 4.1 Kesimpulan................................... Kesimpulan.......................................................... ................................................. .......................... ........16 4.2 Saran........................................ Saran............................................................... .............................................. ........................................17 .................17 LAMPIRAN..........................................................................................................18
3
Aplikasi Penjualan kredit 2012 BAB I PENDAHULUAN 1.1
MAKSUD PENULISAN
Maksud dari penulisan makalah ini adalah untuk membantu khususnya bagi para pengusaha barang-barang kredit, dan umumnya bagi siapa saja yang ingin ingin belaja belajarr bagaim bagaimana ana cara cara membua membuatt sebuah sebuah progra program m aplika aplikasi si khusus khususnya nya aplikasi penjualan kredit. Ini didasarkan dari hasil pengamatan sebagian besar masyarakat yang mempunyai tingkat ekonomi menengah ke bawah, seperti ibu rumah tangga, para pekerja pekerja pabrik, pabrik, dan sebagainya sebagainya,, yang mempunyai keinginan untuk memiliki memiliki sesuatu yang memiliki harga yang mahal dan bagus. Dan sistem kredit seperti inilah yang menjadi salah satu solusi yang dapat dilakukan oleh masyarakat guna memenuhi keinginan tersebut. 1.2
TUJUAN
Tuju Tujuan an dari daripa pada da peny penyus usun unan an maka makalah lah ini ini adal adalah ah untuk untuk memb member erii kemudahan kemudahan kepada user untuk mengolah data transaksi transaksi penjualan kredit ini, karena karena bisa bisa dibaya dibayangk ngkan an jika jika proses proses transa transaks ksii ini diolah diolah dan dicata dicatatt secara secara manual, akan sangat banyak sekali catatan transaksi yang harus dicatat dalam satu hari, bagaimana dalam satu minggu?, satu bulan?, akan bisa dibayangkan bagaimana bagaimana mencari data apabila apabila terjadi terjadi suatu kesalahan kesalahan dalam pengolahan pengolahan data tersebut. Maka dari itu program aplikasi ini diharapkan mampu menanggulangi permasalahan yang telah di jelaskan sebelumnya.
4
Aplikasi Penjualan kredit 2012 BAB II PERANCANGAN PROGRAM 2.1 2.1
PERA PERANC NCAN ANGA GAN N DAT DATAB ABAS ASE, E, STR STRUK UKTU TUR R TAB TABEL EL,, REL RELAT ATIO IONS NSHI HIP P Nama Database : DatabasePenjualan_krediit DatabasePenjualan_krediit Struktur tabel : barang
Struktur tabel : anggota
Struktur tabel : karyawan
5
Aplikasi Penjualan kredit 2012 Struktur tabel : Transaksi Pembayaran
Struktur tabel : Transaksi Pemesanan
Struktur Relasi Tabel yang terbentuk
6
Aplikasi Penjualan kredit 2012 2.2
PERANCANGAN INTERFACE Rancangan Form Menu utama
Rancangan Form Log In
7
Aplikasi Penjualan kredit 2012 Rancangan Form Master Barang
Rancangan Form Master Anggota
8
Aplikasi Penjualan kredit 2012 Rancangan Form Master Karyawan
Rancangan Form Transaksi Pemesanan
9
Aplikasi Penjualan kredit 2012 Rancangan Form Transaksi Pembayaran
Rancangan Splash Screen
10
Aplikasi Penjualan kredit 2012 Rancangan Laporan Data Barang
Rancangan Laporan Data Anggota
11
Aplikasi Penjualan kredit 2012 Rancangan Laporan Data Karyawan
Rancangan Laporan Data Pemesanan
12
Aplikasi Penjualan kredit 2012 Rancangan Laporan Data Pembayaran
13
Aplikasi Penjualan kredit 2012 BAB III IMPLEMENTASI PROGRAM 3.1 3.1
SPES PESIFI IFIKASI KASI HAR HARDWAR WARE & SOFT OFTWAR WARE
3.1 3.1.1
Konfi onfig guras urasii S Sis iste tem m
Perangkat keras (Hardware) yang digunakan dalam pembuatan program aplikasi ini adalah sebagai berikut :
3.1 3.1.2
•
Proc Proces esso sorr
: Inte Intell Pentiu Pentium m IV 1.6 1.60 0 atau atau leb lebih ih tin tingg ggi. i.
•
Memori
: 256 MB RAM atau lebih.
•
HDD space space : 40 GB atau atau lebih lebih..
•
VGA
: onboard 128 MB atau lebih.
•
Mou Mouse
: Stan Standa dard rd PS/2 PS/2 atau atau USB USB comp compat atib ible le mouse ouse..
•
Keyb Keyboa oard rd
: Stan Standa dard rd PS/2 PS/2 atau atau USB USB com compa patib tible le..
Softw oftwa are Pen Pend dukung kung
Perangkat lunak yang dapat digunakan dalam proses pembuatan program aplikasi ini adalah sebagai berikut :
3.2 3.2
•
Ms.Windows XP professional (SP1/SP2) atau yang lebih tinggi.
•
MS.Visual Studio 2005.
•
Database software (Ms.Access 2003/2007, MySql, SQL S ever 2000)
PANDUA DUAN PEN PENGO GOPE PER RASIA SIAN PROG PROGR RAM Bagian 1 : Penginstalan Program
Cari Cari file file penjual penjualan. an.EXE EXE (pada (pada CD yang yang disert disertaka akan), n), kemudi kemudian an lakuka lakukan n penginstalan dengan langkah sama seperti program aplikasi lai n.
14
Aplikasi Penjualan kredit 2012
Setela Setelah h selesa selesaii proses proses pengin penginsta stalan lan,, jalank jalankan an progra program m dengan dengan meng-k meng-klik lik tombol tombol Start
All program program
Aplikasi Aplikasi penjualan penjualan kredit, kredit, setelah setelah itu akan
muncul form Splash Screen sbb :
Bagian 2 : Mengoperasikan Program
Setelah muncul tampilan Menu utama klik menu Sistem
Log-in,
kemudian isi : Nama user Password
: nama anda. : Pie
Untuk Untuk selanj selanjutn utnya ya anda anda dapat dapat mengop mengopera erasik sikan an progra program m mulai mulai dari dari menu menu Master, dan Transaksi.
15
Aplikasi Penjualan kredit 2012 Catatan : laporan akan ter-update secara otomatis sesuai dengan data data yang yang data data di datab database ase ketika ketika kita kita mengkl mengklik ik tombol tombol menu menu laporan.
16
Coding program dapat dipelajari dari CD yang disertakan. Selamat mencoba dan semoga berhasil, selesai.......
Aplikasi Penjualan kredit 2012 BAB IV KESIMPULAN DAN SARAN 4.1
KESIMPULAN
Beberapa kesimpulan yang dapat diambil dari pembahasan makalah ini terhadap terhadap dua hal yaitu proses proses kerja sistem sistem pengolahan pengolahan data dan perangkat perangkat lunak yang digunakan, sebagai berikut : 1. Terh Terhad adap ap Pro Prose sess Kerj Kerjaa Proses Proses kerja menggambarkan menggambarkan kegiatan pengolahan pengolahan data yang dilakukan setiap harinya, dengan beberapa kesimpulan, antara lain : a. Data Data tran transa saks ksii baik baik itu itu pemb pembay ayar aran an ataup ataupun un peme pemesa sana nan n bara barang ng yang yang diterima tidak hilang, karena tersimpan dalam sebuah basis data b. b. Pengol Pengolaha ahan n data data transa transaksi ksi pembaya pembayaran ran dan pemesan pemesanan an lebih optima optimall dan lebih terstruktur c. Adan Adanya ya lap lapor oran an ber berka kala la d. Pencar Pencarian ian terhad terhadap ap data data akan akan lebih lebih mudah mudah 2. Pera Perang ngka katt lu lunak nak Dalam pengembangan perangkat lunak bantu pengolahan data penjualan kredit dapat diambil kesimpulan, sebagai berikut : a.
Aplikasi Aplikasi dapat dapat mengecek mengecek jumlah jumlah transaksi transaksi yang telah dilakuk dilakukan an selama selama ini ini dan mencari data yang dibutuhkan dengan cepat
b. b. Aplikas Aplikasii menggu menggunak nakan an password password sehingg sehinggaa hanya hanya dapat digunak digunakan an oleh user yang berwenang c.
17
Bantuan Bantuan dan petunjuk petunjuk penggunaan penggunaan aplikasi aplikasi tersedia. tersedia.
Aplikasi Penjualan kredit 2012 4.2
SARAN
Untuk kelancaran proses kerja sistem dan dalam menjaga sistem yang telah dikembangkan agar tetap baik di harapkan untuk para pengguna pelaksana kerj kerjaa agar agar memp memper erha hati tika kan n seti setiap ap pros proses es kerj kerjaa dan dan sist sistem em yang yang tela telah h dikembangkan, sebagai berikut : 1. Terh Terhad adap ap pro prose sess kerj kerjaa a.
Pada Pada saat saat pengop pengopera erasia sian n sistem sistem hendakn hendaknya ya ditujnju ditujnjuk k orangorang-ora orang ng yang mengerti dan memahami tentang sistem perangkat keras komputer agar dalam proses pelaksanaannya pelaksanaannya dapat berjalan berjalan dengan lancar, efektif, dan efisien.
b. Agar diterapkan prosedur dan ketentuan pemakaian yang ketat dalam
perangkat perangkat lunak untuk menghindari menghindari terjadinya terjadinya inkonsiste inkonsistensi nsi data atau kesalahan dalam proses pengolahan. 2. Pera Perang ngka katt lu lunak nak a.
Dihara Diharapka pkan n menjaga menjaga keraha kerahasia siaan an passwor password d dan tidak tidak memberi memberikan kannya nya kepada orang yang tidak berhak.
b. b. Admi Admini nist stra rato torr meny menyim impa pan n file file penc pencet etak akan an lapo lapora ran, n, sehi sehing ngga ga dapa dapatt dijadikan arsip.
18
Aplikasi Penjualan kredit 2012 LAMPIRAN Public Class frLog_in Private Sub btok_Click(ByVal btok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btok.Click 'txtUserName.Text="Mie" 'txtPassword.Text="Pie"
Dim pass As String 'Dim tampil As New MDIParent1 pass = "Pie" If txtusername.Text txtusername.Text = "" Or txtpass.Text txtpass.Text = "" Then MessageBox.Show("Username MessageBox.Show( "Username atau Password tidak lengkap!") lengkap!" ) Else If txtpass.Text txtpass.Text = pass Then With MDIParent1 .MasterToolStripMenuIte .MasterToolStripMenuItem.Enabled m.Enabled = True .TransaksiToolStripMenuItem.Enabled = True .LaporanToolStripMenuItem.Enabled = True .LogOutToolStripMenuIte .LogOutToolStripMenuItem.Enabled m.Enabled = True .LogInToolStripMenuItem.Enabled = False End With Me.Close() Me .Close() 'tampil.Show() Else MessageBox.Show("Maaf MessageBox.Show( "Maaf Password salah,Coba Lagi...!") Lagi...!" )
End If End If End Sub Private Sub frLog_in_Load(ByVal frLog_in_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load txtusername.Focus() Me.FormBorderStyle Me .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow End Sub Private Sub btcancel_Click(ByVal btcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcancel.Click Me.Close() Me .Close() End Sub End Class End Class
19
Aplikasi Penjualan kredit 2012 Public Class frbarang Dim databelbrg As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Da OleDb.OleDbConnection(Koneksi( "Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=D:\SEM_3\vibi\Tugas_Besar\Program\KreditPenjualan\KreditPen jualan\DatabasePenjualan_krediit.mdb")) jualan\DatabasePenjualan_krediit.mdb" )) Dim dttabelbrg As New DataTable() Dim dtAdapter Dim drtabelbrg As DataRow Function Koneksi(ByVal Koneksi(ByVal strDatabase As String String) ) As String Dim kalimat As String kalimat = "Provider=Mi "Provider=Microsoft.Jet crosoft.Jet.OLEDB.4.0;" .OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Sub isiankosong() txtKode.Clear() txtnama.Clear() txtHarga.Clear() txtCicilan.Clear() cbjenis.Text = "--Jenis Barang--" txtKode.Focus() End Sub Sub textaktif(ByVal textaktif(ByVal teks As Boolean Boolean) ) txtKode.Enabled txtKode.Enabled = teks txtnama.Enabled txtnama.Enabled = teks txtHarga.Enabled = teks txtcicilan.Enabled = teks cbjenis.Enabled cbjenis.Enabled = teks End Sub Sub navigasi(ByVal navigasi(ByVal tombol As Boolean Boolean) ) bttambah.Enabled = tombol btsimpan.Enabled = Not tombol bthapus.Enabled bthapus.Enabled = tombol btbatal.Enabled = Not tombol End Sub Sub delete() Try If Len(txtnama.Text) = 0 Then MsgBox("Tidak MsgBox("Tidak ada data yang dihapus", dihapus", MsgBoxStyle.Information, "Perhatian" "Perhatian") ) Exit Sub Else Dim sql As String Dim cmd As OleDb.OleDbCommand
Dim hapus As Int16 hapus = MsgBox("Apakah MsgBox("Apakah record Barang ini akan dihapus...?" & txtnama.Text & "???" "???", , MsgBoxStyle.OkCancel, "Delete record...") record..." ) Select Case hapus Case vbCancel Exit Sub Case vbOK sql = " delete from tabelbrg where kode_barang = '" & txtKode.Text & "'"
20
Aplikasi Penjualan kredit 2012 cmd = New OleDb.OleDbCommand(sql) con.Open() cmd.ExecuteNonQuery() cmd.Connection.Close() MsgBox("Record MsgBox("Record telah terhapus, dengan No Kode : " & txtKode.Text & " Dan Nama : " & txtnama.Text & "'" "'", , MsgBoxStyle.Information, "Hapus Record") Record") End Select End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Information, "Perhatian") "Perhatian" ) End Try End Sub Private Sub frbarang_Load(ByVal frbarang_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase MyBase.Load .Load Dim dc(1) As DataColumn Me.StartPosition = FormStartPosition.CenterScreen Me.StartPosition Me.FormBorderStyle Me .FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow Try 'databelbrg = New OleDb.OleDbDataAdapter("select 'databelbrg OleDb.OleDbDataAdapter("select * from tabelbrg", con) databelbrg = New OleDb.OleDbDataAdapter( OleDb.OleDbDataAdapter("select "select * from tabelbrg", tabelbrg" , con) databelbrg.Fill(dttabelbrg) dc(0) = dttabelbrg.Columns( dttabelbrg.Columns("kode_barang" "kode_barang") ) dttabelbrg.PrimaryKey dttabelbrg.PrimaryKey = dc dgBarang.DataSource = dttabelbrg MsgBox(errConn.Message) End Try textaktif(False textaktif(False) ) navigasi(True navigasi(True) ) End Sub Private Sub bttambah_Click(ByVal bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttambah.Click isiankosong() navigasi(False navigasi(False) ) textaktif(True textaktif(True) ) Me.txtKode.Focus() Me .txtKode.Focus() End Sub Private Sub btsimpan_Click(ByVal btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsimpan.Click Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(databelbrg) drtabelbrg = dttabelbrg.NewRow
drtabelbrg("Kode_barang" drtabelbrg("Kode_barang") ) = txtKode.Text drtabelbrg("Nama_barang" drtabelbrg("Nama_barang") ) = txtnama.Text drtabelbrg("harga" drtabelbrg("harga") ) = txtHarga.Text txtHarga.Text drtabelbrg("cicilan_perminggu" drtabelbrg("cicilan_perminggu") ) = txtcicilan.Text
21
Aplikasi Penjualan kredit 2012 drtabelbrg("jenis" drtabelbrg("jenis") ) = cbjenis.SelectedItem cbjenis.SelectedItem
dttabelbrg.Rows.Add(drtabelbrg) con.Open() databelbrg.Update(dttabelbrg) dttabelbrg.AcceptChanges() con.Close() Catch errTambah As Exception MsgBox(errTambah.Message) End Try isiankosong() navigasi(True navigasi(True) ) End Sub Private Sub btkeluar_Click(ByVal btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btkeluar.Click Me.Close() Me .Close() End Sub Private Sub bthapus_Click(ByVal bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthapus.Click Try Dim cbmateri As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(databelbrg) drtabelbrg.Delete() databelbrg.DeleteCommand = cbmateri.GetDeleteCommand databelbrg.Update(dttabelbrg) dttabelbrg.AcceptChanges() databelbrg.DeleteCommand.Connection.Close() Catch errHapus As Exception MsgBox(errHapus.Message) End Try End Sub Private Sub btbatal_Click(ByVal btbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btbatal.Click isiankosong() navigasi(True navigasi(True) ) textaktif(False textaktif(False) ) End Sub Private Sub btcari_Click(ByVal btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcari.Click Try drtabelbrg = dttabelbrg.Rows.Find(txtKode.Text) txtKode.Text = drtabelbrg("kode_barang" drtabelbrg("kode_barang").ToString ).ToString
22
Aplikasi Penjualan kredit 2012 txtnama.Text = drtabelbrg("Nama_barang" drtabelbrg("Nama_barang").ToString ).ToString txtHarga.Text txtHarga.Text = drtabelbrg("harga" "harga").ToString ).ToString txtcicilan.Text = drtabelbrg("cicilan_Perminggu" drtabelbrg("cicilan_Perminggu").ToString cbjenis.Text = drtabelbrg("jenis" drtabelbrg("jenis").ToString ).ToString Catch errCari As Exception MsgBox(errCari.Message) End Try 'caridatabarang() End Sub Private Sub dgBarang_CellContentClick( dgBarang_CellContentClick(ByVal ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgBarang.CellContentClick txtKode.Text = drtabelbrg.Item("kode_barang" drtabelbrg.Item("kode_barang").ToString ).ToString txtnama.Text = drtabelbrg.Item("Nama_barang" drtabelbrg.Item("Nama_barang").ToString ).ToString txtHarga.Text = drtabelbrg.Item("harga" drtabelbrg.Item("harga").ToString ).ToString txtcicilan.Text = drtabelbrg.Item("cicilan_Perminggu" drtabelbrg.Item( "cicilan_Perminggu").ToString cbjenis.Text = drtabelbrg.Item("jenis" drtabelbrg.Item("jenis").ToString ).ToString End Sub End Class End Class
23