Aplikasi Penjualan Perlengkapan Futsal Menggunakan Visual Studio 2010 dan Database Mysql

KATA PENGANTAR

Assalamu’alaikum Wr. Wb.

          Puji syukur kepada Allah SWT yang  telah senantiasa memeberikan kemudahan bagi kami dalam menyelesaikan makalah ini, sehingga kami bisa menyelesaikannya tepat pada waktunya.

Kami membuat makalah ini, bertujuan menjelaskan cara pembuatan program sederhana dengan  menggunakan visual basic. Karena melihat begitu pentingnya program dalam kehidupan pada zaman sekarang ini yang sangat membantu kita dalam mengoperasikan teknologi komputer.

Selaku manusia biasa, kami menyadari bahwa dalam makalah ini masih banyak kekurangan dan kekeliruan yang tidak disengaja. Oleh karena itu kami membutuhkan kritik dan saran untuk menyempurnakan pembuatan makalah selanjutnya. Kami berharap makalah ini dapat bermanfaat bagi kita semua, khususnya dibidang pendidikan komputer.

Wassalamu’alaikum warahmatullahi wabarakatuh.

BAB I

PENDAHULUAN

   

   A.     Latar Belakang

Visual Basic  adalah bahasa pemrograman berbasis Windows. Saat ini,  Visual Basic adalah salah satu bahasa pemrograman yang terbaik. Visual Basic merupakan pengembangan dari Basic. Basic (Beginner’s All-purose 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 pemula. Biasanya Basic diajarkan untuk para pelajar sekolah menengah yang baru mengenal komputer, serta digunakan untuk pengembang  program “cepat saji” yang ringan dna menyenangkan. Walaupun begitu, pran basic lebih dari sekedar itu saja. Banyak programmer andal saat ini memulai karirnya dengan mempelajari Basic. Sebagai bahasa pemrograman yang mutakhir, Visual Basic didesain untuk dapat memanaatkan 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.

Karena visual basic merupakan salah satu bahasa pemrograman sehingga sangat penting untuk kita pelajari, maka kami menyusun makalah ini. Dimana dalam makalah ini akan dijelaskan tentang visual basic, dan salah  satu cara membuat program sederhana serta membuat source kode programnya

    B.     Batasan Masalah

Dalam makalah ini akan dibahas tentang landasan teori dari visual basic dan cara membuat program sederhana dengan visual basic serta membuat source kode programnya.

   C.     Rumusan Masalah

1.      Apa pengertian Visual Basic?

2.      Bagaimana cara membuat program sederhana menggunakan visual basic?

3.      Bagaimana cara membuat Source Kode programnya?

   D.     Tujuan

1.      Menjelaskan apa itu visual basic

2.      Mendeskripsikan cara membuat program sederhana

3.      Menjelaskan tentang bagaiamana membuat Source Kode Programnya

BAB II

LANDASAN TEORI

            Visual basic adalah bahasa pemprograman windows yang berbasis grafis (GUI-Graphical User Interface). Sifat bahasa pemprogramanya adalah eventdriven, artinya program akan terjadi jika ada respon dari pemaka berupa event/kejadian tertentu (tombol diklik, mouse ditekan dan lain-lain). Saat event terjadi maka kode yang berhubungan dengan event akan dijalankan.

            Dalam Visual Basic, pembuatan aplikasi dimulai dengan memperkirakan kebutuhan, merancang tampilan dan selanjutnya diikuti dengan pembuatan kode untuk program tersebut.

            Pada bagian ini akan dijelaskan tentang pengenalan program Visual Basic dalam pembuatan aplikasi Windows. Menjalankan program Visual Basic sama dengan menjalankan program windows lainnya, yaitu dengan mengklik ganda icon yang digunakan untuk menjalankan program.

A.     Sejarah

Billgate, pendiri Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan system operasi DOS, Perkembangan berikutnya ialah diluncurkan BASICA (basic-advanced) untuk DOS, Setelah BASICA, Microsoft meluncurkan Microsoft QuckBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler), Visual basic adalah pengembang dari bahasa komputer BASIC (Beginner’s All-Purpose Symbolic nstructio Code), Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an (Deitel&Deitel1999).

Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programmer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer, Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer.

B.     Aplikasi Penjualan Toko Perlengkapan Futsal

Aplikasi Penjualan Toko Perlengkapan Futsal adalah sebuah aplikasi windows yang dapat digunakan untuk memabantu pekerjaan pengelola usaha Penjualan Perlengkapan Futsal, dimana didalam aplikasi ini terdapat beberapa kebutuhan yang akan digunakan dalam proses perhitungan Penjualan Toko Perlengkapan Futsal.

BAB III

HASIL DAN PEMBAHASAN

A.     Proses Pembuatan Data Base

              1.      Ketentuan dan Kebutuhan

A.     Pembuatan Tabel Barang

             B.   Pembuatan Tabel Penjualan

 

 B.       Tahapan Pembuatan Aplikasi

    Ø  Bukalah aplikasi Visual Studio 2010 yang sudah terinstal dikomputer/laptop seperti pada gambar dibawah ini :

 

    Ø  Klik New Project maka akan muncul tampilan seprti berikut:

    Ø  Lalu pilih Windows Form Aplication maka akan muncul tampilan seprti berikut:

Ini merupakan form dalam memsukan data-data yang sudah disediakan

    Ø  Langakah pertama adalah  membuat  Judul/header dengan memilih toolbok dengan nama Label  yang terdapat disebelah kiri Fom pada menu Toolbox kita tinggal gulir kursor kebwah atau keatas kemudian cari Label, dan klik pada form tersebut kemudian beri nama ‘Input Data Penjualan’ dan di Form ke 2 beri nama ‘Input Data Barang’

    Ø  Buat Button 1 kemudian beri nama “Tambah”

    Ø  Buat Button 2 kemudian beri nama “Hapus”

    Ø  Buat Button 3 kemuadian beri nama “Edit”

    Ø  Buat Button 4 kemudian beri nama “Keluar”

    Ø  Buat Text Box untuk memasukan input data

    Ø  Buat Gird view untuk menampilkan data input dan hasil input data

    Ø  Sehingga hasil yang diperoleh seperti berikut:

    Ø  Untuk Pembuatan form Barang juga sama dengan Form Penjualan .

    Ø  Klik menu File kemudian Save All

Keterangan:

Kalau mau mengganti tulisan tinggal setting ke captionnya, kalau mau ganti tulisan atau ukurannya tinggal ke font. Kalau mau ganti background  klik picture di setting formnya.

C.    Input Source Kode Aplikasi

     Ø  Buka menu source kode yang terdapat di form1 dan ketikan deklarasi kode programnya

Ø  Selanjutnya Klik Button yang telah dibuat dan isikan Source kode aplikasinya masing-masing.

     Ø  Klik pada menu Debug dan klik Star Debuging

     Ø  Dan hasilnya seperti pada gambar dibawah ini:

Ini tampilannya sudah di edit-edit sesuai keinginan kita

SOURCE KODE FORM BARANG

Imports System.Data.Odbc

Imports System.Data.OleDb

Public Class FormBarang

    Dim Conn As OdbcConnection

    Dim da As OdbcDataAdapter

    Dim ds As DataSet

    Dim str As String

    Dim CMD As OdbcCommand

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

        If Kode_Barang.Text = "" Or Nama_Barang.Text = "" Or Harga_Barang.Text = "" Or Stok.Text = "" Then

            MsgBox("Data belum lengkap, Pastikan Semua form terisi")

            Exit Sub

        Else

            Call koneksi()

            Dim simpan As String = "insert into tblbarang values ('" & Kode_Barang.Text & "','" & Nama_Barang.Text & "','" & Harga_Barang.Text & "','" & Stok.Text & "')"

            CMD = New OdbcCommand(simpan, Conn)

            CMD.ExecuteNonQuery()

            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

            Call KondisiKosong()

        End If

    End Sub

    Sub koneksi()

        LokasiData = "Driver={MySQL ODBC 3.51 Driver};database=penjualan;server=localhost;uid=root"

        Conn = New OdbcConnection(LokasiData)

 

      If Conn.State = ConnectionState.Closed Then

            Conn.Open()

        End If

    End Sub

    Sub KondisiKosong()

        Kode_Barang.Text = ""

        Nama_Barang.Text = ""

        Harga_Barang.Text = ""

        Stok.Text = ""

        koneksi()

        da = New OdbcDataAdapter("Select * from tblbarang", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "tblbarang")

        DataGridView1.DataSource = (ds.Tables("tblbarang"))

    End Sub

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

        Call KondisiKosong()

        Kode_Barang.Items.Add("B001")

        Kode_Barang.Items.Add("B002")

        Kode_Barang.Items.Add("B003")

        Kode_Barang.Items.Add("B004")

        Kode_Barang.Items.Add("B005")

        Kode_Barang.Items.Add("B006")

        Kode_Barang.Items.Add("B007")

        Kode_Barang.Items.Add("B008")

        Kode_Barang.Items.Add("B009")

        Kode_Barang.Items.Add("B010")

    End Sub

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

        Me.Close()

    End Sub

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

            If Kode_Barang.Text = "" Or Nama_Barang.Text = "" Or Harga_Barang.Text = "" Or Stok.Text = "" Then

                MsgBox("Data belum lengkap, Pastikan6 Digit dan Semua form terisi")

                Exit Sub

            Else

                Call koneksi()

                Dim edit As String = "update tblbarang set nama_barang='" & Nama_Barang.Text & "',harga_barang='" & Harga_Barang.Text & "',stok='" & Stok.Text & "' where id_barang='" & Kode_Barang.Text & "'"

                CMD = New OdbcCommand(edit, Conn)

                CMD.ExecuteNonQuery()

                MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")

                Call KondisiKosong()

            End If

    End Sub

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

        If Kode_Barang.Text = "" Or Nama_Barang.Text = "" Or Harga_Barang.Text = "" Or Stok.Text = "" Then

            Exit Sub

        Else

            Call koneksi()

            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

                Dim hapus As String = "DELETE FROM tblbarang WHERE tblbarang.id_barang = '" & Kode_Barang.Text & "'"

                CMD = New OdbcCommand(hapus, Conn)

                CMD.ExecuteNonQuery()

                MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")

                Call KondisiKosong()

            End If

        End If

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Kode_Barang.Text = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value

        Nama_Barang.Text = DataGridView1.Item(1, DataGridView1.CurrentRow.Index).Value

        Harga_Barang.Text = DataGridView1.Item(2, DataGridView1.CurrentRow.Index).Value

        Stok.Text = DataGridView1.Item(3, DataGridView1.CurrentRow.Index).Value

    End Sub

End Class

SOURCE KODE FORM PENJUALAN

Imports System.Data.Odbc

Imports System.Data.OleDb

Public Class FormPenjualan

    Dim Conn As OdbcConnection

    Dim da As OdbcDataAdapter

    Dim ds As DataSet

    Dim str As String

    Dim CMD As OdbcCommand

    Dim simpan As Object

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

        If No_Jual.Text = "" Or Total_Jual.Text = "" Then

            MsgBox("Data belum lengkap, Pastikan Semua form terisi")

            Exit Sub

        Else

            Call koneksi()

            Dim simpan As String = "insert into tblpenjualan values ('" & No_Jual.Text & "','" & Total_Jual.Text & "')"

            CMD = New OdbcCommand(simpan, Conn)

            CMD.ExecuteNonQuery()

            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")

            Call KondisiKosong()

        End If

    End Sub

    Sub koneksi()

        LokasiData = "Driver={MySQL ODBC 3.51 Driver};database=penjualan;server=localhost;uid=root"

        Conn = New OdbcConnection(LokasiData)

        If Conn.State = ConnectionState.Closed Then

            Conn.Open()

        End If

    End Sub

    Sub KondisiKosong()

        No_Jual.Text = ""

        Total_Jual.Text = ""

        koneksi()

        da = New OdbcDataAdapter("Select * from tblpenjualan", Conn)

        ds = New DataSet

        ds.Clear()

        da.Fill(ds, "tblpenjualan")

        DataGridView1.DataSource = (ds.Tables("tblpenjualan"))

    End Sub

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

        Call KondisiKosong()

        No_Jual.Items.Add("J001")

        No_Jual.Items.Add("J002")

        No_Jual.Items.Add("J003")

        No_Jual.Items.Add("J004")

        No_Jual.Items.Add("J005")

        No_Jual.Items.Add("J006")

        No_Jual.Items.Add("J007")

    End Sub

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

        Me.Close()

    End Sub

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

        If No_Jual.Text = "" Or Total_Jual.Text = "" Then

            Exit Sub

        Else

            Call koneksi()

            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

                Dim hapus As String = "DELETE FROM tblpenjualan WHERE tblpenjualan.No_Jual = '" & No_Jual.Text & "'"

                CMD = New OdbcCommand(hapus, Conn)

                CMD.ExecuteNonQuery()

                MsgBox("Data berhasil di Hapus", MsgBoxStyle.Information, "Information")

                Call KondisiKosong()

            End If

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        If No_Jual.Text = "" Or Total_Jual.Text = "" Then

            MsgBox("Data belum lengkap, Pastikan6 Digit dan Semua form terisi")

            Exit Sub

        Else

            Call koneksi()

            Dim edit As String = "update tblpenjualan set Total_jual='" & Total_Jual.Text & "' where No_Jual='" & No_Jual.Text & "'"

            CMD = New OdbcCommand(edit, Conn)

            CMD.ExecuteNonQuery()

            MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")

            Call KondisiKosong()

        End If

    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        No_Jual.Text = DataGridView1.Item(0, DataGridView1.CurrentRow.Index).Value

        Total_Jual.Text = DataGridView1.Item(1, DataGridView1.CurrentRow.Index).Value

    End Sub

End Class

B.     Pembuatan crystal Report

Ø  Buka aplikasi Project aplikasi Visual Basic yang telah dibuat

Ø  Buat folder baru untuk penyimpanan file Crystal report yang akan dibuat

Caranya klik kanan project ->Add->New Folder ,namai folder tersebut dengan nama “laporan”.

Ø  Klik kanan pada folder laporan ->Add->new item

Ø  Setelah tampil jendela new item,pilih Reporting pada instslled templates->Crystal Report->buat nama crystal Report tersebut.

Ø  Setelah itu pilih As Blank Report->ok

Ø   Selanjutnya Pada Bar Field Exploler klik kanan data base field ->Data base expert->creat New Connection->Ole DB->Pilih MySQL -> Next.

Ø  Selanjutnya pada data source ,Browser database yang akan dijadikan crystal report pada aplikasi yang kita buat.

Ø  Pilih office data base type sesuai dengan aplikasi yang kita gunakan untuk membuat data base sebelumnya.

Ø  Setelah kita mengkoneksikan database dengan crystal report ,pilih data base yang akan kita tampilkan di crystal report.

Ø  Jika koneksi berhasil kita tinggal drag and drop item dari databse ke crystal project.

Ø  Untuk menampilkan laporan kita membutuhkan crystal report viewer ,untuk keperluan tersebut kita membutuhkan form baru dan tambahkan ke crystal report viewer. Crystal report viewer terdapat di toolbox-crystal report-crystal report viewer.pada toolbar reporting drag and drop crystal report viewer pada form yang baru dibuat tersebut,setelah itu ubah form windowsstate menjadi maximum pada bagian properties.

Ø  Aktifkan kembali form aplikasi yang digunakan untuk menampilkan report dan double klik button yang digunakan untuk menampilkan reporting

 

BAB IV

KESIMPULAN DAN SARAN

A.     Kesimpulan

Dengan aplikasi ini Usaha dibidang penjualan Perlengkapan Futsal mampu lebih meningkatkan control terhadap stok,harga,barang yang dijual sehingga mampu meningkatkan kualitas pelayanan terhadap konsumen. Dan aplikasi ini juga bisa diterapkan dalam bidang usaha atau jasa lainnya sesuai dengan kebutuhan yang ada.

B.     Saran

           1.      Adanya bimbingan atau arahan terlebih dahulu dalam pembuatan aplikasi

           2.      Lebih ditingkatkan pembelajaran tentang aplikasi Visul Basic

           3.      Adanya latihan-latihan dasar terlebih dahulu