COURSE REGISTRATION SYSTEM

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:-

Activity Diagram:-

CODING:-
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 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 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 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 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

Student Details 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 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 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 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.