Makalah Sistem Aplikasi Jual Beli 1aw47

2012 Makalah Sistem Aplikasi Jual Beli Handphone

10260105 Luppie Faza Manajemen Informatika

AMIK HASS BANDUNG 2011-2012

KATA PENGANTAR

Dengan mengucap puji syukur kehadirat Allah SWT atas Anugerah dan Karunia-Nya sehingga penulis dapat menyelesaikan Project Bahasa Pemrograman yang berjudul “Penerapan Bahasa Pemograman Visual Studio 2005 Pada Sistem Aplikasi Jual Beli HP”. Terwujudnya penulisan tugas akhir ini tidak lepas dari bantuan berbagai pihak, oleh karena itu pada kesempatan ini penulis ingin menyampaikan rasa terima kasih yang sebesar-besarnya kepada semua pihak yang telah membantu dalam penulisan tugas akhir ini, antara lain :

1. Dosen Pemrograman Visual yang telah banyak memberi saran dan masukan tentang tugas. 2. Kedua orang tua yang mendukung baik secara moril maupun materil. 3. Teman-teman dan pacar yang selalu memberikan motivasi secara langsung maupun tidak langsung. Penulis menyadari bahwa Makalah ini jauh dari kesempurnaan , maka semua kritik dan saran yang bersifat membangun akan selalu diterima. Semoga yang sedikit ini memberikan manfaat terutama bagi kelanjutan studi penulis.

Bandung, Januari 2012

Penulis

DAFTAR ISI

Kata Pengantar .................................................................................................................... i Daftar Isi ............................................................................................................................. ii Bab I - PENDAHULUAN ....................................................................................................... 1 1.1 Latar Belakang ........................................................................................................... 1 1.2 Tujuan Penulisan ....................................................................................................... 2 1.3 Manfaat Penulisan .................................................................................................... 2 Bab II – PERANCANGAN PROGRAM................................................................................... 3 2.1 Perancangan Database.............................................................................................. 3 2.1.1 Rancangan Database Sistem Jual Beli HP .......................................................... 5 2.1.2 Relasi Antar Tabel ............................................................................................. 7 2.2 Perancangan Interface .............................................................................................. 8 2.2.1 Rancangan Form ............................................................................................... 8 2.2.2 Rancangan Report ........................................................................................... 12 2.2.3 Coding-coding ................................................................................................. 14 Bab III – IMPLEMENTASI PROGRAM ................................................................................ 25 3.1 Spesifikasi Hardware dan Software ........................................................................ 25 3.2 Cara Pengoperasian Program.................................................................................... 3 Bab IV - PENUTUP ............................................................................................................. 25 4.1 Kesimpulan .............................................................................................................. 30 4.2 Saran ....................................................................................................................... 30

Bab I PENDAHULUAN 1.1

Latar Belakang Visual basic merupakan salah satu bahasa pemrograman yang dapat digunakan untuk membangun aplikasi,melakukan uji coba dari berbagai macam aplikasi, yang dalam hal ini aplikasi-aplikasi windows, aplikasiaplikasi web, class dan custom control. Visual basic mudah dipelajari dan sangat produktif, dan juga memiliki beberapa kemampuan, seperti proses kompilasi yang cepat, sangat dekat dengan pemrograman windows yang banyak digunakan saat ini beserta teknologi komponen-komponennya. Basic (Beginner’s All-purpose Symbolic Instruction Code) adalah sebuah bahasa pemrograman “kuno” yang merupakan awal dari bahasa-bahasa pemrograman tingkat tinggi lainnya. Basic dirancang pada tahun 1950-an dan ditujukan untuk dapat digunakan oleh para programmer pemula. Biasanya Basic diajarkan untuk para pelajar sekolah menengah yang baru mengenal komputer, serta digunakan untuk pengembangan program “cepat saji” yang ringan dan menyenangkan. Walaupun begitu, peran Basic lebih dari sekedar itu saja. Banyak programmer handal saat ini memulai karirnya dengan mempelajari Basic. Sebagai bahasa pemrograman yang mutakhir, Visual Basic didesain untuk dapat memanfaatkan fasilitas Windows, khususnya Windows 95/97/98 dan Windows NT. Visual Basic juga merupakan bahasa pemrograman Object Oriented Programming (OOP), yaitu pemrograman yang berorientasi objek. Visual Basic menyediakan objek-objek yang sangat kuat, berguna, dan mudah dipakai. Dengan fasilitas tersebut, membuat Visual Basic menjadi begitu diinginkan oleh programmer.

1.2. Tujuan Penulisan Tujuan penulis, dalam pembuatan makalah ini adalah : 

Untuk memenuhi tugas Praktek Pemrograman Visual yang telah diberikan oleh dosen Pemrograman Visual.



Untuk memberi pengetahuan kepada pembaca tentang bahasa pemrograman Visual Basic.



Untuk menerapkan ilmu yang diperoleh dibangku kuliah.

1.3. Manfaat Penulisan 

Memberi informasi kepada pembaca mengenai bahasa pemrograman Visual Basic.



Menambah wawasan dan pengalaman dalam pembuatan program aplikasi dengan menggunakan Visual Basic.



Makalah ini diharapkan menjadi sumbangan pemikiran bagi para pembaca untuk mengembangkan bahasa pemrograman dimasa sekarang.

BAB II PERANCANGAN PROGRAM

2.1 PERANCANGAN DATABASE Ikuti langkahnya step by step pada redaksi dan gambar di bawah ini : 1. Buatlah folder khusus sebagai tempat menyimpan database, form dan project. 2. Klik menu start 3. All programs 4. Microsoft office 5. Microsoft office access 2007 6. Klik menu Blank Document

7. Buka dan aktifkan folder yang telah dibuat di langkah 1 8. Tulis nama database misalnya DBhp

9. Open dan simpan database tersebut.

10. Klik create. 11. Untuk membuat tabel adalah sebagai berikut. Caranya klik Create -> Table

12. Buatlah sebuah Tabel lalu isikan datanya seperti di bawah ini.

13. Lalu buat tabel-tabel yang lainnya seperti Tabel Pemasok, Member, Transaksi Beli, Transaksi Jual, Detail Beli, Detail Jual caranya sama seperti langkah 11. 14. Relasikan Tabel – Tabel tersebut Caranya : Klik Database Tools -> Relationships ->Shows Table -> Add semua (Pada table)

15. Tabel tersebut harus berelasi Catatan : Apabila belum berelasi drag Primary key dari tabel 1 ke tabel yang akan di relasikan, tetapi penulisan nama, tipe data, ataupun size nya harus sama dengan yang ada di tabel tersebut. 16. Save data tersebut.

2.1.1 Rancangan Database Sistem Jual Beli HP

Tabel Barang (tbhp)

Name

Type

Size

#kodehp

Text

6

merkhp

Text

30

layanan

Text

4

hargajual

Number

Long Integer

hargabeli

Number

Long Integer

Tabel Pemasok (tbpemasok)

Name

Type

Size

#kodesupp

Text

5

namasupp

Text

35

alamat

Text

35

kota

Text

15

telepon

Text

15

email

Text

35

Tabel Member (tbmember)

Name

Type

Size

#kodemember

Text

15

namamember

Text

35

alamat

Text

40

telepon

Text

15

email

Text

35

Tabel Transaksi Penjualan (tbtrxjual)

Name

Type

#notrxjual

Text

tgl

Date/Time

*kodemember

Text

Size 7

15

Tabel Detail Transaksi Penjualan (detailjual)

Name

Type

Size

*notrxjual

Text

7

*kodehp

Text

6

jumlah

Number

Long Integer

diskon

Number

Long Integer

Tabel Transaksi Pembelian (tbtrxbeli)

Name

Type

#notrxbeli

Text

tgl

Date/Time

*kodesupp

Text

Size 7

5

Tabel Detail Transaksi Pembelian (detailbeli)

Name

Type

Size

*notrxbeli

Text

7

*kodehp

Text

6

jumlah

Number

Long Integer

Ket : # Primary Key *Foreign Key

2.1.2 Relasi Antar Tabel

2.2 PERANCANGAN INTERFACE

2.2.1 Rancangan Form Rancangan Form Menu Utama

Rancangan Form

Rancangan Form Barang

Rancangan Form Pemasok

Rancangan Form Member

Rancangan Form Daftar Barang

Rancangan Form Daftar Member

Rancangan Form Daftar Pemasok

Rancangan Form Transaksi Pembelian

Rancangan Form Transaksi Penjualan

2.2.2 Rancangan Report Report Barang

Report Pemasok

Report Member

Report Transaksi Penjualan

Report Transaksi Pembelian

2.2.3 Coding-coding

Coding Transaksi Pembelian Di bawah ini adalah coding dari form transaksi pembelian.

Public Class frtransaksipembelian Dim dapemasok As OleDb.OleDbDataAdapter Dim dahp As OleDb.OleDbDataAdapter Dim datranspemb As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=F:\AsoKa'32\semester 3\Pemograman Visual Basic\project individu\dbhp.mdb")) Dim dtpemasok As New DataTable() Dim dthp As New DataTable() Dim dttranspemb As New DataTable() Dim drhp As DataRow Dim drpemasok As DataRow Dim drtranspemb As DataRow Private Total As Double = 0.0 Private index As Integer = 0 Dim dadetail As OleDb.OleDbDataAdapter Dim dtdetail As New DataTable() Dim drdetail As DataRow Function Koneksi(ByVal strDatabase As String) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;" kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub frtransaksipembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dc(1) As DataColumn Try dahp = New OleDb.OleDbDataAdapter("select * from tbhp", con) dahp.Fill(dthp) dc(0) = dthp.Columns("kodehp") dthp.PrimaryKey = dc dapemasok = New OleDb.OleDbDataAdapter("select * from tbpemasok", con) dapemasok.Fill(dtpemasok) dc(0) = dtpemasok.Columns("kodesupp") dtpemasok.PrimaryKey = dc datranspemb = New OleDb.OleDbDataAdapter("select * from tbtrxbeli", con) datranspemb.Fill(dttranspemb) dc(0) = dttranspemb.Columns("notrxbeli") dttranspemb.PrimaryKey = dc dadetail = New OleDb.OleDbDataAdapter("select * from detailbeli", con) dadetail.Fill(dtdetail) dc(0) = dtdetail.Columns("notrxbeli") dtdetail.PrimaryKey = dc Catch errConn As OleDb.OleDbException MsgBox(errConn.Message)

End Try txtnamasupp.Text = "" txtmerk.Text = "" txtharga.Text = "" End Sub Private Sub kosong() txtnamasupp.Text = "" txtmerk.Text = "" txtharga.Text = "" txtjml.Text = "" txtjmlharga.Text = "" txtkodepmsk.Focus() End Sub Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click ListView1.Items.Clear() txtgrandtotal.Text = "" txtkodepmsk.Text = "" txtkode.Text = "" kosong() End Sub Sub SetTotal() Dim a As Integer a = CInt(txtjml.Text) * CInt(txtharga.Text) txtjmlharga.Text = Format(CDbl(CStr(a)), "##.####.####.###") 'txt.Text = Format(CDbl(txt.Text), "##.####.####.###") End Sub Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click Dim Value() As String = {txtkode.Text, txtmerk.Text, txtharga.Text, txtjml.Text, txtjmlharga.Text} AddList(Value) Total = Val(txtgrandtotal.Text) + Val(txtjmlharga.Text) txtgrandtotal.Text = Format(CDbl(CStr(Total)), "##.####.####.###") txtkode.Focus() txtkodepmsk.Enabled = False txtnamasupp.Enabled = False End Sub Sub AddList(ByVal Value() As String) Dim subIndex As Integer ListView1.Items.Add("") For subIndex = 0 To 4 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subIndex).Text = Value(subIndex) Next index = index + 1 End Sub

Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(datranspemb) Dim cbTambah1 As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dadetail) Dim i As Integer drtranspemb = dttranspemb.NewRow drtranspemb("notrxbeli") = txtnotrxbeli.Text drtranspemb("tgltrxbeli") = dtp_tgl.Text drtranspemb("kodesupp") = txtkodepmsk.Text dttranspemb.Rows.Add(drtranspemb) con.Open() datranspemb.Update(dttranspemb) dttranspemb.AcceptChanges() drdetail = dtdetail.NewRow For i = 0 To index - 1 drdetail("notrxbeli") = txtnotrxbeli.Text drdetail("kodehp") = ListView1.Items(i).SubItems(0).Text drdetail("jumlah") = ListView1.Items(i).SubItems(3).Text i = 1 + 1 Next dtdetail.Rows.Add(drdetail) dadetail.Update(dtdetail) dtdetail.AcceptChanges() con.Close() MessageBox.Show("Data Transaksi telah disimpan") Catch errTambah As Exception MsgBox(errTambah.Message) End Try ListView1.Items.Clear() txtgrandtotal.Text = "" txtkodepmsk.Text = "" txtkode.Text = "" kosong() txtkodepmsk.Enabled = False txtnamasupp.Enabled = False End Sub Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click Close()

End Sub Private Sub txtjml_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim harga, jum As Integer harga = Val(txtharga.Text) jum = Val(txtjml.Text) txtjmlharga.Text = harga * jum End Sub Private Sub txtjmlharga_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Asc(e.KeyChar) = 13 Then btntambah.Focus() End If End Sub Private Sub txtjml_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Asc(e.KeyChar) = 13 Then SetTotal() txtjmlharga.Focus() End If End Sub Private Sub txtnamasupp_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnamasupp.KeyPress If Asc(e.KeyChar) = 13 Then txtkode.Focus() End If End Sub Private Sub txtnotrxbeli_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnotrxbeli.KeyPress If Asc(e.KeyChar) = 13 Then txtkodepmsk.Focus() End If End Sub Private Sub txtjml_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjml.TextChanged Dim harga, jum As Integer harga = Val(txtharga.Text) jum = Val(txtjml.Text) txtjmlharga.Text = harga * jum End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click frdaftarbarangbeli.Show() End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click frdaftarpemasokbeli.Show() End Sub End Class

Coding Transaksi Penjualan Di bawah ini adalah coding dari form transaksi pembelian.

Public Class frtransaksipenjualan Dim damember As OleDb.OleDbDataAdapter Dim dahp As OleDb.OleDbDataAdapter Dim datranspenj As OleDb.OleDbDataAdapter Dim con As New OleDb.OleDbConnection(Koneksi("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=F:\AsoKa'32\semester 3\Pemograman Visual Basic\project individu\dbhp.mdb")) Dim dtmember As New DataTable() Dim dthp As New DataTable() Dim dttranspenj As New DataTable() Dim drhp As DataRow Dim drmember As DataRow Dim drtranspenj As DataRow Private Total As Double = 0.0 Private index As Integer = 0 Dim dadetail As OleDb.OleDbDataAdapter Dim dtdetail As New DataTable() Dim drdetail As DataRow Function Koneksi(ByVal strDatabase As String) As String Dim kalimat As String kalimat = "Provider=Microsoft.Jet.OLEDB.4.0;"

kalimat &= "Data Source=" & strDatabase & "" Return kalimat End Function Private Sub frtransaksipembelian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dc(1) As DataColumn Try dahp = New OleDb.OleDbDataAdapter("select * from tbhp", con) dahp.Fill(dthp) dc(0) = dthp.Columns("kodehp") dthp.PrimaryKey = dc damember = New OleDb.OleDbDataAdapter("select * from tbmember", con) damember.Fill(dtmember) dc(0) = dtmember.Columns("kodemember") dtmember.PrimaryKey = dc datranspenj = New OleDb.OleDbDataAdapter("select * from tbtrxjual", con) datranspenj.Fill(dttranspenj) dc(0) = dttranspenj.Columns("notrxjual") dttranspenj.PrimaryKey = dc dadetail = New OleDb.OleDbDataAdapter("select * from detailjual", con) dadetail.Fill(dtdetail) dc(0) = dtdetail.Columns("notrxjual") dtdetail.PrimaryKey = dc Catch errConn As OleDb.OleDbException MsgBox(errConn.Message) End Try txtnamamember.Text = "" txtmerk.Text = "" txtharga.Text = "" txtkodemember.Text = "" txtkode.Text = "" txtdiskon.Text = "" End Sub Private Sub kosong() txtnamamember.Text = "" txtmerk.Text = "" txtharga.Text = "" txtjml.Text = "" txtdiskon.Text = "" txtjmlharga.Text = "" txtkodemember.Focus() End Sub Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbatal.Click kosong()

ListView1.Items.Clear() txtgrandtotal.Text = "" txtkodemember.Text = "" txtkode.Text = "" txtnamamember.Enabled = False txtkodemember.Enabled = False End Sub Sub SetTotal() Dim a As Integer a = CInt(txtjml.Text) * CInt(txtharga.Text) txtjmlharga.Text = Format(CDbl(CStr(a)), "##.####.####.###") 'txt.Text = Format(CDbl(txt.Text), "##.####.####.###") End Sub Private Sub btntambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah.Click Dim Value() As String = {txtkode.Text, txtmerk.Text, txtharga.Text, txtjml.Text, txtdiskon.Text, txtjmlharga.Text} AddList(Value) Total = Val(txtgrandtotal.Text) + Val(txtjmlharga.Text) txtgrandtotal.Text = Format(CDbl(CStr(Total)), "##.####.####.###") txtkode.Focus() txtnamamember.Enabled = False txtkodemember.Enabled = False Button3.Enabled = False End Sub Sub AddList(ByVal Value() As String) Dim subIndex As Integer ListView1.Items.Add("") For subIndex = 0 To 5 ListView1.Items(index).SubItems.Add("") ListView1.Items(index).SubItems(subIndex).Text = Value(subIndex) Next index = index + 1 End Sub

Private Sub cmdsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsimpan.Click Try Dim cbTambah As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(datranspenj) Dim cbTambah1 As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(dadetail) Dim i As Integer drtranspenj = dttranspenj.NewRow drtranspenj("notrxjual") = txtnotrxjual.Text

drtranspenj("tgltrxjual") = dtp_tgl.Text drtranspenj("kodemember") = txtkodemember.Text dttranspenj.Rows.Add(drtranspenj) con.Open() datranspenj.Update(dttranspenj) dttranspenj.AcceptChanges() drdetail = dtdetail.NewRow For i = 0 To index - 1 drdetail("notrxjual") = txtnotrxjual.Text drdetail("kodehp") = ListView1.Items(i).SubItems(0).Text drdetail("jumlah") = ListView1.Items(i).SubItems(3).Text drdetail("diskon") = ListView1.Items(i).SubItems(4).Text Next dtdetail.Rows.Add(drdetail) dadetail.Update(dtdetail) dtdetail.AcceptChanges() con.Close() MessageBox.Show("Data Transaksi telah disimpan") Catch errTambah As Exception MsgBox(errTambah.Message) End Try ListView1.Items.Clear() txtgrandtotal.Text = "" txtkodemember.Text = "" txtkode.Text = "" kosong() txtnamamember.Enabled = False txtkodemember.Enabled = False End Sub Private Sub cmdkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdkeluar.Click Close() End Sub Private Sub txtjml_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtjml.TextChanged Dim harga, jum, diskon, jml_harga As Integer harga = Val(txtharga.Text) jum = Val(txtjml.Text) 'diskon = Val(txtdiskon.Text) jml_harga = harga * jum If rb1.Checked = True Then

diskon = jml_harga * 0.05 txtjmlharga.Text = jml_harga - diskon ElseIf rb2.Checked = True Then diskon = 0 txtjmlharga.Text = jml_harga - diskon Else txtjmlharga.Text = 0 End If txtdiskon.Text = diskon End Sub Private Sub txtjmlharga_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Asc(e.KeyChar) = 13 Then btntambah.Focus() End If End Sub Private Sub txtjml_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) If Asc(e.KeyChar) = 13 Then SetTotal() txtdiskon.Focus() End If End Sub Private Sub txtnamasupp_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnamamember.KeyPress If Asc(e.KeyChar) = 13 Then txtkode.Focus() End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If rb1.Checked = True Then txtkodemember.Enabled = True txtkodemember.Text = "" Button3.Enabled = True ElseIf rb2.Checked = True Then txtkodemember.Enabled = False txtkodemember.Text = "NonMember" txtnamamember.Enabled = True txtnamamember.Text = "" txtnamamember.Focus() Button3.Enabled = False Else txtkodemember.Enabled = False txtkodemember.Text = "" txtnamamember.Enabled = False End If End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click frdaftarmemberjual.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click frdaftarbarangjual.Show() End Sub End Class

BAB III IMPLEMENTASI PROGRAM 3.1 Spesifikasi Hardware Dan Software Hardware Yang Digunakan : 1. Proccesor Intel® Atom 330 (TM) U @ 1.60ghz (4Us) 2. RAM 1 GB Single-Channel DDR2 3. Motherboard BYON Queva W9121 (U 1) 4. VGA HSD121PHW1 Sis Mirage 3 Graphics, 256 Mb 5. Hard Drives 313GB Seagate ST9320325AS (SATA) (Kurang Pun Tidak Apa – Apa,Asal Masih Ada Ruang Kosong Unutk menyimpan Aplikasi)

Software Yang Digunakan : 1. Sistem Operasi MS Windows XP Professional (5.1,Build 2600) 2. Ms Visual Studio 2005 3. Ms Office 2007 (Ms. Access 2007) 4. Corel Draw X3

3.2 Cara Pengoperasian Program

Untuk menjalankan aplikasi Jual Beli Handphone ini, pertama kita buka dulu Menu Utama nya. Dan setelah itu kita harus melakukan . Caranya pilih di Toolbar Sistem pada Aplikasi Jual Beli Handphone.

Maka akan muncul Form seperti di bawah ini.

Lalu pilih level pada Nama , misalnya , Master, dan Operator. Jangan lupa pula isi sesuai Nama .

Apa bedanya level , Master, dan Operator? Jika kita masuk sebagai , maka kita akan bisa menggunakan semua fitur yang ada pada aplikasi ini. Namun jika kita masuk sebagai Master maka kita tidak akan melakukan Transaksi yang ada pada aplikasi ini. Lalu jika kita masuk sebagai Operator, maka kita tidak akan bisa melakukan perubahan data yang ada pada Input. Setelah melakukan , kita akan membahas tentang penginputan data yang ada pada menu Input. Di dalam nya ada Input Data Barang, Input Data Member, dan Input Data Pemasok. Pertama Input Data Barang, caranya pilih menu Input, lalu klik Data Barang. Maka akan muncul tampilan seperti berikut ini.

Lalu masukan data sesuai dengan apa yang harus di inputkan. Setelah itu klik tombol Simpan. Maka data akan otomatis tersimpan ke dalam database. Lalu jika kita ingin melihat data yang telah tersimpan maka klik tombol Lihat Daftar. Maka akan muncul tampilan seperti berikut.

Untuk melakukan input Data Member atau Data Pemasok pun sama seperti menginput Data Barang. Hanya saja untuk Input Data Member dan Input Data Pemasok, caranya pilih menu Input, lalu klik Data Member atau Data Pemasok. Setelah penginputan data, lalu kita akan membahas tentang transaksi. Dalam aplikasi Jual Beli Handphone ini terdapat 2 transaksi, yaitu Transaksi Pembelian dan Transaksi Penjualan. Untuk menjalankan Transaksi Pembelian ini, caranya pilih menu Transaksi, kemudian pilih Transaksi Pembelian, maka akan muncul tampilan seperti berikut ini.

Pertama, kita inputkan No Transaksi dan atur Tanggal nya. Setelah itu cari Kode Pemasok dan Nama Pemasok dengan menekan tombol form Daftar Pemasok seperti di bawah ini.

. Maka akan muncul

Kemudian pilih salah satu data sesuai dengan transaksi, dengan cara double click pada data tersebut. Maka kemudian data Kode Pemasok dan Nama Pemasok pada form Transaksi akan otomatis terisi. Kemudian untuk mengisi Data Barang pun dilakukan dengan cara yang sama yaitu dengan menekan tombol

yang berada di samping Kode Hp.

Setelah Data Pemasok dan Data Barang terisi, kita bisa isikan jumlah barang yang akan dibeli. Maka akan otomatis terisi jumlah harga nya. Dan ketika kita tekan tombol Tambah maka daftar barang yang dibeli akan diisikan pada List Barang. Selanjutnya kita bisa menambahkan lagi barang yang dibeli. Setelah selesai kita bisa menekan tombol Simpan untuk menyimpan data Transaksi Pembelian pada Database. Untuk pengoperasian Transaksi Penjualan caranya hamper sama dengan Transaksi Pembelian. Hanya saja ada hal yang membedakan nya yaitu pada Transaksi Penjualan ini kita diharuskan untuk memilih Member atau Non member. Kemudian tekan tombol

untuk memproses. Jika kita pilih

Member maka kita akan melanjutkan pada form Daftar Member. Namun jika Non Member maka kita hanya perlu mengisikan Nama saja, tidak perlu mengisikan Kode Member. Kemudian yang membedakan nya lagi di Transaksi Penjualan ini terdapat diskon. Jika Member maka akan mendapatkan diskon 5% dari jumlah pembelian. Namun jika Non Member tidak akan mendapatkan diskon. Setelah itu di aplikasi Jual Beli Handphone ini juga terdapat Report. Yang mana ada Laporan Data Barang, Laporan Data Member, Laporan Data Pemasok, Laporan Transaksi Pembelian, dan Laporan Transaksi Penjualan.

Bab IV PENUTUP 4.1 Kesimpulan Aplikasi Jual Beli Handphone ini bisa membantu proses jual beli yang menggunakan system komputerisasi , dan bahkan lebih efisien dan akurat di bandingkan membuat transaksi jual beli secara manual. Karena akan memudahkan dalam penghitungan data maupun transaksi. Kelebihan:  Data yang di hasilkan Akurat  Data yang di hasilkan Efesien  Lebih cepat menghasilkan informasi

Kekurangan:  Membutuhkan Spesifikasi Komputer yang Lumayan Tinggi  Membutuhkan Software tambahan yaitu Microsoft Visual Studio 2005 4.2 Saran Penulis masih mengakui banyak kekurangan dalam menulis makalah ini , oleh karena itu saya meminta kritik dan saran yang membangun untuk kemajuan saya khususnya. Semoga makalah ini bermanfaat bagi pembaca.