Entrance Exam

Virgen Milagrosa University Fondation San Carlos City, Pangasinan College Of Computer Science SY (2012-2013) Entrance assessment System of Psu Programmers: Julius Eric S. Tuliao CS II-B Arnel Soriano CS II-B Kenneth Gatpo CS II-B Data Dictionary Database Name : StudInfo Table Name: Table StudInfo Field NameData TypeField SizeDescription ID NumberAutonumberLong IntegerRefers to the ID number of the examinee. NameText28Refers to the name of the examinee. AddressText30Refers to the location of the examinee AgeText15Refers to the age of the examinee.GenderText6Refers to the sexual orientation of the examinee. StatusText10Refers to the common status of the examinee ReligionText25Refers to the strict conviction of the examinee Contact NumberNumberLong IntegerRefers to the contact number of the examinee. No. Of CorrectNumberLong IntegerRefers to the quantity of right answers of the examinee. Grant DiscountText5Refers to the proportionate grant markdown of the number right answers of the exa minee. CourseText10Refers to the favored course of the examinee. Table Name: AdminField NameData TypeField SizeDescription ID NumberAutonumberLong IntegerRefers To the ID number of the executive UsernameText25Refers to the username of the chairman PasswordText25Refers to the secret phrase of the understudy Screenshots With Description When the client run the framework a progressbar will show up when the progressbar is full a message box will be shown that says that stacking is finished. In the wake of Clicking the alright catch in the message box the landing page will show up. The client will see that at the menu bar there is a File, Help, and Exit menus.The menu File contains the submenus: Administrator and Examinee Under the Help menu is the submenus: About the software engineer and about the framework which contains the data adjoin we the developers and the framework. The leave menu permits the client to leave the framework however before the client could leave the framework a me ssage box will be appeared in which he will be request to affirm exit. This login structure will show up once you click the submenu manager under the File menu. It will at that point request that the client enter his/her secret key and username.After the client enters the right username and secret phrase the chairman structure will show up which has four unique menus to be specific: File, Account, View, and Report. The File menu contains the submenu logout which is utilized to leave the chairman structure. The Account menu contains the new record. The View menu contains the View All submenu which permits the client to see all the enrolled data about the examinees. The Report Menu contain the submenus: View All, 100% markdown, 75% rebate, half markdown, 25% markdown and 0% discount.These submenus permits the client to have a printable duplicate of the examinees data and he could likewise pick among the distinctive arrangement of the examinee who previously took the assessment. In thi s structure you could include new record that will permit you to approach the executive structure. This is the structure that shows the enrolled data of the examinees who previously took up the assessment. It permits the client to alter the data of the examinee (with the exception of the quantity of right and the grant markdown) and spare it to the database. The client could likewise erase not required records.The client could likewise move starting with one data then onto the next just by tapping the following, past, first and last fastens. This structure is the about the framework structure it expresses the capacity of our framework and other data about the framework. This is the about the developers structure it permits the client to peruse the data of the software engineer of his/her decision by tapping the catches whose subtitles relates to the name of the developer. This is the data around one of the developers of this framework Arnel Soriano. This is the data about Kenneth Ga tpo. This is the data of Julius Eric Tuliao.This is the information report of the considerable number of examinees. This is the data about the understudies who has 100% markdown on their education costs. Screen captures With Codes: Private Sub Timer1_Timer() If (pb. Worth) = 16 Then txtper. Content = â€Å"50%† ElseIf txtscore. Content >= 10 Then txtper. Content = â€Å"25%† ElseIf txtscore. Content >= 0 Then txtper. Content = â€Å"0%† End If DataEnvironment1. rsCommand1. Update Dim an As Integer a = MsgBox(â€Å"Thank You†¦ You Have Just Finished The Entrance Examination†, vbInformation + vbOKOnly, â€Å"message†) frmhomepage. Show Unload Me End Sub Private Sub Form_Load() DataEnvironment1. rsCommand1. AddNew txtnam.Text = frmexamsignin. txtname. Content txtage. Content = frmexamsignin. txtage. Content txtadd. Content = frmexamsignin. txtaddress. Content txtstat. Content = frmexamsignin. cmbstat. Content txtgen. Content = frmexamsignin . cmbgender. Content txtrel. Content = frmexamsignin. txtreligion. Content txtcon. Content = frmexamsignin. txtcontact. Content txtcourse. Content = frmexamsignin. cmbcourse. Content txtscore. Content = 0 framea. Noticeable = True Frameb. Obvious = True framec. Noticeable = False encircled. Noticeable = False cmdsubmit. Obvious = False End Sub Private Sub opt1_Click(Index As Integer) cmdsubmit. Noticeable = True End Sub Private Sub opt2_Click(Index As Integer) mdsubmit. Obvious = True End Sub Private Sub opt3_Click(Index As Integer) cmdsubmit. Noticeable = True End Sub Private Sub optcheck30_Click() cmdsubmit. Noticeable = True End Sub Private Sub Timer1_Timer() If (Val(lbltimer2) = 0) Then lbltimer1. Subtitle = Val(lbltimer1) †1 lbltimer2. Subtitle = 59 Else lbltimer2. Subtitle = Val(lbltimer2 †1) End If (Val(lbltimer1) = 0 And Val(lbltimer2) = 0) Then Timer1. Empowered = False If optcheck1. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck2 . Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck3. Worth = True Then txtscore.Text = Val(txtscore. Content) + 1 End If optcheck4. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck5. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck6. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck7. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck8. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck9. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck10. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck11.Value = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck12. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck13. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck14. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck15. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck16. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck17. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck18. Worth = True Then txtscore. Content = Val(txtscore.Text) + 1 End If optcheck19. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck20. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck21. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck22. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck23. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck24. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck25. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optc heck26. Worth = True Then xtscore. Content = Val(txtscore. Content) + 1 End If optcheck27. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck28. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck29. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If optcheck30. Worth = True Then txtscore. Content = Val(txtscore. Content) + 1 End If txtscore. Content >= 25 Then txtper. Content = â€Å"100%† ElseIf txtscore. Content >= 19 Then txtper. Content = â€Å"75%† ElseIf txtscore. Content >= 16 Then txtper. Content = â€Å"50%† ElseIf txtscore. Content >= 10 Then txtper. Content = â€Å"25%† ElseIf txtscore.Text >= 0 Then txtper. Content = â€Å"0%† End If DataEnvironment1. rsCommand1. Update a = MsgBox(â€Å"Sorry your time is up†, vbInformation + vbOKOnly, â€Å"message†) frmhomepage. Show Unload Me End If End Sub Codes: Private Sub cmdCancel_Click( ) txtname = â€Å"† txtage = â€Å"† txtstat = â€Å"† txtreligion = â€Å"† txtcontact = â€Å"† txtaddress = â€Å"† cmbgender = â€Å"† cmbcourse. Content = â€Å"† End Sub Private Sub cmdhome_Click() frmhomepage. Show Unload Me End Sub Private Sub cmdsave_Click() Dim an As Integer If txtname. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf txtaddress. Content = â€Å"† Then = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf txtage. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf txtcontact. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf txtreligion. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf cmbgender. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. â€Å", vbInformation + vbOKOnly, â€Å"message†) ElseIf cmbstat. Content = â€Å"† Then a = MsgBox(â€Å"Please Fill Up All The Fields. , vbInformation + vbOKOnly, â€Å"message†