Cara Membuat Program Untuk Unit Kegiatan Mahasiswa Dengan Menggunakan Visual Besic 6.0

Berikut adalah program untuk membuat aplikasi untuk Unit Kegiatan Mahasiswa yaitu  Data Anggota dan data Kegiatan serta tampilan Data Kegiatan UKM dengan menggunakan Data Base  dengan menggunakana program  Visual Basic 6.

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 menginput Nama,NIM,Jurusan,Angkatan,Jabatan dan No.Telpon.
didalam sub menu Nama Kegiatan digunakan untuk menginput nama Kegiatan yang akan kita kerja yang akan di simpan ke data base. kemudian Menu About dan Menu Exit.

 Tampilan Output

           a.     Tampilan Output  Menu UKM

code source :

Private Sub MDIForm_Load()

End Sub

Private Sub mKegiatan_Click()

Form2.Show

End Sub

Private Sub mkgt_Click()

Form3.Show

End Sub

Private Sub mNama_Click()

Form1.Show

End Sub

  b.     Tampilan Pembuatan Menu UKM

c.      Tampilan Output Menu Data Anggota UKM

code source :

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub CSimpan_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 Form_Load()

Adodc1.RecordSource = "Select * From Data_Anggota"

Adodc1.Refresh

End Sub

d.  Tampilan output  Nama_Kegiatan

Code source :

Private Sub CBatal_Click()

Unload Me

End Sub

Private Sub CSimpan_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 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

e.     TAmpilan Output Untuk Menampilkan Nam_Kegiatan Di dalam Data Base VB

Source Kode

Private Sub CHapus_Click()

Unload Me

End Sub

Private Sub CTampil_Click()

Adodc1.RecordSource = "Select * From Data_kegiatan where Nama_Kegiatan  like '%" & TKegiatan.Text & "%'"

Adodc1.Refresh

baris = 1

While Not Adodc1.Recordset.EOF

fg1.Rows = fg1.Rows + 1

fg1.Row = baris

fg1.Col = 0

fg1.Text = baris

fg1.Col = 1

fg1.Text = Adodc1.Recordset!Waktu

fg1.Col = 2

fg1.Text = Adodc1.Recordset!Nama_Kegiatan

fg1.Col = 3

fg1.Text = Adodc1.Recordset!Tempat

fg1.Col = 4

fg1.Text = Adodc1.Recordset!Hari

fg1.Col = 5

fg1.Text = Adodc1.Recordset!Tanggal

fg1.Col = 6

fg1.Text = Adodc1.Recordset!Bulan

fg1.Col = 7

fg1.Text = Adodc1.Recordset!Tahun

fg1.Col = 8

fg1.Text = Adodc1.Recordset!Kontak

Adodc1.Recordset.MoveNext

baris = baris + 1

Wend

End Sub

Private Sub Form_Load()

fg1.Row = 0

fg1.Col = 0

fg1.Text = "No"

fg1.Col = 1

fg1.Text = "Waktu"

fg1.Col = 2

fg1.Text = "Nama Kegiatan"

fg1.Col = 3

fg1.Text = "Tempat"

fg1.Col = 4

fg1.Text = "Hari"

fg1.Col = 5

fg1.Text = "Tanggal"

fg1.Col = 6

fg1.Text = "Bulan"

fg1.Col = 7

fg1.Text = "Tahun"

fg1.Col = 8

fg1.Text = "Kontak"

fg1.ColWidth(0) = 500

fg1.ColWidth(1) = 900

fg1.ColWidth(2) = 3000

fg1.ColWidth(3) = 3000

fg1.ColWidth(4) = 1000

fg1.ColWidth(5) = 900

fg1.ColWidth(6) = 900

fg1.ColWidth(7) = 900

fg1.ColWidth(8) = 1500

End Sub