Course Registration System

Course Registration

PROBLEM DESCRIPTION:-

                        The allotment of courses during the start of the academic year can consume more time when done by physical means. By implementing the registration of course online, it would be efficient for both college and students to add new course and register for course respectively.

INTERFACES:-

                        The whole system is divided into 5 levels. They are

Ø  Selecting User

Ø  Adding a course

Ø  Display Availability

Ø  Register Course

Ø  Generate order form

SELECTING USER :-

                        This module is to select the type of user accessing the project. By determining the user the authentication for the rest of the project is provided for safety concerns.

ADDING A COURSE :-

        This module is used for the colleges. Adding course has three sub modules namely,

Ø  Login module

Ø  College selection

Ø  Slots according to the Quota

LOGIN:-

This module is used to store the information of the officer’s user name and password.

COLLEGE SELECTION:-

        This module is to let the user to select which college does he want to add the seats for this academic year.

SLOTS ACCOTDING TO THE QUOTA:-

                This module provides the user with the slots to fill the specified seats in the college according to the quota as category.

DISPLAY AVAILABILITY:-

                        This module is to display the students with the seats available for them to register. This again has 2 other modules,

Ø  Stream selection

Ø  Check availability

STREAM SELECTION:-

                        This module contains the streams for the students to select. The users would be able to select the course under the stream choosen.

CHECK AVAILABILITY:-

                        This module is used to check the selected course is occupied of free in the project database for security concerns.

REGISTER COURSE:-

                        This module lets the students to select the course the preferred for and then register for it. The order form is generated at last.

GENERATE ORDER FORM:-

            This module is to generate the order form according to the course and college the user has registered for with the details specified in the form including the registration number and the quota under which the seat has been taken.

Security and Privacy:-

                        The students can only register for the seats that the college decides to give which ensures no data loss for the college. The students are asked only few reasonable details to match their choice of course.

RELIABLITY:-

                        There is no atomicity problem.

SAFETY:-             

       No data loss occurs in this system. It is very much protected   in such a way that it gives permission to college to access only to modify to the course availability assignment.

QUALITY:-

                        The VB tool which has graphic interface features makes the project a quality one.

DATA STRUCTURE:-

                The data in this project are maintained in the tabular form using Oracle as the Back-End and VB6.0 as the Front-End, which is user friendly.

USEFULNESS OF PROJECT:-

                        This system guides the students and the concerned staff personals to find the course which they preferred to take and to fill out the course available for the academic year by providing authentication. Thus providing an easier means of filling the seats for the colleges.

Use Case Diagram:-

Class Diagram:-

Sequential Diagram:-

Activity Diagram:-

Select-User  Form:-

Select-User  Form Code:-

Private Sub CmdCollege_Click()

Unload Me

Frmcollege_login.Show

End Sub            

Private Sub CmdStudent_Click()

Unload Me

Frmselect_stream.Show

End Sub

Private Sub CmdEnd_Click()

End

End Sub

Private Sub Form_Load()

Me.Move 4800, 5000

'Frmselect_user.StartUpPosition = FormStartPosition.CenterScreen

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then

ChoiceOne.Show

End If

End Sub

Private Sub Form_Load()

ChoiceOne.Left = (Screen.Width - ChoiceOne.Width) / 2

ChoiceOne.Top = (Screen.Height - ChoiceOne.Height) / 2

End Sub

Login Form:-

Login Form Code:-

Dim Cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Dim flag, Flag1 As Integer

Private Sub CmdCancel_Click()

End

End Sub

Private Sub CmdOk_Click()

If KeyAscii = 13 Then

If Text1.Text = "" Then

MsgBox "Please Fill The Admin_Name Field's", vbInformation, ""

Else

If Text2.Text = "" Then

MsgBox "Please Fill The Admin_Password Field's", vbInformation, ""

Else

flag = 0

If Text1.Text = "college" Then

If Text2.Text = "123" Then

Flag1 = 1

MsgBox "" & Text1.Text & " Permission Granted!!!", vbInformation, "RailWay Login"

Text1.Text = ""

Text2.Text = ""

Unload Me

Frmcolleges_show.Show

End If

End If

flag = 2

If flag = 2 And Flag1 <> 1 Then

MsgBox "Invalid Password", vbExclamation, "Error"

End If

If flag = 0 And Flag1 <> 1 Then

MsgBox "Un_Authorized User", vbExclamation, "Error"

End If

End If

End If

End If

End Sub

Private Sub Form_Load()

Me.Move 4500, 5000

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text1.Text = "" Then

MsgBox "Please Fill The Admin_Name Field's", vbInformation, ""

Else

If Text2.Text = "" Then

MsgBox "Please Fill The Admin_Password Field's", vbInformation, ""

Else

flag = 0

If Text1.Text = "college" Then

If Text2.Text = "123" Then

Flag1 = 1

MsgBox "" & Text1.Text & " Permission Granted!!!", vbInformation, "RailWay Login"

Text1.Text = ""

Text2.Text = ""

Unload Me

Frmcolleges_show.Show

End If

End If

flag = 2

If flag = 2 And Flag1 <> 1 Then

MsgBox "Invalid Password", vbExclamation, "Error"

End If

If flag = 0 And Flag1 <> 1 Then

MsgBox "Un_Authorized User", vbExclamation, "Error"

End If

End If

End If

End If

End Sub

Select-College  Form:-

Select College Form Code:-

Private Sub Command1_Click()

Frmengineering_addseat.Show

Frmcolleges_show.Hide

End Sub

Private Sub Command2_Click()

Frmmedical_addseat.Show

Frmcolleges_show.Hide

End Sub

Private Sub Command3_Click()

Frmarts_addseat.Show

Frmcolleges_show.Hide

End Sub

Private Sub Form_Load()

Me.Move 2200, 2500

End Sub

Adding seat to College Form:-

Adding seat to Engineering-College Form Code:-

Dim Cn As New ADODB.Connection

Dim Rs1 As New ADODB.Recordset

Dim Rs2 As New ADODB.Recordset

Dim Rs3 As New ADODB.Recordset

Dim str1 As String

Dim str2 As String

Dim str3 As String

Private Sub CmdSaveECE_Click()

If Rs1.State = 1 Then Rs1.Close

Rs1.CursorLocation = adUseClient

Rs1.Open "select * from ece", Cn, adOpenStatic, adLockBatchOptimistic

Rs1.AddNew

Rs1.Fields(0) = Val(Text1.Text)

Rs1.Fields(1) = Val(Text2.Text)

Rs1.Fields(2) = Val(Text3.Text)

Rs1.Fields(3) = Val(Text5.Text)

Rs1.Fields(4) = Val(Text6.Text)

Rs1.UpdateBatch

If Rs2.State = 1 Then Rs2.Close

Rs2.CursorLocation = adUseClient

Rs2.Open "select * from cse", Cn, adOpenStatic, adLockBatchOptimistic

Rs2.AddNew

Rs2.Fields(0) = Val(Text7.Text)

Rs2.Fields(1) = Val(Text8.Text)

Rs2.Fields(2) = Val(Text9.Text)

Rs2.Fields(3) = Val(Text10.Text)

Rs2.Fields(4) = Val(Text11.Text)

Rs2.UpdateBatch

If Rs3.State = 1 Then Rs3.Close

Rs3.CursorLocation = adUseClient

Rs3.Open "select * from eee", Cn, adOpenStatic, adLockBatchOptimistic

Rs3.AddNew

Rs3.Fields(0) = Val(Text12.Text)

Rs3.Fields(1) = Val(Text13.Text)

Rs3.Fields(2) = Val(Text14.Text)

Rs3.Fields(3) = Val(Text15.Text)

Rs3.Fields(4) = Val(Text16.Text)

Rs3.UpdateBatch

MsgBox "Seats Added", vbInformation, ""

Unload Frmengineering_addseat

Frmselect_user.Show

End Sub

Private Sub cmdMain_Click()

Unload Frmengineering_addseat

Frmselect_user.Show

End Sub

Private Sub Command1_Click()

str1 = "truncate table ece"

str2 = "truncate table cse"

str3 = "truncate table eee"

Cn.Execute (str1)

Cn.Execute (str2)

Cn.Execute (str3)

MsgBox "Database Cleared ! Continue adding seats.", vbInformation, ""

End Sub

Private Sub Form_Load()

Me.Move 4500, 1500

If Cn.State = 1 Then Cn.Close

Cn.CursorLocation = adUseClient

Cn.Open "Provider=OraOLEDB.Oracle;Password=tiger;User ID=scott;Persist Security Info=True;"

End Sub

Stream Display Form :-

Stream Display Form Code:-

Private Sub CmdArts_Click()

Frmselect_stream.Hide

Frmarts_studentdetails.Show

End Sub

Private Sub CmdEngineering_Click()

Frmselect_stream.Hide

Frmengineering_studentdetails.Show

End Sub

Private Sub CmdMedical_Click()

Frmselect_stream.Hide

Frmmedical_studentdetails.Show

End Sub

Private Sub Form_Load()

Me.Move 0, 0

End Sub

StudentDetails  Form :-

Arts-StudentDetails  Form Code:-

Dim Cn1 As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Private Sub CmdCancel_Click()

End

End Sub

Private Sub CmdClear_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Combo1.Text = ""

Combo2.Text = ""

End Sub

Private Sub CmdSubmit_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Combo1.Text = "" Or regno = Val(Text1.Text) Or sname = Text2.Text Or stream = Combo1.Text Then

MsgBox "Please complete all the details needed"

End If

If Rs.State = 1 Then Rs.Close

Rs.CursorLocation = adUseClient

Rs.Open "select * from artsregister", Cn1, adOpenStatic, adLockBatchOptimistic

Rs.AddNew

Rs.Fields(0) = Val(Text1.Text)

Rs.Fields(1) = Text2.Text

Rs.Fields(2) = Val(Text3.Text)

Rs.Fields(3) = Combo1.Text

Rs.UpdateBatch

MsgBox "Information Added. Please Proceed.", vbInformation, ""

Frmarts_seatdisplay.Show

Unload Me

End Sub

Private Sub Form_Load()

Me.Move 4500, 2500

If Cn1.State = 1 Then Cn1.Close

Cn1.CursorLocation = adUseClient

Cn1.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True;"

End Sub

Display-Availability  Form :-

Display-Arts-Availability  Form Code:-

Dim Cn As New ADODB.Connection

Dim Rs1 As New ADODB.Recordset

Dim Rs2 As New ADODB.Recordset

Dim Rs3 As New ADODB.Recordset

Private Sub CmdBack_Click()

Frmarts_seatdisplay.Hide

Frmarts_studentdetails.Show

End Sub

Private Sub CmdRegister_Click()

Frmarts_seatdisplay.Hide

Frmarts_register.Show

End Sub

Private Sub Form_Load()

Me.Move 1700, 1950

Dim i As Integer

If Cn.State = 1 Then Cn.Close

Cn.CursorLocation = adUseClient

Cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True;"

Rs1.Open "select * from maths", Cn

If Rs1.EOF = False Then

Label8.Caption = Rs1.Fields(0)

'Text1.Text = Rs1.Fields(0)

Label9.Caption = Rs1.Fields(1)

Label10.Caption = Rs1.Fields(2)

Label11.Caption = Rs1.Fields(3)

Label12.Caption = Rs1.Fields(4)

Rs1.Close

End If

Rs2.Open "select * from history", Cn

If Rs2.EOF = False Then

Label13.Caption = Rs2.Fields(0)

Label14.Caption = Rs2.Fields(1)

Label15.Caption = Rs2.Fields(2)

Label16.Caption = Rs2.Fields(3)

Label21.Caption = Rs2.Fields(4)

Rs2.Close

End If

Rs3.Open "select * from litrature", Cn

If Rs3.EOF = False Then

Label23.Caption = Rs3.Fields(0)

Label24.Caption = Rs3.Fields(1)

Label25.Caption = Rs3.Fields(2)

Label26.Caption = Rs3.Fields(3)

Label27.Caption = Rs3.Fields(4)

'Text15.Text = Rs3.Fields(4)

Rs3.Close

End If

End Sub

Register-Course Form :-

Arts-Register-Course Form Code:-

Dim Cn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Dim Rs1 As New ADODB.Recordset

Dim flag As Integer

Public Function check()

Dim Rs As New ADODB.Recordset

Dim Rs1 As New ADODB.Recordset

Dim Rs2 As New ADODB.Recordset

Dim Rs3 As New ADODB.Recordset

Dim Rs4 As New ADODB.Recordset

Dim i As Integer

Dim str2 As String

If course.Text = "Maths" Then

Rs.Open "select * from maths", Cn

If quota.Text = "GENERAL" Then

i = 0

If Rs.Fields(0) <> 0 Then

str2 = "update maths set general='" & (Rs.Fields(0) - 1) & "'"

Cn.Execute (str2)

'Rs.Fields(0) = Rs.Fields(0) - 1

MsgBox "Successfully Registered Maths"

Frmarts_seatdisplay.Label8.Caption = Rs.Fields(0)

flag = 1

Else

MsgBox "The course is currently Unavailable ! Please select other course."

flag = 0

End If

End If

Rs.Close

            'XXXXXXXXXXXXX'

              

Rs1.Open "select * from maths", Cn

If quota.Text = "OBC" Then

i = 1

If Rs1.Fields(1) <> 0 Then

str2 = "update maths set obc='" & (Rs1.Fields(1) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered Maths"

Frmarts_seatdisplay.Label9.Caption = Rs1.Fields(1)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs1.Close

            'XXXXXXXXXXXXX'

              

Rs2.Open "select * from maths", Cn

If quota.Text = "MBC" Then

i = 2

If Rs2.Fields(2) <> 0 Then

str2 = "update maths set mbc='" & (Rs2.Fields(2) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered Maths"

Frmarts_seatdisplay.Label10.Caption = Rs2.Fields(2)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs2.Close

           

            'XXXXXXXXXXXXX'

              

Rs3.Open "select * from maths", Cn

If quota.Text = "SC" Then

i = 3

If Rs3.Fields(3) <> 0 Then

str2 = "update maths set sc='" & (Rs3.Fields(3) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered Maths"

Frmarts_seatdisplay.Label11.Caption = Rs3.Fields(3)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs3.Close

           

            'XXXXXXXXXXXXX'

              

Rs4.Open "select * from maths", Cn

If quota.Text = "OTHER" Then

i = 4

If Rs4.Fields(4) <> 0 Then

str2 = "update maths set other='" & (Rs4.Fields(4) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered MAths"

Frmarts_seatdisplay.Label12.Caption = Rs4.Fields(4)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs4.Close

End If

                                                               ‘History Register'

If course.Text = "History" Then

Rs.Open "select * from history", Cn

If quota.Text = "GENERAL" Then

i = 0

If Rs.Fields(0) <> 0 Then

str2 = "update history set general='" & (Rs.Fields(0) - 1) & "'"

Cn.Execute (str2)

'Rs.Fields(0) = Rs.Fields(0) - 1

MsgBox "Successfully Registered History"

Frmarts_seatdisplay.Label13.Caption = Rs.Fields(0)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs.Close

            'XXXXXXXXXXXXX'

              

Rs1.Open "select * from history", Cn

If quota.Text = "OBC" Then

i = 1

If Rs1.Fields(1) <> 0 Then

str2 = "update history set obc='" & (Rs1.Fields(1) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered History"

Frmarts_seatdisplay.Label14.Caption = Rs1.Fields(1)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs1.Close

            'XXXXXXXXXXXXX'

              

Rs2.Open "select * from history", Cn

If quota.Text = "MBC" Then

i = 2

If Rs2.Fields(2) <> 0 Then

str2 = "update history set mbc='" & (Rs2.Fields(2) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label15.Caption = Rs2.Fields(2)

flag = 1

Else

MsgBox "Not Registered"

flag = 1

End If

End If

Rs2.Close

            'XXXXXXXXXXXXX'

              

Rs3.Open "select * from history", Cn

If quota.Text = "SC" Then

i = 3

If Rs3.Fields(3) <> 0 Then

str2 = "update history set sc='" & (Rs3.Fields(3) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label16.Caption = Rs3.Fields(3)

Else

MsgBox "Not Registered"

End If

End If

Rs3.Close

            'XXXXXXXXXXXXX'

              

Rs4.Open "select * from history", Cn

If quota.Text = "OTHER" Then

i = 4

If Rs4.Fields(4) <> 0 Then

str2 = "update history set other='" & (Rs4.Fields(4) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label21.Caption = Rs4.Fields(4)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs4.Close

End If

                                                                                                                                        

If course.Text = "Litrature" Then

Rs.Open "select * from litrature", Cn

If quota.Text = "GENERAL" Then

i = 0

If Rs.Fields(0) <> 0 Then

str2 = "update litrature set general='" & (Rs.Fields(0) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label23.Caption = Rs.Fields(0)

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs.Close

            'XXXXXXXXXXXXX'

              

Rs1.Open "select * from litrature", Cn

If quota.Text = "OBC" Then

i = 1

If Rs1.Fields(1) <> 0 Then

str2 = "update litrature set obc='" & (Rs1.Fields(1) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label24.Caption = Rs1.Fields(1)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs1.Close

            'XXXXXXXXXXXXX'

              

Rs2.Open "select * from litrature", Cn

If quota.Text = "MBC" Then

i = 2

If Rs2.Fields(2) <> 0 Then

str2 = "update litrature set mbc='" & (Rs2.Fields(2) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label25.Caption = Rs2.Fields(2)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs2.Close

            'XXXXXXXXXXXXX'

              

Rs3.Open "select * from litrature", Cn

If quota.Text = "SC" Then

i = 3

If Rs3.Fields(3) <> 0 Then

str2 = "update litrature set sc='" & (Rs3.Fields(3) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label26.Caption = Rs3.Fields(3)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs3.Close

            'XXXXXXXXXXXXX'

              

Rs4.Open "select * from litrature", Cn

If quota.Text = "OTHER" Then

i = 4

If Rs4.Fields(4) <> 0 Then

str2 = "update litrature set other='" & (Rs4.Fields(4) - 1) & "'"

Cn.Execute (str2)

MsgBox "Successfully Registered"

Frmarts_seatdisplay.Label27.Caption = Rs4.Fields(4)

flag = 1

Else

MsgBox "Not Registered"

flag = 0

End If

End If

Rs4.Close

End If

End Function

Private Sub CmdRegister_Click()

quo = quota.Text

cou = course.Text

If quota.Text = "" Or course.Text = "" Then

MsgBox "Select all the items promptly"

Exit Sub

End If

Call check

If flag = 1 Then

Frmarts_register.Hide

Frmorder_generation.Show

End If

If flag = 0 Then

MsgBox "The course is currently Unavailable ! Please select other course."

End If

End Sub

Private Sub Form_Load()

Me.Move 5500, 4500

If Cn.State = 1 Then Cn.Close

Cn.CursorLocation = adUseClient

Cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True;"

End Sub

Generate-Order Form :-

Generate-Order Form Code:-

Private Sub Command1_Click()

CommonDialog1.ShowPrinter

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Me.Move 3900, 1500

Label6.Caption = sname

Label7.Caption = regno

Label8.Caption = cou

Label9.Caption = quo

Select Case stream

Case "Engineering": Label5.Caption = "PONDICHERRY ENGINEERING COLLEGE"

Case "Medicine": Label5.Caption = "PONDICHERRY MEDICAL COLLEGE"

Case "Arts": Label5.Caption = "PONDICHERRY ARTS COLLEGE"

End Select

End Sub

MDI Form Code :-

Option Explicit

  

   Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

  

      Const WS_CAPTION = &HC00000

      Const WS_SYSMENU = &H80000

      Const WS_MINIMIZEBOX = &H20000

      Const WS_MAXIMIZEBOX = &H10000

      Const GWL_STYLE = (-16)

 

Private Sub MDIForm_Load()

Frmselect_user.Show

Dim L As Long

L = GetWindowLong(Me.hwnd, GWL_STYLE)

L = L And Not (WS_MINIMIZEBOX)

L = L And Not (WS_MAXIMIZEBOX)

L = L Xor WS_CAPTION

L = SetWindowLong(Me.hwnd, GWL_STYLE, L)

End Sub

CONCLUSION:

                             Thus the project for “Course Registration” with oracle database was developed and executed successfully.