Make Damn Sure

Iseng-iseng buka folder side project di komputer, saya mikir kenapa ga di posting aja..kali aja bisa bantu orang laen yang kira-kira butuh contoh program Visual Basic 6. Aplikasi yang pernah saya buat yaitu aplikasi input data untuk Sertifikasi HATHI Dinas Pekerjaan Umum. Dari keseluruhan program saya tampilkan contoh form input data dan koneksi database melalui Microsoft Access sebagai garis besarnya saja

Langkah Pertama buat database melalui Microsoft Access. Pilih Blank database serta save pada direktori yang anda inginkan

Save Tabel menjadi TabelSertifikasi lalu klik DesignView. Isi Field Name dengan KTA, Nama, Bidang Keahlian Domain, Angka Kredit, Kualifikasi, Nomor Sertifikasi HATHI, Nomor Registrasi LPJK, Masa Berlaku Sertifikat dan Cabang. Untuk Primary Key pilih di field KTA. Saya memberikan semua data type = text pada semua field karena input semua field tidak selalu berupa angka (number). Seperti gambar dibawah ini

Klik DatasheetView lalu masukkan field-field seperti dibawah ini dengan data yang akan diinput sampai selesai lalu save.

Langkah berikutnya buka aplikasi visual basic 6

Pada layar New Project pilih Standard EXE lalu klik open. Maka akan muncul tampilan sebagai berikut

Masukkan Frame pada form lalu perbesar ukurannya. Selanjutnya masukkan 9 buah Label, 9 buah Text Box, 5 buah Command Button, sebuah Adodc dan sebuah DataGrid. Apabila pada panel belum tersedia Adodc dan DataGrid, bisa dicari melalui Project – Reference.

Ubah Properties semua Label , CommandButton, Label, TextBox, Adodc dan DataGrid pada panel properties seperti dibawah ini

Frame : Caption : Data Sertifikasi HATHI

Label1 – Caption : KTA

Label2 – Caption : Nama

Label3 – Caption : Bidang Keahlian Domain

Label4 – Caption : Angka Kredit

Label5 – Caption : Kualifikasi

Label6 – Caption : Nomor Sertifikasi HATHI

Label7 – Caption : Nomor Registrasi LPJK

Label8 – Caption : Masa Berlaku Sertifikat

Label9 – Caption : Cabang

TextBox1 hingga TextBox9 – Text : Blank (kosongkan saja)

CommandButton1 – Caption : &Save

CommandButton2 – Caption : &Delete

CommandButton3 – Caption : &Clear

CommandButton4 – Caption : &Exit

Adodc – Name : adoSertifikasi, Caption : Sertifikasi, CommandType : 2 adCmdTabel

Untuk Adodc, Connection stringnya pilih use connection string (Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\BARU\DinasPU.mdb;Persist Security Info=False) – build – select or enter a database name-pilih database yang telah dibuat lalu test connection-Ok

DataGrid – Data source : adoSertifikasi

Hingga tampilannya menjadi seperti dibawah ini

Untuk Code semua CommandButton diatas adalah :

Button Save :

Private Sub Command1_Click()

adoSertifikasi.Recordset.Fields("KTA") = Text1.Text

adoSertifikasi.Recordset.Fields("Nama") = Text2.Text

adoSertifikasi.Recordset.Fields("Bidang Keahlian Domain") = Text3.Text

adoSertifikasi.Recordset.Fields("Angka Kredit") = text4.Text

adoSertifikasi.Recordset.Fields("Kualifikasi") = Text5.Text

adoSertifikasi.Recordset.Fields("Nomor Sertifikasi HATHI") = Text6.Text

adoSertifikasi.Recordset.Fields("Nomor Registrasi LPJK") = Text7.Text

adoSertifikasi.Recordset.Fields("Masa Berlaku Sertifikat") = Text8.Text

adoSertifikasi.Recordset.Fields("Cabang") = Text9.Text

adoSertifikasi.Recordset.Update

End Sub

Button Delete :

Private Sub Command3_Click()

Confirm = MsgBox("Apakah anda ingin menghapus record ini?", vbYesNo, "Deletion Confirmation")

If Confirm = vbYes Then

adoSertifikasi.Recordset.Delete

MsgBox "Record Deleted!", , "Message"

Else

MsgBox "Record Not Deleted!", , "Message"

End If

End Sub

Button Clear :

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

End Sub

Button Exit :

Private Sub Command4_Click()

Unload Me

End Sub

Jalankan program. Klik Run maka hasilnya seperti dibawah ini

Untuk program tersebut anda bisa memodifikasi tampilan sampai form tambahan seperti form login. Caranya ga jauh beda kok.

Tips dari saya :

1. Tambah terus ilmu dan pengetahuan source program Visual Basic dari internet

2. Selalu buat file backup program tersebut bila sewaktu-waktu program tersebut ga sengaja kehapus

3. Bila program masih error tanyakan pada yang lebih mengerti atau cari arti kesalahan tersebut di internet

4. Jangan pernah lupa untuk men-save program anda coz kita ga pernah tau kapan tiba-tiba listrik mati atau ngejepret (bahasa mana ini).. Kalo lupa ngesave trus listrik mati, nikmatilah nasib anda hahahahaha

5. Ngerjain ini program paling mantep waktu tengah malem ditemenin kopi, rokok, sama alunan musik postal service
   

Gunakanlah ilmu komputer yang anda miliki untuk mencari uang . Jangan pernah merasa ilmu anda hanya untuk mendapatkan ijazah dan melamar pekerjaan. Bukannya mau pamer tapi cuma mau berbagi pengalaman. Saya pernah diminta tolong buat ngedesain leaflet suatu organisasi di Bandung, ngedesainnya aja cuma sejam pake Corel Draw dan ga kepikiran untuk matok tarif coz udah kenal sama yang minta tolong. Ujung-ujungnya dikasi amplop yang isinya lumayan buat beli jeans levi’s original. Trus buat aplikasi database dapet amplop yang nilainya lumayan buat ditabung en wisata kuliner ampe kenyang plus dikasi Flashdisk 4 GB.

Next Project ..Website Bandung Discovery with Joomla. Mudah-mudahan lancar en bisa diposting disini