√ Instruksi Listing Riwayat Login Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Konten [Tampil]

Setelah kita melihat contoh aplikasi jadwal penerimaan siswa gres sekolah mengemudi memakai visual basic 6.0, selanjutnya kita akan menciptakan form Riwayat Login.

Pertama-tama buat terlebih dahulu formnya menyerupai dibawah ini, juga beri name masing-masing :

1. Buatlah Sub gres dengan nama Sub tampil () dan pastekan instruksi berikut :

Call koneksi
rsdatalogin.Open "select*from riwayatlogin", KON
Set grid.DataSource = rsdatalogin

2. Buatlah Sub gres dengan nama Sub aktifadmin() dan pastekan instruksi berikut :

fmenu.mlog.Enabled = True
fmenu.mganti.Enabled = True
fmenu.mdata.Enabled = True
fmenu.mdatauser.Enabled = True fmenu.mdatabiaya.Enabled = True
fmenu.mdatasiswa.Enabled = False
fmenu.mriwayat.Enabled = True
fmenu.mlogout.Enabled = True
fmenu.mloguser.Enabled = False
fmenu.mmobil.Enabled = True
fmenu.mjam.Enabled = True

3. Buatlah form_load() dan pastekan instruksi berikut :

thapusall.Enabled = False
Me.Width = 13425
Me.Height = 7110
Me.Left = 100

Baca Juga

Me.Top = 0

4. Klik pada clihat dan pastekan instruksi berikut (deklarasi=click):

Call tampil
thapusall.Enabled = True

5. Klik pada bmenu dan pastekan instruksi berikut (deklarasi=click):

a = MsgBox("Yakin Untuk Menutup Form Ini Dan kembali ke Menu Utama ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
friwayat.Hide Call aktifadmin
End If

6. Klik pada thapusall dan pastekan instruksi berikut (deklarasi=click):

Call koneksi
a = MsgBox("Yakin Untuk Menghapus semua Riwayat Login ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
rsdatalogin.Open "TRUNCATE TABLE riwayatlogin", KON
Call tampil
End If

Sumber http://www.hendrisetiawan.com

berbagi jawaban 5

√ Instruksi Listing Riwayat Login Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Menu Halaman Statis