Program Pengisian Data Nilai Mahasiswa Dengan Visual Basic 6.0 dan Database MySQL

Alat dan bahan yang harus dipersiapkan:

1. Software Visual Basic 6.0
2. Software XAMPP
3. Driver ODBC untuk MySQL

Untuk memulai pemrograman dengan Visual BASIC, jalankan program Microsoft Visual BASIC 6.0. Selanjutnya pada tampilan awal akan ditampilkan kotak dialog New Project seperti pada gambar dibawah ini:

Tampilan Untuk Membuat Project Baru

 Pada kotak dialog tersebut terdapat 3 buah tab yang terdiri dari :

1. New (menampilkan daftar pilihan untuk membuat project baru)

2. Existing (untuk browsing dan membuka project)

3. Recent (untuk membuka project yang sering digunakan)

Untuk membuat program pertama kali pilih tab New, pilih Standard EXE lalu klik Open. Slenanjutnya muncul tampilan utama Visual BASIC 6.0 seperti pada gambar dibawah ini :

Tampilan Awal Project Baru

Untuk membuat project ini disini saya menggunakan komponen Microsoft ADO Data Control 6.0, serta komponen ToolBox menggunakan MSFlexgrid dan OLE Data Control, seperti gambar berikut:

Tampilan Menambahkan Komponen ToolBox

Icon MSFlexgrid Pada ToolBox

• MSFlexGrid

MSFlexGrid berfungsi untuk menentukan sebuah data ditempatkan dalam suatu tabel tertentu, data yang disimpan pada database mysql ataupun access point dapat ditampilkan pada suatu kolom ataupun baris yang ditentukan dalam tabel tersebut.

• OLE Data Control

Pada bagian OLE Data berfungsi untuk memanggil isi data dari database yang tersedia pada MySQL maupun Access Point untuk dieksekusi dan diteruskan oleh MSFlexGrid tersebut.

• Perancangan Program

Pada kali ini saya telah merancang sebuah program data nilai mahasiswa yang terdiri dari masukan (input), pengubahan (edit), penghapusan (delete) dan pencarian data (searching), berikut tampilan dari program yang saya buat:

Tampilan Form Login

Pada perancangan program Login (masuk) ini saya gunakan USERNAME dan PASSWORD, tujuan dibuatkannya form login ini agar hanya seseorang admin sajalah yang dapat mengubah menambahkan maupun menghapus dalam program data nilai mahasiswa tersebut.

Tampilan Program Pengisian Nilai Mahasiswa Pada VB 6.0 Yang Telah Dibuat

Dari alur pemograman yang saya gunakan adalah pertama saya mebuat desain yang terdiri dari NPM, NAMA, PRODI, JENIS KELAMIN, MATA KULIAH dan nilai mata kuliah yang akan diinputkan yang terdiri dari TUGAS, QUIS, UTS, UAS.

Selanjutnya adalah perancangan program pencarian (searching) untuk kategori Mata Kuliah tertentu yang dapat menampilakan data yang akan dituju, data tersebut terdiri dari mata kuliah Etika Profesi, Pengantar Telekomunikasi, Jaringan Komputer, Interface, Keamanan IT dan Komunikasi Data.

Pada tampilan tabel yang terdapat dibagian bawah adalah suatu data yang telah dimasukan (input) ke dalam database MySQL lalu ditampilkan dalam tabel yang bernama tabel MSFlexFGrid, tujuan menampilkan sebuah data yang telah diinputkan adalah agar mahasiswa dapa melihat informasi yang diperoleh selama pembelajaran yang telah dilaksanakan selama satu semester.

• Tipe Data Yang Digunakan

Tipe data adalah jenis data yang disimpan dalam variable, tipe data kali ini yang digunakan untuk masing-masing TextBox dan ComboBox adalah sebagai berikut:

1. Text1 untuk variabel NPM saya gunakan VARCHAR dengan panjang data 20 (Primary Key)
2. Text2 untuk variabel NAMA saya gunakan VARCHAR dengan panjang data 30
3. Text4 untuk variabel TUGAS saya gunakan INT dengan panjang data 10
4. Text5 untuk variabel QUIS saya gunakan INT dengan panjang data 10
5. Text6 untuk variabel UTS saya gunakan INT dengan panjang data 10
6. Text7 untuk variabel UAS saya gunakan INT dengan panjang data 10
7. Combo1 untuk variabel PRODI saya gunakan enum
8. Combo2 untuk variabel MATA KULIAH saya gunakan enum
9. Combo3 untuk variabel JENIS KELAMIN saya gunakan enum

• Hasil Dan Pembahasan

Setelah melakukan perancangan serta pemograman sebuah aplikasi data nilai mahasiswa selanjutnya adalah pengecekan program yang telah dibuat, pertama-tama adalah menginputkan suatu data mahasiswa beserta nilai mata kuliah, sebagai berikut:

Tampilan Program Setelah Berjalan Untuk Pengisian Data Nilai Mahasiswa

Dari tampilan diatas adalah hasil input data dan nilai mahasiswa kedalam database MySQL, dari keluaran data yang telah disimpan maka akan ditampilkan kembali dalam tabel MSFlexGrid. 

• Pencarian Data

Setelah memasukan data nilai mahasiswa selanjutnya adalah pencarian data mata kuliah yang telah disimpan dalam database tersebut, kini saya memprogram pencarian dengan metode If Else, contohnya sebagai berikut:

Tampilan Pencarian Data Yang Telah Dimasukan

Dari gambar 4.2 telah dilakukan pencarian berdasarkan mata kuliah, jadi setiap mata kuliah yang akan dicari maka prosesnya adalah looping (berulang-ulang) sampai ditemukannya data yang dituju, setelah data ditemukan maka data ditampilkan kembali dalam tabel berdasarkan mata kuliah yang dicari.

• Penghapusan Data

Setelah dilakukannya pencarian data, selanjutnya adalah melakukan penghapusan data dari database, tujuan dihapusnya data tersebut adalah bila mahasiswa yang telah keluar (drop out) maka data dapat dihapus oleh seorang admin, berikut adalah tampilan data yang akan dihapus:

Tampilan Penghapusan Data

Dalam tampilan penghapusan data tersebut bahwa data yang dipilih hanya satu data saja, untuk melakukan penghapusan kita klik terlebih dahulu data dalam tabel lalu klik HAPUS maka akan mucul dialog “Anda Yakin Menghapus Data Ini?” lalu klik “Yes” untuk melanjutkan proses penghapusan.

Untuk Source Code (Kode Sumber) FORM LOGIN:

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String

Private Sub Command1_Click()
If Trim(Text1.Text = "haris") And Trim(Text2.Text = "1234") Then
MsgBox ("Terima Kasih Telah Login")
Form2.Show
Form1.Hide
Else: MsgBox ("Password Anda Salah!!!")
End If
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
End
End Sub

Untuk Source Code (Kode Sumber) FORM PROGRAM NILAI MAHASISWA:

Private Sub Command1_Click()
Set Rs_mhs = New ADODB.Recordset
Rs_mhs.Open "SELECT * FROM mhs WHERE nrp='" & Text1.Text & "'", _
KonekDb, adOpenDynamic, adLockBatchOptimistic
If Rs_mhs.BOF Then
SQLsimpan = ""
SQLsimpan = "INSERT INTO mhs (nrp,nama,jurusan,matkul,jk,tugas,quis,uts,uas)" _ & " VALUES('" & Text1.Text & "','" & Text2.Text & "','" _ & Combo1.Text & "','" & Combo2.Text & "','" & Combo3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"
KonekDb.Execute SQLsimpan, , adCmdText
Call Form_Load
MsgBox "Data Baru Telah Disimpan!", vbOKOnly + vbInformation, "INFO"
Else
MsgBox "NPM Sudah Tersedia!", vbOKOnly + vbInformation, "INFO"
End If
    Rs_mhs.Requery
    Call kosong
    Call TampilGridData
End Sub

Private Sub Command2_Click()
SQLubah = "UPDATE mhs " _ & " set nama='" & Text2.Text & "', " & " tugas='" & Text4.Text & "', " & " quis='" & Text5.Text & "', " & " uts='" & Text6.Text & "', " & " uas='" & Text7.Text & "', " _ & " jurusan='" & Combo1.Text & "' " _ & " WHERE nrp='" & Text1.Text & "'"
KonekDb.Execute SQLubah, , adCmdText
Call kosong
Call Form_Load

MsgBox "Data Mahasiswa Telah Diubah!", vbOKOnly + vbInformation, "Konfirmasi"
'Rs_mhs.Requery
Call TampilGridData
End Sub

Private Sub Command3_Click()
hapus = MsgBox("Anda Yakin Menghapus Data Ini?", vbQuestion + vbYesNo, "Hapus")
If hapus = vbYes Then
sql = "DELETE FROM mhs WHERE nrp='" & Text1.Text & "'"
KonekDb.Execute sql, , adCmdText
        Call kosong
        Call TampilGridData
    Else
    Call kosong
End If
End Sub

Private Sub Command4_Click()
    End
End Sub

Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
End Sub

Private Sub Command5_Click()
Form1.Show
Form2.Hide
End Sub

Private Sub Command6_Click() 'cari
On Error GoTo salah
Dim Rs_mhs As ADODB.Recordset
If Combo4.Text = "Mata Kuliah" Then
    Set Rs_mhs = KonekDb.Execute("select * from mhs where matkul like '%" & Text3.Text & "%'")


End If
If Not Rs_mhs.EOF Then
'posisi baris data awal=0
        n = 0
        Rs_mhs.MoveFirst
        'Melakukan perulangan untuk menampilkan data dengan kondisi jika tidak end of file
        While Not Rs_mhs.EOF
            n = n + 1
            MSFlexGrid1.Rows = n + 1
            MSFlexGrid1.TextMatrix(n, 0) = Rs_mhs(0)
            MSFlexGrid1.TextMatrix(n, 1) = Rs_mhs(1)
            MSFlexGrid1.TextMatrix(n, 2) = Rs_mhs(2)
            MSFlexGrid1.TextMatrix(n, 3) = Rs_mhs(3)
            MSFlexGrid1.TextMatrix(n, 4) = Rs_mhs(4)
            MSFlexGrid1.TextMatrix(n, 5) = Rs_mhs(5)
            MSFlexGrid1.TextMatrix(n, 6) = Rs_mhs(6)
            MSFlexGrid1.TextMatrix(n, 7) = Rs_mhs(7)
            MSFlexGrid1.TextMatrix(n, 8) = Rs_mhs(8)
            MSFlexGrid1.TextMatrix(n, 9) = Rs_mhs(9)
        Rs_mhs.MoveNext
        Wend
    Else
    'jika tidak ditemukan data
    n = 0
    'menghapus semua data dengan menyisahkan 2 baris untuk nama kolom dan satunya kosong
        MSFlexGrid1.Clear
        MSFlexGrid1.Rows = 1
        MSFlexGrid1.TextMatrix(0, 0) = "NPM"
        MSFlexGrid1.TextMatrix(0, 1) = "NAMA"
        MSFlexGrid1.TextMatrix(0, 2) = "JURUSAN"
        MSFlexGrid1.TextMatrix(0, 3) = "MATA KULIAH"
        MSFlexGrid1.TextMatrix(0, 4) = "JENIS KELAMIN"
        MSFlexGrid1.TextMatrix(0, 5) = "TUGAS"
        MSFlexGrid1.TextMatrix(0, 6) = "QUIS"
        MSFlexGrid1.TextMatrix(0, 7) = "UTS"
        MSFlexGrid1.TextMatrix(0, 8) = "UAS"
        MSFlexGrid1.TextMatrix(0, 9) = "RATA"
 End If
 Exit Sub
salah:
 'MsgBox "Data Ditemukan", vbInformation + vbOKOnly, "Informasi"
 End Sub
 
Private Sub Form_Load()
    Call BukaDatabase
    Call TampilGridData
    Call cbo
    
    Combo1.Clear
    Combo1.AddItem "Teknik Komputer"
    Combo1.AddItem "Teknik Informatika"
    Combo1.AddItem "Analisis Kimia"
    Combo1.AddItem "Manajemen Informatika"
    Combo2.Clear
    Combo2.AddItem "Etika Profesi"
    Combo2.AddItem "Pengantar Telekomunikasi"
    Combo2.AddItem "Jaringan Komputer"
    Combo2.AddItem "Interface"
    Combo2.AddItem "Keamanan IT"
    Combo2.AddItem "Komunikasi Data"
    Combo3.Clear
    Combo3.AddItem "Laki-Laki"
    Combo3.AddItem "Perempuan"
End Sub

Private Sub MSFlexGrid1_Click()
    On Error Resume Next
    GridBaris = MSFlexGrid1.Row
    
Set Rs_mhs = New ADODB.Recordset
Rs_mhs.Open " SELECT * FROM mhs WHERE nrp='" & MSFlexGrid1.TextMatrix(GridBaris, 0) & "' " _
, KonekDb, adOpenDynamic, adLockOptimistic
    
If Rs_mhs.BOF Then
MsgBox "Belum Ada Data Yang Tersedia!", vbOKOnly + vbInformation, "Perhatian"
        Exit Sub
        Call kosong
    Else
        Rs_mhs.MoveFirst
        Do While Not Rs_mhs.EOF
            On Error Resume Next
            Text1.Text = Rs_mhs!nrp
            Text2.Text = Rs_mhs!nama
            Combo1.Text = Rs_mhs!jurusan
            Combo2.Text = Rs_mhs!matkul
            Combo3.Text = Rs_mhs!jk
            Text4.Text = Rs_mhs!tugas
            Text5.Text = Rs_mhs!quis
            Text6.Text = Rs_mhs!uts
            Text7.Text = Rs_mhs!uas
        Rs_mhs.MoveNext
        Loop
    End If
End Sub

Sub TampilGridData()
    Dim Baris As Integer
    MSFlexGrid1.Clear
    Call Aktifgridmhs
    MSFlexGrid1.Rows = 2
    Baris = 0
    
Set Rs_mhs = New ADODB.Recordset
Rs_mhs.Open "SELECT * FROM mhs", KonekDb, adOpenDynamic, adLockOptimistic

If Rs_mhs.BOF Then
MsgBox "Data Mahasiswa Masih Kosong!", vbOKOnly + vbInformation, "Perhatian"
Exit Sub
    Else
        With Rs_mhs
        .MoveFirst
        Do While Not .EOF
            On Error Resume Next
            Baris = Baris + 1
            MSFlexGrid1.Rows = Baris + 1
            MSFlexGrid1.TextMatrix(Baris, 0) = !nrp
            MSFlexGrid1.TextMatrix(Baris, 1) = !nama
            MSFlexGrid1.TextMatrix(Baris, 2) = !jurusan
            MSFlexGrid1.TextMatrix(Baris, 3) = !matkul
            MSFlexGrid1.TextMatrix(Baris, 4) = !jk
            MSFlexGrid1.TextMatrix(Baris, 5) = !tugas
            MSFlexGrid1.TextMatrix(Baris, 6) = !quis
            MSFlexGrid1.TextMatrix(Baris, 7) = !uts
            MSFlexGrid1.TextMatrix(Baris, 8) = !uas
            MSFlexGrid1.TextMatrix(Baris, 9) = (Val(!tugas) + Val(!quis) + Val(!uts) + Val(!uas)) / 4
        .MoveNext
        Loop
        End With
    End If
End Sub

Sub Aktifgridmhs()
    With MSFlexGrid1
        .Cols = 10
    
        .RowHeightMin = 300
        .Col = 0
        .Row = 0
        .Text = "NPM"
        .CellFontBold = True
        .ColWidth(0) = 2000
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 1
        .Row = 0
        .Text = "NAMA"
        .CellFontBold = True
        .ColWidth(1) = 2500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 2
        .Row = 0
        .Text = "JURUSAN"
        .CellFontBold = True
        .ColWidth(2) = 2000
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 3
        .Row = 0
        .Text = "MATA KULIAH"
        .CellFontBold = True
        .ColWidth(3) = 2000
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 4
        .Row = 0
        .Text = "JENIS KELAMIN"
        .CellFontBold = True
        .ColWidth(4) = 1500
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 5
        .Row = 0
        .Text = "TUGAS"
        .CellFontBold = True
        .ColWidth(5) = 700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 6
        .Row = 0
        .Text = "QUIS"
        .CellFontBold = True
        .ColWidth(6) = 700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 7
        .Row = 0
        .Text = "UTS"
        .CellFontBold = True
        .ColWidth(7) = 700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 8
        .Row = 0
        .Text = "UAS"
        .CellFontBold = True
        .ColWidth(8) = 700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
        .Col = 9
        .Row = 0
        .Text = "RATA"
        .CellFontBold = True
        .ColWidth(9) = 700
        .AllowUserResizing = flexResizeColumns
        .CellAlignment = flexAlignCenterCenter
        
    End With
End Sub

Private Sub cbo()
With Combo4
    .Clear
    .AddItem "Mata Kuliah"
    End With
End Sub

Untuk Source Code (Kode Sumber) KONEKSI 'MODULE':

Option Explicit
Public KonekDb As New ADODB.Connection
Public Rs_pulsa As New ADODB.Recordset
Public SQLubah, SQLsimpan, SQLhapus As String
Sub BukaDatabase()
    Dim strSS, strPort, strDB, strUID, strPWD As String
    
            strSS = "localhost"
            strPort = "3306"
            strDB = "latihansqldb"
            strUID = "root"
            strPWD = ""
    
    Set KonekDb = New ADODB.Connection
    KonekDb.CursorLocation = adUseClient
    
KonekDb.ConnectionString = "" _
        & "DRIVER={MYSQL ODBC 3.51 Driver};" _
        & "SERVER=" & strSS & ";" _
        & "DATABASE=" & strDB & ";" _
        & "UID=" & strUID & ";" _
        & "PWD=" & strPWD & ";" _
        & "OPTION="
                    
    On Error Resume Next
    If KonekDb.State = adStateOpen Then
        KonekDb.Close
        Set KonekDb = New ADODB.Connection
        KonekDb.Open
    Else
        KonekDb.Open
    End If

    If Err.Number <> 0 Then
        MsgBox "GAGAL KONEKSI SERVER", vbOKOnly, "Kesalahan"
    End If
End Sub

Note: Untuk menggunakan database MySQL saya sudah sediakan pada alamat berikut: klik, setelah didownload lalu import database tersebut, dalam keadaan aktif xampp masuk ke web browser lalu ketikan "http://localhost/phpmyadmin/" buat database-nya (create database) dengan nama "latihansqldb" , buka database yang telah dibuat lalu klik menu import lalu pilih file yang sudah didownload tadi.

Semoga Bermanfaat Dalam Pembuatan "Program Pengisian Data Nilai Mahasiswa" ini.