Membuat Program Unit Kegiatan Mahasiswa (UKM) Menggunakan Visual Basic 6.0

Berikut adalah program untuk membuat aplikasi Unit Kegiatan Mahasiswa yaitu Data Anggota dan Data Kegiatan dengan menggunakan Data Base Access dan Visual Basic 6.0. Di Form Unit Kegiatan Mahasiswa terdapat 3 Data Yang tersimpan, dimana sub menu dari menu  adalah  Nama Anggota dan Nama Kegiatan. Sub menu Nama Anggota di gunakan user untuk input Nama, NIM, Jurusan, Angkatan, Jabatan dan No.Telpon. Di dalam sub menu Nama Kegiatan digunakan untuk input nama Kegiatan dan di simpan ke data base. kemudian Menu About dan Menu Exit.

 Tampilan Output Menu UKM

Listing Code :

Private Sub MDIForm_Load()

End Sub

Private Sub mKegiatan_Click()

Form1.Show

End Sub

Private Sub mkgt_Click()

Form2.Show

End Sub

Private Sub mNama_Click()

Form3.Show

End Sub

Tampilan Menu Editor :

Tampilan Data Anggota UKM :

 Listing Code :

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!NIM = tNIM.Text
Adodc1.Recordset!Nama = tNama.Text
Adodc1.Recordset!Jurusan = tJURUSAN.Text
Adodc1.Recordset!Angkatan = tANGKT.Text
Adodc1.Recordset!Jabatan = tJABATAN.Text
Adodc1.Recordset!NO_Telpon = tNO.Text
Adodc1.Recordset.Update
MsgBox " Data Sudah Di simpan !"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "Select * From Data_Anggota"
Adodc1.Refresh
End Sub

Tampilan Data Kegiatan :

Listing Code :

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!Nama_Kegiatan = tNama.Text
Adodc1.Recordset!Tempat = TTempat.Text
Adodc1.Recordset!Waktu = TWaktu.Text
Adodc1.Recordset!Hari = CHari.Text
Adodc1.Recordset!Tanggal = CTanggal.Text
Adodc1.Recordset!Bulan = CBulan.Text
Adodc1.Recordset!Tahun = CTahun.Text
Adodc1.Recordset!Kontak = TKontak.Text
Adodc1.Recordset.Update
MsgBox " Data Sudah Di simpan !"

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "Select * From Data_Kegiatan"
Adodc1.Refresh

CHari.AddItem "Senin"
CHari.AddItem "Selasa"
CHari.AddItem "Rabu"
CHari.AddItem "Kamis"
CHari.AddItem "Jum'at"
CHari.AddItem "Sabtu"
CHari.AddItem "Minggu"

CTanggal.AddItem "1"
CTanggal.AddItem "2"
CTanggal.AddItem "3"
CTanggal.AddItem "4"
CTanggal.AddItem "5"
CTanggal.AddItem "6"
CTanggal.AddItem "7"
CTanggal.AddItem "8"
CTanggal.AddItem "9"
CTanggal.AddItem "10"
CTanggal.AddItem "11"
CTanggal.AddItem "12"
CTanggal.AddItem "13"
CTanggal.AddItem "14"
CTanggal.AddItem "15"
CTanggal.AddItem "16"
CTanggal.AddItem "17"
CTanggal.AddItem "18"
CTanggal.AddItem "19"
CTanggal.AddItem "20"
CTanggal.AddItem "21"
CTanggal.AddItem "22"
CTanggal.AddItem "23"
CTanggal.AddItem "24"
CTanggal.AddItem "25"
CTanggal.AddItem "26"
CTanggal.AddItem "27"
CTanggal.AddItem "28"
CTanggal.AddItem "29"
CTanggal.AddItem "30"
CTanggal.AddItem "31"


CBulan.AddItem "Januari"
CBulan.AddItem "Febuari"
CBulan.AddItem "Maret"
CBulan.AddItem "April"
CBulan.AddItem "Mai"
CBulan.AddItem "Juni"
CBulan.AddItem "Juli"
CBulan.AddItem "Agustus"
CBulan.AddItem "September"
CBulan.AddItem "October"
CBulan.AddItem "November"
CBulan.AddItem "Desember"

CTahun.AddItem "2011"
CTahun.AddItem "2012"
CTahun.AddItem "2013"
CTahun.AddItem "2014"
CTahun.AddItem "2015"
CTahun.AddItem "2016"
CTahun.AddItem "2017"
CTahun.AddItem "2018"
CTahun.AddItem "2019"
CTahun.AddItem "2020"


End Sub