ars_mdi.frm

Attendance Report System of student in Visual Basic and Oracle AS Backend

VERSION 5.00
Begin VB.MDIForm ARS_MDI 
   BackColor       =   &H8000000C&
   Caption         =   "Attendance Report System Ver-1.0"
   ClientHeight    =   9480
   ClientLeft      =   165
   ClientTop       =   510
   ClientWidth     =   14940
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   50
      Left            =   6840
      Top             =   4560
   End
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   10815
      Left            =   0
      Picture         =   "ARS_MDI.frx":0000
      ScaleHeight     =   10755
      ScaleWidth      =   14880
      TabIndex        =   0
      Top             =   0
      Width           =   14940
      Begin VB.Image Image7 
         Height          =   480
         Index           =   35
         Left            =   13440
         Picture         =   "ARS_MDI.frx":27FD4
         Top             =   6000
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   33
         Left            =   5400
         Picture         =   "ARS_MDI.frx":2889E
         Top             =   9240
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   20
         Left            =   4680
         Picture         =   "ARS_MDI.frx":29168
         Top             =   840
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   15
         Left            =   8520
         Picture         =   "ARS_MDI.frx":29A32
         Top             =   1920
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   12
         Left            =   6960
         Picture         =   "ARS_MDI.frx":2A2FC
         Top             =   4200
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   4
         Left            =   9600
         Picture         =   "ARS_MDI.frx":2ABC6
         Top             =   9120
         Width           =   480
      End
      Begin VB.Image Image7 
         Height          =   480
         Index           =   8
         Left            =   3000
         Picture         =   "ARS_MDI.frx":2B490
         Top             =   3120
         Width           =   480
      End
   End
   Begin VB.Menu USER 
      Caption         =   "&USER"
      Begin VB.Menu AE 
         Caption         =   "ATTENDANCE ENTRY"
         Shortcut        =   ^E
      End
      Begin VB.Menu CHG_PWD 
         Caption         =   "&CHANGE PASSWORD"
      End
      Begin VB.Menu EXIT 
         Caption         =   "E&XIT"
         Shortcut        =   {F12}
      End
   End
   Begin VB.Menu ADMIN 
      Caption         =   "&ADMIN"
      Begin VB.Menu ADD_S 
         Caption         =   "ADD STUDENT"
         Shortcut        =   ^S
      End
      Begin VB.Menu ADD_T 
         Caption         =   "ADD TEACHER"
         Shortcut        =   ^T
      End
      Begin VB.Menu ASS_SUB 
         Caption         =   "ASSIGN SUBJECT"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu VIEW 
      Caption         =   "&VIEW"
      Begin VB.Menu ATTANDANCE 
         Caption         =   "ATTENDANCE"
      End
      Begin VB.Menu DEFAULTERLIST 
         Caption         =   "DEFAULTER LIST"
      End
      Begin VB.Menu STUDENT 
         Caption         =   "A STUDENT"
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "&HELP"
      Begin VB.Menu ONARS 
         Caption         =   "ON ARS-SYSTEM"
      End
      Begin VB.Menu DEVELOPER 
         Caption         =   "DEVELOPER"
      End
   End
End
Attribute VB_Name = "ARS_MDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ADD_S_Click()
ARS_MDI.Enabled = False
stud_entry.Show
End Sub

Private Sub ADD_T_Click()
ARS_MDI.Enabled = False
teacher_entry.Show
End Sub

Private Sub AE_Click()
ARS_MDI.Enabled = False
attendance_entry.Show
End Sub

Private Sub ASS_SUB_Click()
ARS_MDI.Enabled = False
subject_ass_form.Show
End Sub

Private Sub ATTANDANCE_Click()
ARS_MDI.Enabled = False
data_grid_from.Show
End Sub

Private Sub CHG_PWD_Click()
ARS_MDI.Enabled = False
PASS_CHG_FORM.Show

End Sub

Private Sub DEFAULTERLIST_Click()
MsgBox "KESHAV ANI TU  DEVELOP KAR", vbCritical, "JITU"
ARS_MDI.Enabled = False
End Sub

Private Sub DEVELOPER_Click()
ARS_MDI.Enabled = False
dev_form.Show
End Sub

Private Sub EXIT_Click()

temp = MsgBox("Do You Want To Quit ARS-System?", vbQuestion + vbYesNo, "Message")
If (temp = 6) Then
Unload Me
End If
End Sub

Private Sub MDIForm_Load()
'ExitWindowsEx 0, 1
If LOGIN_FORM.LOGINID <> 1 Then ARS_MDI.ADMIN.Enabled = False
End Sub

Private Sub PASSWORD_Click()
PASS_CHG_FORM.Show
End Sub

Private Sub ONARS_Click()
MsgBox "KESHAV ANI TU HELP DEVELOP KARA", vbCritical, "JITU"
'ARS_MDI.Enabled = False
End Sub

Private Sub STUDENT_Click()
ARS_MDI.Enabled = False
A_STUD.Show
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Dim i As Integer
 For i = 0 To 45
Image7(i).Visible = True
Image7(i).Move Image7(i).Left + Me.ScaleWidth * (Rnd - 0.5) / 30, Image7(i).Top + Me.ScaleHeight * (Rnd - 0.5) / 30
Next
End Sub