Student Mark Analysis System

Download as docx, pdf, or txt
Download as docx, pdf, or txt
You are on page 1of 8

STUDENT MARK ANALYSIS SYSTEM

FORM1 CODING: Private Sub STUDENTLOGIN_Click(Index As Integer) Form4.Show End Sub Private Sub FACULTYLOGIN_Click(Index As Integer) Form2.Show End Sub

FORM2:

FORM2 CODING: Private Sub Cancel_Click(Index As Integer) Form1.Show End Sub Private Sub ok_Click() If Text1.Text = "USER" And Text2.Text = "PASS" Then Form3.Show Else

MsgBox "INVALID ID" End If End Sub FORM3:

FORM3 CODING: Private Sub ADDNEW_Click() Data1.Recordset.ADDNEW End Sub

Private Sub Command1_Click()

If Data1.Recordset.BOF = True Then MsgBox "FirstRecord" End If Data1.Recordset.MovePrevious End Sub

Private Sub DELETE_Click() Data1.Recordset.DELETE Data1.Recordset.MoveNext End Sub

Private Sub INSERT_Click() Data1.Recordset.Update End Sub

Private Sub NEXT_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF = True Then MsgBox "LastRecord"

End If End Sub

Private Sub search_Click() Dim a As String If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst a = InputBox("ENTER STUDENT ID") Data1.Recordset.FindFirst ("STUDENTID =" & a) If Data1.Recordset.EOF = True Then MsgBox "RECORD NOT FOUND" Else End If End If End Sub

FORM3:

FORM4:

FORM4 CODING: Private Sub Command1_Click() If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst a = Text1.Text Data1.Recordset.FindFirst ("STUDENTID =" & a) If Data1.Recordset.EOF = True Then MsgBox "RECORD NOT FOUND" Else End If End If End Sub

You might also like