[ Mini Kiebo ]

Server: Windows NT AKFAR_SERVER 10.0 build 26200 (Windows 10) AMD64 Path: D:/Data/Penerimaan Mahasiswa Baru/ [ Home ]
File: menu.frm
VERSION 5.00
Object = "{00025600-0000-0000-C000-000000000046}#5.2#0"; "crystl32.ocx"
Begin VB.MDIForm menu 
   BackColor       =   &H8000000C&
   Caption         =   "Menu Utama"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin Crystal.CrystalReport lap 
      Left            =   1320
      Top             =   1260
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   348160
      PrintFileLinesPerPage=   60
   End
   Begin VB.Menu mnfile 
      Caption         =   "&File"
      Begin VB.Menu mnsek 
         Caption         =   "Data Sekolah"
      End
      Begin VB.Menu mncalon 
         Caption         =   "Calon Siswa"
      End
      Begin VB.Menu Mnbaru 
         Caption         =   "Siswa Baru"
      End
   End
   Begin VB.Menu mninfo 
      Caption         =   "&Informasi"
      Begin VB.Menu mncbaru 
         Caption         =   "Daftar Calon Siswa Baru"
      End
      Begin VB.Menu mnterima 
         Caption         =   "Calon Siswa Baru Diterima"
      End
      Begin VB.Menu mncadangan 
         Caption         =   "Calon Siswa Yang Diterima (Cadangann)"
      End
      Begin VB.Menu mnsiswa 
         Caption         =   "Daftar Siswa Baru"
      End
   End
   Begin VB.Menu mnaut 
      Caption         =   "&Author"
   End
   Begin VB.Menu mnkel 
      Caption         =   "&Keluar"
   End
End
Attribute VB_Name = "menu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Mnbaru_Click()
Siswa.Show
End Sub

Private Sub mncadangan_Click()
lcadangan.Show
End Sub

Private Sub mncalon_Click()
Calon.Show
End Sub

Private Sub mncbaru_Click()
lcalon.Show
End Sub

Private Sub mnkel_Click()
Unload Me
End Sub

Private Sub mnsek_Click()
Sekolah.Show
End Sub

Private Sub mnsiswa_Click()
datas.Show
End Sub

Private Sub mnterima_Click()
lditerima.Show
End Sub