Setelah kita melihat contoh Program Visual Basic (VB) Penerimaan karyawan baru (Employee Recruitment). Maka Selanjutnya kita Membuat Form  Laporan Program penerimaan karyawan di Ms Visual Basic dengan database mysql phpmyadmin.




Berikut Kode listingnya :



Private Sub Command1_Click()
fmenu.Show
End Sub

 Private Sub Command2_Click()
a = MsgBox("Yakin Keluar", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
End
End If
End Sub

 Private Sub cetak_Click()
Call koneksi
If pilih.Text = "Data User" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\datauser.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Data Pelamar" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\datapelamar.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Data Tanggal Test" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\tanggaltestulis.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Data tanggal Medical Test" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\tanggalmedical.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Jadwal Tes Tulis" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\jadwaltestulis.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Jadwal Tes Medical" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\jadwalmedical.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Hasil Lolos Tes Tulis" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\lolostestulis.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Hasil Gagal Tes Tulis" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\gagaltestulis.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Hasil Lolos Tes Medical" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\lolosmedical.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Hasil Gagal Tes Medical" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\gagaltesmedical.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1

 ElseIf pilih.Text = "Pelamar Diterima" Then
Call koneksi
cr.ReportFileName = "D:\Perkuliahan\SEMESTER 4\tugas\revisi\LAPORAN\pelamarditerima.rpt"
cr.RetrieveDataFiles
cr.WindowState = crptNormal
cr.Action = 1
End If
End Sub

 Private Sub go_Click()
Call koneksi
If pilih.Text = "Data User" Then
rsuser.Open "select*from tbuser", KON
Set grid.DataSource = rsuser

 ElseIf pilih.Text = "Data Pelamar" Then
rsdatapelamar.Open "select*from datapelamar", KON
Set grid.DataSource = rsdatapelamar

 ElseIf pilih.Text = "Data Tanggal Test " Then
rstanggaltest.Open "select*from tanggaltest", KON
Set grid.DataSource = rstanggaltest

 ElseIf pilih.Text = "Data tanggal Medical Test" Then
rstanggalmedical.Open "select*from tanggalmedicaltest", KON
Set grid.DataSource = rstanggalmedical

 ElseIf pilih.Text = "Jadwal Tes Tulis" Then
rsjadwaltest.Open "select*from jadwaltest", KON
Set grid.DataSource = rsjadwaltest

 ElseIf pilih.Text = "Jadwal Tes Medical" Then
rsjadwalmedical.Open "select*from jadwalmedical", KON
Set grid.DataSource = rsjadwalmedical

 ElseIf pilih.Text = "Hasil Lolos Tes Tulis" Then
rslolostest.Open "select*from lolostest", KON
Set grid.DataSource = rslolostest

 ElseIf pilih.Text = "Hasil Gagal Tes Tulis" Then
rsgagaltest.Open "select*from gagaltest", KON
Set grid.DataSource = rsgagaltest
ElseIf pilih.Text = "Hasil Lolos Tes Medical" Then
rslolosmedical.Open "select*from lolosmedical", KON
Set grid.DataSource = rslolosmedical
ElseIf pilih.Text = "Hasil Gagal Tes Medical" Then
rsgagalmedical.Open "select*from gagalmedical", KON
Set grid.DataSource = rsgagalmedical
ElseIf pilih.Text = "Pelamar Diterima" Then
rslolosmedical.Open "select*from lolosmedical", KON
Set grid.DataSource = rslolosmedical

 End If
End Sub