KOde Listing Riwayat Login Penerimaan Siswa Baru Sekolah mengemudi VB6

Advertisement
Setelah kita melihat contoh aplikasi program penerimaan siswa baru sekolah mengemudi menggunakan visual basic 6.0, selanjutnya kita akan membuat form Riwayat Login.
Pertama-tama buat terlebih dahulu formnya seperti dibawah ini, juga beri name masing-masing :

1. Buatlah Sub baru dengan nama Sub tampil () dan pastekan kode berikut :
 Call koneksi
 rsdatalogin.Open "select*from riwayatlogin", KON
 Set grid.DataSource = rsdatalogin




2. Buatlah Sub baru dengan nama Sub aktifadmin() dan pastekan kode 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 kode berikut :
thapusall.Enabled = False
Me.Width = 13425
Me.Height = 7110
Me.Left = 100
Me.Top = 0

4. Klik pada clihat dan pastekan kode berikut (deklarasi=click):
Call tampil
thapusall.Enabled = True




5. Klik pada bmenu dan pastekan kode 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 kode 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


0 Komentar untuk "KOde Listing Riwayat Login Penerimaan Siswa Baru Sekolah mengemudi VB6"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!
Baca Aturan Berkomentar

Back To Top