EX NO : 1

Date :

STUDENT COURSE REGISTRATION

1. PROBLEM DEFENITION

To build software that automates the student’s course registration.

1. This is proposed for automating the student’s course registration. While the student joins any educational institution his admission is made on the basis of his previous records.

2. The students who wish to the institution must be given with the available course details.

3. The student is allotted with a seat in the institution based on the marks that he scored in the institution he studied previously. After the confirmation of his joining the student must be given with new identity and records as per the institution.

2.0 SYSTEM REQUIREMENT SPECIFICATION

2.1 THE OVERALL DESCRIPTION

1. This is proposed for automating the student’s course registration. While the student joins any educational institution his admission is made on the basis of his previous records.

2. The students who wish to the institution must be given with the available course details.

2.2 PRODUCT PERSPECTIVE

2.2.1 Hardware interfaces

2.2.1.1 Hard disk: The database connectivity requires a hardware configuration that is on-line. This makes it necessary to have a fast database system running on high rpm hard disk permitting complete data redundancy and back-up systems to support the primary goal of reliability.

2.2.1.2 The system must interface with the standard output device, keyboard and mouse to interact with this software.

2.2.2 Software interfaces

2.2.1.2.1 Back End: MS-Access

2.2.1.2.2 Front End: Microsoft Visual Basic 6.0

2.2.3 Memory Constraints

2.2.1.3.1 No specific constraints on memory.

2.3 FRONT – END DESCRIPTION

The Student Course registration system is automated system where the user can register the student for various courses.

2.4 BACK – END DESCRIPTION

The Student Course registration system consists of two tables. One contains the student details such as the name, id number that is the password, address, and date of birth. The Course details consist of the title of the course, code of the course, available seats.

2.5 DATA FLOW DIAGRAM:

Source code:

Form 1:

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Command2_Click()

Form3.Show

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Form4.Show

End Sub

Form2:

Dim rs As DAO.Recordset

Dim db As DAO.Database

Private Sub add_Click()

rs.AddNew

Call clear1

Txtid.SetFocus

End Sub

Private Sub Command1_Click()

rs(0) = Val(Txtid.Text)

rs(1) = Txtname.Text

rs(2) = Val(Txtage.Text)

rs(3) = Combo1.Text

rs(4) = Combo2.Text

rs(5) = Combo3.Text

rs(6) = txtad.Text

rs(7) = Txtdob.Text

rs(8) = Combo4.Text

rs(9) = Combo5.Text

rs(10) = Combo6.Text

rs.Update

MsgBox ("one record inserted")

Call clear1

End Sub

Private Sub Command2_Click()

On Error GoTo err

Dim id As Integer

id = Val(Txtid.Text)

rs.MoveFirst

Do While Not rs.EOF

If rs(0) = id Then

Call display

Exit Sub

Else

rs.MoveNext

End If

Loop

err:

MsgBox ("Record not found")

End Sub

Private Sub Command3_Click()

rs.Edit

rs(0) = Val(Txtid.Text)

rs(1) = Txtname.Text

rs(2) = Val(Txtage.Text)

rs(3) = Combo1.Text

rs(4) = Combo2.Text

rs(5) = Combo3.Text

rs(6) = txtad.Text

rs(7) = Txtdob.Text

rs(8) = Combo4.Text

rs(9) = Combo5.Text

rs(10) = Combo6.Text

rs.Update

MsgBox ("one record updated")

Call clear1

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Set db = OpenDatabase("c:\STUREG\STUD.MDB")

Set rs = db.OpenRecordset("ugstud")

End Sub

Public Function clear1()

Txtid.Text = ""

Txtname.Text = ""

Txtage.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

txtad.Text = ""

Txtdob.Text = ""

Combo4.Text = ""

Combo5.Text = ""

Combo6.Text = ""

End Function

Public Function display()

Txtid.Text = rs(0)

Txtname.Text = rs(1)

Txtage.Text = rs(2)

Combo1.Text = rs(3)

Combo2.Text = rs(4)

Combo3.Text = rs(5)

txtad.Text = rs(6)

Txtdob.Text = rs(7)

Combo4.Text = rs(8)

Combo5.Text = rs(9)

Combo6.Text = rs(10)

End Function

Form3:

Dim rs As DAO.Recordset

Dim db As DAO.Database

Private Sub add_Click()

rs.AddNew

Call clear1

Txtid.SetFocus

End Sub

Private Sub Command1_Click()

rs(0) = Val(Txtid.Text)

rs(1) = Txtname.Text

rs(2) = Val(Txtage.Text)

rs(3) = Combo1.Text

rs(4) = Combo2.Text

rs(5) = Combo3.Text

rs(6) = txtad.Text

rs(7) = Txtdob.Text

rs(8) = Combo4.Text

rs(9) = Combo5.Text

rs(10) = Combo6.Text

rs.Update

MsgBox ("one record inserted")

Call clear1

End Sub

Private Sub Command2_Click()

On Error GoTo err

Dim id As Integer

id = Val(Txtid.Text)

rs.MoveFirst

Do While Not rs.EOF

If rs(0) = id Then

Call display

Exit Sub

Else

rs.MoveNext

End If

Loop

err:

MsgBox ("Record not found")

End Sub

Private Sub Command3_Click()

rs.Edit

rs(0) = Val(Txtid.Text)

rs(1) = Txtname.Text

rs(2) = Val(Txtage.Text)

rs(3) = Combo1.Text

rs(4) = Combo2.Text

rs(5) = Combo3.Text

rs(6) = txtad.Text

rs(7) = Txtdob.Text

rs(8) = Combo4.Text

rs(9) = Combo5.Text

rs(10) = Combo6.Text

rs.Update

MsgBox ("one record updated")

Call clear1

End Sub

Private Sub Command4_Click()

End

End Sub

Private Sub Form_Load()

Set db = OpenDatabase("c:\STUREG\STUD.MDB")

Set rs = db.OpenRecordset("pgstud")

End Sub

Public Function clear1()

Txtid.Text = ""

Txtname.Text = ""

Txtage.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

txtad.Text = ""

Txtdob.Text = ""

Combo4.Text = ""

Combo5.Text = ""

Combo6.Text = ""

End Function

Public Function display()

Txtid.Text = rs(0)

Txtname.Text = rs(1)

Txtage.Text = rs(2)

Combo1.Text = rs(3)

Combo2.Text = rs(4)

Combo3.Text = rs(5)

txtad.Text = rs(6)

Txtdob.Text = rs(7)

Combo4.Text = rs(8)

Combo5.Text = rs(9)

Combo6.Text = rs(10)

End Function

Form4:

Private Sub Command1_Click()

Form2.Show

End Sub

Private Sub Command2_Click()

Form3.Show MODAL

End Sub

[pic]

[pic]

[pic]

[pic]

6.0 RESULT:

Thus the online student course registration System was implemented using the specified front end and back end tools.

-----------------------
Art science science

engg

Ug/pg

Course

Student

Ug/pg.

register

ug

pg

Enquiries