Contoh Latihan Soal VB1 "Data Karyawan"

Sebuah perusahaan ingin membuat sistem penginputan data karyawan yang terkomputerisasi anda sebagai programmer diminta untuk membuatkannya.

Langkah pertama adalah membuat database baru dengan nama data_karyawan dengan format .mdb menggunakan MS. Access yang mendukung dengan Visual Basic versi 6.0.

Kemudian buat sebuah tabel baru dengan nama karyawan seperti berikut :

Jika tabel sudah selesai kemudian klik tombol atau pada bagian atas. Tutup MS. Access dan sekarang buka Visual Basic nya.

Buat tampilan form nya seperti berikut :

Komponen yang dipakai adalah Label, Textbox, Combobox, CommandButton dan untuk Koneksinya menggunakan ADODC dan DataGrid.

Untuk komponen ADODC dan Datagrid perlu ditambahkan pada Tools Box sebelah kiri jika belum ada. Caranya :

Kemudian Checklist (Centang) pada Checkbox komponen ADODC dan DataGrid seperti berikut :

Yang ditunjukan oleh tanda panah no.1 adalah komponen untuk ADODC sedangkan panah no.2 adalah untuk DataGrid. Jika sudah dicentang kemudian klik OK seperti yang ditunjukan oleh tanda panah no. 3 diatas.

Rancangan Form telah selesai sekarang semua komponen yang sudah kita buat dalam form, beri nama untuk setiap objek atau komponen. Caranya :

1. Klik Objek/Komponen yang ingin kita beri nama

2. Lihat dibagian kanan (Properties nya), cari kolom (name) pada bagian paling atas.

Lihat gambar dibawah ini :

kemudian ganti text1 dengan nama yang diinginkan dan gampang diingat atau tidak usah diganti pun tidak masalah, namun harus dihafal dan diingat nama tersebut. Dalam pembahasan kali ini text1 diganti dengan txtnik .

Setelah textbox NIK, name nya diubah maka sekarang name dari komponen-komponen yang lain kita ubah, seperti pada gambar dibawah ini :

teks yang berwarna merah dan kuning merupakan name yang diganti pada bagian properties seperti pada langkah sebelumnya. untuk DataGrid dan ADODC tidak diganti pada pembahasan kali ini namun jika ingin digantipun tidak masalah.

Sekarang koneksikan Form Data Karyawan dengan Database Tabel Karyawan yang sudah dibuat sebelumnya. Caranya Klik Kanan pada ADODC dan pilih ADODC Properties :

kemudian akan muncul :

Pilih option Use Connection String dan klik Build... maka kemudian akan muncul :

Untuk provider koneksi karena databasenya dibuat menggunakan MS. Access maka untuk providernya menggunakan Microsoft Jet 4.0 OLE DB Provider seperti pada gambar diatas.

Jika sudah klik NEXT maka muncul :

Jangan dulu klik Test Connection seperti yang ditunjukan panah berwarna orange diatas.

Kemudian pada kolom pertama yang ditunjukan dengan tanda kotak merah diatas itu dimaksudkan untuk memilih database mana yang akan dikoneksikan. cara memilih atau mencari databasenya klik tombol disebelah kanan (yang ditunjukan dengan panah berwarna hijau) diatas kemudian muncul :

cari file database yang tadi sudah dibuat. Jika sudah ketemu klik filenya dan klik  Open atau Buka maka tampilannya akan menjadi :

Lihat pada kolom yang ditunjukan oleh tanda kotak berwarna merah diatas. Jika muncul alamat databasenya berarti database sudah diinputkan. langkah selanjutnya adalah klik tombol Test Connection seperti pada gambar sebelumnya yang ditunjukan tanda panah berwarna orange berangkakan dua.

Jika koneksinya benar maka akan muncul Message Box / Kotak Pesan seperti berikut :

Klik OK saja.

Setelah koneksi selesai. kemudian beralih pada RecordSource . Maksudnya adalah memilih tabel mana yang nantinya akan digunakan didalam form. langkah tadi hanya memilih databasenya saja. sekarang kita pilih tabelnya. Caranya :

1. Klik tab RecordSource yang ditunjukan dengan arah panah merah.

2. Klik ComboBox Command Type dan pilih 2 - adCmdTable seperti yang ditunjukan oleh panah hijau.

    Maksudnya adalah tipe perintah atau tipe databasenya yang akan dipakai. karena datanya berbentuk tabel maka pilih no 2 yaitu adCmdTable.

3. Klik ComboBox Table or Stored Procedure Nama dan pilih karyawan seperti yang ditunjukan oleh panah kuning.

4. Kemudian klik Ok.

OK. BAGUS! Untuk masalah koneksi benar-benar selesai. Namun ketika Form dijalankan atau di RUN maka ADODC akan terlihat. untuk membuat ADODC tidak terlihat ketika form dijalankan.
Caranya adalah :
1. Klik pada ADODC nya kemudian
2. Lihat pada bagian Propertiesnya dan cari kolom Visible ubah menjadi False. Lihat gambar :

Sekarang kita akan tampilkan data tabel karyawan yang ada didalam ADODC pada DataGrid. Caranya :
1. Klik DataGrid nya
2. Lihat pada bagian Properties nya. Cari kolom DataSource dan pilih Adodc1 (Susuai dengan (name) ADODC masing-masing. Karena pada pembahasan kali ini ADODC (name) nya tidak di ubah maka (name)dari ADODC ini pun masih tetap sama Adodc1)

Jika sudah. Tampilkan Tabel Karyawan langsung didalam DataGrid. Caranya :
Klik Kanan pada DataGrid nya dan pilih Retrieve Fields seperti pada gambar dibawah ini :

Maka akan muncul :

Klik Yes atau Ya. Dan lihat hasilnya pada DataGridnya :

KERJA BAGUS!
Sekarang saatnya pengkodean atau listing.
berikut listingan lengkapnya :

Private Sub cmdbatal_Click() Call nonaktif Call bersih End Sub Private Sub cmdhapus_Click() If MsgBox("Yakin akan dihapus?", vbYesNo + vbQuestion, "Konfirmasi") = vbYes Then Adodc1.Recordset.Delete End If End Sub Private Sub cmdkeluar_Click() a = MsgBox("Yakin akan keluar?", vbYesNo + vbQuestion, "Konfirmasi") If a = vbYes Then End End If End Sub Private Sub cmdsimpan_Click() With Adodc1.Recordset Adodc1.Recordset.Find "nik = '" & txtnik & "'", , adSearchForward If Adodc1.Recordset.EOF Then .AddNew !nik = txtnik.Text !nama = txtnama.Text !jabatan = cmbjabatan.Text !bagian = cmbbagian.Text .Update Else !nik = txtnik.Text !nama = txtnama.Text !jabatan = cmbjabatan.Text !bagian = cmbbagian.Text .Update End If End With Call bersih End Sub Private Sub cmdtambah_Click() Call aktif Call nomor txtnama.SetFocus End Sub Private Sub Form_Load() Call nonaktif Call bersih cmbjabatan.AddItem "Manajer" cmbjabatan.AddItem "Foreman" cmbjabatan.AddItem "Operator" cmbbagian.AddItem "Assembling" cmbbagian.AddItem "Testing" cmbbagian.AddItem "Packing" End Sub Sub aktif() txtnik.Enabled = True txtnama.Enabled = True cmbjabatan.Enabled = True cmbbagian.Enabled = True cmdtambah.Enabled = False cmdsimpan.Enabled = True cmdhapus.Enabled = True cmdbatal.Enabled = True cmdkeluar.Enabled = False End Sub Sub nonaktif() txtnik.Enabled = False txtnama.Enabled = False cmbjabatan.Enabled = False cmbbagian.Enabled = False cmdtambah.Enabled = True cmdsimpan.Enabled = False cmdhapus.Enabled = False cmdbatal.Enabled = False cmdkeluar.Enabled = True End Sub Sub bersih() txtnik.Text = "" txtnama.Text = "" cmbjabatan.Clear cmbbagian.Clear End Sub Sub nomor() Dim urutan As String Dim hitung As Integer With Adodc1.Recordset If .RecordCount = 0 Then txtnik = "K0001" Else hitung = Val(Right(!nik, 3)) + 1 urutan = "K" & Right("000" & hitung, 4) txtnik = urutan End If End With End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmbjabatan.SetFocus End If End Sub