Membuat Program Input Data Dosen Menggunakan Visual Basic 6.0

Membuat aktivitas 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 alasannya bahasa aktivitas yang semakin berkembang sampai ketika ini kita hanya perlu memahami bahasa inggris dan algoritma. membuat coding input data dosen ini pastinya sudah di ajarkan di dingklik kuliah bagi jurusan IT namun ada juga yang ingin berguru 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. kalau kau belum tau cara membuat database baca artikel kita sebelumnya perihal membuat database menggunakan microsoft Access. setelah database kita buat maka kita sudah mampu lanjut ke proses pembuatan aktivitas data dosen.

oke anggap saja kita sudah tamat membuat project, tapi kalau di lihat project data dosen ini belum sempurna, mirip 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 instruksi 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 semoga lebih mudah dan akurat.

- kemudian membuka table database berdasarkan NIDN, kalau data yang di cari ditemukan di dalam database maka akan menampilkan datanya, kalau 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 mampu terisi sebanyak 8 huruf. inilah yang biasa di gunakan sebagai instruksi barang, nim, nidn, semoga text yang di input tidak berlebihan.

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