No title

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi

PROGRAM SELEKSI KARYAWAN VB 6.0 Peminat silakan hubungi : Email : [email protected] Facebook : [email protected] (Uus Rusmawan) Phone : 0812 8438 1118 Dalam program seleksi penerimaan karyawan baru ini akan disajikan dua buah model, model pertama dengan bentuk relasi ONE TO ONE yang dapat dilihat bentuk form dan codingnya pada form Nilai dan model kedua dengan model relasi ONE TO MANY yang dapat dilihat bentuk form dan codingnya pada form Nilai1.

7.1 Normalisasi File Setelah mencoba membuat beberapa program aplikasi, kami berasumsi bahwa tidak semua program harus dipola dengan bentuk relasi one to many. Pola relasi tersebut dipengaruhi oleh situasi dan kondisi juga dipengaruhi oleh kebutuhan sistem informasi yang dihasilkan oleh program itu sendiri. Contoh bentuk normalisasi dengan pola one to many terlihat pada gambar di bawah ini.

Gambar 7.1 Normalisasi Program Seleksi

7.2 Database Dan Tabel

1


Gambar 7.2 Database Dan Tabel Program Seleksi

Catatan : 1.

Tabel Nilai digunakan untuk menyimpan data nilai dengan pola relasi one to one.

2.

Tabel Nilai1 dan DetailNilai1 digunakan untuk menyinpan data nilai dengan pola relasi one to many.

3.

Dalam kasus yang sebenarnya data pelamar harus didata selengkap mungkin, misalnya dengan menambahkan field No KTP, jenis kelamin, agama, pendidikan dan sebagainya. Tabel di atas hanya sebagai contoh saja.

4.

Tabel jadwal digunakan untuk memberitahukan kepada para pelamar jadwal testing yang harus diikuti setelah lamaran diseleksi

7.3 Membuat Module Aktifkan VB dan buatlah Module dengan coding sebagai berikut kemudian simpan Module tersebut. Public Public Public Public Public Public Public

Conn As New ADODB.Connection RSPelamar As ADODB.Recordset RSJadwal As ADODB.Recordset RSNilai As ADODB.Recordset RSNilai1 As ADODB.Recordset RSDetail As ADODB.Recordset RSHasil As ADODB.Recordset

Public Sub BukaDB() Set Conn = New ADODB.Connection Set RSPelamar = New ADODB.Recordset Set RSJadwal = New ADODB.Recordset Set RSNilai = New ADODB.Recordset Set RSNilai1 = New ADODB.Recordset Set RSDetail = New ADODB.Recordset Set RSHasil = New ADODB.Recordset Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ADOSeleksi.mdb" End Sub

2

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 7.4 Entri Jadwal Testing Dengan asumsi program pengolahan data pelamar telah dibuat, sekarang kita akan membuat program transfer jadwal testing. Dalam kasus ini, entri jadwal testing ditentukan sebagai berikut: 1.

Perserta testing dikelompokan dengan jumlah 5 orang per kelompok Anda dapat mengubah jumlah per kelompok sesuai banyaknya pelamar dan daya tampung tempat testing.

2.

Tiap kelompok berbeda tanggal testing dengan selisih waktu satu hari.

3.

Proses entri jadwal ujian tidak perlu dilakukan secara manual dengan cara menginput data satu persatu, dapat dibayangkan jika jumlah pelamar mencapai ribuan orang, maka pekerjaan entri jadwal ujian untuk masing-masing peserta menjadi sangat tidak efektif dan efisien. Dalam kasus ini proses entri akan dilakukan cukup dengan membuat sebuah otomasi dengan sekali klik. Oleh karena itu buatlah GUI seperti Gambar 7.3 berikut ini.

Gambar 7.3 GUI Transfer Jadwal Ujian

Jika program di atas dijalankan akan menghasilkan data sebagai berikut:

Gambar 7.4. Hasil Transfer Data Jadwal

7.5 Transfer Data Pelamar Program ini digunakan untuk menyalin data pelamar (nomor lamaran dan nama pelamar) ke tabel nilai. Hal ini dilakukan mengingat jumlah pelamar yang sangat banyak tidak mungkin dientri satu persatu secara manual. Buatlah GUI di VB seperti Gambar 7.5 di bawah ini.

3


Gambar 7.5 Transfer Data Pelamar Ke Tabel Nilai

Jika program di atas dijalankan akan menghasilkan data sebagai berikut:

Gambar 7.6 Hasil Transfer Data Pelamar Ke Tabel Nilai

7.6 Entri Nilai Testing (Model Pertama) Data nilai dientri langsung dalam DataGrid, di mana nomor lamaran dan nama pelamar telah ditransfer oleh program sebelumnya. Buatlah GUI dengan bentuk seperti Gambar 7.7 berikut ini.

4


Gambar 7.7 Input Nilai Dalam DataGrid

Saat pertama kali program dijalankan, akan terlihat tampilan seperti Gambar 7.8 di bawah ini.

Gambar 7.8 Tampilan Awal Proses Input Nilai

Jika nilai test1 - test4 diisi dengan data-data seperti tampilan di bawah ini

5


Gambar 7.9 Hasil Input Nilai

Data di tabel nilai seperti Gambar 7.9 sifatnya dinamis, artinya setiap kali terjadi perubahan maka data tersebut secara otomatis akan disimpan. Ketika command “Simpan Pelamar Yang Lulus” di klik akan menghasilkan data sebagai berikut:

Gambar 7.10 Hasil Transfer Pelamar Yang Lulus

7.7 Entri Nilai Testing (Model Kedua) Pada model kedua ini pola relasi berbentuk one to many dimana data disimpan pada tabel Nilai1 dan DetailNilai1. buatlah form seperti gambar berikut ini.

6


Gambar 7.11 Entri Nilai Model Kedua

7.8 Membuat Laporan Laporan Jadwal Ujian 1.

Buatlah laporan jadwal ujian dengan rancangan seperti Gambar 7.12 berikut ini kemudian simpan dengan nama Lap Data Jadwal.

Gambar 7.12 Rancangan Data Jadwal Testing

7

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Cara menyisipkan pengelompokkan tanggal adalah dengan melakukan klik kanan pada salah satu field di area detail kemudian pilih insert sumary. Pilihlah pengelompokkan berdasarkan tanggal, lalu klik OK.

Gambar 7.13 Mengelompokan Data Berdasarkan Tanggal

2.

Buatlah sebuah menu di menu utama untuk memanggil laporan data jadwal, kemudian tulis coding berikut ini dan jangan lupa menambahkan objek Crystal Report (Ubah namanya menjadi CR1) di form menu.

Private Sub mnlapjadwal_Click() 'memanggil file laporan CR1.ReportFileName = App.Path & "\Lap Jadwal.rpt" 'tampilkan satu layar penuh CR1.WindowState = crptMaximized 'jika ada perubahan data direfresh CR1.RetrieveDataFiles 'tampilkan le layar CR1.Action = 0 End Sub

3.

Jika program dijalankan akan menghasilkan laporan sebagai berikut.

Gambar 7.14 Laporan Jadwal Testing

Laporan di atas hanya diambil sebagian saja, dalam kondisi sebenarnya akan terlihat laporan lain di bawahnya yaitu tanggal 24/09/07, Grup 2, dimulai dari nomor lamaran 0006 sampai 0010.

Laporan Nilai Ujian Buatlah form dengan bentuk sebagai berikut dengan mengubah nama objek Crystal Report menjadi CR.

8


Gambar 7.15 Form Laporan Nilai

Gambar 7.16 Laporan Nilai Testing

1.

Selain itu rancanglah laporan data hasil (pelamar yang dinyatakan lulus). Di sini Anda tidak perlu membuat rancangan laporan dari awal, cukup dengan menyimpan file Lap Data Nilai melalui menu Save As, kemudian ganti nama filenya setelah itu ganti judul laporan. Untuk menyaring data pelamar yang lulus saja klik kanan field KET di baris detail kemudian pilih Select Record Expert. Dalam menu klik combobox kemudian pilih Equal To dan klik juga combobox di sebelah kanannya lalu pilih LULUS lalu klik OK

9


Gambar 7.17 Menyaring Data Yang Lulus

Hasil rancangan tersebut jika program dijalankan akan menampilkan laporan seperti Gambar 7.17.

Gambar 7.18 Laporan Nilai Yang Lulus

2.

Anda juga dapat membuat laporan data pelamar yang gagal untuk mengantisipasi pelamar yang dinyatakan lulus tetapi mengundurkan diri. Dengan laporan data pelamar yang gagal kita dapat mempertimbangkan pelamar dengan nilai tertinggi. Cara membuat rancangannya cukup dengan membuka file laporan nilai, simpan dengan Save As, ubah judul laporan, saring data berdasarkan yang gagal dan urutkan berdasarkan skor secara descending. Caranya adalah klik field Skor di baris detail, Klik menu report > Sort Records > klik Nilai.Skor > Add > Descending.

Gambar 7.19 Menyaring Skor Secara Descending

10


Gambar 7.20 Laporan Pelamar Yang Gagal

Perhatikanlah nomor pelamar, terlihat tidak terurut. Tetapi kita lihat skor telah diurutkan dengan nilai tertinggi. Laporan seperti ini dapat membantu mempermudah mencari data yang diperlukan dengan cara mengurutkan data skor dengan nilai terbesar

11

No title

Recommend Documents