PROGRAM VB Mengkoneksikan Database Ke Microsoft Visiual Basic 6.0


Bismillahirahmanirahimmm :) ..
Program vb sebelumnya telah menjelaskan tentang menghubungkan database secara manual, nah kali ini kita akan membuat program yang terhubung dengan database dengan kodingan (kode).

Langkah pertama, membuat databasenya dahulu yaaaa J

Ms. Access ~> Buat 3 tabel

 1. tabel 1 beri nama admin3 (dengan field id_admin, nama, password, username, nim, status, alamat asal_sekolah, tanggal_lahir, berat, tinggi, ideal). Kosongkan field alamat, asal_sekolah, tanggal_lahir, berat, tinggi, ideal dan isi field status isi dengan 0.

 2. tabel 2 beri nama identitas (dengan field no, nim, nama, alamat, asal_sekolah, tanggal_lahir, berat, tinggi, ideal). 

 3. tabel 3 beri nama admin (dengan field no, id_admin, nama, username, password, status). Statusya dibuat 0 dulu yaa, gunanya untuk menentukan yang mana data yang te;ah diisi atau belum.

 Langkah kedua, buka Microsoft Visual Basic 6.0


Siapkan komponen:
1.     Microsoft ADO Data Control 6.0 (OLEDB)
2.     Microsoft Datagrid Contro; 6.0 (OLEDB)
3.     Microsoft Calender Control 8.0

Setelah menyiapkan komponen, yuk mulai membuat ngoding. Etss sebelum ngoding, buat dulu tampilannya yukk .. program kali ini kita hanya menggunakan satu form, nah object yang dibutuhkan sebagai berikut:
Form 1

Object
properties
Event
Form1
BorderStyle : 0-None
StartUpPosition : 1 - CentreOwner
Load()
Adodc1
Visible: false

Calendar1
TitleFontColor: &H80000004&
Click()
CommandButton1
Caption: X
Click()
CommandButton2
Caption: &LOGIN
Click()
CommandButton3
Caption: &LOGOUT
Visible: False
Click()
CommandButton4
Caption: Isi Data Pribadi
Visible: False
Click()
CommandButton5
Caption: Lihat Data Pribadi
Visible: False
Click()
CommandButton6
Caption: Isi Data Orang Lain
Visible: False
Click()
CommandButton7
Caption: Semua Data
Visible: False
Click()
CommandButton8
Caption: Data Telah Diisi
Visible: False
Click()
CommandButton9
Name: cmdsubmit
Caption: &SUBMIT
Visible: False
Click()
DataGrid1
Visible: False

DataGrid2
Visible: False

DataGrid3
Visible: False

DataGrid4
Visible: False

Label1
Caption:

Label2
Caption:

Label3
Caption:

Label4
Caption: Create by: Izzah Tiari

Label5
Name: lblideal
Caption: Berat Ideal:
BorderStyle: 1 – Fixed Single
Click()
Label6
Name: lbltanggal
Caption: Tanggal Lahir
BorderStyle: 1 – Fixed Single

Text1
Name: TextPass
Text: Password
GotFocus()
LostFocus()
Text2
Name: TextUser
Text: Username
GotFocus()
LostFocus()
Text3
Name: txtalamat
Text: Alamat
GotFocus()
LostFocus()
Text4
Name: txtasal
Text: Asal Sekolah
GotFocus()
LostFocus()
Text5
Name: txtberat
Text: Berat Badan (KG)
GotFocus()
LostFocus()
Text6
Name: txtnama
Text: Nama

Text7
Name: txtnim
Text: Nim

Text8
Name: txttinggi
Text: Tinggi Badan (CM)
GotFocus()
LostFocus()

Module 1

object
properties
Event
Module1



view kode module1 dan ketik kode dibawah ini:












view kode form1 lalu ketik:

<1> Buat variabel



<2> Klik 2x pada kalender, dan ketik kode berikut:






<3> kode untuk tombol cmdSubmit ~ tombol input data




































<4> untuk tombol keluar







<5> kode untuk tombol login
















<6> untuk tombol logout



















<7> untuk tombol isi data pribadi




































<8> kode saat tombol lihat data pribadi diklik







<9> kode untuk tombol "lihat data orang lain" , "semua data" , "data telah diisi" , dan lbl untuk tanggal lahir (mengeluarkan kalender dan mengambil data dari kalender)














<10> prosedur saat projectnya dijalankan. load pada form ..























<11> untuk tampilan input text, getfocus (saat teks masukkan mendapatkan fokus) dan lostfocus (saat teks masukkan hilang fokus)



















<12> sama dengan poin 11























lanjutan ...























tutorial lengkap silakan download code di sini

Komentar

Posting Komentar

Postingan populer dari blog ini

Siapa Pemimpin Merdeka Belajar?

Gambar
Pemimpin merdeka belajar yaitu pemimpin yang mengatur sendiri proses belajarnya. Pemimpin merdeka belajar sangatlah penting karena pemimpin merupakan penggerak perubahan pendidikan yang siap mengantisipasi perubahan baik di lingkungan internal maupun eksternal sekolah serta melakukan perubahan tersebut secara berkelanjutan. Hal tersebut membutuhkan perubahan pada diri sendiri untuk mengembangkan kemampuannya. Pemimpin merdeka belajar memiliki tiga ciri , yaitu : 1. Komitmen terhadap tujuan. Seorang pemimpin yang komitmen terhadap tujuan yang akan dicapai sekolah selalu menjadikan tujuan sebagai acuan dalam mengambil keputusan dan akan selalu fokus pada tujuan yang akan dicapai walaupun ada godaan mendapatkan manfaat jangka pendek. 2. Mandiri terhadap cara. Seorang pemimpin mengatur prioritas tindakan yang akan dilakukan untuk mencapai tujuan, memilih cara dan strategi yang adaptif berdasarkan sumberdaya yang dimiliki, dan mengatasi tantangan yang dapat menghambat pencapaian tujuan. 3. ...
Baca selengkapnya

Rencana Tindak Lanjut (RTL)

Gambar
Sebelum menyusun Rencana Tindak Lanjut (RTL), kami SRB Prov. Lampung tahun 2022 berkolaborasi dalam Grup Chat untuk menyusun rencana. Lalu mengatur waktu pertemuan dengan PGRI Kab. Way Kanan untuk berkolaborasi dalam kegiatan RumBEL-TIK Way Kanan 2022. Pertemuan tersebut diwakilkan oleh rekan-rekan SRB Kab. Way Kanan dan Ketua SLCC PGRI Kab. Way Kanan antara lain Bu Valentina Dewi ACB (Sita), Pak Nur Kodri, Pak Taufiqurrahman, Bu Izzah Tiari (saya), dan Bu Desmala Dewi. Dokumentasi PGRI Kab. Way Kanan Saya juga meminta izin kepada Kepala Sekolah SMK Negeri 2 Banjit Bpk. Asrudin, S.P. untuk mendapatkan restu dan dukungan kegiatan yang akan saya dan rekan-rekan SRB laksanakan baik secara Daring maupun Luring.   Dokumentasi dengan Kepala SMK Negeri 2 Banjit Berikut Rencana Tindak Lanjut yang sudah saya susun. 
Baca selengkapnya

Webinar RumBel #1

Gambar
Assalamualaikum bestie RumBel pada ikut Workshop RumBel-TIK Way Kanan tidak? Apapun jawabannya, tetap teh botol sosr*, eh bukan bukan hehe... Flyer Workshop RumBel-TIK Way Kanan merupakan Forum Rumah Belajar TIK dari Way Kanan yang mengkolaborasikan 5 SRB dengan PGRI Kab. Way Kanan. Sekaligus memperingati Hari Guru Nasional (HGN) dan HUT PGRI ke-77 Tahun 2022 Kab. Way Kanan yang turut mengundang Bapak. Machiavelli Herman. T., S.STP., M.Si. (Kepala Dinas Pendidikan Kab. Way Kanan) dan Bapak. M. Ilyas Effendi, M.Pd. (Ketua PGRI Prov. Lampung). Kami khususnya mengucapkan banyak terima kasih kepada PGRI Kab. Way Kanan yang mengizinkan sekaligus memfasilitasi kami dalam kegiatan RumBel-TIK Way Kanan 2022. Pelaksanaan #1 Senin, 24 Oktober 2022 Pada pertemuan terdiri dari Pembukaan Acara dan Materi dari 2 Narasumber SRB Prov. Lampung. Pembukaan acara pertama dibuka oleh MC sekaligus Moderator Ibu Desmala Dewi dengan menyambut Pak Aan Primadona R, M.Pd. selaku Ketua PGRI Kab. Way Kanan, dilanj...
Baca selengkapnya