√ Menciptakan Form Laporan Aktivitas Penerimaan Karyawan Gres Di Vb 6.0

Setelah kita melihat contoh Program Visual Basic (VB) Penerimaan karyawan gres (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

Sumber http://www.hendrisetiawan.com