√ Instruksi Listing Riwayat Login Penerimaan Siswa Gres Sekolah Mengemudi Vb6

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
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