JAWABAN UJIAN PEMROG. VISUAL

JUDUL USULAN PROYEK :
PEMBUATAN APLIKASI MAINTENACE DATA MAHASISWA 

ABSTRAKSI

Aplikasi ini dibuat dengan tujuan untuk dapat menginputkan data Mahasiswa, mengedit data Mahasiswa dan menghapus data Mahasiswa serta menampilkan data yang sudah terimpan. Database yang digunakan adalah Microsoft Access. Aplikasi ini menggunakan  metode ADO dan control ADODC untuk menghubungkan data dengan form. Aplikasi ini memiliki dua form. Form pertama untuk Maintenance data dan form kedua untuk menampilkan data yang tersimpan. Untuk maintenance data digunakan tombol dari command button. Setiap sebelum atau setelah menginputkan data, mengedit data atau menghapus data akan tampil pesan (MsgBox). Data Mahasiswa yang disimpan adalah :

1. Nomor Induk Mahasiswa (NIM)
2. Nama
3. Alamat
4. Kota
5. Nomor Telepon
6. Tempat Lahir
7. Tanggal Lahir
8. Asal Perguruan Tinggi
9. Jurusan asal

 Sesuai dengan usulan yang sudah saya ajukan, berikut ini adalah penjelasan dari projek saya.

Tampilan Form 1

Tampilan Form 2

Struktur tabel yang saya gunakan adalah sebagai berikut :

Penjelasan untuk Form 1

Untuk menghubungkan antara Form dengan tabel Mhs, maka syntax programnya adalah seperti berikut:

Public conMHS As New ADODB.Connection
Public rsMHS As New ADODB.Recordset
conMHS = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
conMHS.Open ConnectionString
rsMHS.Open “select * from mhs”, conMHS, adOpenKeyset, adLockOptimistic

Apabila belum memasukkan NRP, dan menekan tombol Enter pada Keybord akan keluar pesan untuk memasukkan NRP. Setelah memasukkan NRP, akan dicek lagi apakah NRP yang dimasukkan sudah tersimpan dalam tabel atau belum. Apabila sudah, akan tampil semua datanya. Apabila belum tersimpan akan muncul pesan apakah mau mengisikan data baru atau tidak. Jika sudah mengisikan semua data dan menekan tombol SIMPAN, maka akan keluar pesan bahwa DATA SUDAH TERSIMPAN.Untuk UPDATE DATA, sebelumnya harus diinputkan dulu NRP. Setelah NRP dimasukkan dan data ada, data akan ditampilkan. Setelah data ditampilkan ubahlah data yang dirasa kurang tepat. Setelah melakukan perubahan data, tekan tombol UPDATE DATA. Kemudian akan tampil pesan bahwa DATA TELAH DIUPDATE dan TERSIMPAN.

Untuk mengecek apakah NRP sudah tersimpan atau belum menggunkan syntax seperti berikut ini:

Private Sub txtNRP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If txtNRP.Text = “” Then
        MsgBox “ISIKAN NRP!”, vbCritical + vbOKOnly, “ISI DATA”
    Else
    rsMHS.Find “NRP=’” & txtNRP.Text & “‘”, , adSearchForward, 1
        If rsMHS.EOF = True Then
            psn = MsgBox(“DATA BELUM TERSIMPAN DALAM TABEL” & Chr(13) & “AKAN ISI DATA BARU ?”, vbInformation + vbYesNo, “KONFIRMASI DATA”)
            If psn = vbYes Then
                Call bersih2
                txtNAMA.SetFocus
            End If
        Else
            Call tampil_data
        End If
    End If
End If
End Sub

Untuk menyimpan data gunakan syntax berikut ini:

Private Sub cmdSIMPAN_Click()
If txtNRP.Text = “” Then
Call cek
txtNRP.SetFocus
Else
    With rsMHS
        .AddNew
        .Fields(“NRP”) = txtNRP.Text
        .Fields(“NAMA”) = txtNAMA.Text
        .Fields(“ALAMAT”) = txtAlmt.Text
        .Fields(“KOTA”) = txtKOTA.Text
        .Fields(“TELP”) = txtTELP.Text
        .Fields(“TEMPATLAHIR”) = txtTMPT.Text
        .Fields(“TGLLAHIR”) = txtTTL.Text
        .Fields(“ASALSEKOLAH”) = txtPT.Text
        .Fields(“JURUSANS1″) = cboJUR.Text
        .Update
    End With
    psn = MsgBox(“DATA TELAH TERSIMPAN” & Chr(13) & “APAKAH INGIN MENGISI DATA LAGI ?”, vbInformation + vbOKCancel, “SIMPAN DATA”)
   
    If psn = vbOK Then
        Call bersih
    Else
        txtNRP.SetFocus
    End If
End If
End Sub

Untuk menyimpan perubahan data, gunakan syntax:

Private Sub cmdEDIT_Click()
If txtNRP.Text = “” Then
    Call cek
    txtNRP.SetFocus
Else
    With rsMHS
        .Fields(“NRP”) = txtNRP.Text
        .Fields(“NAMA”) = txtNAMA.Text
        .Fields(“ALAMAT”) = txtAlmt.Text
        .Fields(“KOTA”) = txtKOTA.Text
        .Fields(“TELP”) = txtTELP.Text
        .Fields(“TEMPATLAHIR”) = txtTMPT.Text
        .Fields(“TGLLAHIR”) = txtTTL.Text
        .Fields(“ASALSEKOLAH”) = txtPT.Text
        .Fields(“JURUSANS1″) = cboJUR.Text
        .Update
    End With
    MsgBox “DATA TELAH TERUPDATE”, vbInformation + vbOKOnly, “UPDATE DATA”
End If
End Sub
 

Untuk HAPUS DATA, sama dengan proses sebelumnya harus memasukkan NRP terlebih dahulu. Setelah data yang dimaksud tampil dan menekan tombol HAPUS DATA akan tampil pesan APAKAH BENAR AKAN MENGHAPUS DATA? Kalau menekan tombol YES, maka data akan dihapus. Jika menekan tombol NO maka kursor akan aktif pada text box NRP dan data tidak terhapus. syntax yang digunakan adalah sebagai berikut :

Private Sub cmdHAPUS_Click()
If txtNRP.Text = “” Then
    Call cek
    txtNRP.SetFocus
    Else
    psn = MsgBox(“APAKAH BENAR INGIN MENGHAPUS DATA INI?”, vbQuestion + vbYesNo, “KONFIRMASI HAPUS”)
    If psn = vbYes Then
        rsMHS.Delete
        Call bersih
    Else
        txtNRP.SetFocus
    End If
End If
End Sub

Tombol DAFTAR MAHASISWA digunakan untuk menampilkan form2 yang berisi data mahasiswa. Tombol KELUAR untuk menutup form dan keluar dari aplikasi.Penjelasan untuk Form 2
Form 2 digunakan untuk menampilkan data-data mahasiswa yang tersimpan dalam tabel MHS. Control yang digunakan adalah Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB).Untuk menghubungkan data dengan form, pada Event Form load, tuliskan syntax seperti berikut :Private Sub Form_Load()
Adodc1.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\MHS.mdb;Persist Security Info=False”
Adodc1.RecordSource = “select * from mhs order by nrp”
Adodc1.Refresh
DataGrid1.Refresh
End Sub

Agar antara ADODC dengan DataGrid terhubung, pada properties DataSource isikan dengan nama ADODC1.

Tombol MAINTENANCE DATA digunakan untuk menampilkan Form1 dan menutup Form2.

Tombol KELUAR digunakan untuk keluar dari Aplikasi.

Pada file berikut dapat didownload dan dipelajari lebih jelas.   FILE MAINTENANCE

Selamat belajar.

Advertisement