Aplikasi Pendaftaran Mahasiswa Baru Menggunakan VB
Disini Ada 3 Menu, yaitu :
1. Home
2. Persyaratan dan Prosedur, yang tediri dari :
- Persyaratan dan Prosedur
- Pendaftaran
- Konfirmasai Pembayaran
- Daftar Ulang
3. About
========================================================================
1. Home
Private Sub about_Click()
Form6.Show
Unload Me
End Sub
Private Sub bayar_Click()
Form9.Show
Unload Me
End Sub
Private Sub daftar_Click()
Form1.Show
Unload Me
End Sub
Private Sub dftr_ulang_Click()
Form8.Show
Unload Me
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
End Sub
Private Sub syarat_Click()
Form7.Show
Unload Me
End Sub
2. Persyaratan dan Prosedur
Source Code :
Private Sub PictureClip1_Click()
Form1.Show
Unload Me
End Sub
Private Sub about_Click()
Form6.Show
Unload Me
End Sub
Private Sub bayar_Click()
Form9.Show
Unload Me
End Sub
Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Command2_Click()
Form9.Show
Unload Me
End Sub
Private Sub daftar_Click()
Form1.Show
Unload Me
End Sub
Private Sub dftr_ualng_Click()
Form8.Show
Unload Me
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
Unload Me
End Sub
Private Sub Image1_Click()
Form1.Show
Unload Me
End Sub
Private Sub syarat_Click()
Form7.Show
End Sub
3. Daftar Ulang
Source Code :
Private Sub about_Click()
Form6.Show
Unload Me
End Sub
Private Sub bayar_Click()
Form9.Show
Unload Me
End Sub
Private Sub daftar_Click()
Form1.Show
Unload Me
End Sub
Private Sub dftr_ulang_Click()
Form8.Show
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
Unload Me
End Sub
Private Sub syarat_Click()
Form7.Show
Unload Me
End Sub
4. About
Source Code :
Private Sub about_Click()
Form6.Show
End Sub
Private Sub bayar_Click()
Form9.Show
Unload Me
End Sub
Private Sub daftar_Click()
Form1.Show
Unload Me
End Sub
Private Sub dftr_ulang_Click()
Form8.Show
Unload Me
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
Unload Me
End Sub
Private Sub syarat_Click()
Form7.Show
Unload Me
End Sub
5. Pendaftaran
Didalam Menu Pendaftar Terdapat Beberapa Form Pendaftaran yang Terdiri dari :
- Form Data Siswa
- Form Upload Foto Siswa
- Form Data Orangtua / Wali
- Form Pilihan Prodi
Source Code :
Private Sub about_Click()
Form6.Show
Unload Me
End Sub
Private Sub bayar_Click()
Form9.Show
Unload Me
End Sub
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Form4.Show
Unload Me
End Sub
Private Sub Command3_Click()
MDIForm1.Show
Unload Me
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub daftar_Click()
Form1.Show
End Sub
Private Sub dftr_ulang_Click()
Form8.Show
Unload Me
End Sub
Private Sub Form_Load()
Combo3.AddItem "Islam"
Combo3.AddItem "Kristen"
Combo3.AddItem "Katolik"
Combo3.AddItem "Hindu"
Combo3.AddItem "Budha"
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
Unload Me
End Sub
Private Sub syarat_Click()
Form7.Show
Unload Me
End Sub
Source Code :
Private Sub Command1_Click()
Form1.Show
Unload Me
End Sub
Private Sub Command2_Click()
Form2.Show
Unload Me
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Source Code :
Private Sub Command1_Click()
Form4.Show
Unload Me
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.Update
Form3.Show
Unload Me
End Sub
Private Sub Command3_Click()
On Error Resume Next
Adodc1.Recordset.Delete
DataGrid1.Refresh
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Form_Load()
Combo3.AddItem "Tidak Tamat SD"
Combo3.AddItem "SD"
Combo3.AddItem "SMP"
Combo3.AddItem "SMA"
Combo3.AddItem "Diploma"
Combo3.AddItem "S1"
Combo3.AddItem "S2"
Combo3.AddItem "S3"
Combo1.AddItem "Tidak Tamat SD"
Combo1.AddItem "SD"
Combo1.AddItem "SMP"
Combo1.AddItem "SMA"
Combo1.AddItem "Diploma"
Combo1.AddItem "S1"
Combo1.AddItem "S2"
Combo1.AddItem "S3"
Combo2.AddItem "Pegawai Negeri"
Combo2.AddItem "Pegawai Swasta"
Combo2.AddItem "Wiraswasta"
Combo2.AddItem "Buruh"
Combo2.AddItem "Pensiun"
Combo2.AddItem "Tidak Bekerja"
Combo2.AddItem "Lain - Lain"
Combo4.AddItem "Pegawai Negeri"
Combo4.AddItem "Pegawai Swasta"
Combo4.AddItem "Wiraswasta"
Combo4.AddItem "Pensiun"
Combo4.AddItem "Ibu Rumah Tangga"
Combo4.AddItem "Lain - Lain"
Skin1.ApplySkin Me.hWnd
End Sub
Source Code :
Private Sub Command1_Click()
Form2.Show
Unload Me
End Sub
Private Sub Command2_Click()
DataReport1.Show
Form5.Show
Unload Me
End Sub
Private Sub Form_Load()
Skin1.ApplySkin Me.hWnd
End Sub
Karena Aplikasi Ini Telah Dihubungkan dengan Database, Maka Jika Di Klik Cetak Maka Akan Tercetak Laporan / Hasil Pendaftara Sebagai Berikut :
Source Code :
Private Sub about_Click()
Form6.Show
Unload Me
End Sub
Private Sub bayar_Click()
Form9.Show
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
MsgBox "Terkirim, Terimakasih"
Form5.Show
Unload Me
End Sub
Private Sub daftar_Click()
Form1.Show
Unload Me
End Sub
Private Sub dftr_ulang_Click()
Form8.Show
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "ATM"
Combo1.AddItem "Internet Banking"
Combo1.AddItem "Mobile Banking"
Combo1.AddItem "Setoran Tunai"
Combo1.AddItem "Transfer Antar Bank"
Combo2.AddItem "BANK PERMATA NO REK 070.1374.790 A/N :
YAYASAN PENDIDIKAN JAYA"
Skin1.ApplySkin Me.hWnd
End Sub
Private Sub home_Click()
Form5.Show
Unload Me
End Sub
Private Sub syarat_Click()
Form7.Show
Unload Me
End Sub

mantep
BalasHapusGan boleh minta aplikasinya ?
BalasHapusboleh dikirim ke email saya bos
BalasHapuspake database apa ini min......
BalasHapusitu make apa aja bro yg di toolbox nya
BalasHapus