Membuat Program Input Data Dosen Menggunakan Visual Basic 6.0

Membuat program input data dosen dengan vb 6.0 sangat mudah, tergantung kita yang sudah memahami atau tidak nya koding yang ada pada aplikasi visual basic 6.0. di karena bahasa program yang semakin berkembang hingga saat ini kita hanya perlu memahami bahasa inggris dan algoritma. membuat coding input data dosen ini pastinya sudah di ajarkan di bangku kuliah bagi jurusan IT namun ada juga yang ingin belajar secara otodidak.

Sebelum membuat project input data dosen ini pertama kali kita siapkan sebuah database dan query yang di butuhkan. database untuk pemula saya sarankan menggunakan database microsoft Access, di karenakan database ini free dan mudah di gunakan. jika kamu belum tau cara membuat database baca artikel kita sebelumnya tentang membuat database menggunakan microsoft Access. setelah database kita buat maka kita sudah bisa lanjut ke proses pembuatan program data dosen.

Oke anggap saja kita sudah selesai membuat project, tapi jika di lihat project data dosen ini belum sempurna, ibarat kaki tanpa sandal, maksud nya alangkah baiknya project data dosen ini di buat menu tampilan awal layaknya sebuah aplikasi raksasa yang bertebaran salah satunya visual basic 6.0 ini. baca membuat menu awal pada visual basic 6.0.

Membuat Project Input Data Dosen

Pertama Buka Aplikasi Visual Basic 6.0 >> File >> New Project >> Standart EXE. Kemudian ikuti sesuai dengan isi tabel berikut :

Langkah selanjutnya klik View Code yang berada di atas kanan, kemudian isi atau pastekan kode berikut di dalamnya :

 Private Sub Ccari_Click()
Dim cari As String
cari = InputBox("KETIK NIDN YANG ANDA CARI")
rc.Open "Select * from Dosen where NIDN = '" & cari & "' ",konek,adOpenKeyset,adLockPessimistic
If rc.EOF = False Then
T1 = rc!NIDN
T2 = rc!Nama
Combo1 = rc!Jekel
Combo2 = rc!PENDD
T3 = rc!Jurusan
T4 = rc!Lulusan
T5 = rc!Alamat
T6 = rc!NoHP
Else
    MsgBox "NIDN YANG ANDA MASUKKAN TIDAK COCOK...!",vbCritical,"Kesalahan"
End If
rc.Close
End Sub

Private Sub Cclear_Click()
Call BERSIH
End Sub

Private Sub Chapus_Click()
If T1 = "" Or T2 = "" Or Combo1 = "Pilih" Or Combo2 = "Pilih" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Then
MsgBox ("SILAHKAN CARI SEBELUM DI HAPUS!!"),vbCritical,"PERINGATAN...!"
Else
'Perintah Untuk Menghapus
konek.Execute "delete from Dosen where NIDN='" & T1 & "'"
Call BERSIH
MsgBox "Data '" & T1 & "' Telah Berhasil Di Hapus",vbInformation,"Berhasil"
End If
End Sub

Private Sub Ckeluar_Click()
Unload Me
End Sub

Private Sub Cperbaharui_Click()
If T1 = "" Or T2 = "" Or Combo1 = "Pilih" Or Combo2 = "Pilih" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Then
MsgBox ("SILAHKAN CARI SEBELUM DI PERBAHARUI"),vbCritical,"PERINGATAN...!"
Else
rs.Open "Select * from Dosen where NIDN = '" & T1 & "' ",konek,adOpenKeyset,adLockPessimistic
If rs.EOF = False Then
tanya = MsgBox("NIDN:" & T1 & " ditemukan! " & vbCrLf & "Apakah Ingin Di Update?",vbYesNo,"Tanya")
If tanya = vbYes Then
konek.Execute "update Dosen set Nama='" & T2 & "',Jekel='" & Combo1 & "',Pendd='" & Combo2 & "',Jurusan='" & T3 & "',Lulusan='" & T4 & "',Alamat='" & T5 & "',NoHP='" & T6 & "' where NIDN='" & T1 & "'"
MsgBox "Data Telah Di Perbaharui ....",vbInformation,"Informasi"
End If
rs.Close
End If
End If
End Sub

Sub BERSIH()
T1 = ""
T2 = ""
Combo1 = "Pilih"
Combo2 = "Pilih"
T3 = ""
T4 = ""
T5 = ""
T6 = ""
End Sub

Private Sub Csimpan_Click()
If T1 = "" Or T2 = "" Or Combo1 = "Pilih" Or Combo2 = "Pilih" Or T3 = "" Or T4 = "" Or T5 = "" Or T6 = "" Then
MsgBox ("DATA TIDAK BOLEH ADA YANG KOSONG...!" & vbNewLine & "PERIKSA KEMBALI...!"),vbCritical,"PERINGATAN...!"
Else
rs.Open "Select * from Dosen where NIDN = '" & T1 & "' ",konek,adOpenKeyset,adLockPessimistic
If rs.EOF = False Then
MsgBox "DATA YANG TELAH ADA TIDAK BISA DI SIMPAN " & vbNewLine & "HANYA BISA DI PERBAHARUI",vbInformation,"Informasi"
Else
konek.Execute "insert into Dosen values('" & T1 & "','" & T2 & "','" & Combo1 & "','" & Combo2 & "','" & T3 & "','" & T4 & "','" & T5 & "','" & T6 & "')"
MsgBox "Data Telah Di Simpan",vbInformation,"Informasi"
Call BERSIH
End If
rs.Close
End If

End Sub

Private Sub Form_Activate()
T1.SetFocus
End Sub

Private Sub Form_Load()
Combo1.AddItem "Laki-Laki"
Combo1.AddItem "Perempuan"
Combo2.AddItem "D3"
Combo2.AddItem "S1"
Combo2.AddItem "S2"
End Sub

Private Sub T1_Change()
T1.MaxLength = 8

End Sub

Private Sub T1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Rb.Open "select * from Dosen where NIDN='" & T1 & "'",konek,adOpenKeyset,adLockPessimistic
If Rb.EOF = False Then
MsgBox "NIDN SUDAH TERDAFTAR !!",vbCritical,"Informasi"
T1 = ""
Else
T2.SetFocus
End If
Rb.Close
End If
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
End If
End Sub

Penjelasan :

1) Pada Ccari :

- Disini kita menggunakan inputbox yang berfungsi untuk memasukkan NIDN dosen yang ingin kita cari supaya lebih mudah dan akurat.

- kemudian membuka table database berdasarkan NIDN, jika data yang di cari ditemukan di dalam database maka akan menampilkan datanya, jika tidak di temukan maka akan menambilkan messege bahwa data dengan NIDN yang di cari tidak di temukan.

2) Pada Form Load :

- pada form load disitu kita menggunakan additem untuk mengisi list pada combo yang telah kita buat tadi.

3) Pada T1_Change :

- disitu kita lihat maxchange = 8, artinya ketika kita menginput sesuatu di dalam textbox maka akan bisa terisi sebanyak 8 huruf. inilah yang biasa di gunakan sebagai kode barang, nim, nidn, supaya text yang di input tidak berlebihan.

Baiklah sekian Membuat Program Input Data Dosen Menggunakan Visual Basic 6.0 Jika ada yang kurang di mengerti bisa di tanyakan di kolom komentar. terimakasih :)