Sepatu murah yang berkualitas

sepatu sepak bola

Tidak sulit mencari sepatu murah, banyak orang menawarkan barang dagangannya dengan penawaran murah. Tapi adakah yang benar-benar menjual sepatu murah yang berkualitas. rasanya mungkin sulit karena barang murah pada umumnya selalu tidak berkualitas. jika mencari yang berkualitas pasti harus mahal dan bermerk terkenal.

Namun jika anda pernah memakai sepatu dengan harga murah, nyaman dipakai dan awet, tahan lama bahkan anda sampai bosen memakainya, sanggupkah anda mengatakan bahwa sepatu yang anda beli dan anda pakai selama ini adalah sepatu murah yang berkualitas ?. silakan anda pikirkan, silakan anda percayai dan silakan anda miliki. Yang perlu kita rubah adalah image kita bahwa yang berkualitas tidak selalu mahal !

Sepatu murah yang berkualitas semacam ini dibuat oleh orang-orang yang mempunyai daya kreatifitas dan jiwa seni. Mereka membuat sepatu berdasarkan kepuasan jiwa. Mereka berprinsip bukan jumlah produksi yang mereka pikirkan tetapi kualitas dan kepuasan pemakainya yang mereka harapkan. Inilah yang saya katakan bahwa sebenarnya sepatu murah yang berkualitas itu ada. Hanya saja kita belum tahu dimana mendapatkannya.

Ditoko sepatu nabila sport yang beralamat di jalan ki hajar dewantoro sempu banyuwangi menyediakan semua itu. Toko sepatu nabila menjual sepatu murah yang berkualitas , tidak hanya menjual sepatu olah raga, sepatu sekolah, sepatu kantor dan sepatu fashion pun juga tersedia. Tidak harus datang anda bisa menghubungi 085.859.423.940 untuk mendapatkannya. Sepatu yang dijual ditoko nabila ini sengaja hanya menjual sepatu dari home industry yang benar-benar menghasilkan produk yang berkualitas, bukan jumlah produksi tapi kualitas yang diutamakan.    

Pancarian barang dengan menggunakan combo box

Pada umumnya combo box digunakan untuk pencarian data, dalam hal ini kita coba untuk mencari data barang. Mungkin tidak jadi masalah jika barang kita sedikit, tapi jika barang kita banyak sampai ratusan item, kebayang tidak gimana cara mencarinya?

Acces 2007 menyediakan fasilitas untuk mencarinya, caranya yaitu dengan menggunakan combo box.

Buka form entry barang yang telah kita buat sebelumnya, jika anda belum mengikuti artikel pembuatan form. Silakan pelajari disini.

Setelah anda panggil form entry barang yang terlihat seperti gambar dibawah :

Click design view ,click combo box

Pilih find a record….kemudian click next

Setelah itu muncul pesan seperti di bawah ini

Pindahkan kode barang dan nama barang kesebelah kanan click next

Hilangkan centang agar tampak 2 kolom kode barang dan nama barang, selanjutnya anda bisa drag ukuran kolom sesuai keiinginan anda. Kemudian click next ganti labelnya menjadi “ cari barang “ dan finish. Atur posisi yang anda inginkan. Sekarang kita bisa menguji pencarian barangnya.

Ok, sampai disini dulu materi yang kita bahas mengenai combo box dan ikuti terus artikel selanjutnya. 

Kalkulasi data dengan vb

Visual basic ( vb )  merupakan bahasa pemograman yang bisa disebut wajib, ya wajib mengerti, wajib ada, wajib bisa dll. Karena memang kita belajar jadi programer dan semua tehnologi dibangun dari sekumpulan code program. Jadi jika anda alergi dengan code program ya belajar saja memasak..he..he..he. tetapiiiiiiiii mereka para programmer pun mengerti kalau kita mumet sama code2 program jadi sekarang banyak aplikasi yang sudah di otak atik berorentasi pada obyek..artinya urusan code program menjadi tidak banyak kok, Cuma sebatas kebutuhan programmer amatir seperti kita…dan kalau kita sedikit bisa bahasa pemograman, kita bisa dianggap agak pinter computer sama temen2 he…he…he asyikkkan ?!    

yuk, sekarang kita coba otak atik bahasa program.

Pertama kita panggil form entry barang yang telah kita buat sebelumnya, mungkin sudah anda rapikan sepeti ini.

Selanjutnya  kita masuk pada design view. Click tombol simpan, pada property sheet click event, kemudian pada on enter pilih event procedure

Selanjutnya click pada tanda … maka anda akan masuk lembar kerja microsoft visual basic kemudian ketik kode programnya seperti ini :

^{Private Sub cmdsimpan_Enter()}

^{'jika kode barang belum diisi maka semua data gagal diinput}

^{If IsNull(Me.kode_barang) Then}

^{Me.nama_barang.Value = Me.kode_barang.Value}

^{Me.satuan.Value = Me.kode_barang.Value}

^{Me.harga_beli.Value = Me.kode_barang.Value}

^{Me.harga_jual.Value = Me.kode_barang.Value}

^{Me.laba_item.Value = Me.kode_barang.Value}

^{Me.persen.Value = Me.kode_barang.Value}

^{Me.kategori.Value = Me.kode_barang.Value}

^{MsgBox " kode barang belum diisi ", vbInformation, "admin tokoku"}

^{Me.kode_barang.SetFocus}

   

    ^{ElseIf IsNull(Me.nama_barang) Then}

    ^{MsgBox " nama barang belum diisi ", vbInformation, "admin tokoku"}

    ^{Me.nama_barang.SetFocus}

        ^{ElseIf IsNull(Me.satuan) Then}

        ^{MsgBox " satuan belum diisi ", vbInformation, "admin tokoku"}

        ^{Me.satuan.SetFocus}

            ^{ElseIf IsNull(Me.harga_beli) Then}

            ^{Me.harga_jual.Value = Me.harga_beli.Value}

            ^{Me.laba_item.Value = Me.harga_jual.Value}

            ^{Me.persen.Value = Me.laba_item.Value}

            ^{MsgBox " harga beli belum diisi ", vbInformation, "admin tokoku"}

            ^{Me.harga_beli.SetFocus}

                ^{ElseIf IsNull(Me.harga_jual) Then}

                ^{MsgBox " harga jual belum diisi ", vbInformation, "admin tokoku"}

                ^{Me.harga_jual.SetFocus}

                ^{ElseIf IsNull(Me.kategori) Then}

                ^{MsgBox " kategori belum diisi ", vbInformation, "admin tokoku"}

                ^{Me.kategori.SetFocus}

^{End If}

^{End Sub}

Jika sudah tambahkan  juga kode program seperti ini dibawahnya :

^{Private Sub harga_jual_afterupdate()}

                                                    

^{'menghitung laba dan persen}

^{Me.laba_item.Value = Me.harga_jual.Value - Me.harga_beli.Value}

^{Me.persen.Value = (Me.laba_item.Value / Me.harga_beli.Value) * 100}

^{End Sub}

Rubah kode program untuk tombol close dengan cara click event pada on click ganti menjadi event procedure kemudian ketik kode programnya seperti ini :

^{Private Sub Cmdclose_Click()}

^DoCmd.Close

^{End Sub}         

Nah, sekarang kita coba isi semua data barang sebanyak-banyaknya kemudian simpan, sampai disini kultum kita, pada artikel selanjutnya akan kita bahas pencarian barang melalui combo. Jadi ikuti terus kelanjutan artikelnya biar pinter gitu lo !?  

Membuat form entry barang

Jika sebelumnya kita telah belajar membuat tabel barang, sekarang kita coba membuat form untuk menginput data barang, dengan tujuan agar user atau operator hanya akan melakukan tugas atau entry barang melalui sebuah form saja.

Yang pertama kita lakukan adalah buka file database anda ( tokoku ) jika anda belum membuatnya, pelajari artikel disini.

Jika sudah click create pada toolbar dan pilih more form selanjutnya anda click form wizard. Maka anda akan disuguhkan tampilan seperti gambar dibawah ini.

Pindahkan semua field ke kolom sebelah kanan, kemudian click next, akan tampak seperti gambar dibawah ini dan pilih columnar kemudian click next 

Selanjutnya anda akan disuruh memilih tampilan form yang akan kita buat kemudian click next

Selanjutnya akan muncul gambar seperti dibawah ini

Click finish, dan hasilnya seperti ini

Click view dan pilih view design untuk memodifikasinya

Rapikan atau design form anda agar tampak rapi atau sepeti ini

Pada property sheet disini anda bebas memodifikasi form anda, untuk sementara modifikasi dulu sebatas caption dan tampilan font dan warnanya dulu.

Kemudian tambahkan tombol perintah dengan cara click button, pilih categories record operation actionnya add new record, kemudian click next

Pilih text dan beri nama simpan kemudian next

Beri nama cmdsimpan dan finish. Dengan cara yang sama tambahkan tombol perintah hapus dan close.

Ok, sampai disini anda telah belajar dasar membuat form, pada artikel selanjutnya kita akan belajar menggunakan combo dan code vb.