COURSE REGISTRATION SYSTEM

COURSE REGISTRATION SYSTEM














COURSE REGISTRATION SYSTEM
AIM:
To develop the course registration system by using visual basic as front end and MS-access as back end.

PROGRAM ANALYSIS AND PROJECT PLANNING

PURPOSE:
The purpose of the program analysis and project planning is to fully describe the functionality of course registration system identified and it also describe non-functional requirements and design control and other factors.

PROJECT SCOPE:
The program analysis and project planning applies to the course registration system.Initially the project is going to be implement interact level and later the organization has an idea to upgrade in internet level the project merit include this project might suppresses the complication in manual course registration.

OBJECTIVES:
 It reduces the workload of institutions and students,by the system registration will not offer the physical appearance of the applier.
 It consumes more time.

HARDWARE REQUIREMENTS:
4. Pentium Processor
5. Intel Motherboard
6. RAM 256MB(minimum)
7. Hard disk 40GB(minimum)

SOFTWARE REQUIREMENTS:
10. Microsoft VisualBasic6.0
11. Microsoft Access
12. Rational Rose

SOFTWARE REQUIRMENT ANALYSIS:

The following sub sections describe the usage of the payroll system.There are five modules.

 Use entry
 Verification of password
 Student details
 Select the college
 Select the desired course
INTENDED AUDIENCE:

• Student
• Administrator

PRODUCT FUNCTIONS:

Here short briefing on course registration.It has the following five modules. The modules are:-

1. USER ENTRY:

The user has to provide the user name and the pin number.The pin is the four digit number, which is also called a secret key known to the user.

2.VERIFICATION OF PASSWORD:

The password is matched with one already present in the data base is the password is scanned.If the password is correct the user is logged in else the false message is generated.

3. STUDENT DETAILS:

The student will enter their personal details and their academic details.Depending upon that information the desired college and course will be registered for each student.

4.COLLEGE DETAILS:

Using the database,name of each college will be stored and displayed.

5.COURSE DETAILS:

Available course in each college will be displayed.










COURSE REGISTRATION SYSTEM


USECASE DIAGRAM:





















CLASS DIAGRAM:






















SEQUENCE DIAGRAM:








COLLABORATION DIAGRAM:













VB SOURCE CODE
Form1.frm:
Private Sub Command1_Click()
If Trim(Text1.Text) = "admin" And Trim(Text2.Text) = "sec" Then
Frame1.Visible = True
Else
MsgBox "enter valid id"
End If
End Sub

Private Sub Command2_Click()
If Text3.Text = " " Or Text4.Text = " " Or Text5.Text = " " Then
MsgBox "enter details "
Else
Form2.Show
End If
Form2.Text1.Text = Text3.Text
Form2.Text2.Text = Text4.Text
Form2.Text3.Text = Text5.Text
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Me.Left = 250
Me.WindowState = 2
End Sub
Form2.frm:
Private Sub Combo1_Click()
Select Case (Combo1.ListIndex)
Case 0
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = "sudharsan engineering college" Then
Call info
End If
Data1.Recordset.MoveNext
Loop
Case 1
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = "JJ college of engineering" Then
Call info
End If
Data1.Recordset.MoveNext
Loop
Case 2
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = "PSNA engineering college" Then
Call info
End If
Data1.Recordset.MoveNext
Loop
Case 3
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = "CIT engineering college" Then
Call info
End If
Data1.Recordset.MoveNext
Loop
Case 4
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = "GUINDY engineering college" Then
Call info
End If
Data1.Recordset.MoveNext
Loop
End Select
End Sub

Private Sub Form_Load()
Me.WindowState = 2
End Sub

Public Sub info()
Text4.Text = Data1.Recordset.Fields(0).Value
Text5.Text = Data1.Recordset.Fields(1).Value
Text6.Text = Data1.Recordset.Fields(2).Value
Text7.Text = Data1.Recordset.Fields(3).Value
Text8.Text = Data1.Recordset.Fields(4).Value
Text9.Text = Data1.Recordset.Fields(5).Value
Text10.Text = Data1.Recordset.Fields(6).Value
Text11.Text = Data1.Recordset.Fields(7).Value
Text12.Text = Data1.Recordset.Fields(8).Value
Text13.Text = Data1.Recordset.Fields(9).Value
Text14.Text = Data1.Recordset.Fields(10).Value
Text15.Text = Data1.Recordset.Fields(11).Value
Text16.Text = Data1.Recordset.Fields(12).Value
Text17.Text = Data1.Recordset.Fields(13).Value
Text18.Text = Data1.Recordset.Fields(14).Value
Text19.Text = Data1.Recordset.Fields(15).Value
End Sub

Private Sub Text10_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text10.Text = Val(Text10.Text) - 1
Data1.Recordset.Fields(6).Value = Text10.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "it"
End Sub

Private Sub Text11_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text11.Text = Val(Text11.Text) - 1
Data1.Recordset.Fields(7).Value = Text11.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "it"
End Sub

Private Sub Text12_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text12.Text = Val(Text12.Text) - 1
Data1.Recordset.Fields(8).Value = Text12.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "it"
End Sub

Private Sub Text13_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text13.Text = Val(Text13.Text) - 1
Data1.Recordset.Fields(9).Value = Text13.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "it"
End Sub

Private Sub Text14_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text14.Text = Val(Text14.Text) - 1
Data1.Recordset.Fields(10).Value = Text14.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text15_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text15.Text = Val(Text15.Text) - 1
Data1.Recordset.Fields(11).Value = Text15.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text16_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text16.Text = Val(Text16.Text) - 1
Data1.Recordset.Fields(12).Value = Text16.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text17_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text17.Text = Val(Text17.Text) - 1
Data1.Recordset.Fields(13).Value = Text17.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text18_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text18.Text = Val(Text18.Text) - 1
Data1.Recordset.Fields(14).Value = Text18.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text19_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text19.Text = Val(Text19.Text) - 1
Data1.Recordset.Fields(15).Value = Text19.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "eee"
End Sub

Private Sub Text5_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text5.Text = Val(Text5.Text) - 1
Data1.Recordset.Fields(1).Value = Text5.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "cse"
End Sub

Private Sub Text6_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text6.Text = Val(Text6.Text) - 1
Data1.Recordset.Fields(2).Value = Text6.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "cse"
End Sub

Private Sub Text7_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text7.Text = Val(Text7.Text) - 1
Data1.Recordset.Fields(3).Value = Text7.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "cse"
End Sub

Private Sub Text8_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text8.Text = Val(Text8.Text) - 1
Data1.Recordset.Fields(4).Value = Text8.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "cse"
End Sub

Private Sub Text9_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Combo1.Text Then
Data1.Recordset.Edit
Text9.Text = Val(Text9.Text) - 1
Data1.Recordset.Fields(5).Value = Text9.Text
Data1.Recordset.Update
End If
Data1.Recordset.MoveNext
Loop
Form3.Show
Form3.Text2.Text = "it"
End Sub




























OUTPUT FORMS

Login Form : (Form1.frm)

















Course Details : (Form2.frm)
























Acknowledgement Form : (Form3.frm)

































































RESULT:

Thus the Course registration system was developed by using visual basic in front end and MS-Access in back end.