Entrance Exam

Virgen Milagrosa University Fondation San Carlos City, Pangasinan College Of computing device Science SY (2012-2013) Entrance examination System of Psu Programmers Julius Eric S. Tuliao CS II-B Arnel Soriano CS II-B Kenneth Gatpo CS II-B Data Dictionary Database general anatomy StudInfo Table nonice Table StudInfo subject field NameData TypeField SizeDescription ID NumberAutonumberLong IntegerRefers to the ID number of the examinee. Name schoolbook28Refers to the name of the examinee. Address textual matter30Refers to the address of the examinee Agetext15Refers to the age of the examinee.Gender textual matter6Refers to the gender of the examinee. Status schoolbook10Refers to the urbane status of the examinee Religion school text25Refers to the religious belief of the examinee Contact NumberNumberLong IntegerRefers to the signature number of the examinee. No. Of CorrectNumberLong IntegerRefers to the number of correct answers of the examinee. Scholarship Discount school text5 Refers to the equivalent lore discount of the number correct answers of the examinee. Course school text10Refers to the preferred course of the examinee. Table Name AdminField NameData TypeField SizeDescription ID NumberAutonumberLong IntegerRefers To the ID number of the administrator Usernametext25Refers to the drug username of the administrator Password text edition25Refers to the battle cry of the student Screenshots With Description When the user run the governance a progressbar willing start when the progressbar is full a essence box will be displayed that says that loading is complete. After Clicking the ok button in the message box the homepage will appear. The user will see that at the visiting card bar there is a File, Help, and sacking add-ins.The menu File contains the submenus Administrator and Examinee Under the Help menu is the submenus About the programmer and rough the system which contains the discipline abut we the programmers and the system. The tur n over menu allows the user to exit the system but before the user could exit the system a message box will be shown in which he will be ask to confirm exit. This login unionise will appear once you click the submenu administrator under the File menu. It will then ask the user to enter his/her password and username.After the user enters the correct username and password the administrator form will appear which has four dissimilar menus namely File, Account, View, and Report. The File menu contains the submenu logout which is utilise to exit the administrator form. The Account menu contains the unexampled account. The View menu contains the View totally submenu which allows the user to view all the enlisted cultivation nigh the examinees. The Report Menu contain the submenus View All, 100% discount, 75% discount, 50% discount, 25% discount and 0% discount.These submenus allows the user to have a printable copy of the examinees selective information and he could also choose a mong the different classification of the examinee who already took the examination. In this form you could add new account that will allow you to have access to the administrator form. This is the form that shows the enlisted information of the examinees who already took up the examination. It allows the user to edit the information of the examinee (except the number of correct and the scholarship discount) and save it to the database. The user could also strike down not needed enrols.The user could also move from one information to another just by clicking the next, previous, first and last buttons. This form is the well-nigh the system form it states the function of our system and other information nigh the system. This is the about the programmers form it allows the user to browse the information of the programmer of his/her option by clicking the buttons whose captions corresponds to the name of the programmer. This is the information about one of the programmers of this sys tem Arnel Soriano. This is the information about Kenneth Gatpo. This is the information of Julius Eric Tuliao.This is the data report of all the examinees. This is the information about the students who has 100% discount on their tuition fees. Screenshots With Codes Codes cliquish hit man Timer1_Timer() If (pb. value) = 16 accordingly txtper. textual matter = 50% ElseIf txtscore. school text = 10 indeed txtper. school text = 25% ElseIf txtscore. text = 0 therefore txtper. Text = 0% annul If DataEnvironment1. rsCommand1. update tedious a As Integer a = MsgBox(thank You You Have Just Finished The Entrance Examination, vbInformation + vbOKOnly, message) frmhomepage. sharpen Unload Me sack sub orphic fill out Form_ adulterate() DataEnvironment1. rsCommand1. AddNew txtnam.Text = frmexamsignin. txtname. Text txtage. Text = frmexamsignin. txtage. Text txtadd. Text = frmexamsignin. txtaddress. Text txtstat. Text = frmexamsignin. cmbstat. Text txtgen. Text = frmexamsignin. cm bgender. Text txtrel. Text = frmexamsignin. txtreligion. Text txtcon. Text = frmexamsignin. txtcontact. Text txtcourse. Text = frmexamsignin. cmbcourse. Text txtscore. Text = 0 framea. evident = authoritative Frameb. clear = true up framec. Visible = turned framed. Visible = phony cmdsubmit. Visible = misguided displace hired gun sequestered stand in opt1_Click(Index As Integer) cmdsubmit. Visible = accepted ending complete close deputize opt2_Click(Index As Integer) mdsubmit. Visible = lawful final stage step in cloak-and-dagger gun for hire opt3_Click(Index As Integer) cmdsubmit. Visible = square ratiocination hoagy occult submarine sandwich optcheck30_Click() cmdsubmit. Visible = true up shutdown poor boy secret crampfish Timer1_Timer() If (Val(lbl cartridge holderr2) = 0) therefore lbltimer1. furnish = Val(lbltimer1) 1 lbltimer2. provide = 59 Else lbltimer2. Caption = Val(lbltimer2 1) polish off If If (Val(lbltimer1) = 0 And Val(lbltimer2) = 0) wherefore Timer1. Enabled = bastard If optcheck1. rank = dependable accordingly txtscore. Text = Val(txtscore. Text) + 1 peculiarity If If optcheck2. place = unbent thence txtscore. Text = Val(txtscore. Text) + 1 finis If If optcheck3. Value = True consequently txtscore.Text = Val(txtscore. Text) + 1 finish If If optcheck4. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 bar If If optcheck5. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck6. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck7. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck8. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck9. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck10. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck11.Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck12. Value = True T hen txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck13. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck14. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck15. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck16. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck17. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck18. Value = True Then txtscore. Text = Val(txtscore.Text) + 1 End If If optcheck19. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck20. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck21. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck22. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck23. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck24. Value = True Then txtscore. Text = Val(t xtscore. Text) + 1 End If If optcheck25. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck26. Value = True Then xtscore. Text = Val(txtscore. Text) + 1 End If If optcheck27. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck28. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck29. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If optcheck30. Value = True Then txtscore. Text = Val(txtscore. Text) + 1 End If If txtscore. Text = 25 Then txtper. Text = 100% ElseIf txtscore. Text = 19 Then txtper. Text = 75% ElseIf txtscore. Text = 16 Then txtper. Text = 50% ElseIf txtscore. Text = 10 Then txtper. Text = 25% ElseIf txtscore.Text = 0 Then txtper. Text = 0% End If DataEnvironment1. rsCommand1. Update a = MsgBox(Sorry your time is up, vbInformation + vbOKOnly, message) frmhomepage. come out Unload Me End If End numbfish Codes secluded torpedo cmdCancel_Click() txtname = txtage = txtsta t = txtreligion = txtcontact = txtaddress = cmbgender = cmbcourse. Text = End gunslinger one-on-one champion cmdhome_Click() frmhomepage. Show Unload Me End wedge shape secluded Sub cmdsave_Click() Dim a As Integer If txtname. Text = Then a = MsgBox( disport Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf txtaddress. Text = Then = MsgBox( transport Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf txtage. Text = Then a = MsgBox(Please Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf txtcontact. Text = Then a = MsgBox(Please Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf txtreligion. Text = Then a = MsgBox(Please Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf cmbgender. Text = Then a = MsgBox(Please Fill Up All The Fields. , vbInformation + vbOKOnly, message) ElseIf cmbstat. Text = Then a = MsgBox(Please Fill Up All The Fields. , vbInformation + vbOKOnly, message) Else cmdtake. Visible = True End If End Sub Private Sub cmdtake_Click() Load frmexam frmexam. Show Unload Me End Sub Private Sub Form_Load() txtname. Text = txtage. Text = txtaddress. Text = txtreligion. Text = txtcontact. Text = cmbstat. Text = cmbgender. Text = cmbcourse. Text = cmbgender. AddItem (Male) cmbgender. AddItem ( female) cmbstat. AddItem (Widow) cmbstat. AddItem ( get married) cmbstat. AddItem (Single) cmbstat. AddItem (Legally Separated) cmbcourse. AddItem (BSCS) cmbcourse. AddItem (BSED) cmbcourse. AddItem (BSBA) cmbcourse.AddItem (BSENG) cmbcourse. AddItem (BSPHAR) cmbcourse. AddItem (BSDENTISTRY) cmbcourse. AddItem (BSHRM) cmbcourse. AddItem (BSN) End Sub Private Sub txtcontact_Change() If Not IsNumeric(txtcontact. Text) Then txtcontact. Text = End If End Sub Codes Private Sub cdm_Click(Index As Integer) txtpin = txtpin & cdm(Index). Caption End Sub Private Sub cmd_Click() txtpin. Text = Left(txtpin, Len(txtpin) 1) End Sub Private Sub cmdCancel_Click() set th e spheric var to false to denote a failed login LoginSucceeded = False Me. Hide Load frmhomepage frmhomepage. Show End Sub Private Sub cmdOK_Click() Dim a As describeOn error GoTo record If (DataEnvironment1. rsCommand2. BOF = True) And (DataEnvironment1. rsCommand2. EOF = True) Then Exit Sub a = MsgBox(valid Account or Password, vbInformation, Error) txtuser. Text = txtpass. Text = Exit Sub End If DataEnvironment1. rsCommand2. MoveFirst If txtuser. Text = lbla. Caption And txtpass. Text = lblp. Caption Then Load frmadminmenu frmadminmenu. Show Me. Hide txtuser. Text = txtpass. Text = End If Do With DataEnvironment1. rsCommand2 .MoveNext If . EOF Then a = MsgBox(Invalid Account or Password, leaven again , vbInformation, Error) txtuser.Text = txtpin. Text = Exit Sub ElseIf txtuser. Text = lbla. Caption And txtpass. Text = lblp. Caption Then Load frmadminmenu frmadminmenu. Show Me. Hide txtuser. Text = txtpass. Text = Exit Sub Else End If End With Loop Until (DataEnvironme nt1. rsCommand2. EOF) record Exit Sub End Sub Private Sub Form_Load() lbla. Visible = False lblp. Visible = False Picture1. Visible = True Picture2. Visible = False End Sub Private Sub Timer1_Timer() Picture1. Visible = True Picture2. Visible = False End Sub Private Sub Timer2_Timer() Picture2. Visible = True Picture1. Visible = False End Sub CodesPrivate Sub cmdback_Click() frmadminmenu. Show Unload Me End Sub Private Sub cmdCancel_Click() txtPassword = txtUserName = End Sub Private Sub cmdOK_Click() DataEnvironment1. rsCommand2. Update Dim a As mountain range a = MsgBox(Your Username and Password has been Saved) End Sub Private Sub Form_Load() DataEnvironment1. rsCommand2. AddNew Picture1. Visible = True Picture3. Visible = False End Sub Private Sub Timer1_Timer() Picture1. Visible = True Picture3. Visible = False End Sub Private Sub Timer2_Timer() Picture3. Visible = True Picture1. Visible = False End Sub Codes Private Sub cmdarnel_Click()Load frmprograma frmprograma. Show Unl oad Me End Sub Private Sub cmderic_Click() Load frmprogramj frmprogramj. Show Unload Me End Sub Private Sub cmdken_Click() Load frmprogramk frmprogramk. Show Unload Me End Sub Private Sub home_Click() frmhomepage. Show Unload Me End Sub Codes Private Sub cmdprogram_Click() Load frmprogram frmprogram. Show Unload Me End Sub Codes Private Sub admin_Click() frmadminmenu. Show Unload Me End Sub Private Sub cmdadminmenu_Click() End Sub Private Sub cmddelete_Click() If DataEnvironment1. rsCommand1. EOF True Then X = MsgBox(Are you sure you want to delete this item? , vbYesNo + vbQuestion, This data is not recoverable) If X = vbNo Then Exit Sub Else On Error Resume Next DataEnvironment1. rsCommand1. Delete DataEnvironment1. rsCommand1. MoveNext If DataEnvironment1. rsCommand1. EOF = True Then DataEnvironment1. rsCommand1. MoveLast End If End If Else X = MsgBox(no current record, vbOKOnly + vbInformation, Warning ) End If End Sub Private Sub cmdedit_Click() txtname. Locked = False txtaddres s. Locked = False txtage. Locked = False cmbgender. Locked = False cmbstat. Locked = False txtreligion. Locked = False txtcontact. Locked = False End Sub Private Sub cmdfirst_Click()DataEnvironment1. rsCommand1. MoveFirst cmdnext. Enabled = True End Sub Private Sub cmdlast_Click() DataEnvironment1. rsCommand1. MoveLast cmdprev. Enabled = True End Sub Private Sub cmdnext_Click() Dim a As String If DataEnvironment1. rsCommand1. EOF = True Then a = MsgBox(End of file was encountered, vbInformation + vbOKOnly, message) cmdnext. Enabled = False Exit Sub Else DataEnvironment1. rsCommand1. MoveNext cmdprev. Enabled = True End If End Sub Private Sub cmdprev_Click() Dim a As String If DataEnvironment1. rsCommand1. BOF = True Then a = MsgBox(beginning of file was encountered, vbInformation + bOKOnly, message) cmdprev. Enabled = False Exit Sub Else DataEnvironment1. rsCommand1. MovePrevious cmdnext. Enabled = True End If End Sub Private Sub cmdsave_Click() DataEnvironment1. rsCommand1. Update X = MsgBox(data Updated, vbOKOnly + vbInformation) txtname. Locked = True txtaddress. Locked = True txtage. Locked = True txtreligion. Locked = True txtcontact. Locked = True txtcorrect. Locked = True txtdiscount. Locked = True cmbgender. Locked = True cmbstat. Locked = True End Sub Private Sub cmd try_Click() Dim a As Integer Dim await As String On Error GoTo record search = If (DataEnvironment1. sCommand1. BOF = True And DataEnvironment1. rsCommand1. EOF = True) Then Exit Sub End If DataEnvironment1. rsCommand1. MoveFirst search = InputBox(Enter Name, Search a record) If search = txtname. Text Then a = MsgBox(record Found, vbInformation + vbOKOnly, message) End If Do With DataEnvironment1. rsCommand1 .MoveNext If . EOF Then a = MsgBox(No record Found, vbInformation + vbOKOnly, message) Exit Sub ElseIf search = txtname. Text Then a = MsgBox(record Found) Exit Sub Else End If End With Loop Until (DataEnvironment1. rsCommand1. EOF) record Exit Sub End Sub Private Sub Form_Load() tx tname.Locked = True txtaddress. Locked = True txtage. Locked = True txtreligion. Locked = True txtcontact. Locked = True txtcorrect. Locked = True txtdiscount. Locked = True cmbgender. Locked = True cmbstat. Locked = True cmbgender. AddItem (Male) cmbgender. AddItem (Female) cmbstat. AddItem (Single) cmbstat. AddItem (Married) cmbstat. AddItem (Legally Separated) cmbstat. AddItem (Widow) cmbcourse. AddItem (BSCS) cmbcourse. AddItem (BSED) cmbcourse. AddItem (BSBA) cmbcourse. AddItem (BSENG) cmbcourse. AddItem (BSPHAR) cmbcourse. AddItem (BSDENTISTRY) cmbcourse. AddItem (BSHRM) cmbcourse.AddItem (BSN) End Sub Private Sub homepage_Click() frmhomepage. Show Unload Me End Sub creative activity of entrance examination system Computers greatly enhances the speed and accurate way out of counting process. Results could be attained even right after the examinations step-down the time to a simple part compare to the time it takes if the examinations is through with(p) manually. Computeriz e entrance examinations have the possible to create examinations results with much great accuracy than traditional paper-based entrance examination system. Computer machines invented to influence us to dupe our form easier and better.In schools, banks and offices use computerized system in its operations to subjugate time consuming and improve competence for the better service. With the help of computerized system people may take their advantages in order to meet their work faster. The world is changing so fast that we need to keep au fait to the fast upgrading of computer technologies to make us more productive. Many schools that address examination are using their manual based system up to present. In managing their system, they have encountered difficulties and problems for it is laborious and time consuming.The centering Counselor of PANGASINAN soil UNIVERISITY San Carlos Campus gave the entrance exam to all incoming freshmen in order to footrace the mental capabilities of every student. In Manual System, the processing of transactions of the Guidance Counselor may take time consuming in recording, checking and retrieving files of students. If the students did not meet the cut off score in the examination, the student will not be qualified to enroll in the school. This study is about a Local Area Network (LAN) Based examination which allows communication from server to client or vice versa to provide data and to make the task easier