510 likes | 695 Views
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)
E N D
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) • Pada Address bar Ketikkan • localhost/phpmyadmin • 3. Muncultampilansepertidibawahini
MEMBUAT DATABASE • Buatdatabasedengannama : Elektronik • Buattabeldidalam database Elektronik • BarangPelangganPengguna
MEMBUAT PROGRAM • Start Microsoft Visual Studio 6.0 Microsoft Visual Basic 6.0 • Pilih Project dengan Standard EXE • Setelahtampillembarkerja visual basic pertama kali pastikan
MEMBUAT PROGRAM 4. Tambahkan component baru
MEMBUAT PROGRAM 5. Tambahkan MDI Form
MEMBUAT PROGRAM • Pada form biasabuattampilan form untuk login • Co :
MEMBUAT PROGRAM 7. Untuk MDI Form buattampilan form Menu Utama Co :
MEMBUAT PROGRAM Denganketentuan Menu Utama, sebagaiberikut :
MEMBUAT PROGRAM 8. Buat Module untukkoneksidengan database
Tampilan Program • TampilanAwal Program
Tampilan Program • Jikaterjadikesalahanpadasaatmenginput id penggunaatau password munculpesansepertidibawahini
Tampilan Program • TombolMasukaktifjika ID Penggunadan Password sudahbenardansesuai
Tampilan Program • Tampilan Menu Utamasetelahberhasil Login
MEMBUAT PROGRAM Listing koneksidenganmenggunakan Module : Ket : Public namavariabel As New ADODB.kebutuhan pendeklarasianvariabeluntukkoneksi Set namavariabel = New ADODB.kebutuhan menyetingvariabeluntuk database
MEMBUAT PROGRAM Listing general, button keluardan form load :
MEMBUAT PROGRAM Listing textbox id pengguna :
MEMBUAT PROGRAM Listing textbox password:
MEMBUAT PROGRAM Listing button masuk:
MEMBUAT PROGRAM Pengolahan Status Bar : 1. KlikKananpada status bar Properties
MEMBUAT PROGRAM TampilanJendela Properties
MEMBUAT PROGRAM 2. Buka Tab Panels Jumlah Panel Lebar Panel
Membuat Form Master Tambahkan Form Baru :
Membuat Form Master TambahkanKomponenBaru (Ctrl T) :
Tampilan Form Pengguna MSHFlexgrid
Tampilan Form Pengguna Nama Object : Tid Tnama Tpass Ttelp Opta, Optk Bbatal, Bsimpan, Bhapus, Bubah, Bkeluar MSHFlexgrid
Tampilan Form Pengguna Simpan Form terlebihdahuludidalam folder yang samadenganmenuutamadan form login :
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.
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
Listing Program: Buat Sub ProocedureAktif, BersihdanNonaktif
Listing Program: Buat Sub Tampil Grid :
Listing Program: Listing Form Active dan Form Load:
Listing Program: Listing bkeluardanbhapus:
Listing Program: Listing bsimpan: simpan = "insert into pengguna values('" & tid.Text & "','" & tnama.Text & "','" & tpass.Text & "','" & ttelp.Text & "','" & a & "')" Diketikdalam 1 baris
Listing Program: Listing bubah: perbarui = "update pengguna set password='" & tpass.Text & "',telp='" & ttelp.Text & "',akses='" & a & "' where idpengguna='" & tid.Text & "'" Diketikdalam 1 baris
Listing Program: Listing bbatal:
Tampilan Form Barang Buatlahtampilan form barangsepertidibawahini :
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.
Ketentuan Form • KlikTombolHapus, jika textbox/combo dalamkeadaanbersih/kosongmunculmuncul input box, jikatidakmaka data akanterhapus • KlikTombolUbah, ketentuansamasepertitombolhapus. Yang bisadiubah, hanyaharga, stokdanketerangan • KlikTombolKeluar, munculpesanuntukkeluardari form Barang
Listing Program: Buat Sub ProocedureAktif, BersihdanNonaktif
Listing Program: Buat Sub Tampil Grid :
Listing Program: Buat Sub Tampil Data:
Listing Program: Buat Sub penomoranotomatis:
Listing Program: Buat listing untukhapus:
Listing Program: Buat listing untuksimpan: simpan = "insert into barang values('" & tkode & "','" & tnama & "','" & tmerk & "','" & ttipe & "','" & tharga & "','" & tstok & "','" & tket & "')"
Listing Program: Buat listing untuktambah:
Listing Program: Buat listing untukubah: perbarui = "update barang set harga='" & tharga.Text & "',stok='" & tstok.Text & "',ketbrg='" & tket.Text & "' where kdbrg='" & tkode.Text & "'"
Listing Program: Buat listing untuk form aktif, tharga, tstokdankeluar: