Student Administrative System

                                             LoginWindow

Login Form Coding

Dim USER As String, PWD As String

Private Sub cmdexit_Click()

End

End Sub

Private Sub CMDLOGIN_Click()

USER = "NEW COLLEGE"

PWE = "CHENNAI"

If "NEW COLLEGE" = Trim(TXTUSER.Text) And "CHENNAI" = Trim(TXTPWD.Text) Then

 Unload Frmlogin

Load FRMMAIN

FRMMAIN.Show

Else

MsgBox "PLEASE ENTER CORRECT USER ID AND PASSWORD ...!"

TXTUSER.Text = ""

TXTPWD.Text = ""

End If

End Sub

Private Sub Timer1_Timer()

LBTIME.Caption = Format(Now, "HH:MM:SS:AMPM")

LBDATE.Caption = Date

End Sub

Private Sub Form_Load()

Me.WindowState = 2

LBTIME.Caption = Date

End Sub

                                  MenuWindow

Main Menu Form Coding

Private Sub CMDCOLLEGE_Click()

Unload Me

Load FRMCOLLEGE

FRMCOLLEGE.Show

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub CMDHOSTAL_Click()

Unload Me

Load FRMATD

FRMATD.Show

End Sub

Private Sub CMDMARK_Click()

Unload Me

Load FRMSEM

FRMSEM.Show

End Sub

Private Sub CMDSEARCH_Click()

Unload Me

Load FRMSRCH

FRMSRCH.Show

End Sub

Private Sub CMDSTUD_Click()

Unload Me

Load FRMSTUDENT

FRMSTUDENT.Show

End Sub

Private Sub Form_Load()

LBTIME.Caption = Date

End Sub

Private Sub Timer1_Timer()

LBDATE.Caption = Date

LBTIME.Caption = Format(Now, "hh:mm:ss:AMPM")

End Sub

PersonalDetaileWindow

STUDENT INFORMATION

Private Sub CMDBACK_Click()

Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub CMDCLR_Click()

TXTNAME = ""

TXTREG = ""

TXTADD = ""

ComboBLOAD = ""

TXTPHONE = ""

TXTDOB = ""

TXTSTYR = ""

TXTEDYR = ""

TXTBATCH = ""

End Sub

Private Sub CMDDEL_Click()

Set STUD = New ADODB.Recordset

QRY1 = "delete * FROM STAB WHERE REG=" & Val(TXTREG.Text)

STUD.Open QRY1, CON, adOpenStatic, adLockOptimistic

MsgBox "Record " & Val(TXTREG.Text) & " is  DELETE !", vbExclamation

End Sub

Private Sub CMDEDT_Click()

Set STUD = New ADODB.Recordset

QRY1 = "SELECT * FROM STAB WHERE REG=" & Val(TXTREG.Text)

STUD.Open QRY1, CON, adOpenStatic, adLockOptimistic

If STUD.RecordCount > 0 Then

STUD!Name = Trim(TXTNAME.Text)

STUD!ADDRESS = Trim(TXTADD.Text)

STUD!DOB = TXTDOB.Text

STUD!BLOOD = Trim(ComboBLOAD.Text)

STUD!PHONE = TXTPHONE

STUD!STYEAR = Val(TXTSTYR.Text)

STUD!EDYEAR = Val(TXTEDYR.Text)

STUD!BATCH = Trim(TXTBATCH.Text)

STUD.Update

MsgBox "INFORMATION UPDATED......!", vbMsgBoxRight

Else

MsgBox "record " & Val(TXTREG.Text) & " NO FOUND....! ", vbExclamation

STUD.Close

End If

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub CMDGEN_Click()

qry = "SELECT MAX(REG) AS MAXID FROM STAB"

Set STUD = New ADODB.Recordset

STUD.Open qry, CON, adOpenStatic, adLockOptimistic

Dim MID As Integer

If IsNull(STUD!MAXID) Then

MID = 1000

Else

MID = Val(STUD!MAXID) + 1

End If

TXTREG.Text = MID

End Sub

Private Sub CMDMAIN_Click()

 Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub CMDNEXT_Click()

 Unload FRMSTUDENT

Load FRMCOLLEGE

FRMCOLLEGE.Show

End Sub

Private Sub CMDREP_Click()

Load DataReport1

DataReport1.Show

End Sub

Private Sub CMDSAVE_Click()

Set STUD = New ADODB.Recordset

QRY1 = "SELECT * FROM STAB WHERE REG=" & Val(TXTREG.Text)

STUD.Open QRY1, CON, adOpenStatic, adLockOptimistic

If STUD.RecordCount > 0 Then

MsgBox "Record " & Val(TXTREG.Text) & " Already Exist...! ", vbExclamation

Else

'******this avoid blank values store into data base*****

If TXTREG.Text = "" Then

MsgBox "Please Properly Type All Blank Text Box", vbExclamation

Else

STUD.AddNew

STUD!Name = Trim(TXTNAME.Text)

STUD!reg = Val(TXTREG.Text)

STUD!ADDRESS = Trim(TXTADD.Text)

STUD!DOB = TXTDOB.Text

STUD!BLOOD = Trim(ComboBLOAD.Text)

STUD!PHONE = TXTPHONE

STUD!STYEAR = Val(TXTSTYR.Text)

STUD!EDYEAR = Val(TXTEDYR.Text)

STUD!BATCH = Trim(TXTBATCH.Text)

STUD.Update

MsgBox "INFORMATION STORED......!"

STUD.Close

End If

End If

End Sub

Private Sub CMDSRCH_Click()

Set STUD = New ADODB.Recordset

qry = "SELECT * FROM STAB WHERE REG= " & Val(TXTREG.Text)

STUD.Open qry, CON, adOpenStatic, adLockOptimistic

If STUD.RecordCount > 0 Then

TXTNAME.Text = STUD!Name

TXTADD.Text = STUD!ADDRESS

TXTDOB.Text = STUD!DOB

ComboBLOAD.Text = STUD!BLOOD

 TXTPHONE = STUD!PHONE

 TXTSTYR.Text = STUD!STYEAR

TXTEDYR.Text = STUD!EDYEAR

 TXTBATCH.Text = STUD!BATCH

Else

MsgBox "NO RECORD FOUND", vbInformation

STUD.Close

End If

End Sub

Private Sub Form_Load()

Set CON = New ADODB.Connection

CON.Open "sms"

LBTIME.Caption = Date

TXTREG.Text = ""

End Sub

Private Sub Timer1_Timer()

LBTIME.Caption = Format(Now, "HH:MM:SS:AMPM")

LBDATE.Caption = Date

End Sub

                                                     CourseInfoWindow

COLLEGE INFORMATION FORM

Private Sub CMDBACK_Click()

Unload FRMCOLLEGE

Load FRMSTUDENT

FRMSTUDENT.Show

End Sub

Private Sub CMDCLR_Click()

txtreg.Text = ""

txtCOURSE.Text = ""

TXTDURATION.Text = ""

txtdep.Text = ""

ComboCODE.Text = ""

End Sub

Private Sub CMDDEL_Click()

Set COL = New ADODB.Recordset

qry = "DELETE * FROM TABCOL WHERE REG= " & Val(txtreg.Text)

COL.Open qry, CON, adOpenStatic, adLockOptimistic

MsgBox " RECORD DELETED..!", vbInformation

End Sub

Private Sub CMDEDT_Click()

Set COL = New ADODB.Recordset

COL.Open "TABCOL", CON, adOpenStatic, adLockOptimistic

If COL.RecordCount > 0 Then

COL!CNAME = Trim(txtCOURSE.Text)

COL!CCODE = Trim(ComboCODE.Text)

COL!department = Trim(txtdep.Text)

COL!cduration = Val(TXTDURATION.Text)

COL!reg = Val(txtreg.Text)

COL.Update

MsgBox " data is stored ...!"

Else

MsgBox "There is no such record = " & Val(txtreg.Text) & " TO UPDATE", vbInformation

End If

COL.Close

End Sub

Private Sub cmdexit_Click()

End

End Sub

Private Sub CMDMAIN_Click()

 Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub CMDREF_Click()

OLE1.Visible = True

End Sub

Private Sub CMDREP_Click()

Load DataReport2

DataReport2.Show

End Sub

Private Sub CMDSAVE_Click()

Set COL = New ADODB.Recordset

qry = "SELECT * FROM TABCOL WHERE REG =" & Val(txtreg.Text)

COL.Open qry, CON, adOpenStatic, adLockOptimistic

If COL.RecordCount > 0 Then

MsgBox Val(txtreg.Text) & " Record Already Exist", vbInformation

Else

If txtreg.Text = "" Then

MsgBox "Please Properly Type All Blank Text Box", vbExclamation

Else

COL.AddNew

COL!CNAME = Trim(txtCOURSE.Text)

COL!CCODE = Trim(ComboCODE.Text)

COL!department = Trim(txtdep.Text)

COL!cduration = Val(TXTDURATION.Text)

COL!reg = Val(txtreg.Text)

COL.Update

MsgBox " data is stored ...!"

End If

End If

COL.Close

End Sub

Private Sub CMDSRCH_Click()

Set COL = New ADODB.Recordset

qry = "SELECT * FROM TABCOL WHERE REG = " & Val(txtreg.Text)

COL.Open qry, CON, adOpenStatic, adLockOptimistic

If COL.RecordCount > 0 Then

txtCOURSE.Text = COL!CNAME

ComboCODE.Text = COL!CCODE

txtdep.Text = COL!department

TXTDURATION.Text = COL!cduration

Else

MsgBox Val(txtreg.Text) & "No Record Found..!", vbInformation

End If

COL.Close

End Sub

Private Sub ComboCODE_LostFocus()

OLE1.Visible = False

End Sub

Private Sub Form_Load()

Set CON = New ADODB.Connection

CON.Open "SMS"

'Me.TXTREG.Text = FRMSTUDENT.TXTREG.Text

txtreg.Text = ""

End Sub

Private Sub Timer1_Timer()

LBDATE.Caption = Date

LBTIME.Caption = Format(Now, "hh:mm:ss:AMPM")

End Sub

Private Sub txtdep_LostFocus()

OLE1.Visible = True

End Sub

AttendanceEntryWindow

CHOOSE DAY ORDER WITH DATE

Private Sub cmdexit_Click()

End

End Sub

Private Sub CMDMAIN_Click()

Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub Command1_Click()

Load DataReport4

DataReport4.Show

End Sub

Private Sub D1_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 1

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "/" & FRMATD.cmbmonth & "/" & FRMATD.txtyear

End Sub

Private Sub D2_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 2

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "-" & FRMATD.cmbmonth & "-" & FRMATD.txtyear

End Sub

Private Sub D3_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 3

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "-" & FRMATD.cmbmonth & "-" & FRMATD.txtyear

End Sub

Private Sub D4_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 4

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "-" & FRMATD.cmbmonth & "-" & FRMATD.txtyear

End Sub

Private Sub D5_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 5

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "-" & FRMATD.cmbmonth & "-" & FRMATD.txtyear

End Sub

Private Sub D6_Click()

Load FRMATDSUB

FRMATDSUB.Show

FRMATDSUB.lday = 6

FRMATDSUB.lreg.Caption = FRMATD.txtreg.Text

FRMATDSUB.Ldate.Caption = FRMATD.cmbdate.Text & "-" & FRMATD.cmbmonth & "-" & FRMATD.txtyear

End Sub

Private Sub Form_Load()

LBTIME.Caption = Date

End Sub

Private Sub Timer1_Timer()

LBDATE.Caption = Date

LBTIME.Caption = Format(Now, "hh:mm:ss:AMPM")

End Sub

PerDayEntry

PRESENTIES FORM

Private Sub CMDSUBMIT_Click()

Set attd = New ADODB.Recordset

attd.Open "TABATD", CON, adOpenStatic, adLockOptimistic

attd.AddNew

attd!Date = Ldate.Caption

attd!attend = txtattend.Text

attd!reg = lreg.Caption

attd!dayorder = lday.Text

attd.Update

MsgBox "attadence stored..!"

 Unload FRMATDSUB

End Sub

Private Sub Form_Load()

Set CON = New ADODB.Connection

CON.Open "sms"

End Sub

Private Sub txtattend_click()

txtattend.Text = ""

End Sub

MarkEntry

SEMESTERS MARKS ENTRY FORM

Dim i As Integer, j As Integer, AV As Double

Private Sub CMDCLR_Click(Index As Integer)

txttot.Text = ""

txtavg.Text = ""

TXTREG.Text = ""

txtres.Text = ""

For j = 0 To 6

txtsub(j).Text = ""

Next j

End Sub

Private Sub CMDDEL_Click()

Set MARK = New ADODB.Recordset

qry = "DELETE * FROM TABMAR WHERE REG=" & Val(TXTREG.Text)

MARK.Open qry, CON, adOpenStatic, adLockOptimistic

MsgBox Val(TXTREG.Text) & " Record Is Deleted..!", vbExclamation

End Sub

Private Sub CMDEDIT_Click()

Set MARK = New ADODB.Recordset

qry = "select *from tabcol where reg= " & Val(TXTREG.Text)

MARK.Open qry, CON, adOpenStatic, adLockOptimistic

If MARK.RecordCount > 0 Then

MARK!SEM = Val(Combosemno.Text)

MARK!TOTAL = Val(txttot.Text)

MARK!Avg = Val(txtavg.Text)

MARK!RESULT = Trim(txtres.Text)

MARK!M1 = Val(txtsub(0))

MARK!M2 = Val(txtsub(1))

MARK!M3 = Val(txtsub(2))

MARK!M4 = Val(txtsub(3))

MARK!M5 = Val(txtsub(4))

MARK!M6 = Val(txtsub(5))

MARK!M7 = Val(txtsub(6))

Else

MsgBox Val(TXTREG.Text) & " Record is Not Exist ", vbInformation

End If

End Sub

Private Sub cmdexit_Click(Index As Integer)

End

End Sub

Private Sub CMDMAIN_Click()

 Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub CMDNEXT_Click()

Load FRMATD

FRMATD.Show

End Sub

Private Sub CMDRESULT_Click()

txttot.Text = ""

txtavg.Text = ""

For i = 0 To 6

txttot.Text = Val(txttot.Text) + Val(txtsub(i).Text)

Next i

Dim a As Double

a = Val(txttot.Text) / 7

txtavg.Text = Round(a, 0)

If Val(txtavg.Text) < 101 And Val(txtavg.Text) > 80 Then

txtres.Text = "- Distinction -"

ElseIf Val(txtavg.Text) > 59 And Val(txtavg.Text) < 81 Then

txtres.Text = "- 1st Class -"

ElseIf Val(txtavg.Text) > 39 And Val(txtavg.Text) < 60 Then

txtres.Text = "- 2st Class -"

ElseIf Val(txtavg.Text) < 40 Then

txtres.Text = "- **** -"

End If

End Sub

Private Sub CMDRREP_Click()

Load DataReport3

DataReport3.Show

End Sub

Private Sub CMDSAVE_Click(Index As Integer)

Set MARK = New ADODB.Recordset

QRY1 = "SELECT * FROM TABMAR WHERE REG =" & Val(TXTREG.Text)

MARK.Open QRY1, CON, adOpenStatic, adLockOptimistic

If MARK.RecordCount > 0 Then

MsgBox Val(TXTREG.Text) & " Aready Record is Exist ", vbInformation

ElseIf TXTREG.Text = "" Then

MsgBox "Please Properly Type All Blank Text Box"

Else

MARK.AddNew

MARK!SEM = Val(Combosemno.Text)

MARK!TOTAL = Val(txttot.Text)

MARK!Avg = Val(txtavg.Text)

MARK!reg = Val(TXTREG.Text)

MARK!RESULT = Trim(txtres.Text)

MARK!M1 = Val(txtsub(0))

MARK!M2 = Val(txtsub(1))

MARK!M3 = Val(txtsub(2))

MARK!M4 = Val(txtsub(3))

MARK!M5 = Val(txtsub(4))

MARK!M6 = Val(txtsub(5))

MARK!M7 = Val(txtsub(6))

MARK.Update

MsgBox "MARKS SAVED ...!"

i = 0

j = 0

AV = 0

End If

MARK.Close

End Sub

Private Sub CMDSRCH_Click()

Set MARK = New ADODB.Recordset

qry = "SELECT * FROM TABMAR WHERE REG=" & Val(TXTREG.Text)

MARK.Open qry, CON, adOpenStatic, adLockOptimistic

If MARK.RecordCount > 0 Then

Combosemno.Text = MARK!SEM

txttot.Text = MARK!TOTAL

txtavg.Text = MARK!Avg

txtres.Text = MARK!RESULT

txtsub(0) = MARK!M1

txtsub(1) = MARK!M2

txtsub(2) = MARK!M3

txtsub(3) = MARK!M4

txtsub(4) = MARK!M2

txtsub(5) = MARK!M2

txtsub(6) = MARK!M2

Else

MsgBox Val(TXTREG.Text) & " Is Not Exist..!", vbInformation

End If

End Sub

Private Sub Form_Load()

 Set CON = New ADODB.Connection

CON.Open "sms"

i = j = AV = 0

LBTIME.Caption = Date

TXTREG.Text = ""

End Sub

Private Sub Timer1_Timer()

LBDATE.Caption = Date

LBTIME.Caption = Format(Now, "HH:MM:SS: ampm")

End Sub

SearchWindow

STUDENT INFORMATION  SEARCHING FORM

Private Sub CMDCLR_Click()

LBNAME.Caption = ""

LBDOB.Caption = ""

LBDEP.Caption = ""

LBADYR.Caption = ""

LBS1.Caption = ""

LBS2.Caption = ""

LBS3.Caption = ""

LBS4.Caption = ""

LBS5.Caption = ""

LBS6.Caption = ""

End Sub

Private Sub cmdexit_Click()

 Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub CMDSRCH_Click()

Set STUD = New ADODB.Recordset

Set COL = New ADODB.Recordset

Set MARK = New ADODB.Recordset

'QRY = "SELECT A.REG,A.NAME,B.AGE FROM TABRET A ,TABAGE B WHERE A.REG = B.REG  AND A.REG = " & Val(txt2.Text)

qry = "SELECT A.NAME,A.DOB,A.STYEAR,A.EDYEAR,B.department FROM STAB A,TABCOL B WHERE A.REG = B.reg AND A.REG = " & Val(TXTREG.Text)

STUD.Open qry, CON, adOpenStatic, adLockOptimistic

COL.Open qry, CON, adOpenStatic, adLockOptimistic

qry = "select * from TABMAR where reg = " & Val(TXTREG.Text) & " order by reg,sem"

MARK.Open qry, CON, adOpenStatic, adLockOptimistic

If STUD.RecordCount <= 0 Then

MsgBox "NO RECORD FOUND..!"

Else

LBNAME.Caption = STUD!Name

LBDOB.Caption = STUD!DOB

LBDEP.Caption = COL!department

LBADYR.Caption = STUD!STYEAR & "-" & STUD!EDYEAR

Dim i As Integer

For i = 1 To MARK.RecordCount

Select Case MARK!sem

Case 1: LBS1.Caption = MARK!Avg

Case 2: LBS2.Caption = MARK!Avg

Case 3: LBS3.Caption = MARK!Avg

Case 4: LBS4.Caption = MARK!Avg

Case 5: LBS5.Caption = MARK!Avg

Case 6: LBS6.Caption = MARK!Avg

End Select

MARK.MoveNext

Next i

End If

If (LBS1.Caption = "" Or LBS2.Caption = "" Or LBS3.Caption = "" Or LBS4.Caption = "" Or LBS5.Caption = "" Or LBS6.Caption = "") Then

MsgBox "Unfield Box denote the PERSON = " & Val(TXTREG.Text) & " does not reach the Specific Semesters ", vbExclamation

End If

End Sub

Private Sub Command1_Click()

 Unload Me

Load FRMMAIN

FRMMAIN.Show

End Sub

Private Sub Form_Load()

Set CON = New ADODB.Connection

CON.Open "sms"

LBTIME.Caption = Date

End Sub

Private Sub Timer1_Timer()

LBTIME.Caption = Format(Now, "HH:MM:SS:AMPM")

LBDATE.Caption = Date

End Sub

Private Sub TXTREG_GotFocus()

CMDCLR_Click

End Sub

 ReportOfAttendance

ReportOfPersonalDetails

Module Form

Public CON As ADODB.Connection

Public STUD As ADODB.Recordset

Public COL As ADODB.Recordset

Public MARK As ADODB.Recordset

Public attd As ADODB.Recordset