SRM VALLIAMMAI ENGINEERING COLLEGE

(An Autonomous Institution)

Approved by AICTE, Accredited by NBA, A Grade Accreditation by NAAC,
ISO 9001 : 2015 Certified and Affiliated to Anna University, Chennai
SRM NAGAR, KATTANKULATHUR – 603 203.

Department of Computer Science and Engineering

CS8582-Object Oriented Analysis and

Design Laboratory

Prepared By
Mr. K. Shanmugam,AP/CSE
Ms.A.Lalitha, AP(Sel.G)/CSE
LIST OF EXPERIMNENTS:

Draw standard UML diagrams using an UML modeling tool for a given case
study and map design to code and implement a 3 layered architecture. Test the
developed code and validate whether the SRS is satisfied.
1. Identify a software system that needs to be developed.
2. Document the Software Requirements Specification (SRS) for the identified system.
3. Identify use cases and develop the Use Case model.
4. Identify the conceptual classes and develop a Domain Model and
also derive a Class Diagram from that.
5. Using the identified scenarios, find the interaction between objects
and represent them using
UML Sequence and Collaboration Diagrams
6. Draw relevant State Chart and Activity Diagrams for the same system.
7. Implement the system as per the detailed design
8. Test the software system for all the scenarios identified as per the usecase diagram
9. Improve the reusability and maintainability of the software system by
applying appropriate design patterns.
10. Implement the modified system and test it for various scenarios.

SUGGESTED DOMAINS FOR MINI-PROJECT:

1. Passport automation system.

2. Book bank
3. Exam Registration
4. Stock maintenance system.
5. Online course reservation system
6. E-ticketing
7. Software personnel management system
8. Credit card processing
9. e-book management system
10. Recruitment system
11. Foreign trading system
12. Conference Management System
13. BPO Management System
14. Library Management System
15. Student Information System
Content beyond Syllabus: Quiz system
Viva Questions
Ex.No: 1 PASSPORT AUTOMATION SYSTEM
DATE:

AIM

To develop a Passport Automation System project using visual basic as front end and Microsoft
access as back end

PROBLEM STATEMENT
Passport Automation System is used in the effective dispatch of passport to all of the applicants.
This system adopts a comprehensive approach to minimize the manual work and schedule resources, time
in a cogent manner. The core of the system is to get the registration form filled by the applicant whose
testament is verified for its genuineness by the Passport Automation System with respect to the already
existing information in the database. The administrator will be provided with an option to display the
current status of application to the applicant, which they can view in their online interface. After all the
necessary criteria have been met, the original information is added to the database and the passport is sent
to the applicant.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS
1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
 4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements

1. INTRODUCTION
Passport Automation System is an interface between the Applicant and the Authority responsible
for the issue of passport. It aims at improving the efficiency in the issue of passport and reduces the
complexities involved in it to the maximum possible extent.
1.1. PURPOSE
The entire process of Issue of Passport is done in a manual manner then it would take
several months for the passport to reach the applicant. Considering the fact that the number of
applicants for passport is increasing every year, an automated system becomes essential to meet
the demand.

1.2. SCOPE
The system provides a communication platform between the applicant and the
administrator. This will help both the applicant and issuer by reducing the time and workload.

1.3 DOCUMENT CONVENTIONS, ACRONYMS AND ABBREVIATIONS

• Administrator - Refers to the super user who is the Central Authority who has been vested
with the privilege to manage the entire system.

• Applicant - One who wishes to obtain the Passport.

• PAS - Passport Automation System.

1.4.REFERENCES
www.passport.tn.nic.in
www.india.gov.in

2.0 OVERALL DESCRIPTION

2.1 PRODUCT PERSPECTIVE

 The PAS acts as an interface between the applicant and the administrator. This system
tries to make the interface as simple as possible and at the same time not risking the security of
data stored in. This minimizes the time duration in which the user receives the passport.

2.2 PRODUCT FUNCTIONS

Front-End: The area of the interface in which the applicants will see their status.Back-
End: The area of the interface in which the administrator verifies the details of the applicant.

2.3. TOOLS TO BE USED

Visual Basic and Microsoft Access

3. EXTERNAL INTERFACE REQUIREMENTS

3.1 HARDWARE INTERFACES

The system should have good hardware support. The processor should have high speed
and must be of high efficiency.

3.2 SOFTWARE INTERFACE

The system uses ODBC drive to connect and control the database.

4 SYSTEM FEATURES

4.1 APPLYING FOR PASSPORT

4.1.1 DESCRIPTION AND PRIORITY
This system allows the applicant to apply for the passport through the interface.

4.1.2 STIMULUS/RESPONSE SEQUENCE

When the applicant submits all the required details, his status will be updated in
his/her account.

4.1.3 FUNCTIONAL REQUIREMENTS

REQ 1: The applicant must have a registered account.
REQ 2: The applicant must submit only the valid information.

5 OTHER NONFUNCTIONAL REQUIREMENTS

5.1 PERFORMANCE REQUIREMENTS
To increase performance and to free up database resources for other tasks, the default
features are written to cache files on their initial load, and consequent accesses to them result in
parsing a flat file for data.

5.2 SAFETY REQUIREMENTS

 The database must be maintained effectively and the administrator must maintain
the interface properly. The user has to be careful while submitting the information.
5.3 SECURITY REQUIREMENTS
Passwords for registered accounts are stored as a hash in the database. Only the
administrator can have access to the main database. The database must be protected from
hacking the details of the applicants
PASSPORT AUTOMATION SYSTEM
Use Case Diagram :

Database

Online Application System

New User
Existing User
Passport
Administration

Verifier
<<include>>
Register Applicant

Login Verification

Validate Application
Passport Status

<<include>> <<include>>

Application Status
<<include>> NetBanking
Renewal Change of address

<<include>>

Payment Credit/Debit card

Updation Successful
Receipt

Issue
 Activity Diagram :

PAS

Registration

Login
Invalid
Registration Enter
failed Details
Passport
Status Valid
Validation Application
Payment Status

Renewal Change Of Invalid View Current

Address Validate Invalid status
Details
Update Update Invalid Valid
failed failed
Invalid Payment Mode Valid
Valid
operation Details
Update e-payment Net
Successful Banking Processing Deployed
Obtain
valid operation Failure Unique ID
Failure
Payment
Update Failed
Successful

Success Success

Payment
Successful

Registration
successful
Class Diagram:
Interaction Diagram:

Sequence Diagram :

Login:

Applicant Admin Database

1: Enter Details 2: Verify USer Details

4: Login Successful 3: Processing

5: Choose Operation 6: Verify Details

8: Update Sucessfull 7: Process request

Registration:

Applicant Admin Database

1: Enter User details 2: Verify details

3: Proccessing
4: successful registration

5: Payment Mode 6: Make Payment

8: Payment Successful 7: Proccessing

Validation:

applicant admin database

1: login 2: Validating

4: login successful 3: processing

5: send data for verification 6: verify data

8: verification successful 7: processing

Application Status:

Applicant admin database

1: login 2: check user info

4: successful login 3: processing

5: view status 6: Search database

7: processing
8: show status info

Collaboration Diagram :

Login:
1: Enter Details 2: Verify USer Details
5: Choose Operation 6: Verify Details
Applican Admin Databas
t e
4: Login Successful 3: Processing
8: Update Sucessfull 7: Process request

Registration:
1: Enter User details 2: Verify details
5: Payment Mode 6: Make Payment
Applican Admin Databas
t e
4: successful registration 3: Proccessing
8: Payment Successful 7: Proccessing
Validation:

1: login 2: Validating
5: send data for verification admin 6: verify data

applican databas
t 4: login successful 3: processing e
8: verification successful 7: processing

Application Status:

1: login 2: check user info

5: view status 6: Search database
Applican admin databas
t e
4: successful login 3: processing
8: show status info 7: processing

State chart Diagram :

Login:

enter valid details successful

details registration

invalid details

failed Renewal' change of

registration address

Registration:

Registrat valid details Successful

ioN registration

Invalid details

payment
Failed
RegistratioN

net credit/debit
banking card

Validation:
LogiN valid details successful
validation

invalid details

failed Obtain
Unique id
Application Status:

applciation
status processing

valid details view

login
status

invalid details
deployed
invalid user

Component Diagram:

login application Registration Validation

status

Login Registrati Validatio Application

on n status

Database

Passport Automation
Deployment Diagram: System

Database
CODING:

Welcome:

Private Sub Command1_Click()

If (fname1.Text = "" Or fname2.Text = "") Then
MsgBox ("please input your userid and password")
Else
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS where ID = " + fname1.Text, cn, adOpenKeyset,
adLockOptimistic
If (rs(0).Value = fname1.Text) Then
If (rs(15).Value = fname2.Text) Then
MsgBox ("Welcome " & rs(1).Value)
user.Visible = True
welcome.Visible = False
Else
MsgBox ("Invalid Username or password")
End If
Else
MsgBox ("Invalid Username or password")
End If
End If
End Sub

Private Sub Command2_Click()

reg2.Visible = True
welcome.Visible = False
End Sub

Private Sub Command3_Click()

End
End Sub
Private Sub Form_Load()
fname1.Text = ""
fname2.Text = ""
renewal.RegID.Text = ""
renewal.pwd.Text = ""
reg2.fname.Text = ""
reg2.lname.Text = ""
reg2.peradd.Text = ""
reg2.preadd.Text = ""
reg2.dob = ""
reg3.cno.Text = ""
reg3.man.Text = ""
reg3.fan.Text = ""
reg3.ann.Text = ""
reg3.nat.Text = ""
reg3.occ.Text = ""
reg3.eid.Text = ""
reg3.pwd.Text = ""
reg3.cast.Text = ""
reg4.accno.Text = ""
reg4.pin.Text = ""
reg4.Mode.Text = ""
Editpro.RegID.Text = ""
Editpro.pwd.Text = ""
End Sub

Registration1:

Private Sub Calendar1_Click()

dob.Text = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
End Sub

Private Sub Command1_Click()

If (male.Value = True) Then
genders.Text = "male"
End If
If (female.Value = True) Then
genders.Text = "female"
End If
If (female.Value = False) Then
If (male.Value = False) Then
MsgBox ("please select your gender.")
Else
reg3.Visible = True
reg2.Visible = False
End If
End If
End Sub

Private Sub Command2_Click()

reg2.Visible = False
welcome.Visible = True
End Sub

Private Sub Form_Load()

If (reg3.ren = "ajanth") Then
reg2.Caption = "Edit Profile-1"
reg3.Caption = "Edit Profile-2"
Else
reg2.Caption = "Registration-1"
reg3.Caption = "Regsitration-2"
End If
End Sub

Registration2:

Private Sub ann_Change()

If Not IsNumeric(ann.Text) Then
status2 = "Invalid"
Else
status2 = ""
End If
End Sub

Private Sub cno_Change()

If Not IsNumeric(cno.Text) Then
status = "Invalid"
Else
status = ""
End If
End Sub

Private Sub Command1_Click()

If Not InStr(eid.Text, "@") Then
MsgBox ("Invalid Email ID")
End If
If (ren = "ajanth") Then
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim reg As Integer
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS where ID=" + Editpro.RegID.Text, cn, adOpenKeyset,
adLockOptimistic
rs.Update
rs("FName") = reg2.fname.Text
rs("LName") = reg2.lname.Text
rs("Nationality") = nat.Text
rs("Occupation") = occ.Text
rs("PermanentAddress") = reg2.peradd.Text
rs("PresentAddress") = reg2.preadd.Text
rs("AnnualIncome") = ann.Text
rs("Age") = reg2.age.Text
rs("DOB") = reg2.dob.Text
rs("FatherName") = fan.Text
rs("MotherName") = man.Text
rs("Gender") = reg2.genders
rs("Cast") = cast.Text
rs("Email") = eid.Text
rs("ContactNumber") = cno.Text
rs.Update
rs.Close
MsgBox ("Update Successful. Thank you for being with PASBTS")
Unload Me
Else
reg3.Visible = False
reg4.Visible = True
End If
End Sub

Private Sub Command2_Click()

reg3.Visible = False
reg2.Visible = True
End Sub

Private Sub Form_Load()

nat.AddItem ("CUBAN")
nat.AddItem ("U.S.A")
nat.AddItem ("TIBET")
nat.AddItem ("BANGLADESH")
nat.AddItem ("afghanistan")
End Sub

Private Sub Label10_Click()

End Sub

Registration3:
Private Sub accno_Change()
If Not (IsNumeric(accno.Text)) Then
status = "Invalid"
Else
status = ""
End If
End Sub

Private Sub Command1_Click()

reg3.Visible = True
reg4.Visible = False
End Sub

Private Sub Command2_Click()

Dim random As Integer
Dim valid As Date
Dim today As Date
Dim status As Date
If (accno.DataFormat.FalseValue) Then
MsgBox "Only digits"
End If
today = DateValue(Now)
valid = today + 2100
status = DateValue(Now) + 30
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Status") = status
rs("validity") = valid
rs("FName") = reg2.fname.Text
rs("LName") = reg2.lname.Text
rs("FatherName") = reg3.fan.Text
rs("MotherName") = reg3.man.Text
rs("Age") = reg2.age.Text
rs("Nationality") = reg3.nat.Text
rs("Occupation") = reg3.occ.Text
rs("DOB") = reg2.dob.Text
rs("PresentAddress") = reg2.preadd.Text
rs("PermanentAddress") = reg2.peradd.Text
rs("Email") = reg3.eid.Text
rs("Cast") = reg3.cast.Text
rs("Password") = reg3.pwd.Text
rs("Gender") = reg2.genders.Text
rs("AnnualIncome") = reg3.ann.Text
rs("ContactNumber") = reg3.cno.Text
rs.Update
random = rs(0)
rs.Close
'rs.Open "select * from PASBTS where ", cn, adOpenKeyset, adLockOptimistic
MsgBox ("Thank you for registering. Your Information has been stored in the database.\n you
will recieve the status within Three days. Click OK to get your Registration ID")
MsgBox (random)
End
End Sub

Private Sub Command3_Click()

Dim a As Integer
Dim b As VbMsgBoxResult
b = MsgBox("Are you sure you want to discard the registration?", vbOKCancel)
If (b = vbOK) Then
End
End If
End Sub

Private Sub Form_Load()

mode.AddItem ("PayPal")
mode.AddItem ("AlertPay")
mode.AddItem ("NetBanking")
End Sub

Private Sub status2_Click()

End Sub

Exixting User:

Private Sub Command1_Click()

renewal.Visible = True
user.Visible = False
End Sub

Private Sub Command2_Click()

Editpro.Visible = True
user.Visible = False
End Sub

Private Sub Command4_Click()

user.Visible = False
welcome.Visible = True
End Sub
Private Sub Command3_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cur As Date
Dim val As Date
cur = DateValue(Now)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS where ID = " + welcome.fname1.Text, cn, adOpenKeyset,
adLockOptimistic
If (rs(0) = welcome.fname1.Text) Then
If (rs(19) > cur) Then
MsgBox ("Your Application is still under Police/Address Verification")
End If
If (cur > rs(19)) Then
MsgBox ("Your Application has been successfully processed.Your passport has been delivered")
End If
End If
End Sub

Private Sub Command5_Click()

End
End Sub

Private Sub Form_Load()

End Sub

Renewal:

Private Sub Command2_Click()

End
End Sub

Private Sub Command3_Click()

user.Visible = True
renewal.Visible = False
End Sub

Private Sub Command4_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cur As Date
Dim val As Date
cur = DateValue(Now)
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS where ID=" + RegID.Text, cn, adOpenKeyset,
adLockOptimistic
If (rs(15).Value = pwd.Text) Then
val = rs(18)
If (cur > val) Then
MsgBox ("Thank you for using PASBTS, your Passport will be soon renewed. Meanwhile
Verify your address with the Local Police")
rs.Update
rs("Validity") = cur + 2100
rs.Update
rs.Close
Else
MsgBox ("Thank you for using PASBTS, But your passport has not expired yet")
End If
Else
MsgBox ("please check your password and RegistrationID")
End If
End Sub

Private Sub Form_Load()

End Sub

Edit Profile:

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim reg As Integer
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program
Files\PASBTS.mdb;Persist Security Info=False"
rs.Open "select * from PASBTS where ID=" + RegID.Text, cn, adOpenKeyset,
adLockOptimistic
If (rs(15) = pwd.Text) Then
reg2.Visible = True
reg3.ren = "ajanth"
reg2.fname.Text = rs(1)
reg2.lname.Text = rs(2)
reg2.dob.Text = rs(6)
reg2.age.Text = rs(5)
reg2.peradd.Text = rs(12)
reg2.preadd.Text = rs(11)
reg3.nat.Text = rs(7)
reg3.occ.Text = rs(8)
reg3.ann.Text = rs(9)
reg3.fan.Text = rs(3)
reg3.man.Text = rs(4)
reg3.cno.Text = rs(17)
reg3.cast.Text = rs(13)
reg3.pwd.Text = rs(15)
reg3.eid.Text = rs(14)
rs.Update
rs.Close
Else
MsgBox ("Invalid Registration ID or Password")
End If
End Sub

Private Sub Command2_Click()

End
End Sub

Private Sub Command3_Click()

user.Visible = True
Editpro.Visible = False
End Sub

Private Sub Form_Load()

End Sub

ScreenShots:

Start:
Welcome:

Registration1:
Registration2:
Registration3:

Renewal:
Edit Profile:
Application status:

CONCLUSION:

The Automation of passport issuance procedure was successful with the help of object
oriented analysis and design patterns and various tools. It is now conclusive that the Passport
Automation System surely has eased the procedure with the sophisticated approach.

Ex.No:2 BOOK BANK SYSTEM

DATE:27/12/11

AIM:

To develop a Book bank system project using visual basic as front end and Microsoft
access as back end.

PROBLEM STATEMENT:
Book bank system is where the books can be collected every semester and must be
returned at the end of semester. The system must have option for new members to enroll for
membership by paying deposit. A provision for getting six or seven books per semester.
Membership can be renewed by using the register number. The deposit must be refunded on
termination of membership. A database must be maintained to guide the issuer to track the
details of students. Search option must be provided so that the member can search for the
availability of a particular book.
SOFTWARE REQUIREMENT SPECIFICATION:
TABLE OF CONTENTS
 1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirement

1.INTRODUCTION
The book bank is a set up that lends books for all its members which they can return at
the end of each semester. It has a huge collection of books and has to keep track of all its
members’ details such as requests, dues and penalties and the books.
1.1 PURPOSE
The purpose of this document is to present a detailed description of the Book
Bank System. It will explain the purpose and features of the system, the interfaces of the
system, what the system will do, the constraints under which it must operate and how the
system will react to external stimuli.
1.2 SCOPE
The book bank holds an online interface with its members for maintaining all
kinds of transaction details. Each member is provided with a unique user id at the time of
registering as a member.
1.3 DOCUMENT CONVENTIONS
 Director: The ultimate authority in the staff hierarchy of the book bank
 Member: Any person who registers with the book bank
  HTML-Hyper Text Markup Language used to create web page.
1.4 REFERENCES
www.reachbookbank.com
www.bookworldlibrary.com
2. OVERALL DESCRIPTION
2.1 PRODUCT PERSPECTIVE
This project is a self contained one for enabling a book bank organization to be
connected with its students, through this system, the students can check for availability of
books, makes requests, etc.
2.2 PRODUCT FUNCTIONS
This system functions with a database at the back end, for keeping track of its
member’s dues and payments, and also its available resources. Every student who is a
member needs only a web browser to connect to this system.
2.3 TOOLS TO BE USED
3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACE
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES
4.1 REQUESTING BOOKS
4.1.1 SYSTEM DESCRIPTION & PRIORITY
Allows a student, who becomes a member to login using a unique
id issued at the time of registering as a member, and after logging in, the
member can browse through available books and make requests
accordingly. The books will be issued provided there is no due, regarding
returning of previous books.
4.1.2 STIMULUS/RESPONSE SEQUENCE
Whenever the student wishes to get books, he/she checks for the
availability by logging in. When the request is made, the director of the
book bank decides on granting the request of book(s) after checking the
member details for due in returning previous books.
4.1.3 FUNCTIONAL REQUIREMENTS
 The member should be authenticated by means of unique login id and
password. The availability of books requested must be prompted to the user
through e-mail or sms notifications.
5. OTHER NON-FUNCTIONAL REQUIREMENTS
5.1 PERFORMANCE REQUIREMENTS
The web interface should be able to support multiple users trying to log in
simultaneously.
5.2 SAFETY REQUIREMENTS
The student details should be made available in the database and must be updated
every time a book is issued or returned or some kind of payment takes place to prevent
errors.
5.3 SECURITY REQUIREMENTS
The member can only access certain details from the database. He/she should not
be able to modify the database nor has any of its information corrupted. Only the DBA
must be bestowed with the privileges of handling any kind of modifications
<<include>>

login authentication

database
BOOK
new login ext login
<<extend>>

registration cancel reg

BANK
SYSTEM

deposit

Use Case Diagram

: by cash
by credit

search admin
student

by book by author

issue
<<include>>

checking availablity

return

ontime return delayed return

 New Login activ ity book issue return book

Activity Diagram :
login

new login

existing login return book

enter details
for reg

authenticate
[ invalid entry ]

ontime return delayed pay fine

[ valid entry ]
[ valid login ] return
search
To deposit

[ invalid login ]

search by search by
cancel registration author book

deposit by deposit by
cash credit

issue book check

availability
Class Diagram:

Interaction Diagram:
Sequence Diagram :
Registration:
student admin database
1: enter details for registeration 2: check for the validation

4: prompts the creation of new login 3: update the registeration details

5: enter the new login details 6: process the details

7: update the registeration details

8: confirm registeration
Login:

student admin database

1: enter the login details 2: check for authentication

3: process the details

4: successful login is indicated

5: enter the name and dept

6: check for the valid details

8: view details 7: update the details

Deposit and Search:

student admin database

1: Pay the deposit amount 2: Update the deposited amount

4: Display the payment details 3: process the details

5: Search by author name and book name 6: check the details

8: display the booklist 7: process the details

9: select the required book 10: process the selection

Issue 12: Confirms the issual 11: update the booklist based on selection and
student admin database
Return:
1: requests the issual of book
2: process the requests

3: update the booklist based on the request

4: issue the book

5: return the book 6: update the booklist according to the return

Collaboration Diagram :

Registration:
1: enter details for registeration 2: check for the validation
5: enter the new login details 6: process the details
student admin database

4: prompts the creation of new login 3: update the registeration details

8: confirm registeration 7: update the registeration details

Login:
1: enter the login details 2: check for authentication
5: enter the name and dept 6: check for the valid details
student admin database

4: successful login is indicated 3: process the details

8: view details 7: update the details

Deposit And Search:

1: Pay the deposit amount 2: Update the deposited amount

5: Search by author name and book name 6: check the details
9: select the required book 10: process the selection
student admin database

4: Display the payment details 3: process the details

8: display the booklist 7: process the details
12: Confirms the issual 11: update the booklist based on selection

Issue And Return:

1: requests the issual of book 2: process the requests
5: return the book 6: update the booklist according to the return
student admin database

4: issue the book 3: update the booklist based on the request

State chart Diagram :

Login: Registration:
 Enter the Invalid Login Re-enter Login Enter the Invalid details Re-enter the
login details details Registration Details details

Valid Login Valid details

Enter Login
Enter the
Details
user details

Confirm
View the Registration
details

Deposit and search:

Pay the deposit

amount

Display the
payment details

Search the book

list

Display the
Issue And Return: book list

Request
the book
Select the
rquired book
Update the issue the
book list book

Confirms the
issual

Return
the book

Component Diagram:
 Registration Login Deposit and Issue and
Search Return

Database

Deployment Diagram:

Login Deposit
and Search
Issue and
Registration
Return

Book Bank
System

Database

MAIN:
Private Sub Command1_Click()
NewLogin.Show
Unload Me
End Sub

Private Sub Command2_Click()

ExistLogin.Show
Unload Me
End Sub

NEW LOGIN:

Private Sub Command1_Click()

If (InStr(Text6.Text, "@")) Then
If (Val(Text7.Text) < 1000) Then
MsgBox ("AMOUNT SHOULD BE >1000")
Else
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Name") = Text1.Text
Adodc1.Recordset.Fields("College") = Text2.Text
Adodc1.Recordset.Fields("Dept") = Combo2.Text
Adodc1.Recordset.Fields("Course") = Combo3.Text
Adodc1.Recordset.Fields("Sem") = Val(Combo1.Text)
Adodc1.Recordset.Fields("Address") = Text5.Text
Adodc1.Recordset.Fields("EmailID") = Text6.Text
Adodc1.Recordset.Fields("Amount") = Val(Text7.Text)
Adodc1.Recordset.Fields("Password") = Text8.Text
Adodc1.Recordset.Fields("Ucount") = 3
Adodc1.Recordset.Update
Adodc1.Recordset.Save
MsgBox ("WELCOME")
Search.Show
Unload Me
End If
Else
MsgBox ("ENTER A VALID EMAIL")
End If
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

Private Sub Text1_Change()

If (Text1.Text = "" Or IsNumeric(Text1.Text)) Then
MsgBox ("PLEASE ENTER THE CORRECT NAME")
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Text2_Change()

If (Text2.Text = "" Or IsNumeric(Text2.Text)) Then
MsgBox ("PLEASE ENTER THE CORRECT COLLEGE NAME")
Text2.Text = ""
Text2.SetFocus
End If
End Sub
EXISTING LOGIN:
Private Sub Command1_Click()
Adodc1.Refresh
Adodc1.Recordset.Find "NAME ='" & Text1.Text & "'"
If (Adodc1.Recordset.EOF = True) Then
MsgBox ("NOT A VALID USER!")
Else
If (Adodc1.Recordset.Fields("Password") = Text2.Text) Then
MsgBox ("WELCOME")
Search.Show
Unload Me
Else
MsgBox ("INVALID ENTRY!")
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

SEARCH:
Private Sub Command1_Click()
Issue.Show
Unload Me
End Sub

Private Sub Command2_Click()

ReturnBook.Show
Unload Me
End Sub

Private Sub Command3_Click()

End
Unload Me
End Sub

Private Sub Command4_Click()

Adodc2.Refresh
If (Option1.Value = True) Then
Adodc2.Recordset.Find "Author='" & Text1.Text & "'"
If (Adodc2.Recordset.EOF = True) Then
MsgBox ("SORRY NOT AVAILABLE")
Else
If (Adodc2.Recordset(5) = "ISSUED") Then
MsgBox ("SORRY IT IS ISSUED")
Else
Dim a1 As String
a1 = Adodc2.Recordset.Fields(0)
Dim a2 As String
a2 = Adodc2.Recordset.Fields(1)
a1 = "BOOK ID:" + a1 + " BOOK NAME:" + a2
a2 = Adodc2.Recordset.Fields(3)
a1 = a1 + " EDITION:" + a2
a2 = Adodc2.Recordset.Fields(4)
a1 = a1 + " PUBLICATION:" + a2
MsgBox ("AVAILABLE")
MsgBox (a1)
End If
End If
Else
Adodc2.Recordset.Find "Book-Name ='" & Text1.Text & "'"
If (Adodc2.Recordset.EOF = True) Then
MsgBox ("SORRY NOT AVAILABLE")
Else
If (Adodc2.Recordset(5) = "ISSUED") Then
MsgBox ("SORRY IT IS ISSUED")
Else
Dim b1 As String
b1 = Adodc2.Recordset.Fields(0)
Dim b2 As String
b2 = Adodc2.Recordset.Fields(2)
b1 = "BOOK ID:" + b1 + " AUTHOR NAME:" + b2
b2 = Adodc2.Recordset.Fields(3)
b1 = b1 + " EDITION:" + b2
b2 = Adodc2.Recordset.Fields(4)
b1 = b1 + " PUBLICATION:" + b2
MsgBox ("AVAILABLE")
MsgBox (b1)
End If
End If
End If
End Sub

Private Sub Form_Load()

Adodc2.Refresh
DataGrid1.Refresh
End Sub

Private Sub Option1_Click()

If (Option1.Value = True) Then
Label2.Visible = True
Label2.Caption = "Enter the Author Name"
End If
End Sub

Private Sub Option2_Click()

If (Option2.Value = True) Then
Label2.Visible = True
Label2.Caption = "Enter the Book Name"
End If
End Sub

ISSUE:
Private Sub Command1_Click()
Adodc1.Refresh
Adodc2.Refresh
Adodc2.Recordset.Find "Name = '" & Text2.Text & "'"
If (Adodc2.Recordset.EOF = True) Then
MsgBox ("ENTER THE VALID USER NAME")
Else
If (Adodc2.Recordset(8) = 0) Then
MsgBox ("USER HAS NO CREDITS")
Else
Adodc1.Recordset.Find "Book-Id ='" & Text1.Text & "'"
If (Adodc1.Recordset.EOF = True) Then
MsgBox ("INVALID BOOK NO")
Else
If (Adodc1.Recordset(5) = "ISSUED") Then
MsgBox ("SORRY ITS NOT AVAILABLE")
Else
If (Adodc1.Recordset(6) = 1) Then
Adodc1.Recordset(5) = "ISSUED"
End If
MsgBox (Adodc2.Recordset(8))
Adodc2.Recordset(8) = Adodc2.Recordset(8) - 1
Adodc1.Recordset(6) = Adodc1.Recordset(6) - 1
MsgBox ("SUCCESSFULLY ISSUED")
Adodc2.Recordset.Update
Adodc2.Recordset.Save
Adodc1.Recordset.Update
Adodc1.Recordset.Save
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()

Search.Show
Unload Me
End Sub
MAIN:
Private Sub Command1_Click()
NewLogin.Show
Unload Me
End Sub

Private Sub Command2_Click()

ExistLogin.Show
Unload Me
End Sub

RETURN:
Private Sub Command1_Click()
Adodc1.Refresh
Adodc2.Refresh
Adodc2.Recordset.Find "Name = '" & Text3.Text & "'"
If (Adodc2.Recordset.EOF = True) Then
MsgBox ("ENTER THE VALID USER NAME")
Else
If (Adodc2.Recordset(8) >= 3) Then
MsgBox ("USER REACHED MAXIMUM VALUE")
Else
Adodc1.Recordset.Find "Book-Name ='" & Text1.Text & "'"
If (Adodc1.Recordset.EOF) Then
MsgBox ("PLS TYPE BOOK NAME CORRECTLY")
Else
If (Adodc1.Recordset(2) = Text2.Text) Then
If (Adodc1.Recordset(5) = "AVAILABLE") Then
Adodc1.Recordset(6) = Adodc1.Recordset(6) + 1
Adodc2.Recordset(8) = Adodc2.Recordset(8) + 1
Adodc2.Recordset.Update
Adodc2.Recordset.Save
Else
Adodc1.Recordset(5) = "AVAILABLE"
Adodc1.Recordset(6) = Adodc1.Recordset(6) + 1
Adodc2.Recordset(8) = Adodc2.Recordset(8) + 1
Adodc2.Recordset.Update
Adodc2.Recordset.Save
End If
Adodc1.Recordset.Update
Adodc1.Recordset.Save
MsgBox ("RETURNED SUCCESSFULLY")
Else
MsgBox ("PLS TYPE AUTHOR NAME CORRECTLY")
End If
End If
End If
End If
End Sub

Private Sub Command2_Click()

Search.Show
Unload Me
End Sub

SCREEN SHOTS:
NEW USER LOGIN:

NEW USER LOGIN CREATED:

SEARCH BY NEW USER:

BOOK AVAILABILTIY DETAILS:

UNAVAILABILITY OF THE REQUESTED BOOK:

SUCCESSFUL ISSUE OF BOOK:

INTIMATING MAXIMUM BOOK COUNT
INVALID LOGIN FOR EXISTING USER:

VALID LOGIN:

BOOK ISSUAL LIMITS:

NOTIFICATION OF INVALID USER NAME:
SUCCESSFUL BOOK ISSUE:

SUCCESSFUL RETURN:
USER DATABASE:

User
Name College Dept Sem Address EmailID Amount Password Ucount Course
AK VEC CSE 6 CHENNAI AAA@ 3000 ABC 1 B.E
ANITHA VEC ECE 5 CHROMPET [email protected] 1500 ANI 2 M.E
SS SDF FDF 5 SDSF DFDF@ 1300 SS 3 B.E
DEEPS VEC CSE 6 CHENNAI sai@ 700 sai 0 B.E
SAM SSN CSE 6 WILLIAM SAM@ 800 QW 0 M.E
STREET

BOOK DATABASE:

Book
Book-Id Book-Name Author Edition Publication Status Count
101 ADT SILBERCHATZ 2004 PEARSON ISSUED 0
102 VP LARY 2010 BIBLE ISSUED 0
103 ACA PETER 2006 TECHNICAL AVAILABLE 2
104 OOAD CARL 2007 PEARSON ISSUED 0
105 AI WEISS 2004 BIBLE AVAILABLE 4
106 PCD AHO 2000 PEARSON AVAILABLE 4

CONCLUSION:

Thus a book bank application has been successfully created using Visual Basic as front end
and MS Access as a back end for the efficient maintenance of books and users in a book bank.
Ex.No: 3 EXAM REGISTRATION SYSTEM
DATE: 03/01/12

AIM

To develop a Exam registration system project using visual basic as front end and Microsoft
access as back end

PROBLEM STATEMENT:
Exam registration system is the process of enrolling for exams through online. Enrolling students
into the general associate course examination is a very difficult and important process. In case of degree
courses, the exam is held two times per annum and students are required to pass in the exam to get their
degrees. The main outcome is to computerize everything related to associate course/degree examination.
Student can enter their details in a form and information related to examination such as venue, date, time,
etc., are displayed in a web page. The registration number and other related information will be sent
through e-mail.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS

TABLE OF CONTENTS

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements
1. INTRODUCTION:
Exam registration system is an interface between the applicant/student and the authority
responsible for issuing the hall ticket.

1.1. PURPOSE
If the exam registration is done in conventional method, it would require more time and it
would contain lots of error in it. So this system uses online registration system which minimizes
error in conventional system.
1.2. PRODUCT SCOPE
The scope of this system involves the development and maintenance of the online
examination registration that integrates all support modules after suitable evaluation and acceptance and
appropriate ASP(Application Service Provider) hosting solutions.

1.3. DOCUMENT CONVENTIONS

 Applicant-The person who registers for exam.
1.4.REFERENCE
http://en.wikipedia.org/wiki/examregistrationsystem.

2. OVERALL DESCRIPTION
2.1 PRODUCT PERSPECTIVE
The form acts as an interface between the student and administrator. It makes the
registration process simple as it involves the registration system.
2.2. PRODUCT FUNCTIONS
System separate registration forms for students. Management of exam from one central
location and providing for printing the hall ticket/professional certificate online.

2.3 TOOLS TO BE USED

Visual basic and Microsoft Access

3. EXTERNAL INTERFACES
3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high speed
and must be of high efficiency.
3.2 SOFTWARE INTERFACE
The system uses ODBC drive to connect and control the database.

4. SYSTEM FEATURES
 4.1. FILING THE FORM

4.1.1. DESCRIPTION AND PRIORITY:

The system allows the user to fill the registration form.

4.1.2. STIMULUS/RESPONSE SEQUENCE:

The user must fill the form as per the requirements to get selected
for exam.

4.1.3. FUNCTIONAL REQUIREMENTS

The member should be authenticated by means of unique login id
and password.

5. OTHER NON-FUNCTIONAL REQUIREMENTS

5.1. PERFORMANCE REQUIREMENTS

To improve the performance, the database resources should be freed
frequently.

5.2. SAFETY REQUIREMENTS:

The database must be maintained and monitored frequently to prevent the attack of virus.

5.3. SECURITY REQUIREMENTS:

The proof of the applicants must be kept securely in the database and
only administrator can access.

EXAM REGISTRATION SYSTEM

Use Case Diagram :
 <<includes>>
Sign up

database
enter roll no and passwrd
login

view exam results

Student
<<extends>>

<<extends>>
<<includes>> UG
download course materials
Select course admin
<<includes>>

<<includes>>
PG
select semester
register for exam
Sign_up Sign_in

select payment mode

invalid
Personal
Details
<<extends>>
<<extends>>

print hall ticket

Home_page
card
net bankinjg

Exam Download Exam Signout

Register Details Records

View View Top

Enter Details Syllabus Graders

invalid
Exam Previous Exam
Timetable Papers
valid

Payment
Sample
Questions

Online Cash

Activity Diagram :

Confirm_Display

Print
Ticket
Class Diagram:

Interaction Diagram:

Sequence Diagram :

Login:
Login sequence

applicant admin database

1: enter username and passwrd 2: validating

3: processing

5: acknowledge 4: updating
Registration:
Registration Routine

applicant admin database

1: enter personal details

2: updating
3: processing

4: validating
5: reg success

6: select course details

7: checking

8: processing

9: display reg

Payment:
applicant admin database

1: enter reg no
2: checking
3: verify DB

4: processing
5: acknowledge

6: card number, amount

7: processing

8: updating
9: payment success

Collaboration: Diagram :
3: verify DB
Login:
1: enter reg no 2: checking
Payment
6: card number,procedure
amount 7: processing

applican admin databas

t e
5: acknowledge 4: processing
9: payment success 8: updating

Registration: 3: processing

1: enter username and passwrd 2: validating

applican admin databas
t e
5: acknowledge 4: updating
 3: processing
Payment:
1: enter personal details 2: updating
6: select course details 7: checking
applican admin databas
t e
5: reg success 4: validating
9: display reg 8: processing

State chart Diagram :

Login
Login state

homepage valid Login invalid Re try

Choose ur Connecting Valid Verify Invalid Sign Up

nxt action to home with DB

Registration:
Registration state

register

reg failed Invalid enter Valid reg

details success

correct the Unique id

invalid field(s) creation

Continue Acknowledge
with Reg ment
Payment:

Pay state

E-Payment

enter A/C Invalid Reset

no

Valid

Choose card
type & Amount

Acknowledge

Print
receipt

Component Diagram:

Component diagram

Login Registration Payment

Database
Deployment Diagram:

Online Exam Registration - An Overview

Login Registration
Payment

Online Exam
Registration

Database

CODING:

HOME PAGE:

Private Sub Command1_Click()

Unload Me
Form1.Show
End Sub

Private Sub Command2_Click()

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.notesengine.com"
End Sub

Private Sub Command3_Click()

Unload Me
Form6.Show
End Sub

Private Sub Command4_Click()

Unload Me
Form6.Show
End Sub

Private Sub Command5_Click()

Unload Me
Form1.Show
End Sub

Private Sub Command6_Click()

Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.schools9.com"
End Sub

Private Sub Image1_Click()

End Sub

SIGN UP:

Private Sub cmbDept_Change()

cmbDept.AddItem "COMPUTER SCIENCE"
cmbDept.AddItem "EEE"
cmbDept.AddItem "ECE"
End Sub

Private Sub Combo1_Change()

Combo1.AddItem "MALE"
Combo1.AddItem "FEMALE"
End Sub

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project\bala\agubaa\first
success\signn.mdb;Persist Security Info=False"
rs.Open "select * from signn", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields(1) = txtName.Text
rs.Fields(2) = txtCourse.Text
rs.Fields(3) = txtDOB.Text
rs.Fields(4) = Combo1
rs.Fields(5) = cmbDept
rs.Fields(6) = txtCollege.Text
rs.Fields(7) = txtAddress.Text
rs.Fields(8) = txtMobile.Text
rs.Fields(9) = txtEmail.Text
rs.Update
rs.Close
MsgBox ("the basic detail is successfully registered")
Form2.Show
End Sub
Private Sub Submit_Click()
End Sub

Private Sub Image1_Click()

End Sub

SIGN UP2:

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project\bala\agubaa\first
success\signup.mdb;Persist Security Info=False"
rs.Open "select * from signup", cn, adOpenKeyset, adLockOptimistic
'If (rs(1).Value = Text1.Text) Then
'If (rs(2).Value = Text2.Text) Then
rs.AddNew
rs.Fields(1) = username.Text
If (Len(password.Text) > 5) Then
rs.Fields(2) = password.Text
Form3.Show
Else
MsgBox ("password min. 6 chars.")
Form2.Show
End If
End Sub

Private Sub Command2_Click()

Form6.Show
End Sub

Private Sub Image1_Click()

End Sub

EXAM REGISTRATION:

Private Sub Option1_Click()

End Sub

Private Sub Combo1_Change()

Combo1.AddItem "COMPUTER SCIENCE"
Combo1.AddItem "EEE"
Combo1.AddItem "ECE"
End Sub

Private Sub Combo2_Change()

Combo2.AddItem "1"
Combo2.AddItem "2"
Combo2.AddItem "3"
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"
End Sub

Private Sub Combo3_Change()

Combo3.AddItem "1"
Combo3.AddItem "2"
Combo3.AddItem "3"
Combo3.AddItem "4"
End Sub

Private Sub Combo4_Change()

Combo4.AddItem "MALE"
Combo4.AddItem "FEMALE"
End Sub

Private Sub Combo5_Change()

Combo5.AddItem "CASH"
Combo5.AddItem "CREDIT"
End Sub

Private Sub Command1_Click()

Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("C:\project\bala\agubaa\first success\exam.mdb")
Set rs = db.OpenRecordset("exam", dbOpenTable)
rs.AddNew
'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual
Studio\VB98\bala\exam.mdb;Persist Security Info=False"
'rs.Open "select * from exam", cn, adOpenKeyset, adLockOptimistic
'rs.AddNew
'rs("NAME") = Text1.Text
'rs.Update
'rs.Close
'rs.Fields(0) = Text7.Text
rs.Fields(1) = Text1.Text
rs.Fields(2) = Text2.Text
rs.Fields(3) = Text3.Text
rs.Fields(4) = Combo1
rs.Fields(5) = Combo2
rs.Fields(6) = Combo3
rs.Fields(7) = Combo4
rs.Fields(8) = Text6.Text
rs.Fields(9) = Text5.Text
rs.Fields(10) = Text4.Text
rs.Fields(11) = Combo5
rs.Update
MsgBox ("the student detail is successfully registered")
Form5.Show
End Sub

Private Sub Command2_Click()

End
End Sub

Private Sub Command3_Click()

Text5.Text = 9 + Val(Text6.Text)
End Sub

Private Sub Command4_Click()

Text4.Text = (Val(Text5.Text) * 100) + 100
End Sub

Private Sub Command5_Click()

Form4.Show
End Sub

Private Sub Command6_Click()

End Sub

Private Sub Form_Load()

End Sub

SIGN IN:

Private Sub Command2_Click()

End
End Sub

Private Sub Form_Load()

End Sub

Private Sub ok_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project\bala\agubaa\first
success\signup.mdb;Persist Security Info=False"
rs.Open "select * from signup where password= '" + Text2.Text + "'", cn, adOpenKeyset,
adLockOptimistic
'If (rs(1).Value = Text1.Text) Then
If (rs(2).Value = Text2.Text) Then
Unload Me
Form3.Show
Else
MsgBox ("Invalid username or password")
End If
'End If
rs.Close
End Sub

SCREEN SHOTS:

HOME PAGE:
SIGN UP1:

SIGN UP2:
EXAM REGISTRATION:

SIGN IN:

CONCLSUION:
Thus the project to develop exam registration system using rational rose and implement it in
visual basic using MS Access as back end is done successfully.

Ex.No: 4 STOCK MAINTENANCE SYSTEM

DATE: 10/01/12

AIM

To develop a Stock Maintenance system project using visual basic as front end and
Microsoft access as back end.

PROBLEM STATEMENT

In any organization the records about stock are maintained manually. Since these
activities are done manually and need regular updates to these records there is much
probability of error occurrence, moreover this work is a tedious work process. The various
activities involved in these types of systems are adding stock, deleting stock, updating stock,
and searching stock. The system access is given to the accountant, stock manager.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
 5.2 Safety Requirements
5.3 Security Requirements

1. INTRODUCTION:
In order to overcome the major flaws of the manual record maintenance, the shift
towards computerization of the process is mandatory. The primary objective of this project is
to implement the software which is capable of maintenance of the records with simplicity and
in well structured manner. The main aim is to overcome the work load and time consumption
which makes the maintenance of in an organization as a tedious process.
1.1 PURPOSE:
The main purpose of this project is to maintain the stock list details, company’s
address and inform the stock manager when the action is required to be done. The
project avoids excess ordering of the stock and helps to order necessary stock when the
stock goes beneath the minimum level specified. When the particular product reaches
minimum level then it brings a notice to the stock manager.
1.2 Product scope:
The scope of the product is to maintain stock in a stationary stock company to
calculate the available quantity of a part icular product present in the stock. It’s easy to add
to the stock list, when there is an arrival of a new product to the super market. When a
particular product reaches a minimum level then automatically it types letter with the
required quantity of product to the product company.

1.3. DOCUMENT CONVENTIONS

 Administrator-who supervises the system and maintains the database.

 Customer-who purchases the product.

1.4. REFERENCES
www.scribd.com/doc/23362865/srs-of-stock-maintenance

2. OVERALL DESCRIPTION
2.1 PRODUCT PERSPECTIVE
The system is updated for every change in the stock exchange. It contains the
exact rate, date and time of the stock being purchased and sold.
2.2 PRODUCT FUNCTIONS:
 It secures the information of the stock exchanges and records the dat e and time
of the exchanges. It maintains the details of purchased stocks and sold stocks separately for
the purpose of better clarity and to avoid clashes between data.

2.3. TOOLS TO BE USED:

Visual Basic 6.0 and Microsoft Access 2003
3. EXTERNAL INTERFACE
3.1 HARDWARE INTERFACES
The stock details entered through keyboard
3.2 SOFTWARE INTERFACES
The system uses ODBC drive to connect and control the database.

4. SYSTEM FEATURES
4.1 SYSTEM DESCRIPTION AND PRIORITY
This system allows the employee to record all the details that occur during the
delivery of product.
4.2 STIMULUS/RESPONSE SEQUENCE
The cost of delivered products is calculated.

4.3 FUNCTIONAL REQUIREMENT

Req-1: The cost of each product must be calculated.

Req-2: Each product must be given an unique id.

5. OTHER NON-FUNCTIONAL REQUIREMENTS

5.1 SECURITY REQUIREMENTS
This system is secured and it can only be accessed using password.

5.2 PERFORMANCE REQUIREMENTS

Once the details are furnished, the immediate notification of data must be
provided.

5.3 SAFETY REQUIREMENTS

The database must be maintained and monitored effectively to avoid crashing
or hacking.

5.4 AVAILABILITY REQUIREMENTS

The information provided should be retrieved at any time. Therefore
availabilit y of data is more important.
 STOCK MAINTENANCE SYSTEM

Use Case Diagram :

stock
database
stock transaction
<<include>>

add item search item

item found
<<include>>
stock manager update item
delete item

request for cash

item not found
distributing items
place order
bill receipt customer
cashier indent
supply items approval

maintenance
officer
payment mode
supplier

cash cheque
Activity Diagram :
TRANSACTION PAYMENT AND RECEIPT DETAILS

stock
maintenance

receive requests
add items mode of from customer
delete items update item payment
search item

enter details
item deleted YES NO
items
updated distributing
cash cheque items

item found item not

found

display error bill

details message

Class Diagram
Sequence Diagram :

Add items:
Stock System Database
Manager
1: Request to add

2: Request accepted

3: Enter details 4: Check for product id

5: Checks database

6: Return status
7: Provide details

8: Add item
9: Add to database

11: Succesful transaction 10: Item added

12: Terminate
Delete Items

Stock System Database

Manager
1: Request to delete

2: Request accepted

3: Enter details 4: Check for product id

5: Checks database

6: Return status
7: Provide details

8: Delete item
9: Delete from database

11: Succesful deletion 10: Item deleted

12: Terminate

Update Items
Stock System Database
Manager
1: Request to update

2: Request accepted

3: Enter details 4: Check for product id

5: Checks database

6: Return status
7: Provide details

8: Update item
9: Update database

10: Item updated

11: Update Succesful

Stock 12: Terminate System Database

Manager
1: Request to search

2: Request accepted

3: Enter product id to be searched

Search Items 4: Search for product id
5: Checks database

6: Return status
7: Provide details

8: Terminate
Payment

Cashier Stock Supplier

Manager
1: Place order

2: Supply items

3: Request for cash

4: cash handed over

5: Cash paid

7: hand over receipt 6: Receipt received

8: terminate
Collaboration Diagram :

Add Items
5: Checks database
1: Request to add
3: Enter details
8: Add item 4: Check for product id
12: Terminate 9: Add to database
Stock System Database
Manager
2: Request accepted 6: Return status
7: Provide details 10: Item added
11: Succesful transaction

Delete Items

5: Checks database
1: Request to delete
3: Enter details
8: Delete item 4: Check for product id
12: Terminate 9: Delete from database
Stock System Databas
Manager e
2: Request accepted 6: Return status
7: Provide details 10: Item deleted
11: Succesful deletion

Update Items
 5: Checks database
1: Request to update
3: Enter details
8: Update item 4: Check for product id
12: Terminate 9: Update database
Stock System Databas
Manager e
2: Request accepted 6: Return status
7: Provide details 10: Item updated
11: Update Succesful

Search Items

5: Checks database

1: Request to search
3: Enter product id to be searched
8: Terminate 4: Search for product id
Stock System Databas
Manager e
2: Request accepted 6: Return status
7: Provide details
Payment
4: cash handed over 1: Place order
8: terminate 5: Cash paid
Stock Supplier
Cashier
Manager
3: Request for cash 2: Supply items
7: hand over receipt 6: Receipt received

State chart Diagram :

ADD ITEMS

Get
product Id

Checking the Valid Id Add to

database database

DELETE ITEMS Invalid Id

get product
Display error
id
message

checking the valid id delete from

database database

invalid id

display the error

message
SEARCH ITEMS

get product
id1

checking valid id display the

database details

invalid id
display
error

UPDATE ITEMS

get product
id2

checking valid id updating the

PAYMENT details

invalid id
display
error_message
place
order

get the on request supply

items items

to the supplier
payment

get the
receipt
Component diagram

COMPONENT DIAGRAM

database stock
transaction

add delete search update payment

items items items items

Deployment Diagram
 Add product delete product update search payment
product product

Stock Manager

Database

CODING:
LOGIN :
Private Sub Command1_Click()
If LCase(Text1.Text) = "admin" And LCase(Text2.Text) = "admin" Then
Unload Me
choice.Show
Else
MsgBox "Please enter correct username and password"
End If
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

Private Sub Command3_Click()

End
Unload Me
End Sub

Private Sub Form_Load()

Label4.Caption = Now()
End Sub

CHOICE :
Private Sub Command1_Click()
add.Show
End Sub

Private Sub Command2_Click()

delete.Show
End Sub

Private Sub Command3_Click()

Report.Show
End Sub

Private Sub Command4_Click()

update.Show
End Sub

Private Sub Command5_Click()

payment.Show
End Sub
Private Sub Command6_Click()
End
Unload Me
End Sub

Private Sub Command7_Click()

search.Show
End Sub

ADD PRODUCT:

Private Sub Command1_Click()

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Val(Text1.Text)
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Fields(2) = Val(Text3.Text)
Adodc1.Recordset.Fields(3) = Val(Text4.Text)
Adodc1.Recordset.Fields(4) = Text5.Text
Text6.Text = Val(Text3.Text) * Val(Text4.Text)
Adodc1.Recordset.Fields(5) = Val(Text6.Text)
Adodc1.Recordset.update
Adodc1.Recordset.Save
MsgBox "Product added successfully"
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

Private Sub Command3_Click()

choice.Show
End Sub

Private Sub Form_Load()

Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

DELETE PRODUCT:

Private Sub Command1_Click()

Adodc1.Recordset.delete
Text1.Text = ""
Text2.Text = ""
MsgBox "Product deleted successfully from the database"
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

Private Sub Command3_Click()

choice.Show
End Sub

UPDATE PRODUCT :

Private Sub Command1_Click()

Adodc1.Recordset.update
MsgBox "Product updated successfully"
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub
Private Sub Command3_Click()
choice.Show
End Sub

PAYMENT :

Private Sub Command1_Click()

Adodc2.Refresh
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(1) = Text3.Text
Adodc2.Recordset.Fields(2) = Val(Text4.Text)
Adodc2.Recordset.Fields(3) = Combo1.Text
Adodc2.Recordset.Fields(4) = Combo2.Text
Adodc2.Recordset.update
Adodc2.Recordset.Save
MsgBox "Payment and supplier details updated successfully to the database"
End Sub

Private Sub Command2_Click()

End
Unload Me
End Sub

Private Sub Command3_Click()

choice.Show
End Sub

LOGIN:
CHOICE :

ADD PRODUCT:
DELETE PRODUCT:

PRODUCT STATUS:
UPDATE PRODUCT:

PAYMENT :
CONCLUSION :
Thus an application has been created using visual basic and Rational Rose software for easy
maintenance and effective retrieval of Stock .
Ex.No: 5 ONLINE COURSE RESERVATION SYSTEM

DATE: 24/01/12

AIM

To develop a online course reservation system project using visual basic as front end and
Microsoft access as back end.

PROBLEM STATEMENT:

Gives the description about the course and the colleges. The system gives the overall
status of the course available in all the college and also it helps to check the availability of the
course in a particular college. If the user wants to register the course, an account is required.
Depending on the availability of the course, the user can reserve their required course. For
reservation, the user details like name,percentage,mail id,phone number,address are needed. And
also the system checks for the eligibility which depends on the percentage obtained by the
student. It follows some criteria. If the criteria is not satisfied, the reservation is not possible and
its displays them as a non-eligible candidate. After reserving the course register number is
displayed to confirm the details of the student.

SOFTWARE REQUIREMENT SPECIFICATION:

Table of contents

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
 5.3 Security Requirement

1. INTRODUCTION:

Student admissions are a vital part of any university’s running because students are what
keep a University alive. The student admission is one of the most important activities within a
university as one cannot survive without students. A poor admissions system can mean fewer
students being admitted into a university because of mistakes or an overly slow response time.

The process begins with a potential student completing an application form through the
Universities and Colleges Admissions Service, the first step for students is to apply directly to
the university through a custom online form.
The next step is for the Admissions service center has to review the application and
ensure that all of the required information has been provided, from the form itself to the
supplementary documentation, such as language and degree certificates. If any of the required
information is missing, it is the secretary for the department to which the application concerns
that contacts the potential student and arranges for the delivery of the outstanding data
The application in its entirety is then forwarded, complete with a recommendation, to the
respective department’s Admissions Tutor, who has the final say as to whether each potential
student is accepted or rejected. Before making a decision, the Admissions Tutor reviews the
application and the additional documentation, comparing the academic credentials to a list of
university rankings and previous, similar applications.

1.1. PURPOSE:
The purpose of this SRS document is to specify software requirements of the Online
Admission for the university. It is intended to be a complete specification of what functionality
the admission provides. The main purpose of the system is to automate the task carried out by
different peoples in the organization to perform the student admission. Specific design and
implementation details will be specified in a future document.
1.2. SCOPE:
This project’s aim is to automate the system, pre-checking the inclusion of all required
material and automatically ranking each student’s application based on a number of criteria.
These criteria include the ranking of their university, their grade at said university and their
language grade certificate. The data used by the system is stored in a database that will be the
centre of all information held about students and the base for the remainder of the process after
the initial application has been made. This enables things to be simplified and considerably
quickened making the jobs of the people involved easier. It supports the current process but
centralizes it and makes it possible for decisions to be made earlier and easier way.

1.3. DOCUMENT CONVENTIONS:

Student – The person who books the ticket.
1.4. REFERENCES:
www.annauniv.edu
2. OVERALL DESCRIPTION:
2.1. PRODUCT PRESPECTIVE:
 The basic page layout is created using visual basic is the user interface for
the student side.
 The Client Software is to provide the user interface on system user client
side and for the server a dedicated database is used to store and retrieve
the information.
 On the server side ODBC server is used for storing the information.
2.2 PRODUCT FUNCTIONS:
This system functions with a database at the back end, for reserving seats.
2.3 TOOLS TO BE USED:
Visual basic and Microsoft Access
3. EXTERNAL INTERFACES:
3.1 HARDWARE INTERFACES:
The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACES:
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES:
4.1. COURSE RESERVATION:
4.1.1.1 DESCRIPTION AND PRIORITY:
Allow the student to select or block the seats..
4.1.1.2 STIMULUS / RESPONSE SEQUENCE:
The seat is blocked as per the student’s requirement.
4.1.2 FUNCTIONAL REQUIREMENT
REQ 1: student can create its own account.
REQ 2: The system will update the details about the seats available.
5. OTHERNON-FUNCTIONAL REQUIREMENT:
5.1. PERFORMANCE REQUIREMENT:
To increase the performance, free up database resource for other tasks.
5.2. SAFETY REQUIREMENT:
The requirement where datbase main effectively and administartor must
5.3. SECURITY REQUIREMENT:
Passwords for registered accounts are stored as a hash in the database only the staff can
access the main database.
 ONLINE COURSE RESERVATION SYSTEM
Use Case Diagram :

Database
<<new user>>
LOGIN

<<existing user>>
OCR

REGISTRATION <<include>>

VERIFICATION VALIDATION

CANDIDATE
ADMINISTRATOR
MODIFICATION

CANCELLATION

COURSE SELECTION

COUNSELLING
ALLOCATION

COLLEGE SELECTION

<<include>>

PAYMENT NETBANKING
<<include>>

CREDIT/DEBIT CARD
Activity Diagram :

Online Cousre
Reservation system

login Registration

Counselling
Enter the FAQ
signup signin
Details

Modification Authenticat
ion Payment
enter details enter username Enter the
for login and password name,Age,Percentage,E-mail

Course Selection
Modify the Cancellation
req details
Invalid Credit card Demand
Draft

Seat
Change the Allocated
name,age,email,percentage
Add the
Form
Class Diagram :
INTERACTION DIAGRAM:
SEQUENCE DIAGRAM :

COUNSELLING:

applicant admin database

1.enter the user details
2.verifying the details

3.processing
4.succesful counselling

LOGIN:

applicant admin database

1.Enter the details
2.verifying database

3.processing
4.login

5.choose the operation

6.verifying database

7.process request
8.verification succesful
MODIFICATION:

apllicant admin database

1.login 2.verifying the database

3.processing
4.succesful registration

5.enter the modified data

6.check constraints

8.succesful modification 7.processing

PAYMENT:

applicant admin database

1.enter serial key
2.verify database

3.retrieve details
4.pay amount
REGISTRATION:

applicant admin
database
1.enter the details
2.verifying the details

3.processing
4.succesful registration

COLLABORATION DIAGRAM :
COUNSELLING:

1: 1.enter the user details 2: 2.verifying the details

applicant admin database

4: 4.succesful counselling 3: 3.processing

LOGIN:

1: 1.Enter the details 2: 2.verifying database

5: 5.choose the operation 6: 6.verifying database
applicant admin database

4: 4.login 3: 3.processing
8: 8.verification succesful 7: 7.process request

MODIFICATION:

1: 1.login 2: 2.verifying the database

5: 5.enter the modified data 6: 6.check constraints
apllicant admin database

4: 4.succesful registration 3: 3.processing

8: 8.succesful modification 7: 7.processing
PAYMENT:

1: 1.enter serial key 2: 2.verify database

applicant
admin database

4: 4.pay amount
3: 3.retrieve details

REGISTRATION:

1: 1.enter serial key 2: 2.verify database

applicant
admin database

4: 4.pay amount
3: 3.retrieve details

STATE CHART DIAGRAM:

COUNSELLING:

counsel

select no vacancy Availability

course

seat allocated

Reserved
LOGIN:

enter the vaild details login

details succesfull

invalid details

login failed renewal change of

address

MODIFICATION:

modify valid change change in

database

invalid change

Modification modification
failed successful
PAYMENT:
DD

payment serial key payment

mode

cash

REGISTRATION:

Enter Login
Details Succesful

Login failed Renewal Change Of

address
COMPONENT DIAGRAM

Login Registration Modification Counselling Payment

Database
DEPLOYMENT DIAGRAM:

Login Modifier Counselling Payment

Registration

Online Course
Reservat...

Database

CODING
LOGIN:
Private Sub Command3_Click()
Dim Username, pass, repass, email As String
Dim error As String
Label7.Visible = True
Username = Text3.Text
pass = Text4.Text
repass = Text5.Text
email = Text6.Text
If (Len(Username) > 6) Then
 If ((pass = repass) And Len(pass)) Then
If (InStr(email, "@")) Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Username") = Username
Adodc1.Recordset.Fields("Password") = pass
Adodc1.Recordset.Fields("Email") = email
Adodc1.Recordset.Fields("BOOL") = 1
Adodc1.Recordset.Update
Adodc1.Recordset.Save
Call Clear
MsgBox ("sucess")
SSTab1.Tab = 0
Else
Label7.Caption = "enter a valid e-mail id"
End If
Else
Label7.Caption = "the password and retype password should be same "
End If
Else
Label7.Caption = "the username should be a minimum of 6 character length"
End If
End Sub
Private Sub SSTab1_DblClick()
Static user1 As String
user1 = "hello"
pass = (Text4.Text)
repass = (Text5.Text)
email = (Text6.Text)
End Sub

HOME :

Private Sub Command1_Click()

Application.Show
Unload Me
End Sub
Private Sub Command2_Click()
Payment.Show
Unload Me
End Sub
Private Sub Command3_Click()
Availability.Show
Unload Me
End Sub
Private Sub Command4_Click()
Course.Show
 Unload Me
End Sub
Private Sub Command5_Click()
End
Unload Me
End Sub

APPLICATION:

Private Sub Form_Load()

adodc2.refresh
i=0
l = home.label2.caption
combo1.additem "s.v.m.h.s.s"
combo1.additem "don bosco"
combo1.additem "srv hss"
combo1.additem "national hss"
combo1.additem "modern hss"
combo1.additem "prince hss"
combo1.additem "ceoa hss"
End Sub
Private Sub Text4_Change()
If (Val(Text4.Text) > 1200) Then
MsgBox ("INCOORECT")
End If
End Sub
Private Sub Command2_Click()
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Command1_Click()
If (i = 1) Then
Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields("NAME") = Text1.Text
Adodc2.Recordset.Fields("FATHERNAME") = Text2.Text
Adodc2.Recordset.Fields("PHONENO") = Val(Text3.Text)
Adodc2.Recordset.Fields("DATEOFBIRTH") = Calendar1.Value
Adodc2.Recordset.Fields("SCHOOL") = Combo1.Text
Adodc2.Recordset.Fields("TOTALMARK") = Val(Text4.Text)
 Adodc2.Recordset.Fields("CUTOFF") = Val(Text5.Text / 2 + Text6.Text / 4 +
Text7.Text / 4)
Adodc2.Recordset.Update
Adodc2.Recordset.Save
MsgBox ("SUCESS")
Home.Label1.Caption = Text1.Text
Home.Label2.Caption = l
Home.Command1.Enabled = False
Home.Show
Unload Me
Else
MsgBox ("sELECT THE dob")
End If
End Sub
Private Sub Calendar1_Click()
i=1
End Sub
Public l As String
Public i As Integer

AVAILABILITY:

Private Sub Form_Load()

Home.Adodc1.Refresh
Home.Adodc1.Recordset.Update
Home.Adodc1.Recordset.Save
Adodc1.Recordset.Update
Adodc1.Refresh
DataGrid1.Refresh
a = Home.Label1.Caption
l = Home.Label2.Caption
End Sub
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = DataGrid1.Columns(ColIndex).DataField
End Sub
Public l As String
Public a As String
Private Sub Command1_Click()
Home.Label2.Caption = l
Home.Label1.Caption = a
Home.Show
Unload Me
End Sub
COURSE SELECTION:

Private Sub Form_Load()

a1 = Home.Label1.Caption
l = Home.Label2.Caption
Label3.Caption = a1
Call refresh1
Adodc3.Recordset.MoveFirst
Do Until Adodc3.Recordset.EOF
Combo1.AddItem (Adodc3.Recordset(2))
Adodc3.Recordset.MoveNext
Loop
DataGrid1.Columns.Item(0).Visible = False
Text1.Text = ""
Combo1.Text = "select your coll"
End Sub
Private Sub Command4_Click()
Dim a As Boolean
a = True
Adodc3.Recordset.MoveFirst
Do While a = True
If (Text1.Text = Adodc3.Recordset(1)) Then
Combo1.Text = Adodc3.Recordset(2)
a = False
Else
Adodc3.Recordset.MoveNext
a = Not Adodc3.Recordset.EOF
End If
Loop
End Sub
Private Sub refresh1()
Adodc4.Recordset.Update
Adodc4.Recordset.Save
Adodc4.Refresh
DataGrid1.Refresh
End Sub
Private Sub Command1_Click()
If (Home.Command1.Visible = False) Then
Home.Command1.Visible = False
End If
Dim str As String
Dim i As Integer
Adodc3.Recordset.MoveFirst
If (Option1.Value) Then
str = Option1.Caption
i=3
ElseIf (Option2.Value) Then
str = Option2.Caption
i=4
ElseIf (Option3.Value) Then
str = Option3.Caption
i=5
Else
str = Option4.Caption
i=6
End If
Call refresh1
Adodc3.Recordset.Find "COLLNAME ='" & Combo1.Text & "'"
If (Adodc3.Recordset(i) = 0) Then
MsgBox ("sorry no seat available choose next")
Call refresh1
Else
Dim intResponse As Integer
intResponse = MsgBox("Are you sure you want to allocate?", _
vbYesNo + vbQuestion, _
"Quit")
If intResponse = vbYes Then
Adodc3.Recordset.Fields(i) = Val(Adodc3.Recordset(i)) - 1
End If
Home.Adodc1.Refresh
Home.Adodc1.Recordset.MoveFirst
Home.Adodc1.Recordset.Find "NAME ='" & a1 & "'"
Home.Adodc1.Recordset.Fields(8) = Combo1.Text
Home.Adodc1.Recordset.Fields(9) = str
Home.Adodc1.Recordset.Fields(10) = Adodc3.Recordset(1)
Home.Adodc1.Recordset.Fields(11) = 1
Home.Adodc1.Recordset.Update
Home.Adodc1.Recordset.Save
Call refresh1
Home.Command4.Enabled = False
Adodc3.Recordset.Update
Adodc3.Recordset.Save
Home.Label2.Caption = l
Home.Show
Unload Me
End If
End Sub
Public a1 As String
Public l As String
Private Sub Check1_Click()
Call refresh1
If (Check1.Value) Then
 DataGrid1.Visible = True
Else
DataGrid1.Visible = False
End If
End Sub

PAYMENT:

Public l As String
Private Sub Command1_Click()
Adodc1.Refresh
Adodc1.Recordset.Find "NAME ='" & Text1.Text & "'"
If (Adodc1.Recordset.EOF) Then
MsgBox ("illegal")
Else
Label1.Visible = False
Text1.Visible = False
Command1.Visible = False
Label2.Visible = True
Frame1.Visible = True
Command2.Visible = True
End If
End Sub
Private Sub Command2_Click()
If (Home.Command1.Visible = False) Then
Home.Command1.Visible = False
End If
If (Home.Command2.Visible = False) Then
Home.Command1.Visible = False
End If
If (Home.Command4.Visible = False) Then
Home.Command1.Visible = False
End If
Adodc1.Refresh
Adodc1.Recordset.Find "NAME ='" & Text1.Text & "'"
If (Option1.Value = True) Then
Adodc1.Recordset.Fields("Payement") = "DUE"
Else
Adodc1.Recordset.Fields("Payement") = "PAID"
Adodc1.Recordset.Fields("DDNO") = Val(Text2.Text)
End If
Adodc1.Recordset.Update
Adodc1.Recordset.Save
Adodc2.Refresh
Dim B As String
B=l
Adodc2.Recordset.Find "Username ='" & B & "'"
Adodc2.Recordset(4) = Val(0)
MsgBox (Adodc2.Recordset(4))
Adodc2.Recordset.Update
Adodc2.Recordset.Save
Adodc2.Recordset.Close
Home.Command2.Enabled = False
Home.Show
Unload Me
End Sub
Private Sub Form_Load()
l = Home.Label2.Caption
Text1.Text = ""
Label2.Visible = False
Frame1.Visible = False
Command2.Visible = False
Label3.Visible = False
Text2.Visible = False
End Sub
Private Sub Option1_Click()
If (Option1.Value = True) Then
Label3.Visible = True
Text2.Visible = True
Label3.Caption = "ENTER THE CREDIT CARD NO"
End If
End Sub
Private Sub Option2_Click()
If (Option2.Value = True) Then
Label3.Caption = "ENTER THE DD NO"
Label3.Visible = True
Text2.Visible = True
End If
End Sub
SCREENSHOTS:

SIGN UP

LOGIN

HOME
APPLICATION

AVAILABILITY
COURSE

PAYMENT
PAYMENT

CONCLUSION:
Thus an application has been designed and implemented for a online course reservation
system.
Ex.No: 6 E-TICKETING(Airline/Railway)

DATE:

AIM

To develop a E-Ticketing system project using visual basic as front end and Microsoft
access as back end.

PROBLEM STATEMENT:
E-Ticketing enables the user in easy ticket reservation. The customer can create their own
account. Then customer can book the ticket by just clicking the seat which is shown on the
screen and insert some card data. The customer can check the ticket record according to the
transaction number. Staff can use the system to add data to the database. The system can
generate some static information according booking and ticket selling records.

SOFTWARE REQUIREMENT SPECIFICATION

Table of contents

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirement
1. INTRODUCTION:
E-ticket system is where customer can reserve ticket in online. It is an automatic system.
It is the interface between the customer and authority responsible for the issuing the tickets.
1.1. PURPOSE
It provides an anytime anywhere service for customer. This also minimize the
number of staff at the ticket box.
1.2. SCOPE
The system can generate the time table automatically or the time table is set by
the staff. The ticket is booked according to the customer requirement.
1.3. DOCUMENT CONVENTIONS:
Customer – The person who books the ticket.
1.4. REFERENCES
www.irctc.co.in
www.yatra.com
2. OVERALL DESCRIPTION:
2.1. PRODUCT PRESPECTIVE:
This project is a self contained project that allows the applicant to select or book
the ticket.
2.2 PRODUCT FUNCTIONS
This system functions with a database at the back end, for reserving tickets.
2.3 TOOLS TO BE USED
Visual basic and Microsoft Access
3. EXTERNAL INTERFACES
3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACE
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES
4.1. TICKET BOOKING:
 4.1.1 DESCRIPTION AND PRIORITY:
Allow the customer to select or book the ticket.
4.1.2 STIMULUS / RESPONSE SEQUENCE:
The seat is booked as per the customer requirement.
4.1.3 FUNCTIONAL REQUIREMENT
REQ 1: customer can create its own account.
REQ 2: The system will update the details about the tickets.
5. OTHERNON-FUNCTIONAL REQUIREMENT:
5.1.PERFORMANCE REQUIREMET
To increase the performance, free up database resource for other tasks.
5.2.SAFETY REQUIREMENT:
The requirement where datbase main effectively and administartor must
5.3.SECURITY REQUIREMENT:
Passwords for registered accounts are stored as a hash in the database only the
staff can access the main database.
 E-TICKETING
Use Case Diagram :

Login
database

new login ext login

check availability

<<include>> reservation
<<extend>>

passenger <<include>> admin

<<extend>>

booked history
Cancellation
Confirm ticket print ticket

payment

credit e-bank
debit
Activity Diagram :

Online railway
reservation system

Mode

Login. reservation
Check
payment
availability

Yes E-bank
Enter Personal Credit card Debit card
Enter train
Enter login. Details
details
available

Invalid No Cancellation

Reserve?
Card details Enter account
details
Not avail...
Enter pwd
Yes Ticket not available Waiting..Still
Continue or reserve?
not?
invalid Confirm valid
Ticket available Payment

Book Ticket
Invalid
Valid
No
View DB Print ticket Re-Enter
card details

Exit Booked
History

Class Diagram
Sequence Diagram :
Login

PASSENGER ADMIN DATABASE

1: enter username,password
2: check

3: valid access
4: successful login

Check Availability
PASSENGER ADMIN DATABASE

1: enter train no
2: check the train no

4: display the train name 3: valid then process

5: search no of seats available 6: search the availability of seats

8: display the availability of seats 7: processing

Reservation
PASSENGE ADMIN DATABASE
R
1: enter train no 2: check the details

4: display the train name 3: processing the details

5: enter no of seats,date,time,to & from 6: check the given details

8: display the details 7: reserve and update

9: enter the card _no 10: check the card no

12: ticket reserved 11: processing

Cancellation

PASSENGE ADMIN DATABASE

R

1: enter pnr_ no 2: check whether the no is valid or not

4: display the booked details 3: if the no is valid then process

5: select the particular details for cancellation and confirm 6: search the given details

8: retrieve 7: cancel and update the database

Collaboration Diagram :

Login
1: enter username,password 2: check
PASSENGER ADMIN DATABASE

4: successful login 3: valid access

Check Availability
1: enter train no 2: check the train no
5: search no of seats available 6: search the availability of seats
PASSENGER ADMIN DATABASE

4: display the train name 3: valid then process

8: display the availability of seats 7: processing

Reservation

1: enter train no 2: check the details

5: enter no of seats,date,time,to & from 6: check the given details
9: enter the card _no 10: check the card no
PASSENGER ADMIN DATABA
SE
4: display the train name 3: processing the details
8: display the details 7: reserve and update
12: ticket reserved 11: processing
Cancellation
1: enter pnr_ no 2: check whether the no is valid or not
5: select the particular details for cancellation and confirm 6: search the given details
PASSENGER ADMIN DATABA
SE
4: display the booked details 3: if the no is valid then process
8: retrieve 7: cancel and update the database

State chart Diagram :

Check Availability

check valid display train check available not found Seats not
availability name seats available

found
invalid

Enter Display
valid t_no Available seats

Reservation

Enter Enter details Reserve cancel Cancellation

T_no

confirm

E-payment Confirm &

print ticket

Cancellation

Enter valid Search Booked Select details of confirm Cancel

Pnr_no history cancellation ticket

invalid
cancel

exit
Invalid no
cancellation
Component Diagram Payment

Login Check Reservation Cancellation

availability

Database

Deployment Diagram

Check Reservation Cancellation

Login
availability

RAILWAY
RESERVATION SYSTEM

Database
CODING:

STARTUP:

Private Sub Timer1_Timer()

ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 10 Then
Timer1.Enabled = False
ProgressBar1.Value = 0
Unload Me
login.Show
End If
End Sub

LOGIN:

Private Sub Command1_Click()

MDIForm1.Show
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.AddNew
MsgBox "registration is performed successfully"
End Sub

Private Sub Command4_Click()

MsgBox ("Cancelled")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command2_Click()

MsgBox ("Cancelled")
Text6.Text = ""
Text7.Text = ""
End Sub

MENU:

Private Sub Command1_Click()

Form12.Show
End Sub
Private Sub mnuAbt_Click()
frmAbout.Show
End Sub
Private Sub mnuCan_Click()
Form6.Show
End Sub

Private Sub mnuCascade_Click()

MDIForm1.Arrange vbCascade
End Sub

Private Sub mnuFD_Click()

Form13.Show
End Sub

Private Sub mnuFL_Click()

Form11.Show
End Sub

Private Sub mnuRepRes_Click()

Form8.Show
End Sub

Private Sub mnuRes_Click()

Form4.Show
End Sub

Private Sub mnuSearch_Click()

Form4.Show
End Sub

Private Sub mnuSL_Click()

Form10.Show
End Sub

Private Sub mnuTH_Click()

MDIForm1.Arrange vbTileHorizontal
End Sub

Private Sub mnuTL_Click()

Form9.Show
End Sub

Private Sub mnuTV_Click()

MDIForm1.Arrange vbTileVertical
End Sub

Private Sub mnuxit_Click()

If MsgBox("Are you sure you want to exit?", vbYesNo, "RRS") = vbYes Then
End
End If
End Sub

Private Sub Timer1_Timer()

Label3.Caption = Date
Label4.Caption = Time
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Caption
Case "Search"
Form4.Show
Form4.Command1.Visible = False
Form4.Command2.Visible = True
Form4.Label1.Caption = "Search Train"
Case "Reservation"
Form4.Show
Form4.Caption = "Select Train Number"
Form4.Command2.Visible = False
Case "Cancellation"
Form6.Show
Case "Exit"
If MsgBox("Are you sure you want to exit?", vbYesNo, "RRS") = vbYes Then
End
End If
Case "About"
frmAbout.Show
End Select
End Sub

SEARCH TRAIN:

Private Sub Combo1_Click()

Adodc1.Refresh
Adodc1.Recordset.Find "Train_No =" & Combo1.Text, 0, adSearchForward
If Adodc1.Recordset.EOF = True Then
MsgBox ("Train not Available")
End If
End Sub

Private Sub Command1_Click()

Temp1 = Combo1.Text
Unload Me
Load Form2
Form2.Show
End Sub

Private Sub Command2_Click()

Unload Me
End Sub

RESERVATION:

Dim cn1 As New ADODB.Connection

Dim rs1 As New ADODB.Recordset
Dim cn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim cn3 As New ADODB.Connection
Dim rs3 As New ADODB.Recordset
Dim cn4 As New ADODB.Connection
Dim rs4 As New ADODB.Recordset
Dim cn5 As New ADODB.Connection
Dim rs5 As New ADODB.Recordset
Dim cn6 As New ADODB.Connection
Dim rs6 As New ADODB.Recordset

Private Sub Combo7_Click()

s = "select * from seats where train_no = " & Text1.Text & " AND class = '" & Combo7.Text &
"' "
connect (s)
Set Text66.DataSource = rs
Text66.DataField = "available_seats"
If Text66.Text = "0" Then
MsgBox ("No Seats Available in" & Combo7.Text)
Combo7.Text = ""
End If
End Sub

Private Sub Command1_Click()

If Combo7.Text = "" Then
MsgBox ("Please Select Class")
Exit Sub
End If
If Text11.Text <> "" And Text11.Text <> "0" Then
n1 = Text11.Text
End If
If Text12.Text <> "" And Text12.Text <> "0" Then
n2 = Text12.Text
End If
If Text13.Text <> "" And Text13.Text <> "0" Then
n3 = Text13.Text
End If
If Text14.Text <> "" And Text14.Text <> "0" Then
n4 = Text14.Text
End If
If Text15.Text <> "" And Text15.Text <> "0" Then
n5 = Text15.Text
End If
If Text16.Text <> "" And Text16.Text <> "0" Then
n6 = Text16.Text
End If
Temp2 = Text60.Text
Temp4 = Combo7.Text
Temp6 = Text1.Text
If Text5.Text <> "" And Text11.Text <> "" And Combo1.Text <> "" Then
If Check1.Value = True Then
Text21.Text = "Yes"
Else
Text21.Text = "No"
End If
Text22.Text = DTPicker1.Value
Text23.Text = Combo7.Text
Text67.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs1.Update
rs1.MoveNext
rs1.MovePrevious
End If
If Text6.Text <> "" And Text12.Text <> "" And Combo2.Text <> "" Then
If Check2.Value = True Then
Text28.Text = "Yes"
Else
Text28.Text = "No"
End If
Text29.Text = DTPicker1.Value
Text30.Text = Combo7.Text
Text68.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs2.Update
rs2.MoveNext
rs2.MovePrevious
End If
If Text7.Text <> "" And Text13.Text <> "" And Combo3.Text <> "" Then
If Check3.Value = True Then
Text35.Text = "Yes"
Else
Text35.Text = "No"
End If
Text36.Text = DTPicker1.Value
Text37.Text = Combo7.Text
Text69.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs3.Update
rs3.MoveNext
rs3.MovePrevious
End If
If Text8.Text <> "" And Text14.Text <> "" And Combo4.Text <> "" Then
If Check4.Value = True Then
Text42.Text = "Yes"
Else
Text42.Text = "No"
End If
Text43.Text = DTPicker1.Value
Text44.Text = Combo7.Text
Adodc2.Refresh
Adodc2.Recordset.MoveLast
Text63.Text = Text59 + 1
Text70.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs4.Update
rs4.MoveNext
rs4.MovePrevious
End If
If Text9.Text <> "" And Text15.Text <> "" And Combo5.Text <> "" Then
If Check5.Value = True Then
Text49.Text = "Yes"
Else
Text49.Text = "No"
End If
Text50.Text = DTPicker1.Value
Text51.Text = Combo7.Text
Text71.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs5.Update
rs5.MoveNext
rs5.MovePrevious
End If
If Text10.Text <> "" And Text16.Text <> "" And Combo6.Text <> "" Then
If Check6.Value = True Then
Text56.Text = "Yes"
Else
Text56.Text = "No"
End If
Text57.Text = DTPicker1.Value
Text58.Text = Combo7.Text
Text72.Text = Text66.Text
Text66.Text = Text66.Text - 1
rs.Update
rs.MoveNext
rs.MovePrevious
rs6.Update
rs6.MoveNext
rs6.MovePrevious
End If
Unload Me
Load Form3
Form3.Show
End Sub

Private Sub Command3_Click()

rs1.CancelUpdate
rs2.CancelUpdate
rs3.CancelUpdate
rs4.CancelUpdate
rs5.CancelUpdate
rs6.CancelUpdate
Unload Me
End Sub

Private Sub Command4_Click()

Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Combo7.Text = ""
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
Check5.Value = False
Option6.Value = False
End Sub

Private Sub Form_Load()

DTPicker1.Value = Date$
Text1.Text = Temp1
s1 = "select * from reservation"
s2 = "select * from reservation"
s3 = "select * from reservation"
s4 = "select * from reservation"
s5 = "select * from reservation"
s6 = "select * from reservation"
Set cn1 = New ADODB.Connection
cn1.CursorLocation = adUseClient
cn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn1.Open
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.ActiveConnection = cn1
rs1.Open s1

Set cn2 = New ADODB.Connection

cn2.CursorLocation = adUseClient
cn2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn2.Open
Set rs2 = New ADODB.Recordset
rs2.CursorType = adOpenDynamic
rs2.LockType = adLockOptimistic
rs2.ActiveConnection = cn2
rs2.Open s2

Set cn3 = New ADODB.Connection

cn3.CursorLocation = adUseClient
cn3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn3.Open
Set rs3 = New ADODB.Recordset
rs3.CursorType = adOpenDynamic
rs3.LockType = adLockOptimistic
rs3.ActiveConnection = cn3
rs3.Open s3

Set cn4 = New ADODB.Connection

cn4.CursorLocation = adUseClient
cn4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn4.Open
Set rs4 = New ADODB.Recordset
rs4.CursorType = adOpenDynamic
rs4.LockType = adLockOptimistic
rs4.ActiveConnection = cn4
rs4.Open s4

Set cn5 = New ADODB.Connection

cn5.CursorLocation = adUseClient
cn5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn5.Open
Set rs5 = New ADODB.Recordset
rs5.CursorType = adOpenDynamic
rs5.LockType = adLockOptimistic
rs5.ActiveConnection = cn5
rs5.Open s5

Set cn6 = New ADODB.Connection

cn6.CursorLocation = adUseClient
cn6.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn6.Open
Set rs6 = New ADODB.Recordset
rs6.CursorType = adOpenDynamic
rs6.LockType = adLockOptimistic
rs6.ActiveConnection = cn6
rs6.Open s6

Set Text5.DataSource = rs1

Text5.DataField = "Passenger_name"
Set Text11.DataSource = rs1
Text11.DataField = "Age"
Set Combo1.DataSource = rs1
Combo1.DataField = "Sex"
Set Text2.DataSource = rs1
Text2.DataField = "Train_No"
Set Text3.DataSource = rs1
Text3.DataField = "Train_Name"
Set Text4.DataSource = rs1
Text4.DataField = "From"
Set Text17.DataSource = rs1
Text17.DataField = "To"
Set Text21.DataSource = rs1
Text21.DataField = "Senior_Citizen"
Set Text22.DataSource = rs1
Text22.DataField = "Date_Travel"
Set Text23.DataSource = rs1
Text23.DataField = "class"
Set Text60.DataSource = rs1
Text60.DataField = "PNR_NO"
Set Text67.DataSource = rs1
Text67.DataField = "Seat_no"

Set Text6.DataSource = rs2

Text6.DataField = "Passenger_name"
Set Text12.DataSource = rs2
Text12.DataField = "Age"
Set Combo2.DataSource = rs2
Combo2.DataField = "Sex"
Set Text24.DataSource = rs2
Text24.DataField = "Train_no"
Set Text25.DataSource = rs2
Text25.DataField = "Train_name"
Set Text26.DataSource = rs2
Text26.DataField = "From"
Set Text27.DataSource = rs2
Text27.DataField = "to"
Set Text28.DataSource = rs2
Text28.DataField = "Senior_Citizen"
Set Text29.DataSource = rs2
Text29.DataField = "Date_Travel"
Set Text30.DataSource = rs2
Text30.DataField = "Class"
Set Text61.DataSource = rs2
Text61.DataField = "PNR_NO"
Set Text68.DataSource = rs2
Text68.DataField = "Seat_no"

Set Text7.DataSource = rs3

Text7.DataField = "Passenger_name"
Set Text13.DataSource = rs3
Text13.DataField = "Age"
Set Combo3.DataSource = rs3
Combo3.DataField = "Sex"
Set Text31.DataSource = rs3
Text31.DataField = "Train_No"
Set Text32.DataSource = rs3
Text32.DataField = "Train_Name"
Set Text33.DataSource = rs3
Text33.DataField = "From"
Set Text34.DataSource = rs3
Text34.DataField = "To"
Set Text35.DataSource = rs3
Text35.DataField = "Senior_Citizen"
Set Text36.DataSource = rs3
Text36.DataField = "Date_Travel"
Set Text37.DataSource = rs3
Text37.DataField = "Class"
Set Text62.DataSource = rs3
Text62.DataField = "PNR_NO"
Set Text69.DataSource = rs3
Text69.DataField = "Seat_no"

Set Text8.DataSource = rs4

Text8.DataField = "Passenger_name"
Set Text14.DataSource = rs4
Text14.DataField = "Age"
Set Combo4.DataSource = rs4
Combo4.DataField = "Sex"
Set Text38.DataSource = rs4
Text38.DataField = "Train_No"
Set Text39.DataSource = rs4
Text39.DataField = "Train_Name"
Set Text40.DataSource = rs4
Text40.DataField = "From"
Set Text41.DataSource = rs4
Text41.DataField = "To"
Set Text42.DataSource = rs4
Text42.DataField = "Senior_Citizen"
Set Text43.DataSource = rs4
Text43.DataField = "Date_Travel"
Set Text44.DataSource = rs4
Text44.DataField = "Class"
Set Text63.DataSource = rs4
Text63.DataField = "PNR_NO"
Set Text70.DataSource = rs4
Text70.DataField = "Seat_no"

Set Text9.DataSource = rs5

Text9.DataField = "Passenger_name"
Set Text15.DataSource = rs5
Text15.DataField = "Age"
Set Combo5.DataSource = rs5
Combo5.DataField = "Sex"
Set Text45.DataSource = rs5
Text45.DataField = "Train_No"
Set Text46.DataSource = rs5
Text46.DataField = "Train_Name"
Set Text47.DataSource = rs5
Text47.DataField = "From"
Set Text48.DataSource = rs5
Text48.DataField = "To"
Set Text49.DataSource = rs5
Text49.DataField = "Senior_Citizen"
Set Text50.DataSource = rs5
Text50.DataField = "Date_Travel"
Set Text51.DataSource = rs5
Text51.DataField = "Class"
Set Text64.DataSource = rs5
Text64.DataField = "PNR_NO"
Set Text71.DataSource = rs5
Text71.DataField = "Seat_no"

Set Text10.DataSource = rs6

Text10.DataField = "Passenger_name"
Set Text16.DataSource = rs6
Text16.DataField = "Age"
Set Combo6.DataSource = rs6
Combo6.DataField = "Sex"
Set Text52.DataSource = rs6
Text52.DataField = "Train_No"
Set Text53.DataSource = rs6
Text53.DataField = "Train_Name"
Set Text54.DataSource = rs6
Text54.DataField = "From"
Set Text55.DataSource = rs6
Text55.DataField = "To"
Set Text56.DataSource = rs6
Text56.DataField = "Senior_Citizen"
Set Text57.DataSource = rs6
Text57.DataField = "Date_Travel"
Set Text58.DataSource = rs6
Text58.DataField = "Class"
Set Text65.DataSource = rs6
Text65.DataField = "PNR_NO"
Set Text72.DataSource = rs6
Text72.DataField = "Seat_no"

rs1.AddNew
rs2.AddNew
rs3.AddNew
rs4.AddNew
rs5.AddNew
rs6.AddNew
Text1.Text = Temp1
Adodc1.Recordset.Find "Train_No =" & Text1.Text, 0, adSearchForward
Text2.Text = Text1.Text
Text3.Text = Text18.Text
Text4.Text = Text19.Text
Text17.Text = Text20.Text
Text24.Text = Text1.Text
Text25.Text = Text18.Text
Text26.Text = Text19.Text
Text27.Text = Text20.Text
Text31.Text = Text1.Text
Text32.Text = Text18.Text
Text33.Text = Text19.Text
Text34.Text = Text20.Text
Text38.Text = Text1.Text
Text39.Text = Text18.Text
Text40.Text = Text19.Text
Text41.Text = Text20.Text
Text45.Text = Text1.Text
Text46.Text = Text18.Text
Text47.Text = Text19.Text
Text48.Text = Text20.Text
Text52.Text = Text1.Text
Text53.Text = Text18.Text
Text54.Text = Text19.Text
Text55.Text = Text20.Text
Adodc2.Recordset.MoveLast
Text60.Text = Text59 + 1
Text61.Text = Text59 + 1
Text62.Text = Text59 + 1
Text63.Text = Text59 + 1
Text64.Text = Text59 + 1
Text65.Text = Text59 + 1
End Sub

Private Sub check1_Click()

If Text11.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Check1.Value = False
End If
End Sub

Private Sub check2_Click()

If Text12.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Check2.Value = False
End If
End Sub

Private Sub check3_Click()

If Text13.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Check3.Value = False
End If
End Sub

Private Sub check4_Click()

If Text14.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Check4.Value = False
End If
End Sub

Private Sub check5_Click()

If Text15.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Check5.Value = False
End If
End Sub

Private Sub Option6_Click()

If Text16.Text < 60 Then
MsgBox ("Age Should Be More Than 60")
Option6.Value = False
End If
End Sub

FARE:

Private Sub Command1_Click()

Label12.Caption = (Val(Label5.Caption) * Val(Text1.Text)) + (Val(Label6.Caption) *
Val(Text2.Text)) + (Val(Label7.Caption) * Val(Text3.Text))
End Sub

Private Sub Command2_Click()

temp3 = Label12.Caption
Form5.Label11.Caption = Text1.Text
Form5.Label13.Caption = Text2.Text
Form5.Label15.Caption = Text3.Text
Unload Me
Load Form5
Form5.Show
End Sub

Private Sub Form_Load()

Text4.Text = n1
Text5.Text = n2
Text6.Text = n3
Text7.Text = n4
Text8.Text = n5
Text9.Text = n6
Label10.Caption = Temp4
Label14.Caption = Temp6
Select Case Label14.Caption
Case 1, 3, 5, 7, 9
Select Case Label10.Caption
Case "General"
Label5.Caption = "200"
Label6.Caption = "100"
Label7.Caption = "150"
Case "II Class"
Label5.Caption = "350"
Label6.Caption = "200"
Label7.Caption = "300"
Case "II sitting"
Label5.Caption = "220"
Label6.Caption = "120"
Label7.Caption = "200"
Case "II sleeper"
Label5.Caption = "400"
Label6.Caption = "250"
Label7.Caption = "350"
Case "I Class"
Label5.Caption = "560"
Label6.Caption = "300"
Label7.Caption = "500"
Case "III tier AC"
Label5.Caption = "750"
Label6.Caption = "450"
Label7.Caption = "600"
Case "II Tier AC"
Label5.Caption = "1150"
Label6.Caption = "650"
Label7.Caption = "800"
Case "I AC"
Label5.Caption = "2750"
Label6.Caption = "1500"
Label7.Caption = "2000"
End Select
Case 2, 4, 6, 8
Select Case Label10.Caption
Case "General"
Label5.Caption = "175"
Label6.Caption = "75"
Label7.Caption = "150"
Case "II Class"
Label5.Caption = "330"
Label6.Caption = "190"
Label7.Caption = "290"
Case "II sitting"
Label5.Caption = "200"
Label6.Caption = "100"
Label7.Caption = "150"
Case "II sleeper"
Label5.Caption = "375"
Label6.Caption = "240"
Label7.Caption = "330"
Case "I Class"
Label5.Caption = "550"
Label6.Caption = "300"
Label7.Caption = "475"
Case "III tier AC"
Label5.Caption = "730"
Label6.Caption = "450"
Label7.Caption = "580"
Case "II Tier AC"
Label5.Caption = "1100"
Label6.Caption = "625"
Label7.Caption = "775"
Case "I AC"
Label5.Caption = "2500"
Label6.Caption = "1300"
Label7.Caption = "1975"
End Select
End Select
End Sub

Private Sub Label14_Click()

End Sub

Private Sub Text10_Change()

If Val(Text10.Text) > 0 And Val(Text10.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text10.Text) > 18 And Val(Text10.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text10.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text11_Change()

If Val(Text11.Text) > 0 And Val(Text11.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text11.Text) > 18 And Val(Text11.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text11.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text12_Change()

If Val(Text12.Text) > 0 And Val(Text12.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text12.Text) > 18 And Val(Text12.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text12.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text13_Change()

If Val(Text13.Text) > 0 And Val(Text13.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text13.Text) > 18 And Val(Text13.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text13.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text14_Change()

If Val(Text14.Text) > 0 And Val(Text14.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text14.Text) > 18 And Val(Text14.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text14.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text15_Change()

If Val(Text15.Text) > 0 And Val(Text15.Text) < 18 Then
Text2.Text = Text2.Text + 1
ElseIf Val(Text15.Text) > 18 And Val(Text15.Text) < 60 Then
Text1.Text = Text1.Text + 1
ElseIf Val(Text15.Text) > 60 Then
Text3.Text = Text3.Text + 1
End If
End Sub

Private Sub Text4_Change()

If Text4.Text <> "" And Text4.Text <> "0" Then
Text10.Text = Text4.Text
End If
End Sub

Private Sub Text5_Change()

If Text5.Text <> "" And Text5.Text <> "0" Then
Text11.Text = Text5.Text
End If
End Sub

Private Sub Text6_Change()

If Text6.Text <> "" And Text6.Text <> "0" Then
Text12.Text = Text6.Text
End If
End Sub

Private Sub Text7_Change()

If Text7.Text <> "" And Text7.Text <> "0" Then
Text13.Text = Text7.Text
End If
End Sub

Private Sub Text8_Change()

If Text8.Text <> "" And Text8.Text <> "0" Then
Text14.Text = Text8.Text
End If
End Sub

Private Sub Text9_Change()

If Text9.Text <> "" And Text9.Text <> "0" Then
Text15.Text = Text9.Text
End If
End Sub

PRINT TICKET:

Dim rs1 As New ADODB.Recordset

Dim cn1 As New ADODB.Connection
Private Sub Command1_Click()
Command1.Visible = False
Dim Beginpage, EndPage, NumCopies, orientation, i
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
Beginpage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
orientation = CommonDialog1.orientation
For i = 1 To NumCopies
Form5.PrintForm
Next
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub Form_Load()

Label9.Caption = "Rs." & "" & temp3
Text3.Text = Temp2
s = " select * from reservation where PNR_NO = " & Text3.Text & " "
connect (s)
Set Text1.DataSource = rs
Text1.DataField = "Train_No"
Set Text2.DataSource = rs
Text2.DataField = "Date_travel"
Set Text3.DataSource = rs
Text3.DataField = "PNR_NO"
Set Text4.DataSource = rs
Text4.DataField = "Class"
Set Text18.DataSource = rs
Text18.DataField = "Train_Name"
Set Text19.DataSource = rs
Text19.DataField = "From"
Set Text20.DataSource = rs
Text20.DataField = "To"
Set Label22.DataSource = rs
Label22.DataField = "date_travel"
Set DataGrid1.DataSource = rs
SQL = "select * from timings where train_no = " & Text1.Text & ""
Set cn1 = New ADODB.Connection
cn1.CursorLocation = adUseClient
cn1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn1.Open
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenDynamic
rs1.LockType = adLockOptimistic
rs1.ActiveConnection = cn1
rs1.Open SQL
Set Label17.DataSource = rs1
Label17.DataField = "Distance"
Set Label20.DataSource = rs1
Label20.DataField = "Arrival_Time"
Set Label24.DataSource = rs1
Label24.DataField = "departure_time"
End Sub

CANCELLATION :

Private Sub Command1_Click()

Unload Me
End Sub

Private Sub Command2_Click()

If MsgBox(" Are you sure you want to cancel this ticket?", vbYesNo, "RRS") = vbYes Then
s1 = "delete from reservation where PNR_NO = " & Text1.Text & " "
connect (s1)
Temp5 = Text1.Text
n7 = Text2.Text
Unload Me
Load Form7
Form7.Show
End If
End Sub

Private Sub Text1_Change()

s = "select * from reservation where PNR_NO = " & Text1.Text & " "
connect (s)
Set DataGrid1.DataSource = rs
Text2.Text = rs.RecordCount
End Sub

CANCEL TICKET:

private Sub Command1_Click()

Command1.Visible = False
Dim Beginpage, EndPage, NumCopies, orientation, i
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
CommonDialog1.ShowPrinter
Beginpage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
orientation = CommonDialog1.orientation
For i = 1 To NumCopies
Form7.PrintForm
Next
Exit Sub
ErrHandler:
Exit Sub
End Sub

Private Sub Form_Load()

Text6.Text = n7
Text3.Text = Temp5
 Text5.Text = Temp5
End Sub

Private Sub Text6_Change()

Label9.Caption = "Rs." & Val(Text6.Text) * 20
End Sub

MODULES:

Public rs As New ADODB.Recordset

Public cn As New ADODB.Connection
Public Temp1 As String
Public Temp2 As String
Public temp3 As String
Public Temp4 As String
Public Temp5 As String
Public Temp6 As String
Public y As String
Public z As String
Public n1, n2, n3, n4, n5, n6, n7 As Integer

Public Function connect(ByVal SQL As String) As String

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Railway\Railway
Reservation.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.ActiveConnection = cn
rs.Open SQL
End Function

SCREEN SHOTS:
START UP :
NEW LOGIN :
EXISTING LOGIN :

MDI FORM :
SEARCH TRAIN DETAILS:

RESERVATION :
BOOK TICKET :
BOOKED TICKET’S FARE DETAILS :

PRINT TICKET :
ENQUIRY TRAIN DETAILS :

ENQUIRY FARE DETAILS :

AVAILABLE SEAT DETAILS :

RESERVED HISTORY :
CANCELLATION :

CANCELLED TICKET :
EXIT :

CONCLUSION:
Thus an application has been created using visual basic to book e-ticket in online and to know
their status of tickets .
EX:NO: 7 SOFTWARE PERSONAL MANAGEMENT SYSTEM

DATE: 07/02/12
AIM:
To develop a Software Personal Management System Project using visual basic as front end and
Microsoft access as back end.
PROBLEM STATEMENT
The software personal management system is system to keep track of the employee details of
particular concern. The recruitment status of the company can be maintained. Generally human resource
deals with the details of the employee where once the name of employee is typed; the entire history of
person is displayed. Multiple accesses to this system allow the authorized manager to update the audit
employee files. There are certain folder to maintain the training serious that were given to employee and
number of person attending the training. New certification page are provided to log individual employee
accreditation. Once there is a change in the employee details, it is updated.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirement
1. INTRODUCTION
The software personal management is a system to maintain the records about each employee in a
firm. This helps in easy storage and retrieval of detail whenever it is necessary.

1.1. PURPOSE
The personal management system is a human resource management system. The system was
developed to track employee’s attendance and personal management. Employees can be tracks for
previous employment history, skill, training, education.
1.2. SCOPE
This system tracks the employee attention and personal history. It also helps human resource
department to develop and maintain an integrated organisation.
1.3. DOCUMENT CONVENTION
 Managers – The person who maintains the employee detail record
 Employee- The person who works in a firm and whose detail are to be kept track.
1.4. REFERENCES:
www.scribe.com/software personal maintenance system.
2. OVERALL DESCRIPTION
2.1. PRODUCT PERSPECTIVE:
This project is a self contained project designed for effective maintanence of an
organization.
2.2. PRODUCT FUNCTIONS:
There are two main contents,
i) Front end – Java net beans, This is the area that all the employee can see
ii) Back end – Database, This area is designed and maintained by the HR.
2.3. OPERATING ENVIRONMENT:
Visual Basic 6.0 and Microsoft Access 2003.
3. EXTERNAL INTERFACE
3.1. HARDWARE INTERFACE
The system requires extensive database to connect with the hardware computer.
3.2. SOFTWARE INTERFACE
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES
4.1. EMPLOYEE TRACKING
4.1.1. SYSTEM DESCRIPTION AND PRIORITY
 The system allows to track the details and history of a employee.
4.1.2. STIMULUS/RESPONSE SEQUENCE
The tracking is done in order to inverse the performance of organization.
4.1.3. FUNCTIONAL REQUIREMENT:
Req1: The employee id and name must be entered.
Req2: The system must be updated.
5. OTHER NON FUNCTIONAL REQUIREMENT:
5.1. PERFORMANCE MANAGEMENT:
The detail of employee must be uploaded to increase the performance of the organization.
5.2. SECURITY REQUIREMENT:
The detail of the employee must be recorded recursively and only the human resource
manager must have the authority to access them.
5.3. SAFETY REQUIREMENT:
The database must be maintained efficiently without crushing or hacking.
Use case Diagram:

Database
Login

Employee Training

Employee Details & Status

Employee performance

<<include>> <<include>>

Employee Employer

Working hours Employee remarks

Employee Payroll
<<include>> <<include>>

Increment Basic Pay

Class diagram:
Activity diagram:

Software personal
management system

Training
Login
Emp Details Emp Performance Payroll
Login Performa payroll
Training
Emp_Details nce

Enter
Password Enter Document
Initial Learning
Emp_ID for payment
Program

Personal
details
Validation View Salary
Progress Details
Professional Emp_Work Emp_RE
Details ing Hours marks
Access No
denied
Evaluating Mode of
Yes Project payment
details
Login
Successful Non-Eligible
Employee Due
Rejected Date

Eligible
Access to
Employee account
Employee
Designated
Interaction Diagram:
Sequential Diagram:

Emp_Details:

Employee Admin Database

1: search emp
2: checking 3: checking database
4: processing
5: display emp list

6: search using emp id 7: checking

8: processing
9: display emp details

Emp login:
 Employee Administrator Database
1: enter emp id,psword
2: checking 3: checking database

4: validating
5: login successful

6: access details
7: checking
8: checking database

9: updating
10: details accesed

Payroll:

Employee Admin Database

1: enter emp id 2: checking
3: checking database

4: processing
5: display salary

6: enter mode of payment

7: updating

8: processing
9: display document of pay

Emp_Performance:
 Employee Admin Database

1: enter emp id
2: checking 3: checking database

4: entering remarks & working hours

5: updating

6: processing

7: display performance

Training:

Employee Admin Database

1: enter emp id 2: checking

3: checking database
4: processing
5: ILP progress

6: skill updation
7: Alowing to update

8: processing
9: display details

Collabaration Diagram:

Login:
 3: checking database
8: checking database

1: enter emp id,psword 2: checking

6: access details 7: checking
Employe Administr Databas
e ator e
5: login successful 4: validating
10: details accesed 9: updating

Details:

3: checking database

1: search emp 2: checking

6: search using emp id 7: checking
Employe Admin Databas
e e
5: display emp list 4: processing
9: display emp details 8: processing

Training:

3: checking database

1: enter emp id 2: checking

6: skill updation 7: Alowing to update
Employe Admin Databas
e e
5: ILP progress 4: processing
9: display details 8: processing

Performance:

3: checking database
5: updating

2: checking
1: enter emp id 4: entering remarks & working hours
Employe Admin Databas
e e
7: display performance 6: processing
 Payroll:

3: checking database

1: enter emp id 2: checking

6: enter mode of payment 7: updating
Employe Admin Databas
e e
5: display salary 4: processing
9: display document of pay 8: processing

StateChart Diagram:

Login:
login

Enter emp_id, validation login

pwrd successful

invalid
Details:

invalid
Details login

enter validating display emp

emp_id details

invalid

invalid

Training:
 training

get emp validation display ILP progress

id skill update

invalid

invalids

Performance:
 performa
nces

Get Display employee

Emp_id Performance

invalid
emp_id

Payroll:

Payroll

validation displayin
Enter
document of pay
emp_id

invalid

invalid id

Component diagram:
 login employe training performe payroll
e details nce

data base

Deployment diagram:
 Details Training Performan
Login ce Payroll

Software Personnel
Management System

Database
CODING:
Main Form:
Private Sub Exit_Click()
Unload Me
End Sub

Private Sub Proceed_Click()

If radio(0).Value = True Then
LoginForm.Show (vbModal)
ElseIf radio(1).Value = True Then
Manager_login.Show (vbModal)
End If
End Sub

Employee Login Form:

Option Explicit
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Public EmployeeID As Integer

Private Sub cmdLogin_Click()

Dim username As String
Dim Password As String
username = textUserName.Text
Password = textPassword.Text
Set cn = New adodb.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\SPMS\employeedetails.mdb"
cn.Open
Set rs = New adodb.Recordset
If username = "" Then
MsgBox "Please specify value for User Name! ", vbExclamation, "Invalid Input"
textUserName.SetFocus 'return focus to textUserName
Exit Sub
End If

rs.Open "access", cn, adOpenDynamic, adLockPessimistic

rs.Find "Login_Id = '" & username & "'"
If Not rs.EOF Then
If (StrComp(rs!Password, Password, vbTextCompare) = 0) Then
If (StrComp(username, "hradmin", vbTextCompare) = 0) Then
HRForm.Show
Else
EmployeeID = rs!ID
LoginForm.Hide
EmployeeForm.Show
 End If
textUserName.Text = ""
textPassword.Text = ""
LoginForm.Hide
Else
MsgBox "Invalid Password!. Please Try again ", vbExclamation, "Warning"
End If
Else
MsgBox "Invalid User Name!. Please Try again ", vbExclamation, "Warning"
End If
End Sub

Private Sub Form_Load()

Unload EmployeeForm
Unload HRForm
Unload HRFormAddNew
Unload HRUpdateForm
cmdLogin.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)

rs.Close
cn.Close
textUserName.Text = ""
textPassword.Text = ""
End Sub

Private Sub textPassword_Change()

cmdLogin.Enabled = True
End Sub

Private Sub textUserName_Change()

cmdLogin.Enabled = True
End Sub

Employee Form:
Option Explicit
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Public EmployeeID As Integer

Private Sub cmdLogin_Click()

Dim username As String
Dim Password As String
 username = textUserName.Text
Password = textPassword.Text
Set cn = New adodb.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\SPMS\employeedetails.mdb"
cn.Open

Set rs = New adodb.Recordset

If username = "" Then
MsgBox "Please specify value for User Name! ", vbExclamation, "Invalid Input"
textUserName.SetFocus 'return focus to textUserName
Exit Sub
End If

rs.Open "access", cn, adOpenDynamic, adLockPessimistic

rs.Find "Login_Id = '" & username & "'"
If Not rs.EOF Then
If (StrComp(rs!Password, Password, vbTextCompare) = 0) Then
If (StrComp(username, "hradmin", vbTextCompare) = 0) Then
HRForm.Show
Else
EmployeeID = rs!ID
LoginForm.Hide
EmployeeForm.Show

End If
textUserName.Text = ""
textPassword.Text = ""
LoginForm.Hide
Else
MsgBox "Invalid Password!. Please Try again ", vbExclamation, "Warning"
End If
Else
MsgBox "Invalid User Name!. Please Try again ", vbExclamation, "Warning"
End If
End Sub

Private Sub Form_Load()

Unload EmployeeForm
Unload HRForm
Unload HRFormAddNew
Unload HRUpdateForm
cmdLogin.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
textUserName.Text = ""
textPassword.Text = ""
End Sub

Private Sub textPassword_Change()

cmdLogin.Enabled = True
End Sub

Private Sub textUserName_Change()

cmdLogin.Enabled = True
End Sub

HR Login Form:
Option Explicit
Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

LoginSucceeded = False
Me.Hide
End Sub

Private Sub cmdOK_Click()

If txtUserName = "hradmin" Then
If txtPassword = "hradmin" Then
LoginSucceeded = True
Me.Hide
Unload Main
HRForm.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.Text = ""
txtPassword.SetFocus
End If
Else
MsgBox "Invalid ID, try agin!", , "Login"
txtUserName.Text = ""
txtPassword.Text = ""
txtUserName.SetFocus
End If
End Sub
HR Form:

Private Sub cmdAdd_Click()

HRFormAddNew.Show
End Sub
Private Sub cmdLogOut_Click()
'Load LoginForm
Main.Show
Unload Me
End Sub

Private Sub cmdUpdate_Click()

HRUpdateForm.Show
End Sub
HR_ Addnew Form:

Dim ID As Integer
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Dim rsnew As adodb.Recordset

Private Sub Calendar1_Click()

textJoinDate.Text = Calendar1.Value

End Sub

Private Sub Calendar2_Click()

textBirthDate.Text = Calendar2.Value

End Sub

Private Sub cmdCancel_Click()

rsnew.Close
rs.Close
cn.Close
Form_Load
End Sub

Private Sub cmdGenEmpID_Click()

ID = Int(2000 * Rnd + 1)
rs.Find "ID = " & ID
If Not rs.EOF Then
MsgBox "ID Already Exists! Trying once again...."
cmdGenEmpID_Click
Else
 MsgBox "Id is " & ID
commandSubmit.Enabled = True
End If
End Sub

Private Sub cmdGoBack_Click()

HRForm.Show
Unload Me
End Sub

Private Sub cmdLogOut_Click()

Unload HRForm
' Load LoginForm
Main.Show
Unload Me
End Sub

Private Sub commandSubmit_Click()

Dim doj As Date
Dim dob As Date

If textName.Text = "" Or textAddress.Text = "" Or textPhone.Text = "" Or textJoinDate.Text

= "" Or textBirthDate.Text = "" Or textExperience.Text = "" Or textPay.Text = "" Or
textAttendance.Text = "" Then
MsgBox "There cannot be empty fields. Please enter all values before submitting!"
Else
If (IsDate(textJoinDate.Text) = False) Then
MsgBox "Enter Correct Dates in the format mm/dd/yyyy and then enter submit button!"
textJoinDate.Text = ""
ElseIf (IsDate(textBirthDate.Text) = False) Then
MsgBox "Enter Correct Dates in the format mm/dd/yyyy and then enter submit button!"
textBirthDate.Text = ""
Else
rs.AddNew
doj = CDate(textJoinDate.Text)
dob = CDate(textBirthDate.Text)
rs!ID = ID
rs!employee_name = textName.Text
rs!address = textAddress.Text
rs!contact_number = Val(textPhone.Text)
rs!experience = Val(textExperience.Text)
rs!pay = Val(textPay.Text)
rs!attendance = Val(textAttendance.Text)
rs!date_of_birth = dob
rs!date_of_joining = doj
rs.Update
 rsnew.AddNew
rsnew!ID = ID
rsnew!Login_Id = textName.Text
rsnew!Password = textName.Text
rsnew.Update
MsgBox "Successfully added a record into the Database!"
rsnew.Close
rs.Close
cn.Close
Form_Load
End If
End If

End Sub

Private Sub Form_Load()

commandSubmit.Enabled = False
Set cn = New adodb.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\SPMS\employeedetails.mdb"
cn.Open

Set rs = New adodb.Recordset

Set rsnew = New adodb.Recordset
rs.Open "empdetails", cn, adOpenDynamic, adLockPessimistic
rsnew.Open "access", cn, adOpenDynamic, adLockPessimistic
textName.Text = ""
textAddress.Text = ""
textPhone.Text = ""
textExperience.Text = ""
textPay.Text = ""
textAttendance.Text = ""
textJoinDate.Text = ""
textBirthDate.Text = ""
Randomize
End Sub

Private Sub Form_Unload(Cancel As Integer)

rsnew.Close
rs.Close
cn.Close
End Sub

Private Sub textAttendance_Change()

If (textAttendance.Text = "") Then
Else
If (textAttendance.Text > 100) Then
MsgBox "Invalid percentage"
End If
End If
End Sub

HR_UpdateDelete Form:

Option Explicit
Dim cn As adodb.Connection
Dim rs As adodb.Recordset
Dim rsnew As adodb.Recordset
Dim empid As Integer
Dim myDate As Date

Private Sub Calendar1_Click()

textJoinDate.Text = Calendar1.Value
End Sub

Private Sub Calendar2_Click()

textBirthDate.Text = Calendar2.Value
End Sub

Private Sub cmdBack_Click()

HRForm.Show
Unload Me
End Sub

Private Sub cmdDelete_Click()

rs.Delete
rsnew.Delete
MsgBox "Deleted successfully"
rs.Update
rsnew.Update
rs.Close
rsnew.Close
cn.Close
Adodc1.Refresh
Form_Load
End Sub

Private Sub cmdEmpID_Click()

empid = Val(textEmpID.Text)
Set cn = New adodb.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=C:\SPMS\employeedetails.mdb"
cn.Open
Set rs = New adodb.Recordset
Set rsnew = New adodb.Recordset
rs.Open "empdetails", cn, adOpenDynamic, adLockPessimistic
rsnew.Open "access", cn, adOpenDynamic, adLockPessimistic
If empid = 0 Then
MsgBox "enter employee id first!!"
Else
rs.Find "ID = " & empid
rsnew.Find "ID = " & empid
If Not rs.EOF Then
textEmpID.Text = empid
textName.Text = rs!employee_name
textAddress.Text = rs!address
textPhone.Text = rs!contact_number
textJoinDate.Text = rs!date_of_joining
textBirthDate.Text = rs!date_of_birth
textExperience.Text = rs!experience
textPay.Text = rs!pay
textAttendance.Text = rs!attendance
commandCancel.Enabled = True
commandSubmit.Enabled = True
cmdDelete.Enabled = True
Else
MsgBox "No Such Employee. Check Id again!"
End If
End If
End Sub

Private Sub cmdLogOut_Click()

Unload HRForm
'Load LoginForm
Main.Show
Unload Me
End Sub

Private Sub commandCancel_Click()

rs.Close
rsnew.Close
cn.Close
cmdEmpID_Click
End Sub

Private Sub commandSubmit_Click()

rs!employee_name = textName.Text
 rs!address = textAddress.Text
rs!contact_number = textPhone.Text
rs!date_of_joining = textJoinDate.Text
rs!date_of_birth = textBirthDate.Text
rs!experience = textExperience.Text
rs!pay = textPay.Text
rs!attendance = textAttendance.Text
rs.Update
MsgBox "Succesfully updated the database1"
rs.Close
cn.Close
cmdEmpID_Click
End Sub

Private Sub Form_Load()

commandCancel.Enabled = False
commandSubmit.Enabled = False
cmdDelete.Enabled = False
textEmpID.Text = ""
textName.Text = ""
textAddress.Text = ""
textPhone.Text = ""
textJoinDate.Text = ""
textBirthDate.Text = ""
textExperience.Text = ""
textPay.Text = ""
textAttendance.Text = ""

End Sub

Private Sub textAttendance_Change()

If (textAttendance.Text = "") Then
Else
If (textAttendance.Text > 100) Then
MsgBox "Invalid percentage"
End If
End If
End Sub
SCREEN SHOTS:
Main Form:

EmployeeLogin Form:
Employee Form:

ManagerLogin Form:

HR Form:
HR_Addnew Form:

HR_UpdateDelete Form:

CONCLUSION:

Thus an application has been designed and implemented for a software personal
management system.
EX:NO: 8 CREDIT CARD PROCESSING
DATE: 14/02/12
AIM:
To develop a credit card processing System Project using visual basic as front end and Microsoft
access as back end.

PROBLEM STATEMENT:

Credit card allows you to ‘buy goods now and pay later’-called ‘buying on credit’. Credit card is
issued by the credit card issuer, such as a bank or a firm. Instead of giving cash to the merchants for
purchasing items we can use the credit card. The card is swiped in the credit card scanner and the unique
pin number of the card is read. This number is verified by the system for every transaction. The amount is
entered and sent for further processing. After transaction is finished, the details of the purchase along with
the card number are obtained to get the purchaser’s sign for his/her verification. The copy of purchase
details is sent to the credit card issuer. After all transaction, a statement is sent to the card holder to pay
the amount used. The amount can be paid by the card holder within certain days without paying interest
for it. Card holder can pay his bill by means of credit card itself, by NEFT, by Smart pay, by cheque, or
even by cash.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
 5.2 Safety Requirements
5.3 Security Requirement

1. INTRODUCTION:

Credit card processing is interaction of the customer to the credit card processor for buying a new
card of for the payment of bills. The processor allows getting a new card and also to get the details of the
card and makes the copy of the purchase made.

1.1. PURPOSE
The credit card makes shopping easier and the customer or purchaser need not carry cash
along with him/her. It allows the customer to buy his/her requirements without a need to keep
track of his/her cash in hand especially in case of emergencies.

1.2. SCOPE
The credit card processing is usually done with a help of the swiper which scans all the
details of the card. After each purchase, the details are recorded and document is made by the credit card
issuer.

1.3. DOCUMENT CONVENTIONS

 Credit card issuer: The bank or the firm that issues the credit card to the customer.
 Credit card holder or Purchaser: The person who uses the credit card for his/her needs.
 Merchant: The Company or the person with which the purchaser purchases his articles.
 Swiper: An electronic device that scans the details of the credit card.

1.4. REFERENCES
www.creditcardprocessing.net/

2. OVERALL DESCRIPTION
2.1. PRODUCT PERSPECTIVE
This project is a self contained project for easy transaction using credit card.

2.2. PRODUCT FUNCTIONS

The front end requires details that are needed to buy a new card or selecting the options
for paying the bill to the credit card. In the back end, the credit card issuer records and deals all
the transactions made by the purchaser and send the statement to him/her.

2.3. TOOLS TO BE USED

Visual basic and Microsoft Access

3. EXTERNAL INTERFACE
 3.1. HARDWARE INTERFACE

Credit card processing system requires a swiper to be connected to the computer.

3.2. SOFTWARE INTERFACE

The system uses ODBC drive to connect and control the database.

4. SYSTEM FEATURES

4.1. SWIPING PROCESS

4.1.1. SYSTEM DESCRIPTION AND PRIORITY

The process of swiper is to scan the information in the magnetic tape and inputs
the PIN number of the credit card to make a successful transaction.

4.1.2. STIMULUS/RESPONSE SEQUENCE

When the card is swiped, a remote connection is made with the issuer and the
amount is retrieved.
4.1.3. FUNCTIONAL REQUIREMENTS
Req 1: The PIN number must be genuine

Req 2: The credit card holder must pay his debts genuinely.
5. OTHER NON-FUNCTIONAL REQUIREMENTS
5.1. PERFORMANCE REQUIREMENTS
The swiper should work effectively during the transaction for good maintenance of the
system.

5.2. SAFETY REQUIREMENTS

The card issuer must update the record of the card holders to prevent fraudulent actions
and other errors that may occur during transactions.

5.3. SECURITY REQUIREMENTS

The card holder must not give details to others about the PIN number of the credit card.
USECASE DIAGRAM

view item browse items

view recommended

customer authentication
add to shopcart
make purchase

customer

database
view / update shopping cart
check out
Client Register

calculate total & tax %

payment..

merchant payment-cash
payment-credit

payment-debit payment-cheque
ACTIVITY DIAGRAM
 view items checkout payment

scan item Documentation of

search
payment
items

calculate total check

view recommendation items & tax authentication

availability swipe the payment valid Actuall payment +

Not card date interest
available

card acceptionreject the continue

card
items
available
payment..

Bill generation
confirm selected
item

Online pay thro'

bank
confirmation Authentication sign of
Re-confirm customer

pay details

By cheque By Cash
continue with
checkout

Accept the
payment

Diaplay the
bank
CLASS DIAGRAM
INTERACTION DIAGRAM
SEQUENCE DIAGRAM
VIEW ITEMS

customer shop database

1: request and item

2: find the item
3: checking

4: items found

5: items list

6: confirm

7: update items

8: bill receipt

9: generate bill

CHECKOUT
 customer merchant bank
database

1: give the card

2: swipe

3: checking

4: request amount

5: enter amount

6: success

7: bill receipt

8: bill

PAYMENT BY CUSTOMER
 customer bank admin bank
database

1: get document

2: get document

3: payment

4: update

5: accept

6: success

7: clear statement

PAYMENT TO MERCHANT

bank admin bank

merchant
database

1: get document

2: get document

3: signed document

4: update
5: accept
6: payment

7: clear bill
COLLABORATION DIAGRAM
VIEW ITEMS

1: request and item

6: confirm
shop
custome
r
5: items list
9: generate bill

4: items found
8: bill receipt

2: find the item

3: checking 7: update items

databas
e

CHECK OUT

8: bill

1: give the card

custome merchan
r t
7: bill receipt

4: request amount
6: success

3: checking
2: swipe
5: enter amount

bank
database
PAYMENT BY CUSTOMER

3: signed document
merchan bank
t admin
2: get document
6: payment
7: clear bill
1: get document

5: accept 4: update

bank
database

State chart diagram

View items

purchasi
hg

selected found item

item

3: payment
custome itemavail
r able bank
admin
2: get document
7: clear statement
check the valid confirm
item 1: get document
6: success
invalid

5: accept 4: update
reconfirm

bank
database
Check out

check out

price
verification

swiping accept bill pay

not accept

reject to
pay

Payment

payment

check
authentication

credit expire payment

card date interest

not expire

amount
COMPONENT DIAGRAM

view required checkout payment

item

databas
e

DEPLOYMENT DIAGRAM

VIEW CHEC PAYM

ITEMS K OUT ENT

CREDI
...

DATA
BASE
CODING:
WelcomeScreen
Private Sub Form_Load()
Me.Show
End Sub
Private Sub Login_Click()
ShopLogin.Show
Unload Me
End Sub
Private Sub Register_Button_Click()
Register.Show
Unload Me
End Sub

Register
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\Projects\OOAD_CreditCardSystem\CreditCardSystem.mdb; " & _
"Persist Security Info=False"
conn.Open
Private Sub Command1_Click()
' Look up the user name/password.
statement = "SELECT COUNT (*) FROM ShopLogin WHERE " & _
"UserName='" & Replace(Text1.Text, "'", "''") & "'"
Set rs = conn.Execute(statement)
' See if we got anything.
If CLng(rs.Fields(0)) < 1 Then
statement = "INSERT INTO shopLogin values('" & Text1.Text & "','" & Text2.Text &
"','" & Text3.Text & "'," & Val(Text4.Text) & ",'" & Text5.Text & "')"
conn.Execute (statement)
WelcomeScreen.Show
Unload Me
rs.Close
conn.Close
Else
MsgBox ("UserId already Exists!! Please try again!!!")
Text2.SetFocus
End If
End Sub
ShopLogin
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim db_file As String
Dim statement As String
statement = "SELECT COUNT (*) FROM ShopLogin WHERE " & _
"UserName='" & Replace(txtUserName.Text, "'", "''") & "' AND " & _
"Password='" & Replace(txtPassword.Text, "'", "''") & "'"
Set rs = conn.Execute(statement)
If CLng(rs.Fields(0)) < 1 Then
' There is no match.
' Do not allow the login.
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
Else
' There is a match.
' Display the program's main form.
With ItemList
statement = "SELECT * from ShopLogin where UserName='" & Replace(txtUserName.Text, "'",
"''") & "'"
Set rs = conn.Execute(statement)
.CusNameAssign = rs.Fields(2)
.CusPhoneNoAssign = rs.Fields(3)
.userNameAssign = rs.Fields(0)
.Show
End With
Unload Me
End If
rs.Close
conn.Close
End Sub
ItemList
Dim statement As String
Dim CurrentItemID As Integer
Private Sub bFinish_Click()
Dim currentBillID As Integer
statement = "select MAX(BillID) FROM BillRecord"
Set rs = conn.Execute(statement)
currentBillID = Val(Right(rs.Fields(0), 4)) + 1
Dim currentTableName As String
currentTableName = "PK" + Right(Str(currentBillID), 4)
statement = "SELECT * INTO " & currentTableName & " FROM CurrentTempBill "
conn.Execute (statement)
Dim timeNow As String
timeNow = Str(DateValue(Now))
Dim totalAmountForBillRecord As String
totalAmountForBillRecord = txtAmountToPay.Text
MsgBox "Your Bill-Id is " & currentTableName & ".Please collect your Pro-Bill!"
Unload Me
CheckOut.Show
End Sub
Private Sub Form_Load()
' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\Projects\OOAD_CreditCardSystem\CreditCardSystem.mdb; " & _
"Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
' Look up the user name/password.
statement = "SELECT ItemID,ItemName,BrandName,Qty_Kgs,Price FROM ItemList
Set rs = conn.Execute(statement)
' See if we got anything.
cmbItemPick.Clear
While rs.EOF = False
cmbItemPick.AddItem (rs.Fields(0) & ") " & rs.Fields(1) & " - " & rs.Fields(2) & " Rs." &
rs.Fields(3) & rs.Fields(4))
rs.MoveNext
Wend
rs.Close
rs.Open
statement = "DELETE * FROM CurrentTempBill"
Set rs = conn.Execute(statement)
End Sub
Private Sub Text1_Change()
End Sub
Private Sub framItemList_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
AtCashierCounter
Dim billId As String
Private Sub Command1_Click()
CreditLogin.Show
Unload Me
End Sub
Private Sub Command3_Click()
billId = Text4.Text
statement = "SELECT * From " & billId
Set rs = conn.Execute(statement)
Set DataGrid2.DataSource = rs
DataGrid2.Refresh
Set rs = conn.Execute("SELECT COUNT(*) From " & billId)
totalNoOfItems.Text = rs.Fields(0)
billId = UCase(billId)
statement = "SELECT * FROM BillRecord WHERE BillRecord.BillID ='" & billId & "'"
Set rs = conn.Execute(statement)
If rs.EOF = True Then
MsgBox "No such Bill exist!!!"
Unload Me
End If
Text2.Text = rs.Fields(2)
txtamt.Text = rs.Fields(3)
Text5.Text = rs.Fields(1)
End Sub
CrditLogin
Dim totalBill As Integer
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
statement = "SELECT COUNT (*) FROM CreditLogin WHERE " & _
"CreditCardNumber=" & Val(txtUserName.Text) & " AND " & _
"PinNumber='" & txtPassword.Text & "'"
Set rs = conn.Execute(statement)
' See if we got anything.
If CLng(rs.Fields(0)) < 1 Then
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
Else
statement = "SELECT * from Accounts where CreditCardNumber=" & Val(txtUserName.Text)
Set rs = conn.Execute(statement)
If rs.Fields(6) - totalBill > 0 Then
With CreditPrint
statement = "SELECT * from CreditLogin where CreditCardNumber=" &
Val(txtUserName.Text)
Set rs = conn.Execute(statement)
.CreditCardIdAssign = rs.Fields(0)
.Show
End With
statement = "UPDATE ACCOUNTS SET balance = balance - " & totalBill & " WHERE
creditCardNumber =" & Val(txtUserName.Text)
conn.Execute (statement)
MsgBox "Bill successfully Paid!"
Unload Me
Else
MsgBox " Transaction Failed. Purchase amount exceeds the Limit!!!"
Unload Me
End If
End If
rs.Close
conn.Close
End Sub
CustomerCopyOfRecept
Dim creditNumber As String
Private Sub Form_Load()
Text7.Text = Now()
Text4.Text = Day(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) &
Second(Now)
Text5.Text = Left(creditNumber, 4) & "*****"
Set rs = conn.Execute("SELECT CustomerName FROM Accounts WHERE
CreditCardNumber=" & Val(Text5.Text))
Text3.Text = "562015456"
End Sub
BankLogin
Private Sub Command1_Click()
conn.Open
statement = "SELECT Password FROM ACCOUNTS WHERE AccountNumber = " &
Val(Text1.Text)
Set rs = conn.Execute(statement)
If rs.EOF = False And rs.Fields(0) = Text2.Text Then
BankCreditEntry.Show
Me.Hide
Else
MsgBox "Invalid AccountId or Password.Please try again"
Text1.SetFocus
Text2.Text = ""
End If
With BankPay
.accountNumberAssign = Text1.Text
End With
End Sub
BankCreditEntry
Private Sub Command1_Click()
BankPay.Show
Me.Hide
End Sub
BankPay
Dim accountNumber As String
statement = "SELECT * FROM Accounts WHERE accountNumber=" & accountNumber
Set rs = conn.Execute(statement)
txtCustomerName.Text = rs.Fields(3)
txtAddress.Text = rs.Fields(5)
txtAccountNo.Text = rs.Fields(0)
txtCardId.Text = rs.Fields(2)
txtPhoneNum.Text = rs.Fields(4)
txtCurrentAccountBalance.Text = rs.Fields(6)
If Val(txtCurrentAccountBalance.Text) < 0 Then
lblTransaction.Caption = "Due"
Else
lblTransaction.Caption = "Balance"
End If
End Sub

SCREEN SHOTS:
WelcomeScreen
Register

ShopLogin

ProBill-Info
ItemList

AtCashierCounter
CrditLogin

CustomerCopyOfRecept
BankLogin

BankCreditEntry
BankPay

ThankYou-Message

Conclusion
Thus a credit card processing system inside a supermarket is stimulated, using Visual basic as
front end and MS Access as back end and the required functionalities are successfully tested and
verified.
EX.NO : 9 E-BOOK MANAGEMENT SYSTEM
DATE: 21/02/12
AIM:

To development e-book management system project using Visual Basic as frond end and
Microsoft Access as back end.
PROBLEM STATEMENT:
E-Book management system is an interface between student and library administrator. It
increases the performance of the library. The database about the available books are maintained
the librarian. The books can be searched through online by giving the particular details about the
books. The searched book details will be displayed and the availability of the book is maintained
through which one can get their books needed. The database is updated regularly whenever the
book is owned and renewed.
SOFTWARE REQUIREMENT SPECIFICATION:
TABLE OF CONTENTS
1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Register
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements
1. INTRODUCTION:
This system helps in easy acquiring of books for studies rather than searching for it in
shops. These portable books are easy to carry everywhere and it will be easy for referencing.
1.1. PURPOSE:
The purpose of our software project is to design a book-trading web application used
for buying and selling college textbooks directly from other users.

1.2. PRODUCT SCOPE:

This is a secure login and registration system which allows access to most website
features. It also includes a robust search engine which can search all of the useful information of
a book, including title, author, ISBN and genre. User shopping cart, allowing a user to select all
of the books they need before proceeding to checkout, and to save books of interest between
browsing sessions.
1.3. DOCUMENT CONVENTIONS:
We don’t use any document convention in this software requirement
specification.
1.4. REFERENCES:
http://calibre-ebook.com
2. OVERALL DESCRIPTION:
2.1. PRODUCT PERSPECTIVE:
This project is an original and self contained.
2.2 PRODUCT FUNCTIONS:
This system is designed to allow users to trade books with one another. There are
two main “contexts” of the system: Frontend – This is the area of the site that all visitors will see.
Backend/Manager – This area is designed for administrators to manage the various system
functions.
2.3 TOOLS TO BE USED:
Visual basic and Microsoft Access
3. EXTERNAL INTERFACES:
3.1 HARDWARE INTERFACES:
 The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACE:
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES:
4.1 REGISTER:
4.1.1 SYSTEM DESCRIPTION & PRIORITY:
The system will Registers a user for a new account.
4.1.2 STIMULUS/RESPONSE SEQUENCE:
User clicks on the register link and enters their email address, password
and all required fields.
4.1.3 FUNCTIONAL REQUIREMENTS:
REQ-1: User must have a valid email address.
REQ-2: User must not yet have a registered account.
5. OTHER NONFUNCTIONAL REQUIREMENTS:
5.1. PERFORMANCE REQUIREMENTS:
To make the system easily manageable through the administration interface, and to
allow for internationalization, system settings and lexicon data are stored in the database. This
enables the administrator to update these objects directly through the administration interface,
rather than editing code.
5.2. SAFETY REQUIREMENTS:
The database must be maintained effectively and administrator must maintain the
interface properly.
5.3. SECURITY REQUIREMENTS:
Passwords for registered accounts are stored as a hash in the database. Passwords will
never be sent to a user via email.
 E-BOOK MANAGEMENT SYSTEM

USE CASE DIAGRAM

<<extend>>
<<include>>

invalid pw member
login detail db

Admin
Register

user
get the book
book transaction
member management

payment

search

<<extend>> credit debit administrator

e-book
database
<<extend>>

book management
ACTIVITY DIAGRAM

ebook
maintenance

register login payment

search

enter email enter the

enter and pwd bookname,...
username,p...

mode of
invalid payment

register
successful valid invalid
bookname enter
<10>dig...
display the
successful download link
login
downloaded
successfully
CLASS DIAGRAM

SEQUENCE DIAGRAM
LOGIN:
 USER Admin user db
1: enter username & password 2: checking

3: incorrect username password

4: enter correct username and password

5: enter username & password 6: checking

8: successful login 7: username and password is valid

PAYMENT:

user admin ebook db

1: enter the payment details 2: get the download link

4: download completed 3: downloading book

SEARCH:
 user admin ebook db

1: enter the book name 2: serach the book in db

4: display the download link 3: book is found

REGISTER:

user admin user db

1: checking the details

2: enter the user details

3: enter the prompt value

4: some details are missing

5: enter the details

6: checking

8: register successfully 7: the details are stored sucessfully

COLLABORATION DIAGRAM:
PAYMENT:

1: enter the payment details 2: get the download link

user admin ebook
db
4: download completed 3: downloading book

SEARCH:

1: enter the book name 2: serach the book in db

user admin ebook
db
4: display the download link 3: book is found

REGISTER:

2: enter the user details 1: checking the details

5: enter the details 6: checking
user admin user db

4: some details are missing 3: enter the prompt value

8: register successfully 7: the details are stored sucessfully

LOGIN:
1: enter username & password 2: checking
5: enter username & password 6: checking
USER Admin user db

4: enter correct username and password 3: incorrect username password

8: successful login 7: username and password is valid

STATE CHART DIAGRAM

LOGIN:
 login

enter user
name

enter valid login

pwd sucessful

invalid

enter the
details

PAYMENT:
 book
trancation

select the payment

mode

enter username & verify card

<10>digit card no details

download
completed

REGISTER:

register1

enter the valid register

name,pwd sucessful
invalid

enter valid
user details
SEARCH:
 book search

enter book name book not

and edition availible

book
availible

COMPONENT DIAGRAM:

login signup search payment

database
DEPLOYMENT DIAGRAM:

login signup search payment

EBook mangement
system

Database

CODING:(E-book)
LOGIN form
Private Sub Command1_Click()
form2.Show
Form1.Hide
End Sub
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\project\ebook1.mdb;Persist
Security Info=False"
rs.Open "select * from Table2 where username='" + Text1.Text + "'", cn, adOpenKeyset,
adLockOptimistic
If ((Text1.Text = "") Or (Text2.Text = "")) Then
MsgBox ("enter your username and password")
Else
If (rs("password").Value = Text2.Text) Then
Form3.Show
Form1.Hide
Else
MsgBox ("enter valid user name pwd")
Text1.Text = ""
Text2.Text = ""
End If
End If
rs.Close
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
DataGrid1.Visible = False
Text1.Text = ""
Text2.Text = ""
End Sub
REGISTER
Private Sub Command1_Click()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\project\ebook1.mdb;Persist
Security Info=False"
rs.Open "select * from Table2 ", cn, adOpenKeyset, adLockOptimistic
Dim Symbol1 As Integer
Dim Symbol2 As Integer
Dim TestString As String

TestString = Text5.Text
Symbol1 = InStr(TestString, "@")
Symbol2 = InStr(TestString, ".")
If (Symbol1 <> 0) And (Symbol2 <> 0) Then
rs.AddNew
rs("username") = Text1.Text
rs("password") = Text2.Text
rs("address") = Text3.Text
rs("phoneno") = Text4.Text
rs("Email") = Text5.Text
rs.Update
rs.Close
MsgBox ("thanks for your registration")
Form1.Show
form2.Hide
Else
MsgBox ("Please re-enter a valid e-mail address")
End If
End Sub
Private Sub Command2_Click()
form2.Hide
Form1.Show
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If Len(Text1.Text) < 4 Then
MsgBox ("username is not valid")
End If
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
If (Len(Text2.Text) < 5) Then
MsgBox ("enter password of minimum 5 characters ")
End If
End Sub
Private Sub Text3_Change()
If Not (Text6.Text = Label7) Then
MsgBox ("ll")
End If
End Sub
Private Sub Text4_Validate(Cancel As Boolean)
If Not IsNumeric(Text4.Text) Then
MsgBox ("enter valid phone no")
ElseIf Len(Text4.Text) < 10 Then
MsgBox ("number is not valid")
End If
End Sub
Private Sub Text6_Change()
Label7 = Text2.Text
End Sub
Private Sub Text6_Validate(Cancel As Boolean)
If Not (Text2.Text = Text6.Text) Then
MsgBox ("password does not match")
Text6.Text = ""
End If
End Sub
SEARCH
Private Sub Command1_Click()
Form4.Show
Form3.Hide
End Sub
Private Sub Command2_Click()
Form5.Show
Form3.Hide
End Sub
Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()

Form3.Hide
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
End Sub
ERA+Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\project\book.mdb;Persist
Security Info=False"
rs.Open "select * from Table2 where bookname='" + Combo1.Text + "'", cn, adOpenKeyset,
adLockOptimistic
If ((Combo1.Text = "") Or (Text2.Text = "")) Then
MsgBox ("enter the book name or edition")
Else
If (rs(3).Value = Text2.Text) Then
Label4.Visible = True
Text3.Visible = True
Text3.Text = rs(4).Value
Command2.Visible = True
Command1.Visible = False
Else
MsgBox ("Your requested book is not available")
End If
End If
rs.Close
End Sub
Private Sub Command2_Click()
Form6.Show
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Visible = True
Label4.Visible = False
Text3.Visible = False
Command2.Visible = False
Form3.Show
Form4.Hide
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Command2.Visible = False
Label4.Visible = False
Text3.Visible = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
Combo1.AddItem (Adodc1.Recordset(1))
Adodc1.Recordset.MoveNext
Loop
Text1.Text = ""
Combo1.Text = "select the book name"
End Sub
SEARCH BY BOOK NAME:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\project\book.mdb;Persist
Security Info=False"
rs.Open "select * from Table2 where bookname='" + Combo1.Text + "'", cn, adOpenKeyset,
adLockOptimistic
If ((Combo1.Text = "") Or (Text2.Text = "")) Then
MsgBox ("enter the book name or edition")
Else
If (rs(3).Value = Text2.Text) Then
Label4.Visible = True
Text3.Visible = True
Text3.Text = rs(4).Value
Command2.Visible = True
Command1.Visible = False
Else
MsgBox ("Your requested book is not available")
End If
End If
rs.Close
End Sub
Private Sub Command2_Click()
Form6.Show
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Visible = True
Label4.Visible = False
Text3.Visible = False
Command2.Visible = False
Form3.Show
Form4.Hide
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Command2.Visible = False
Label4.Visible = False
Text3.Visible = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
Combo1.AddItem (Adodc1.Recordset(1))
Adodc1.Recordset.MoveNext
Loop
Text1.Text = ""
Combo1.Text = "select the book name"
End Sub
SEARCH BY AUTHOR
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\project\book.mdb;Persist
Security Info=False"
rs.Open "select * from Table2 where authorname='" + Combo1.Text + "'", cn, adOpenKeyset,
adLockOptimistic
If (Combo1.Text = "") Or (Text2.Text = "") Then
MsgBox ("enter the author name or edition ")
Else
If (rs(3).Value = Text2.Text) Then
Label4.Visible = True
Text3.Visible = True
Text3.Text = rs(4).Value
Command2.Visible = True
Command1.Visible = False
Else
MsgBox ("Your requested books is not available")
End If
End If
rs.Close
End Sub

Private Sub Command2_Click()

Form6.Show
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Combo1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Visible = True
Label4.Visible = False
Text3.Visible = False
Command2.Visible = False
Form3.Show
Form4.Hide
Form5.Hide
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
DataGrid1.Visible = False
Command2.Visible = False
Label4.Visible = False
Text3.Visible = False
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
Do Until Adodc1.Recordset.EOF
Combo1.AddItem (Adodc1.Recordset(2))
Adodc1.Recordset.MoveNext
Loop
Text1.Text = ""
Combo1.Text = "select the author name"
End Sub
Payment:
Private Sub Command1_Click()
If (Option1.Enabled = True) Then
Label2.Visible = True
Label3.Visible = True
Text1.Visible = True
Text2.Visible = True
Label2.Caption = "Username"
Label3.Caption = "debit card no"
Command2.Visible = True
Option1.Visible = False
Option2.Visible = False
Command1.Visible = False
End If
If (Option2.Enabled = True) Then
Label2.Visible = True
Label3.Visible = True
Text1.Visible = True
Text2.Visible = True
Label2.Caption = "Username"
Label3.Caption = "credit card no"
Command2.Visible = True
Option1.Visible = False
Option2.Visible = False
Command1.Visible = False
End If
End Sub

Private Sub Command2_Click()

Timer1.Enabled = True
Timer1.Interval = 70
End Sub
Private Sub Command3_Click()
Text3.Enabled = True
Command4.Enabled = False
End Sub
Private Sub Command4_Click()
Text5.Enabled = True
Command3.Enabled = False
End Sub
Private Sub Form_Load()
Form5.Hide
Form4.Hide
Form6.Show
Label2.Visible = False
Label3.Visible = False
Text1.Visible = False
Text2.Visible = False
Command2.Visible = False
End Sub
Private Sub Text2_Validate(Cancel As Boolean)
If Not IsNumeric(Text2.Text) Then
MsgBox ("enter valid credit card or debit card no")
End If
End Sub
Private Sub Timer1_Timer()
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = ProgressBar1.Value + 5
Else
Timer1.Enabled = False
If (Text1.Text = "") Or (Text2.Text = "") Then
MsgBox ("download is not started enter your card no")
Else
MsgBox ("download success")
Form8.Show
Form6.Hide
End If
End If
End Sub
Thankyou
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
Form8.Hide
End Sub

SCREEN SHOTS
LOGIN FORM

REGISTER FORM
SEARCH

SEARCH BY BOOK NAME

SEARCH BY AUTHOR NAME
PAYMENTMETHOD
EXIT

CONCLUSION:

Thus an application has been designed and implemented for a e-book management
system.
EX.NO : 10 RECRUITMENT SYSTEM
DATE: 28/02/12

AIM:
To develop recruitment system project using Visual Basic as frond end and Microsoft
Access as back end.
PROBLEM STATEMENT
The recruitment system allows the job seekers to enroll their names through the process
of registration. The employee also can get the list of available candidates and shortlist for their
company requirement. Once the applicant enrolls he receives an id, which helps him in further
correspondence. A fees amount is received from the job seekers for enrollment. This system
makes the task of the job seeker easier rather than waiting in queue for enrollment. This also
reduces the time consumption for both for the job seeker and employee.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS
1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for job
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements
1. INTRODUCTION:
This project aimed at developing a web-based recruitment system by creating details about
vacancies, storing application data and interview process initiation.

1.1 PURPOSE:
Manual recruitment is a tedious processing to the increasing number of job
seekers. People around the world can apply for the online recruitment system and it is
very convenient too. This system is specially designed for those seek the most demanding
job and challenging positions in their own field.
1.2. SCOPE:
Recruitment system allows the job seekers to find their dream job in the chosen
field. This system helps the companies to recruit the right candidate for the job. This
system serves as a common meeting ground for job seekers and employees, both locally
and globally.
1.3. DOCUMENT CONVENTIONS:
Administrator - The person who has the full authority over the system. He can
view all registered users.
Job Seekers - the person who registers in the system in search of jobs.
Company - A company can register itself, select the required employees and
provide information about the result.
1.4. REFERENCES:
www.timesjob.com:
2 OVERALL DESCRIPTIONS:
2.1 PRODUCT PERSPECTIVE:
This project is a self-contained project for convenient recruitment process.
2.2 PRODUCT FUNCTIONS:
The front end of the project is where the visitors or job seeker’s do their
enrollment. The back end is managed by the administrator effectively
2.3 TOOLS TO BE USED:
Visual basic and Microsoft Access
3. EXTERNAL INTERFACES:
3.1 HARDWARE INTERFACES:
 The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACE:
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES:
4.1 APPLYING FOR JOB:
4.1.1 SYSTEM DESCRIPTION AND PRIORITY:
This feature allows the job seeker to apply for job.
4.1.2 STIMULUS AND RESPONSE SEQUENCE:
When the job seeker uploads his resume, the list of jobs matching the
resume will be posted.
4.1.3 FUNCTIONAL REQUIREMENTS:
REQ1: Only registered users can apply for the job.
REQ2: The Company has the right to recruit the candidates, not the
system.
5 OTHER NON-FUNCTIONAL REQUIREMENTS:
5.1 PERFORMANCE MANAGEMENT:
To increase the performance and free up database resources, the default features
are written to cache files on their initial load.
5.2 SAFETY REQUIREMENTS:
The database must be maintained effective from hacking.
5.3SECURITY REQUIREMENTS:
Password for registered accounts are stored securely in a hash, the uploads made
by the user must be checked and then accepted.
 RECRUITMENT SYSTEM
USECASE DIAGRAM:

<<include>> <<include>>

account created

personal details
qualification

enrollment

<<include>>
employee <<include>>
authentication<<include>>
user name
validate password
password

view job <<extend>>

<<extend>>
view salary job database
<<extend>>
administrator

view vaccancies

acknowledgement
ACTIVITY DIAGRAM:

RECRUITMENT
SYSTEM

RECRUITMEN
ACCOUNT T STATUS
CREATION

AUTHENTI
CATION
VIEW VIEW
JOB SALARY

PERSONAL USERID VIEW

QUALIFI PASSW
DETAILS VACANCIES
CATION ORD

INVALID
REGISTRATION REENTER
PASSWORD

VALID LOGIN
REGISTRATION SUCCESSFUL

REGISTRATION
SUCCESSFUL

ENROLL
MENT
CLASS DIAGRAM:
INTERACTION DIAGRAM:
SEQUENCE DIAGRAM:
ACCOUNT CREATION:

job seeker administrator

1: enter personnel details 2: processing

3: obtain user id and password

4: enter details with qualification

5: checking
6: registration successful

7: pay fee for enrollment

8: get acknoweldement
AUTHENTICATION:

job seeker administrator database

1: enter userid and password 2: check the database 3: checking
4: allows to change status
5: login successful

RECRUITMENT STATUS:

job seeker administrator database

1: enter userid and password 2: checks the database

3: checking
4: allows to shortlist the details
5: display the details(job vaccancy,salary)

6: request for job details 7: check the database

8: processing
9: response from the database
10: showing the corresponding the corresponding details
COLLABORATION DIAGRAM:
ACCOUNT
CREATION:
2: processing
5: checking

1: enter personnel details

4: enter details with qualification
7: pay fee for enrollment
job administr
seeker ator

3: obtain user id and password

6: registration successful
8: get acknoweldement

AUTHENTICATION:

3: checking

1: enter userid and password 2: check the database

job administr databas
seeker ator e
5: login successful 4: allows to change status

RECRUITMENT STATUS:

3: checking
8: processing

1: enter userid and password 2: checks the database

6: request for job details 7: check the database
job administr databas
seeker ator e
5: display the details(job vaccancy,salary) 4: allows to shortlist the details
10: showing the corresponding the corresponding details 9: response from the database
STATE CHART DIAGRAM:

ACCOUNT CREATION:

recruitme
nt status

enter valid check shortlist the view job and

userid,password database details salary status

invalid

reenter
paasword

AUTHENTICATION:

recruitme
nt status

enter valid check shortlist the view job and

userid,password database details salary status

invalid

reenter
paasword

RECRUITMENT STATUS:

recruitme
nt status

enter valid check shortlist the view job and

userid,password database details salary status

invalid

reenter
paasword
COMPONENT DIAGRAM:

ENROLL
MENT

ACCOUNT LOGIN SEARCH VIEW

CREATION STATUS

RECRUITMENT
SYSTEM

DEPLOYMENT DIAGRAM:

account enrollment login view

creation search
status

recruitment
status

job database
CODING
Home Form:
Private Sub Command1_Click()
Status.Show
End Sub

Private Sub Command2_Click()

Register.Show
End Sub

Private Sub Command3_Click()

Form1.Show
End Sub

Private Sub Command4_Click()

If hr_username = "admin" And hr_password = "admin" Then
hr_username = ""
hr_password = ""
Hr.Show
Else
MsgBox "Invalid Username / Password", vbCritical, "Recruitment System"
End If
End Sub

Register Form :

Dim c As Integer
Private Sub Calendar1_Click()
Text3.Text = Calendar1.Value
End Sub

Private Sub Command1_Click()

If (Len(Text4.Text) < 10) Then
MsgBox (" enter 10 digit no ")
Else
Dim statement As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + App.Path + "\record.mdb; " & _
"Persist Security Info=False"
 conn.Open
/* In order to update the database*/
statement = "UPDATE record SET " & "Name='" & Text1.Text & "'," & "Age='" & Text2.Text
& "'," & "DOB='" & Text3.Text & "'," & "Phno='" & Text4.Text & "'," & "Qualification='" &
Combo1.Text & "'," & "Percentage='" & Text6.Text & "'," & "Status='" & "Yet to be processed.
Waiting for the response from HR. Stay Tuned for updates" & "' WHERE ID =" &
Val(Label9.Caption)
conn.Execute (statement)
MsgBox "registered successfully"
conn.Close
Status.Show
End If
Unload Me
End Sub

Private Sub Command2_Click()

If (Text2.Text < 22 Or Text2.Text > 60) Then
MsgBox " Please enter a valid AGE"
Else
If (Len(Text4.Text) < 10) Then
MsgBox (" enter 10 digit no ")
Else
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\record.mdb;Persist
Security Info=False"
rs.Open "record", cn, adOpenKeyset, adLockPessimistic, adCmdTable
c=c+1
rs.AddNew
rs("Name") = Text1
rs("Age") = Text2
rs("DOB") = Text3
rs("Phno") = Text4
rs("Qualification") = Combo1
rs("Percentage") = Text6
rs("Id") = c
rs("Status") = "Yet to be processed. Waiting for the response from HR. Stay Tuned for updates"
MsgBox "Your Application id is " & c & "", vbInformation, "Recruitment System"
rs.Update
rs.Save
rs.Close
cn.Close
Form1.Show
Form1.Text2.Text = c
Unload Me
End If
End If
End Sub

Private Sub Form_Load()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\record.mdb;Persist
Security Info=False"
rs.Open "select * from record", cn, adOpenKeyset, adLockOptimistic
c = rs.RecordCount
End Sub

Private Sub Text1_Change()

If (Text1.Text = "" Or IsNumeric(Text1.Text)) Then
MsgBox " Please enter the NAME"
Text1.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Text2_Change()

If Not (IsNumeric(Text2.Text)) Then
Text2.Text = ""
Text2.SetFocus
' End If
End If
End Sub

Private Sub Text6_Change()

If (Len(Text6.Text) > 2) Then
MsgBox ("percent")
Text6.Text = ""
Text6.SetFocus
End If
End Sub

Private Sub Timer1_Timer()

Label8.Caption = Now
End Sub

Private Sub Image2_Click()

Unload Me
End Sub
Status Form :
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\record.mdb;Persist
Security Info=False"
rs.Open "select * from record where Id=" & Text1.Text & "", cn, adOpenKeyset,
adLockOptimistic
If (rs(0).Value = Text2.Text) Then
Text3.Text = rs(7).Value
Else
MsgBox "Please verify the details you have given", vbCritical, "Recruitment System"
End If
End Sub

Private Sub Command2_Click()

Form2.Show
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.Find "Id = " & Val(Text1.Text)
Register.Text1.Text = Adodc1.Recordset(0)
Register.Text2.Text = Adodc1.Recordset(1)
Register.Text3.Text = Adodc1.Recordset(2)
Register.Text4.Text = Adodc1.Recordset(3)
Register.Combo1.Text = Adodc1.Recordset(4)
Register.Text6.Text = Adodc1.Recordset(5)
Register.Label9.Caption = Adodc1.Recordset(6)
Register.Command1.Visible = True
Register.Command2.Visible = False
Register.Show
Unload Me
End Sub

Private Sub Form_Load()

Adodc1.Refresh
End Sub

Form1
Private Sub Command1_Click()
If (Text1.Text = "" Or Not IsNumeric(Text1.Text)) Then
MsgBox " Please enter the credit card no"
Else
MsgBox "registration successfull"
Unload Me
End If
End Sub

HR Form :
Private Sub Command1_Click()
On Error Resume Next
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\record.mdb;Persist
Security Info=False"
rs.Open "update record set status='" + Text2.Text + "' where Id=" + Text1.Text + "", cn,
adOpenKeyset, adLockOptimistic
MsgBox "Response sent successfully..", vbInformation, "Recruitment System"
Me.Show
Unload Me
End Sub

Private Sub Form_Load()

On Error Resume Next
Dim oconn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
strSQL = "select * from record"
Set oconn = New ADODB.Connection
oconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path +
"\record.mdb;Persist Security Info=False"
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open strSQL, oconn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
SCREEN SHOTS (RECRUITMENT SYSTEM):

HOME FORM:
REGISTER FORM:
PAYMENT FORM:
HR LOGIN FORM:
HR DATABASE:
LOGIN FORM:
EDIT:
VIEW STATUS:
RESPONSE:

CONCLUSION:
Thus an application has been designed and implemented for a recruitment system.
EX.NO : 11 FOREIGN TRADING SYSTEM
DATE: 13/03/12

AIM:
To develop foreign trading system project using Visual Basic as frond end and Microsoft
Access as back end.
PROBLEM STATEMENT:
Foreign Trading system allows customer to buy goods or forum from other countries. The
customer can see the list of available item and can buy according to their requirement. He can
register those items through the register number given. Finally, the payment is done through
online. This system makes the task of customer easier and reduces time consumption.
SOFTWARE REQUIREMENT SPECIFICATION:
TABLE OF CONTENTS

1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Requesting forums
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements
5.4 Availability Requirement
1. INTRODUCTION:
Foreign Trading system involves buying items from other countries. It is a huge system of
trading goods and keep track of all its customer.
1.1 PURPOSE:
The purpose of this system is to present a detailed description of foreign trading
system. It will explain the purpose and features of the system, the interfaces of the
system, what the system will do, the constraints which it must operate and how the
system will react to external stimuli.
1.2. SCOPE:
The foreign trading system holds an online interface with its customer for
maintaining all kinds of transaction details. Each customer is provided with a unique
user id at the time of registering as the member.
1.3. DOCUMENT CONVENTIONS:
Administrator : Who supervises the system and maintains the database. .
Customer Who buys the item.
1.4. REFERENCES:
www.fts.com
www.onlineforeigntradingsystem.com
2. OVERALL DESCRIPTIONS:
2.1 PRODUCT PERSPECTIVE:
The system is updated for every time when the customer buys the item. It
contains exact rate, date and time of items being purchased and sold. The customer can
also checks the availability of the goods.
2.2 PRODUCT FUNCTIONS:
The fro nt end of the project is where the customer orders for the item. The back
end is managed by the administrator effectively.
2.3 TOOLS TO BE USED
Visual basic and Microsoft Access
3. EXTERNAL INTERFACES
3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
 3.2 SOFTWARE INTERFACE
The system uses ODBC drive to connect and control the database.
4. SYSTEM FEATURES
4.1 REQUESTING ITEMS
4.1.1 SYSTEM DESCRIPTION AND PRIORITY:
This system allows the customer to record all the details that occur during
purchasing and delivery of item.
4.1.2 STIMULUS AND RESPONSE SEQUENCE:
The cost of delivered item is calculated.
4.1.3 FUNCTIONAL REQUIREMENTS:
REQ1: The cost of each item must be calculated.
REQ2: Each item must be given an unique id.
5 OTHER NON-FUNCTIONAL REQUIREMENTS:
5.1 PERFORMANCE MANAGEMENT:
Once the details are furnished, the immediate notification of the data must be
provided.
5.2 SAFETY REQUIREMENTS:
The database must be maintained and monitored effectively to avoid crashing or
hacking.
5.3 SECURITY REQUIREMENTS:
The system is secured and it can only be accessed using Password.
5.4 AVAILABILITY REQUIREMENTS:
The information provided should be retrieved at any time. Therefore, the
availability of data is more important.
USECASE DIAGRAM:

database
register

login

<<include>> forum
<<extend>>

buyer
seller
comment
edit forum

payment

<<include>> <<extend>>

billing delivery
ACTIVITY DIAGRAM:

register login forum payment

foreign trading
system

register login forum payment

enter reg number select get document that

password items contains item and price
enter nescessary
ery item

valid pasw select

quantity
verify

valid

add and delete

invalid items no invalid item
pswd no

invalid yes yes

details no checks
yes availbility
enter forum enter transcaton id
and amt
registration
accpeted
confirmatio
n of order yes deliver item after
transcation

no

ack from buyer to

seller
CLASS DIAGRAM:
SEQUENCE DIAGRAM:

Registration

Buyer Seller

1.Enter cus_name
2.Uploading

3.prompt for perosnal details

4.Enter all details

5.Verifying

6.Reg_num given and successful

Login

Buyer Seller

1.Entereg_no and psw

2.checking

3.prompt for email_id

4.Enter email_id
5.processing

6.Login Successful
 Forum

Buyer Seller Database

1.Select needed items

2.processing

4.show price details 3.retrive price

5.Enter quantity needed

6.checking

7.Add and delete neccessary items 8.Updating

10.Terminate
9.Confirmation

Payment

buyer Seller Database

1.Enter reg_no and psw 2.Checking

4.Show payment wnd 3.Retrive payment wnd

5.Enter trans_id and amt

6.Checking

8.Prompt address for delivery 7.Sucessful transcation

9.Enter address 10.Processing

11.Confiramation of delivery 12.Terminate

COLLABRATION DIAGRAM:

Registration
2: 2.Uploading
5: 5.Verifying

1: 1.Enter cus_name
4: 4.Enter all details
Buyer Seller

3: 3.prompt for perosnal details

6: 6.Reg_num given and successful

Login 2: 2.checking
5: 5.processing

1: 1.Entereg_no and psw

4: 4.Enter email_id
Buyer Seller

3: 3.prompt for email_id

6: 6.Login Successful

Forum

1: 1.Select needed items 2: 2.processing

5: 5.Enter quantity needed 6: 6.checking
7: 7.Add and delete neccessary items 8: 8.Updating
Buyer Seller Database

4: 4.show price details 3: 3.retrive price

9: 10.Terminate 10: 9.Confirmation

Payment
1: 1.Enter reg_no and psw 2: 2.Checking
5: 5.Enter trans_id and amt 6: 6.Checking
9: 9.Enter address 10: 10.Processing
11: 11.Confiramation of delivery 12: 12.Terminate
buyer Seller Database

4: 4.Show payment wnd 3: 3.Retrive payment wnd

8: 8.Prompt address for delivery 7: 7.Sucessful transcation
STATE CHART DIAGRAM:

Registration

Registration

Enter valid Registration

details successful

invalid

Reenter
details

Login

Login

Enter reg_no valid Login

and psw successful

invalid

Make
registration
Forum

Select needed
items

Checking valid Add to

database

invalid

No stock

Payment

E_pay

Enter regno valid Retrive Enter trans_id Payment

and pswd payment wnd and amt successful

invalid

Reenter reg_no
and pswd
COMPONENT DIAGRAM:

Forum Payment
Registration Login

Database

DEPLOYMENT DIAGRAM:

Registra Login Forum Paymen

tion t

Foreign Trading
system

Database
CODING:

WelcomeScreen
Private Sub Form_Load()
Me.Show
End Sub
Private Sub Login_Click()
ShopLogin.Show
Unload Me
End Sub
Private Sub Register_Button_Click()
Form2.Show
Unload Me
End Sub

Register

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\Projects\OOAD_CreditCardSystem\TKR_PROJECT\ShopLogin.mdb;Persist
Security Info=False"
rs.Open "select * from ShopLogin", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
'rs.Fields(0) = "Balaji"
rs.Fields(1) = Text4.Text
rs.Fields(2) = Text5.Text
rs.Fields(3) = Text1.Text
rs.Fields(4) = Text2.Text
rs.Fields(5) = Text3.Text
'rs.Fields(4) = Combo1
'rs.Fields(5) = cmbDept
'rs.Fields(6) = txtCollege.Text
'rs.Fields(7) = txtAddress.Text
'rs.Fields(8) = txtMobile.Text
'rs.Fields(9) = txtEmail.Text
MsgBox ("Registration successful..please note your userid")
MsgBox (rs(0).Value)
rs.Update
rs.Close
Unload Me
Form1.Show
End Sub

ShopLogin
Option Explicit
Dim customerId As String
Dim customerName As String
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=D:\Projects\OOAD_CreditCardSystem\TKR_PROJECT\ShopLogin.mdb;Persist
Security Info=False"
rs.Open "select * from ShopLogin WHERE UserID = " + txtUserName.Text, cn, adOpenKeyset,
adLockOptimistic
MsgBox (rs(0))
'rs.Fields(0) = "Balaji"
If rs(0).Value = txtUserName.Text Then
If rs(2).Value = txtPassword.Text Then
'Form1.Visible = True
ShopLogin.Visible = False
customerName = rs(3).Value
customerId = rs(0).Value
ItemList.Show
End If
End If
With Payment
.CusNameAssign = customerName
.CusIdAssign = customerId
End With
With ItemList
.CusNameAssign = customerName
.CusIdAssign = customerId
End With
rs.Close
End Sub
ItemList
Dim totalQuantity As Integer
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsForItemList As ADODB.Recordset
Dim rsForSingleItem As ADODB.Recordset
Dim CurrentItemID As Integer
Dim CurrentItem As String
Dim totalPriceForAnItem As Integer
Dim customerNameForBillRecord As String
Dim rsForItemList1 As New ADODB.Recordset
Dim i As Integer
Public Property Let CusNameAssign(ByVal CusName As String)
txtCustomerName.Text = CusName
End Property
Public Property Let CusIdAssign(ByVal userName As String)
txtCustomerId = userName
End Property
Private Sub bAdd_Click()
If i <> 0 Then
rsForItemList1.Close
End If
i=i+1
If Val(txtQty.Text) > 0 Then
CurrentItemID = Val(Left(cmbItemPick.Text, 2))
statement = "SELECT * From ItemList Where ItemID =" & Str(CurrentItemID)
Set rsForSingleItem = conn.Execute(statement)
totalQuantity = totalQuantity + Val(txtQty.Text)
totalPriceForAnItem = Val(txtQty.Text) * Val(rsForSingleItem.Fields(3))
If rsForSingleItem.EOF = False Then
statement = "INSERT INTO CurrentTempBill VALUES(" & rsForSingleItem.Fields(0) & ",'" &
rsForSingleItem.Fields(1) & "','" & rsForSingleItem.Fields(2) & "'," & rsForSingleItem.Fields(3)
& "," & Val(txtQty.Text) & "," & totalPriceForAnItem & ")"
conn.Execute (statement)
rsForItemList1.Open "SELECT * From CurrentTempBill", conn, adOpenKeyset,
adLockOptimistic
Set dgItemList.DataSource = rsForItemList1
dgItemList.Refresh
'DataGrid2.AddNewMode = Str(rs.Fields(0)) & rs.Fields(1) & rs.Fields(2) & Str(rs.Fields(3)) &
Str(rs.Fields(4)) & Str(rs.Fields(5))
'DataGrid2.SelStart = Str(rs.Fields(0)) & rs.Fields(1) & rs.Fields(2) & Str(rs.Fields(3)) &
Str(rs.Fields(4)) & Str(rs.Fields(5))
txtAmountToPay.Text = Str(Val(txtAmountToPay) + totalPriceForAnItem)
Else
MsgBox ("Sorry! No Such Item")
End If
Else
MsgBox ("Quantity must be 1 or more")
End If
End Sub
Private Sub bFinish_Click()
Dim currentBillID As Integer
statement = "select MAX(BillID) FROM BillRecord"
Set rs = conn.Execute(statement)
currentBillID = Val(Right(rs.Fields(0), 4)) + 1
Dim currentTableName As String
currentTableName = "PK" + Right(Str(currentBillID), 4)
statement = "SELECT * INTO " & currentTableName & " FROM CurrentTempBill "
conn.Execute (statement)
Dim timeNow As String
timeNow = Str(DateValue(Now))
Dim totalAmountForBillRecord As String
totalAmountForBillRecord = txtAmountToPay.Text
statement = "INSERT INTO BillRecord Values('" & currentTableName & "','" &
customerNameForBillRecord & "','" & timeNow & "','" & totalAmountForBillRecord & "')"
conn.Execute (statement)
conn.Close
With Payment
.totalPriceAssign = txtAmountToPay.Text
.totalNumberOfItemAssign = Str(totalQuantity)
End With
Unload Me
Payment.Show

End Sub
Private Sub Delete_Click()
txtAmountToPay.Text = Val(txtAmountToPay.Text) - rsForSingleItem1.Fields(5)
rsForItemList1.Delete adAffectCurrent
End Sub
Private Sub Form_Load()
' Open a connection.
totalQuantity = 0
i=0
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\Projects\OOAD_CreditCardSystem\TKR_PROJECT\products1.mdb; " &
_
"Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
' Look up the user name/password.
statement = "SELECT ItemID,ItemName,BrandName,Qty_Kgs,Price FROM ItemList"
Set rs = conn.Execute(statement)
' See if we got anything.
cmbItemPick.Clear
While rs.EOF = False
 cmbItemPick.AddItem (rs.Fields(0) & ") " & rs.Fields(1) & " - " & rs.Fields(2) & " Rs."
& rs.Fields(3) & rs.Fields(4))
rs.MoveNext
Wend
rs.Close
rs.Open
statement = "DELETE * FROM CurrentTempBill"
Set rs = conn.Execute(statement)
End Sub

Payment
Dim billId As String
Public Property Let totalNumberOfItemAssign(ByVal no As String)
totalNoOfItems.Text = no
End Property
Public Property Let totalPriceAssign(ByVal amt As String)
txtamt.Text = amt
End Property
Public Property Let CusNameAssign(ByVal CusName As String)
Text1.Text = CusName
End Property
Public Property Let CusIdAssign(ByVal userName As String)
Text5.Text = userName
End Property
Private Sub Command3_Click()
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= D:\Projects\OOAD_CreditCardSystem\CreditCardSystem.mdb; " & _
"Persist Security Info=False"
conn.CursorLocation = adUseClient
conn.Open
billId = Text4.Text
statement = "SELECT * From " & billI
Set rs = conn.Execute(statement)
Set DataGrid2.DataSource = rs
DataGrid2.Refresh
Set rs = conn.Execute("SELECT COUNT(*) From " & billId)
totalNoOfItems.Text = rs.Fields(0)
billId = UCase(billId)
statement = "SELECT * FROM BillRecord WHERE BillRecord.BillID ='" & billId & "'"
Set rs = conn.Execute(statement)
If rs.EOF = True Then
MsgBox "No such Bill exist!!!"
Unload Me
 End If
Text2.Text = rs.Fields(2)
txtamt.Text = rs.Fields(3)
statement = "SELECT UserName,PhoneNumber FROM ShopLogin WHERE UserName
='" & rs.Fields(1) & "'"
Set rs = conn.Execute(statement)
Text1.Text = rs.Fields(0)
Text5.Text = rs.Fields(1)
End Sub
Private Sub Command1_Click()
MsgBox ("Thankyou, " & Text1.Text & " Goods will be delivered in 2 or 3 days")
End Sub

SCREENSHOTS:
WelcomeScreen
Register

ShopLogin
ItemList
Payment

ThankYou Message

CONCLUSION:
Thus an application has been designed and implemented for a foreign trading system.
Ex.No: 12 CONFERENCE MANAGEMENT SYSTEM
DATE: 20/03/12
AIM
To develop a Conference Management System project using visual basic as front end and
Microsoft access as back end

PROBLEM STATEMENT
Conference management system is used to register for a conference by filling all the details. It maintains
the active database about information by conference in an efficient way. in exercising the system there are
problems such as time consumption, lot of paper work and space consumption. so to overcome these
problems we move onto conference management .it can be viewed and analyzed in a quick and easy way.
It shares time and maintenance cost, it provides online submission of paper in a simple way for
participants
SOFTWARE REQUIREMENT SPECIFICATION
TABLE OF CONTENTS
1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for Passport
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirement
1. INTRODUCTION
A conference management system can be regarded as domain specific content management system.

1.1.PURPOSE
The purpose of this SRS is secure as the responsibility for all requirements that
conference management should process

1.2. SCOPE
The system provides a communication platform between the user and the reviewer. This will
help both the user and reviewer by reducing the time and workload. It is a web based system that
supports the entire information about conference in an efficient way.

1.3.DOCUMENT CONVENTIONS, ACRONYMS AND ABBREVIATIONS

 Reviewer-Refers to the user who is the Central Authority who has been vested with the
privilege to manage the entire system and select the papers.
• Applicant - One who wishes to submit the paper for the conference

• CMS – Conference Management System.

1.4.REFERENCES
www.papers.in,www.india.in

2.0 OVERALL DESCRIPTION

2.1 PRODUCT PERSPECTIVE
The CMS acts as an interface between the applicant and the administrator. It uses
external relational database management system as a data. Every case of the system uses only a
web browser as an event to connect the system.

2.2 PRODUCT FUNCTIONS

This system functions with a database at the backend,for keeping track of its registered
students and also its available resources.

2.3. TOOLS TO BE USED

Visual Basic and Microsoft Access

3. EXTERNAL INTERFACE REQUIREMENTS

3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high speed
and must be of high efficiency.

3.2 SOFTWARE INTERFACE

 The system uses ODBC drive to connect and control the database.

4 SYSTEM FEATURES
4.1 APPLYING FOR CONFERENCE
4.1.1 DESCRIPTION AND PRIORITY
This system allows the student who wishes to participate at the conference has to
enroll their names and make their registration easy way .

4.1.2 STIMULUS/RESPONSE SEQUENCE

When the applicant submits all the required details, his status will be updated in
their database and after he submits the paper, it will be reviewed by the reviewer and he gives the rating.
After few days, the applicant can check whether his paper is selected for the conference.

4.1.3 FUNCTIONAL REQUIREMENTS

REQ 1: The applicant must have a registered account.

REQ 2: The applicant must submit only the valid information, papers.

5 OTHER NONFUNCTIONAL REQUIREMENTS

5.1 PERFORMANCE REQUIREMENTS
To increase performance and to free up database resources for other tasks, the default
features are written to cache files on their initial load, and consequent accesses to them result in
parsing a flat file for data.

5.2 SAFETY REQUIREMENTS

The database must be maintained effectively and the administrator must maintain
the interface properly. The user has to be careful while submitting the information.
5.3 SECURITY REQUIREMENTS
details for registered users are stored in the database. Only the database
administrator can have access to the main database. The database must be protected from
hacking the details of the applicants.

CONFERENCE MANAGEMENT SYSTEM

USE CASE
DIAGRAM

reviewer
login
login login
project
reviewer database

review
submitted
papers

<<extend>>
user login
login
user login invalid password

new
signuser
up
sign up

user

view
submitted
paper

ACTIVITY DIAGRAM

login sign up submit review

enter new submit selected review user

enter user submitted papers
name user name topic(to db)

enter passwor submit presenter's verify user

password d details(to db) details

successful confirm selected

login password

false reject
successful paper
sign up true
submit the
paper send notification
to presenter

CLASS DIAGRAM
SEQUENCE DIAGRAM

user user reviewer paper

database database
1: sign up

2: login

3: ask for details 4: ask details

5: enter user name,password

6: enter user name,password,address,ph_no,e-mail id

7: review submitted papers

8: registration successful
9: give rating

10: login
11: review successful

12: ask details 13: update database

14: enter user_name,password

15: successful login

16: submit paper

17: submission successful

18: check if paper is selected

COLLABORATION DIAGRAM
 1: sign up
6: enter user name,password,address,ph_no,e-mail id
8: registration successful
10: login
14: enter user_name,password
15: successful login
16: submit paper
18: check if paper is selected
user user
database
3: ask for details
12: ask details
17: submission successful

2: login
5: enter user name,password
7: review submitted papers
9: give rating
13: update database
reviewer paper
database
4: ask details
11: review successful

STATECHART
DIAGRAM

submit valid paper submission

paper successful

invalid

invalid
submission

REVIEW PAPER

review the check paper valid paper give rating

submitted papers details below 3

invalid paper

give rating
above 3

CONFIRM PAPER

true
update selected notify rating rating paper not
papers in db to user above 3 selected

false
paper
selected

COMPONENT DIAGRAM
 sign submit review rate
log_in
up

paper db
user
database

DEPLOYMENT DIAGRAM

view selected
review rate paper
signup login
paper

user paper
db db

conference
management system

CODING:

Login.frm
Private Sub Command1_Click()
Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
'Adodc1.Recordset.Update
'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data
Source=db2"
Adodc1.Refresh
Adodc1.Recordset.StayInSync = True
Adodc1.Recordset.MoveFirst
Adodc1.Refresh
Adodc1.Recordset.Find ("username='" + a + "'")
If Adodc1.Recordset.EOF Then
MsgBox ("invalid username")
Else
If Adodc1.Recordset("password") = Text2.Text Then
MsgBox ("login successful")
login.Hide
upage.Show
Else
MsgBox ("invalid username and password")
End If
End If
End Sub

Private Sub Command2_Click()

login.Hide
signup.Show
End Sub

Private Sub Command3_Click()

main.Show
login.Hide
End Sub
loginr.frm

Private Sub Command1_Click()

Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find ("reviewer_name='" + a + "'")
If Adodc1.Recordset.EOF Then
MsgBox ("invalid")
Else
If Adodc1.Recordset("password") = Text2.Text Then
MsgBox ("login successful")
loginr.Hide
mainr.Show
Else
MsgBox ("invalid")
End If
End If
End Sub

Private Sub Command2_Click()

main.Show
loginr.Hide
End Sub
main.frm
Private Sub Command1_Click()
main.Hide
login.Show
End Sub

Private Sub Command2_Click()

main.Hide
loginr.Show
End Sub

Private Sub Command3_Click()

End
End Sub
mainu.frm
Private Sub Command1_Click()
review.Show
mainr.Hide
End Sub

Private Sub Command2_Click()

mainr.Hide
loginr.Show
End Sub
review.frm
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset("topic") = Text1.Text
Adodc1.Recordset("presentername") = Text2.Text
Adodc1.Recordset("phoneno") = Text3.Text
Adodc1.Recordset("emailid") = Text4.Text
Adodc1.Recordset("rating") = Text5.Text
If Adodc1.Recordset("rating") <= 3 Then
Adodc1.Recordset("selected") = "yes"
Else
Adodc1.Recordset("selected") = "no"
End If
Adodc1.Recordset.Update
End Sub

Private Sub Command2_Click()

review.Hide
mainr.Show
End Sub

rpage.frm
Private Sub Command1_Click()
upage.Hide
submit.Show
End Sub

Private Sub Command2_Click()

upage.Hide
rsee.Show
End Sub

Private Sub Command3_Click()

upage.Hide
login.Show
End Sub

rsee.frm
Private Sub Command1_Click()
rsee.Hide
upage.Show
End Sub
select.frm

Private Sub Command1_Click()

select1.Hide
login.Show
End Sub

signup.frm

Private Sub Command1_Click()

'On Error Resume Next
Adodc1.Recordset.AddNew
Adodc1.Recordset("username") = Text1.Text
Adodc1.Recordset("password") = Text2.Text
Adodc1.Recordset("address") = Text3.Text
Adodc1.Recordset("phoneno") = Text4.Text
Adodc1.Recordset("emailid") = Text5.Text
Adodc1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
MsgBox ("registration successful")
submit.Show
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

submit.frm

Private Sub Command1_Click()

On Error Resume Next
If Text1.Text = "networks" Or Text1.Text = "cloud computing" Or Text1.Text = "adhoc
computing" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.MoveLast
Adodc1.Recordset("topic") = Text1.Text
Adodc1.Recordset("presentername") = Text2.Text
Adodc1.Recordset("phoneno") = Text3.Text
Adodc1.Recordset("emailid") = Text4.Text
Adodc1.Recordset("rating") = 0
Adodc1.Recordset("selected") = "wait for result"
Adodc1.Recordset.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
MsgBox ("your paper submitted sucessfully.login after 5 days to view ur result")
Else
MsgBox ("invalid topic")
End If
End Sub

Private Sub Command2_Click()

submit.Hide
upage.Show
End Sub

Private Sub Form_Load()

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
SCREEN SHOTS:

Login:
CONCLUSION:

Thus an application has been designed and implemented for a conference management
system.
EX.NO:13 BPO MANAGEMENT SYSTEM
DATE: 27/03/12

AIM:
To development bpo management system project using Visual Basic as frond end and
Microsoft Access as back end.

PROBLEM STATEMENT
Business Process Outsourcing (BPO) Management System is International Management
of our business. The customer needs to register them in the system. Each customer has his own
username and password. This helps the customer to login in the system, get product information
they need, register their complaints about product or management etc. The system works and
their process are similar to all call centers. Managing foreign (International) companies and
responding their needs and complaints are main process involved in BPO system.

SOFTWARE REQUIREMENT SPECIFICATION

TABLE OF CONTENTS
1. Introduction
1.1 Purpose
1.2 Product scope
1.3 Document conventions
1.4 References
2. Overall Description
2.1 Product Perspective
2.2 Product Functions
2.3 Tools to be used
3. External Interface
3.1 Hardware Interface
3.2 Software Interface
4. System Features
4.1 Applying for job
4.1.1 System Description and Priority
4.1.2 Stimulus/response Sequence
4.1.3 Functional Requirements
5. Other non-functional requirements
5.1 Performance Requirements
5.2 Safety Requirements
5.3 Security Requirements
1. INTRODUCTION
BPO Management Services (BPOMS) offers strategic new business product for the BPO
marketplace. BPO management service is both a BPO direct services and provides an expert
BPO project manager.
1.1.PURPOSE

BPOMS provide a broad portfolio of business and technology solution to help its
client world-wide improve their business performance.
1.2.SCOPE

It provides a good improvement in business performance. It improves the existing

business technology and improves direct services.

1.3 DOCUMENT CONVENTIONS

BPO – Business Process Outsourcing
ITO – IT Outsourcing specifies in mainframe, issues, mid-range and Inter service
manage services as well as remote desktop and network services.

1.4 REFERENCE
http://www.bporms.com

2. OVERALL DESCRIPTION
2.1. PRODUCT PERSPECTIVE
BPOMS highly experienced experts have skills to design, implements and support
the right solution for each customer need.

2.2. PRODUCT FUNCTIONS

Our use of quality delivery method and ISO certified process enables us to deliver
service and computer engagement is highly efficient.

2.3 TOOLS TO BE USED

Visual basic and Microsoft Access
3. EXTERNAL INTERFACES
3.1 HARDWARE INTERFACES
The system should have good hardware support. The processor should have high
speed and must be of high efficiency.
3.2 SOFTWARE INTERFACE
 The system uses extensive database. Hence it requires JDBC drivers for
connecting to the database.
4. SYSTEM FEATURES
4.1 CONTRAST DEVELOPMENT
4.1.1. SYSTEM DESCRIPTION AND PRIORITY
This feature allows the BPO to management the constraints.
4.1.2 STIMULUS/RESPONSE SEQUENCE
When the customers call for query the employee must satisfy them with
meaningful solution.
4.1.3 FUNCTIONAL REQUIREMENTS
REQ 1: The employee must be hard working.
REQ 2: The Company must have details about the contract.
5. OTHER NON-FUNCTIONAL REQUIREMENTS
5.1 PERFORMANCE REQUIREMENTS
This system makes use of extensive database hence the initial factor must be
loaded in the cache during the initial loading process.
5.2 SAFETY REQUIREMENTS
The database must be managed effectively and protected from hacking and virus
attack.
5.3 SECURITY REQUIREMENTS
The HR or the administrator can access the profiles of the company and employee
details.
 BPO Management System
Use case Diagram:

<<include>> <<extend>> DB

registrarion username invalid password

company name
company admin company detail

company address

product name
business function BPO Manager

<<include>>
product quality
total employee

<<include>>
allocate employee

employee available employee

<<include>> out sourcing

payment
agreement company

<<include>>

transport schedule not satisfied

<<extend>>

duration
sign agreement

Class diagram
Activity diagram
 BPO management
system

registration company Business employee agreement

detail function

customer company product no.of employees duration payment

name name name available

existing new company product no select employee to

customer customer address handle the problem

agree then
sign
create company details is failure
account stored in database detail
no not satisfied try for
another employee
product details and failure
yes
complaint is stored

sign
agreement

enter username
and password

no
yes
invalid
retry registration
successfull

INTERACTION DIAGRAM:
 Sequence diagram
Registration

company bpo manager DATABASE

admin

1:enter username
2:verify user name and password

3:processing

4:validation

5:sucessfull registration

Product details

customer BPO Manager database

product detail

enqiury
storing in db
processing

Agreement

company BPO outsourcing employee

admin MANAGER company

request to process complaint

refering available employee

asking to solve the problem

agree to solve
payment details

verfying payment

agree to pay
request for agreement

Collaboration diagram
Registration

1:
bpo manager
company
admin
5:

4:

3:
2:

DATABAS
E

Product detail

4: processing

1: product detail
customer
BPO
Manager
2: enqiury

3: storing in db

database

Agreement
 2: refering available employee

1: request to process complaint

8: request for agreement
outsourcing
BPO company
MANAGER
5: payment details

4: agree to solve

7: agree to pay
6: verfying payment

3: asking to solve the problem

employee

company
admin

State diagram

register

get company
detail

get product
detail

contact outsourcing
company

get employee
detail

get payment
detail

transport
schedule

make
agreement
Component diagram
process
the query
 company BPO registration product employee
outsourcing
admin manager function agreement
company

BPO MANAGEMENT
SYSTEM

DataBase

Deployment diagram

employee agrement product

registration outsourcing function
BPO
company
manager

BPO MANAGEMENT SYSTEM

CODING

Form1

Private Sub Command1_Click()

Form2.Show
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Form2

Private Sub Command1_Click()

On Error Resume Next
Adodc1.Recordset.AddNew
Adodc1.Recordset("comname") = Text1.Text
Adodc1.Recordset("emailid") = Text2.Text
Adodc1.Recordset("phoneno") = Text3.Text
Adodc1.Recordset("address") = Text4.Text
Adodc1.Recordset("username") = Text5.Text
Adodc1.Recordset("password") = Text6.Text
Adodc1.Recordset.Update
MsgBox ("registration successful")
Form3.Show
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Form3

Private Sub Command1_Click()

Dim a As String
Dim b As String
a = Text1.Text
b = Text2.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find ("username='" + a + "'")
If Adodc1.Recordset.EOF Then
MsgBox ("invalid username")
Else
If Adodc1.Recordset("password") = Text2.Text Then
MsgBox ("login successful")
Form4.Show
Else
MsgBox ("invalid username and password")
End If
End If
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub

Form4

Private Sub Command1_Click()

Form9.Show
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
Dim s As String
s = Text1.Text
Adodc2.Recordset.Find ("username='" + s + "'")
If Adodc2.Recordset.EOF Then
MsgBox ("invalid username")
Else
Adodc1.Recordset("username") = Text1.Text
Adodc1.Recordset("prodname") = Text2.Text
Adodc1.Recordset("service") = Text3.Text
Adodc1.Recordset("phoneno") = Adodc2.Recordset("phoneno")
Adodc1.Recordset("address") = Adodc2.Recordset("address")
Adodc1.Recordset("company") = "not assigned"
Adodc1.Recordset.Update
MsgBox (" YOUR COMPLAINT HAS BEEN SUCCESSFULLY REGISTERED....wait few
minutes ,our bpo staff will communicate with you via email...!")
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub
Private Sub Label1_Click()
End Sub

Form5

Private Sub Command1_Click()

Form1.Show
End Sub
Private Sub Command2_Click()
Form6.Show
End Sub
Private Sub Command3_Click()
End
End Sub

Form6

Private Sub Command1_Click()

If (LCase(Text1.Text)) = "rsgroup" And (LCase(Text2.Text)) = "rsgroup" Then
Unload Me
Form7.Show
Else
MsgBox "Please Enter Correct Username and Password"
End If
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub

Form7
Private Sub Command1_Click()
Form8.Show
End Sub
Private Sub Command2_Click()
Form9.Show
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub

Form8

Private Sub Command1_Click()

Dim s As String
s = Adodc2.Recordset("prodname")
Adodc1.Recordset.Find ("prodname='" + s + "'")
If Adodc1.Recordset.EOF Then
MsgBox ("no company available")
Adodc2.Recordset("company") = "no company"
Else
Adodc2.Recordset("company") = Adodc1.Recordset("company")
Adodc2.Recordset.Update
MsgBox ("agreement confirmed")
End If
End Sub
Private Sub Command2_Click()
Form7.Show
End Sub

SCREEN SHOTS:
CONCLUSION:
Thus an application has been designed and implemented using visual basic for a BPO.
 14.LIBRARY MANAGEMENT SYSTEM

FORM 1
FORM 2

FORM 3
FORM 4
FORM1
Private Sub Command1_Click()
If (Form1.Text1.Text = "" Or Form1.Text2.Text = "") Then
MsgBox ("ENTER USERID AND PASSWORD")
Else
Form3.Show
End If
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
FORM2
Private Sub Command1_Click()
If (Form2.Text1.Text = "" Or Form2.Text2.Text = "" Or Form2.Text3.Text = "" Or Form2.Text4.Text = "" Or
Form2.Text5.Text = "" Or Form2.Text6.Text = "") Then
MsgBox ("ENTER ALL THE DETAILS")
Else
Form3.Show
End If
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
FORM3
Private Sub Command1_Click()
If (Form3.Text1.Text = "" Or Form3.Text2.Text = "" Or Form3.Text3.Text = "" Or Form3.Text4.Text = "")
Then
MsgBox ("ENTER ALL THE DETAILS")
Else
MsgBox ("BOOK IS FOUND")
Form4.Show
End If
End Sub
Private Sub Command2_Click()
If (Form3.Text1.Text = "" Or Form3.Text2.Text = "" Or Form3.Text3.Text = "" Or Form3.Text4.Text = "")
Then
MsgBox ("ENTER ALL THE DETAILS")
Else
MsgBox ("BOOK RETURNED SUCCESSFULLY")
End If
End Sub
FORM4
Private Sub Command1_Click()
If (Form4.Text1.Text = "") Then
MsgBox ("ENTER ID NUMBER")
Else
MsgBox ("BOOKS WILL BE ISSUED WITHIN ONE WEEK")
Unload Me
End If
End Sub
 15.STUDENT INFORMATION SYSTEM
FORM1

FORM2
FORM3

FORM4
FORM1

Private Sub Command1_Click()

If (Form1.Text1.Text = "" Or Form1.Text2.Text = "") Then
MsgBox ("ENTER A VALID USER NAME AND PASSWORD")
Else
Form3.Show
End If
End Sub

FORM2
Private Sub Command1_Click()
If (Form3.Text1.Text = "" Or Form3.Text2.Text = "" Or Form3.Text3.Text = "" Or Form3.Text4.Text = "" Or
Form3.Text5.Text = "") Then
MsgBox ("FILL ALL THE DETAILS")
Else
MsgBox ("DETAILS ENTERED SUCCESSFULLY")
End If
End Sub
Private Sub Command1_Click()
If (Form3.Text1.Text = "" Or Form3.Text2.Text = "" Or Form3.Text3.Text = "" Or Form3.Text4.Text = "" Or
Form3.Text5.Text = "") Then
MsgBox ("FILL ALL THE DETAILS")
Else
MsgBox ("DETAILS ENTERED SUCCESSFULLY")
End If
End Sub
 Content beyond Syllabus
Ex No :
QUIZ SYSTEM
AIM:
To implement the Quiz System using Rational Software.
ALGORITHM:
Step 1:
Identify the Actors and Use cases.
In this system, the actors and use cases are:
Actors:
User ,System and Database
.
Use cases:
Login,Option,answering questions,calculating marks and Display score
card.
Step 2:
Build the relationship between actors and use cases.
2. ALGORITHM
FOR SEQUENCE DIAGRAM:
Step 1:
Identify the objects.
In this system, the objects are:
User, Systemand Database.
Step 2:
Identify the sequence of events

Step 3:
Login to the system to check the validity.
Step 4:
Select the option in the system.
Step 5:
Answer the questions for the selected options
Step 6:
Evaluate the answer and calculate the mark.
Step 7:
Save the score in the database
Step 8:
Display the score.

ALGORITHM
FOR CLASS DIAGRAM:
Step 1:
Create class diagram for each identified objects under sequence diagram.
Identified objects are: User, Systemand Database.
Step 2:
Class diagram for each object is divided into three parts.
 Top portion represents the Class Name.
Middle portion represents the Attributes.
Bottom portion represents the Methods.

Procedure to write the software for the Quiz System using Rational Software tool
Selecting the Software:

1 Click start-> Rational Software->Rational Rose Enterprise Edition.

Create the project:
2. In the Create New Model window select VB6 Standard Framework->A screen appears;
select the untitled project from the browser window and save it
To draw the diagram:
3. Right Click the Use case view->New->Use case diagram->Sequence diagram->Class diagram
(name and save the files)
4. Click Use case diagram->using the tool box build the use case diagram.
5. Click Sequence diagram->using the tool box build the sequence diagram.
6.Click Class diagram-> using the tool box build the class diagram.
Generate the coding form:
7.Right click component view -> component diagram-> open specification -> select the
stereotype as DLL-> select the language as visual basic->switch from general tab to realizes
Tab-> select the classes you created in class diagram-> right click ->Assign->Ok.
8. Right click component view -> update code form model-> the tool window for converting
Diagrams to code appears->next->finish->the skeleton code in VB is generated automatically
for the class diagram designed.
 Viva questions

1. What is Object Oriented analysis & Design?

2. List the 4 phases in UP.

3. Compose your views on iterative Development and write it benefits.
4. Define UML.
5. Define Class Diagram? When to use Class Diagrams?

6. Define Use Case.

7. Point out the relationship used in Use case.

8. Discover the major Difference between Component and Deployment Diagram.

9. Classify the 3 kinds of actors in usecase.

10. Define State Chart Diagram? When to use State Diagram?
11. Compare Activity and state chart diagram? Mention the Elements of an
Activity Diagram.
12. Define Aggregation and Composition.

13. Differentiate between method and message in object.

14. Formulate the purpose of Interaction Diagram.

15. Analyze the need of State chart Diagram.

16. Discuss the Strength and Weakness of the Use case Diagram.

17. Interpret the meaning of event, state and Transition.

18. Give the use of Package Diagram.

19. Compare and Contrast of Sequence and Collaboration diagram.

20. Illustrate the means of representing a node in a Deployment Diagram.