1 / 51

TOKO ELEKTRONIK

TOKO ELEKTRONIK. PEMROGRAMAN VISUAL II. CEK SOFTWARE. Microsoft Visual Basic 6.0 Apache2Triad / Xampp Mysql-connector-odbc-3.51 atau 5.1.10-win32 Web Browser (Mozilla Firefox, Google Chrome, Opera). MEMBUAT DATABASE. Buka Web Browser (Mozilla Firefox, Google Chrome, Opera)

isaura
Download Presentation

TOKO ELEKTRONIK

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. TOKO ELEKTRONIK PEMROGRAMAN VISUAL II

  2. CEK SOFTWARE • Microsoft Visual Basic 6.0 • Apache2Triad / Xampp • Mysql-connector-odbc-3.51 atau 5.1.10-win32 • Web Browser • (Mozilla Firefox, Google Chrome, Opera)

  3. MEMBUAT DATABASE • Buka Web Browser • (Mozilla Firefox, Google Chrome, Opera) • Pada Address bar Ketikkan • localhost/phpmyadmin • 3. Muncultampilansepertidibawahini

  4. MEMBUAT DATABASE • Buatdatabasedengannama : Elektronik • Buattabeldidalam database Elektronik • BarangPelangganPengguna

  5. MEMBUAT PROGRAM • Start  Microsoft Visual Studio 6.0  Microsoft Visual Basic 6.0 • Pilih Project dengan Standard EXE • Setelahtampillembarkerja visual basic pertama kali pastikan

  6. MEMBUAT PROGRAM 4. Tambahkan component baru

  7. MEMBUAT PROGRAM 5. Tambahkan MDI Form

  8. MEMBUAT PROGRAM • Pada form biasabuattampilan form untuk login • Co :

  9. MEMBUAT PROGRAM 7. Untuk MDI Form buattampilan form Menu Utama Co :

  10. MEMBUAT PROGRAM Denganketentuan Menu Utama, sebagaiberikut :

  11. MEMBUAT PROGRAM 8. Buat Module untukkoneksidengan database

  12. Tampilan Program • TampilanAwal Program

  13. Tampilan Program • Jikaterjadikesalahanpadasaatmenginput id penggunaatau password munculpesansepertidibawahini

  14. Tampilan Program • TombolMasukaktifjika ID Penggunadan Password sudahbenardansesuai

  15. Tampilan Program • Tampilan Menu Utamasetelahberhasil Login

  16. MEMBUAT PROGRAM Listing koneksidenganmenggunakan Module : Ket : Public namavariabel As New ADODB.kebutuhan  pendeklarasianvariabeluntukkoneksi Set namavariabel = New ADODB.kebutuhan  menyetingvariabeluntuk database

  17. MEMBUAT PROGRAM Listing general, button keluardan form load :

  18. MEMBUAT PROGRAM Listing textbox id pengguna :

  19. MEMBUAT PROGRAM Listing textbox password:

  20. MEMBUAT PROGRAM Listing button masuk:

  21. MEMBUAT PROGRAM Pengolahan Status Bar : 1. KlikKananpada status bar  Properties

  22. MEMBUAT PROGRAM TampilanJendela Properties

  23. MEMBUAT PROGRAM 2. Buka Tab Panels Jumlah Panel Lebar Panel

  24. Membuat Form Master Tambahkan Form Baru :

  25. Membuat Form Master TambahkanKomponenBaru (Ctrl T) :

  26. Tampilan Form Pengguna MSHFlexgrid

  27. Tampilan Form Pengguna Nama Object : Tid Tnama Tpass Ttelp Opta, Optk Bbatal, Bsimpan, Bhapus, Bubah, Bkeluar MSHFlexgrid

  28. Tampilan Form Pengguna Simpan Form terlebihdahuludidalam folder yang samadenganmenuutamadan form login :

  29. Ketentuan Form : • Padasaat form dijalankansemua textbox, option, bbatal, bsimpan, bhapusdanbubahdalamkeadaannonaktif. Kecuali textbox tid • Masukkan ID pengguna, lakukanpencarian, • jika ID yang diinputbelumada, makasemua textbox, Tombolbataldansimpanaktif. • Jika ID yang diinputsudahada, munculpesankemudian data ditampilkan. Tombolbatal, hapusdanubahaktif.

  30. Ketentuan Form : • KlikTombolBatal, semua textbox, option dan button dalamkeadaannonaktif, kecualiTiddanbkeluar. • KlikTombolSimpan, data yang telahdiinputtersimpankedalam database. Tampildi Grid. • KlikTombolHapus, Data terhapus • KlikTombol Edit, Data yang bisadiedithanya password, telpdanakses • KlikTombolKeluar, munculpesanuntukkeluardari form pengguna

  31. Listing Program: Buat Sub ProocedureAktif, BersihdanNonaktif

  32. Listing Program: Buat Sub Tampil Grid :

  33. Listing Program: Listing Form Active dan Form Load:

  34. Listing Program: Listing bkeluardanbhapus:

  35. Listing Program: Listing bsimpan: simpan = "insert into pengguna values('" & tid.Text & "','" & tnama.Text & "','" & tpass.Text & "','" & ttelp.Text & "','" & a & "')" Diketikdalam 1 baris

  36. Listing Program:

  37. Listing Program: Listing bubah: perbarui = "update pengguna set password='" & tpass.Text & "',telp='" & ttelp.Text & "',akses='" & a & "' where idpengguna='" & tid.Text & "'" Diketikdalam 1 baris

  38. Listing Program: Listing bbatal:

  39. Tampilan Form Barang Buatlahtampilan form barangsepertidibawahini :

  40. Ketentuan Form • Padasaat form dijalankansemua textbox, Combo, bsimpandalamkeadaannonaktif. • Kliktombol input, kodebarangmunculotomatisdiTkodedengan format: • EL001  001 merupakannomorurut • bsimpanaktif, bhapus, bubah, bkeluarnonaktif • binputcaptionnyaberubahmenjadiBatal. • Input data barang, kliktombolsimpan, data tersimpankedalam database dantampildi grid • KlikTombolBatal, semua textbox, Combo danbsimpandalamkeadaannonaktif.

  41. Ketentuan Form • KlikTombolHapus, jika textbox/combo dalamkeadaanbersih/kosongmunculmuncul input box, jikatidakmaka data akanterhapus • KlikTombolUbah, ketentuansamasepertitombolhapus. Yang bisadiubah, hanyaharga, stokdanketerangan • KlikTombolKeluar, munculpesanuntukkeluardari form Barang

  42. Listing Program: Buat Sub ProocedureAktif, BersihdanNonaktif

  43. Listing Program: Buat Sub Tampil Grid :

  44. Listing Program: Buat Sub Tampil Data:

  45. Listing Program: Buat Sub penomoranotomatis:

  46. Listing Program: Buat listing untukhapus:

  47. Listing Program: Buat listing untuksimpan: simpan = "insert into barang values('" & tkode & "','" & tnama & "','" & tmerk & "','" & ttipe & "','" & tharga & "','" & tstok & "','" & tket & "')"

  48. Listing Program: Buat listing untuktambah:

  49. Listing Program: Buat listing untukubah: perbarui = "update barang set harga='" & tharga.Text & "',stok='" & tstok.Text & "',ketbrg='" & tket.Text & "' where kdbrg='" & tkode.Text & "'"

  50. Listing Program: Buat listing untuk form aktif, tharga, tstokdankeluar:

More Related