Student Mark Analysis System
Student Mark Analysis System
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
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