Scribd
Upload
88 views6 pages

Student Admission and Security Form

The document contains code for a school management system with forms and modules for student admission, fee collection, teacher enrollment, and retrieving student, fee, and teacher details from a database. Form1 authenticates users against a database table. MDIForm1 is the main form with menu options to open other forms for admissions, reports, and leaving procedures. Form2 handles new student admission - it checks for duplicate entries, inserts data into a table after validating required fields, and displays confirmation messages.

Uploaded by

surbhi_twinkle
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
88 views6 pages

Student Admission and Security Form

The document contains code for a school management system with forms and modules for student admission, fee collection, teacher enrollment, and retrieving student, fee, and teacher details from a database. Form1 authenticates users against a database table. MDIForm1 is the main form with menu options to open other forms for admissions, reports, and leaving procedures. Form2 handles new student admission - it checks for duplicate entries, inserts data into a table after validating required fields, and displays confirmation messages.

Uploaded by

surbhi_twinkle
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd

FORM 1(SECURITYCHECK)

GENERAL Dim AD As [Link] Dim RS As [Link] Private Sub Command1_Click() Static I As Integer I=I+1 If [Link] = RS!SNAME And [Link] = RS!Name Then [Link] Else X = MsgBox("WRONG PASSWORD OR USER NAME", vbCritical) If I = 3 Then End End If [Link] = "" [Link] = "" [Link] End If End Sub Private Sub Form_Load() Set AD = New [Link] Set RS = New [Link] [Link] = adUseClient [Link] ("PROVIDER=MSDAORA.1;PASSWORD=TIGER;USER ID=SCOTT;PERSIST SECURITY INFO=TRUE") [Link] "SELECT * FROM CODE", AD, adOpenDynamic, adLockOptimistic, adCmdText Set [Link] = RS Set [Link] = RS End Sub

MDIFORM1

Private Sub MNUEXIT_Click() End 'TO END THE PROGRAM End Sub Private Sub MNUFEEC_Click() [Link] 'TO SHOW THE STUDENT FEE COLLECTION FORM End Sub Private Sub MNUNSTU_Click() [Link] 'TO SHOW THE NEW STUDENT ADMMISSION FORM End Sub Private Sub MNUNTEA_Click() [Link] 'TO SHOW NEW TEACHER'S ENROLLMENT FORM End Sub Private Sub MNUSADD_Click() [Link] 'TO SHOW THE STUDENT DETAILS End Sub Private Sub MNUSFEE_Click() [Link] 'TO SHOW THE FEE DETAILS End Sub Private Sub MNUSTC_Click() [Link] 'TO SHOW THE LEAVING STUDENT DETAILS End Sub Private Sub MNUSTCD_Click() [Link] 'TO SHOW THE TC FORM End Sub Private Sub MNUTEA_Click() [Link] 'TO SHOW THE DETAILS OF ALL TEACHERS End Sub

Private Sub MNUTEAL_Click() [Link] 'TO SHOW THE TEACHERS LEAVING FORM End Sub

FORM2(STUDENT ADMMISSION)

GENERAL Dim RS As [Link] Dim DB As [Link] Private Sub Form_Load() Set AD = New [Link] Set RS = New [Link] [Link] = adUseClient [Link] ("PROVIDER=MSDAORA.1;PASSWORD=TIGER;USER ID=SCOTT;PERSIST SECURITY INFO=TRUE") [Link] "SELECT * FROM S_ADDM", AD, adOpenDynamic, adLockOptimistic, adCmdText End Sub Private Sub Command1_Click() Dim M As Date Dim B, C, E, F As Integer Dim D, A As String If [Link] = Or [Link] = Or [Link] = Or [Link] = Or [Link] = Or [Link] = Or [Link] = Or [Link] = Then Y = MsgBox(ALL VALUES NOT ENTERED, vbCritical) [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] =

[Link] = [Link] GoTo SANJEEV End If [Link] CHECKING IF THE STUDENT IS ALREADY PRESENT Do While Not ([Link] = True) If RS!SNAME = Ucase(Trim([Link])) And RS!FNAME = Ucase(Trim([Link])) Then X = MsgBox(THIS STUDENT HAS ALREADY ENROLLED, vbInformation) [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] GoTo SANJEEV End If [Link] Loop [Link] SAVING NEW STUDENT DETAILS C = [Link] D = [Link] E = [Link] A=C++D++E M = Format(Now, DD MMMM YYYY) RS!SNAME = Ucase([Link]) RS!FNAME = Ucase([Link]) RS!MNAME = Ucase([Link]) RS!DOB = A RS!Class = Ucase([Link]) RS!DATE_OF_ADDM = M RS!P_NO = [Link] RS!ADDRESS = Ucase([Link]) [Link] Z = MsgBox(THE NEW STUDENT HAS BEEN ENROLLED, vbInformation) [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] = [Link] SANJEEV: End Sub

You might also like