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



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
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 :



6. Konfirmasi Pembayaran


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

Komentar

Posting Komentar

Postingan populer dari blog ini

Makalah Sistem Operasi Terdistribusi

Program Mencari Hari Lahir Menggunakan C++

Program Bank Sederhana Menggunakan C++