Membuat Form Jadwal Tes Medical Program penerimaan Karyawan Baru di MS Visual Basic dengan database Mysql phpmyadmin

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Setelah kita melihat contoh Program Visual Basic (VB) Penerimaan karyawan baru (Employee Recruitment). Maka Selanjutnya kita Membuat Form Jadwal Tes Medical Program penerimaan Karyawan Baru di MS Visual Basic dengan database Mysql phpmyadmin

ubah namenya seperti dibawah ini :

- Buat sub aktif :

Sub aktif()
tnopelamar.Enabled = True
tnama.Enabled = True
tuser.Enabled = True
ttglmedical.Enabled = True
ttempatmedical.Enabled = True
ttglfisik.Enabled = True
ttempatfisik.Enabled = True
tcari.Enabled = True
cmdsave.Enabled = True
cmdcancel.Enabled = True
cmdedit.Enabled = True
cmdupdate.Enabled = True
cmddelete.Enabled = True
End Sub

- buat sub nonaktif :

Sub nonaktif()
tnopelamar.Enabled = False
tnama.Enabled = False
tuser.Enabled = False
ttglmedical.Enabled = False
ttempatmedical.Enabled = False
ttglfisik.Enabled = False
ttempatfisik.Enabled = False
tcari.Enabled = False
cmdsave.Enabled = False
cmdcancel.Enabled = False
cmdedit.Enabled = False
cmdupdate.Enabled = False
cmddelete.Enabled = Tfalserue
End Sub

- buat sub tampil :

Sub tampil()
Call koneksi
rsjadwalmedical.Open "select*from jadwalmedical", KON
Set grid.DataSource = rsjadwalmedical
End Sub

- buat sub bersih :

Sub bersih()
tnopelamar.Text = ""
tnama.Text = ""
ttglmedical.Text = ""
ttempatmedical.Text = ""
ttglfisik.Text = ""
ttempatfisik.Text = ""
End Sub

- buat form-load :

Private Sub Form_Load()
Call nonaktif
cmdadd.Enabled = True
Call koneksi
Call tampil
ttglmedical.Clear
ttglfisik.Clear
rstanggalmedical.Open "select*from tanggalmedicaltest", KON
rstanggalmedical.MoveFirst
Do Until rstanggalmedical.EOF
ttglmedical.AddItem (rstanggalmedical.Fields("tanggalmedicaltest"))
ttglfisik.AddItem (rstanggalmedical.Fields("tanggalfisiktest"))
rstanggalmedical.MoveNext
Loop


tuser.Clear

rsuser.Open "select*from tbuser", KON
rsuser.MoveFirst
Do Until rsuser.EOF
tuser.AddItem (rsuser.Fields("kodeuser"))

rsuser.MoveNext
Loop
End Sub

- pastekan coding dibawah ini sesuai dengan namenya :

- cmdadd :

Private Sub cmdadd_Click()
Call aktif
Call bersih
tuser.SetFocus
cmddelete.Enabled = False
cmdedit.Enabled = False
cmdupdate.Enabled = False
End Sub

- cmdcancel :

Private Sub cmdcancel_Click()
bersih
tnopelamar.SetFocus
End Sub

- cmddelete :

Private Sub cmddelete_Click()
Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rsjadwalmedical.Open "delete from jadwalmedical where no_pelamar='" & tcari.Text & "'", KON
bersih
tcari.Text = ""
End If
Call tampil
Call nonaktif
cmdadd.Enabled = True
End Sub

- cmdupadate :

Private Sub cmdupdate_Click()
Call koneksi
rsjadwalmedical.Open "update jadwalmedical set tanggalmedicaltest='" & ttglmedical & "',tempatmedical='" & ttempatmedical & "',tanggalfisiktest='" & ttglfisik & "',tempatfisik='" & ttempatfisik & "' where no_pelamar='" & tnopelamar.Text & "'", KON

MsgBox "Data Berhasil di Update", vbInformation, "Info"
bersih
Call tampil
cmdupdate.Enabled = False
cmdedit.Enabled = False
cmdadd.Enabled = True
End Sub

- cmdedit :

Private Sub cmdedit_Click()
Call koneksi
rsjadwalmedical.Open "select*from jadwalmedical where no_pelamar='" & tcari.Text & "'", KON
With rsjadwalmedical
tnopelamar.Text = .Fields("no_pelamar")
tnama.Text = .Fields("nama")

End With
tnopelamar.Enabled = False
tnama.Enabled = False
cmdupdate.Enabled = True
cmddelete.Enabled = True
cmdcancel.Enabled = False
End Sub

- cmdsave :

Private Sub cmdsave_Click()
Call koneksi
rsjadwalmedical.Open "insert into jadwalmedical values('" & tnopelamar & "','" & tnama & "','" & ttglmedical & "','" & ttempatmedical & "','" & ttglfisik & "','" & ttempatfisik & "','" & tuser & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call nonaktif
End Sub

- tcari (ubah declarationnya ke "change") :

Private Sub tcari_Change()
Call koneksi
rsjadwalmedical.Open "select*from jadwalmedical where no_pelamar like '" & tcari.Text & "'", KON
If Not tcari.Text = "" Then
Set grid.DataSource = rsjadwalmedical
Else
Call tampil
End If
tcari.Enabled = True
cmdedit.Enabled = True
cmddelete.Enabled = True
cmdadd.Enabled = False
cmdsave.Enabled = False
End Sub

- klik 2kali pada textfield "tnopelamar" dan ubah declarationnya ke "keyspress". dan pastekan coding berikut :

Private Sub tnopelamar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call koneksi
rslolostest.Open "select*from lolostest where no_pelamar='" & tnopelamar.Text & "'", KON
If rslolostest.EOF Then
MsgBox "KOde tidak ditemukan, silahkan masukan kode lainnya !", vbCritical
Else
tnama.Text = rslolostest.Fields("nama")


End If
End If
Call tampil
tnama.Enabled = False

End Sub

- bmenu :

Private Sub Command1_Click()
fmenu.Show
End Sub

- exit :

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

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Membuat Form Jadwal Tes Medical Program penerimaan Karyawan Baru di MS Visual Basic dengan database Mysql phpmyadmin, Diterbitkan oleh scodeaplikasi pada Minggu, 26 April 2015. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.