Mca pro1 online

Ex.No : ONLINE COURSE REGISTRATION SYSTEM
Date :
AIM:
To create a system through which students and staff can register to the courses desired by them.
1.PROBLEM STATEMENT :
The student and staff login the registration system. The student view the catalog and register the
course according to them. The staff view the course catalog and select the course. The registrar
maintain the staff and student details and close the registration after the registration is completed.
All the in formations are updated in the database. Finally the system is build. Such that it can be
used by both student and staff.
2.SOFTWARE REQUIREMENT SPECIFICATION
2.1 INTRODUCTION:
There is a course registration system in which the student and staff select the course.
2.2 PURPOSE:
The purpose of this course registration system is that the user can register the course according to
them.
2.3 SCOPE:
The system provides the course registration interface to the student and staff where they can
register the course.
2.4 DEFINITIONS, ACRONYMS AND ABBREVIATION:
STUDENT:
One who view the course catalog and select the course.
STAFF:
One who submit the mark details and select the course.
COURSE CATALOG:

One who has the course list (list of course)
REGISTRAR:
One who maintains the student and staff details and close the registration.
2.5 REFERENCES:
http://en//wikipedia.org.
http://center/registartion.in
2.6 TOOLS TO BE USED:
Microsoft Visual basic, Oracle
2.7 OVERVIEW:
SRS includes two sections namely overall description and specification.
2.8 OVERALL DESCRIPTION
2.8.1 PRODUCT PERSPECTIVE:
Course registration system act as a interface between student ,staff and registrar.
2.8.2 SOFTWARE INTERFACE:
Front end client. The student ,staff and registrar interface are build using a Microsoft visual
basic.
Backend –Oracle database.
2.9 HARDWARE REQUIRMENTS:
Page No: 1
A computer with basic features can be used to operate.
2.10 SYSTEM FUNCTIONS:

 The student and staff logins.
 The student views the course catalog and register the course
 The staff submit the mark details and select the course.
 The registrar maintains student details and staff details.
 After registration the registrar will close the registration.
2.11 USER CHARACTERISTICS:
STUDENT:
View the record and select the course.
STAFF:
Submit the mark details and select the course.
COURSE CATALOG:
Contain the list of course.
REGISTRAR:
Maintain the student and staff details.
2.12 CONSTRAINTS:
The students and staff must have basic knowledge of computer and English.
2.13 SPECIFICATION REQUIREMENTS:
STUDENT:
 Login
 Logout
 View the course catalog
 Select the course.
STAFF:
 Login
 Logout
 View the course catalog

 Select the course.
REGISTRAR:
 Login
 Logout
 Maintain student details
 Maintain staff details
 Close the registration.
COURSE CATALOG:
List of course.
2.14 SOFTWARE SYSTEM ATTRIBUTES:
Reliability:
System is highly reliable and must work without any defect.
Availability:
All these courses should be available.
Page No: 2
UML DIAGRAMS

Page No: 3
2. Activity Diagram:

Page No: 4
3. CLASS DIAGRAM
.1 STUDENT:

4. INTERACTION DIAGRAM:
1. Sequence diagram:
6.1.1 Staff
Page No: 6

Page No: 7
2. COLLABORATION DIAGRAM :
1. STAFF

Page No: 9
5. STATECHART DIAGRAM:

Page No: 10
6. Logical Architecture:

Page No: 11
7. COMPONENT DIAGRAM:

8. DEPLOYMENT DIAGRAM:
Page No: 12
9. Technical service layer:
Name Null?

NAME
ID
ADDRESS
AGE
GENDER
COURSE
VARCHAR2(7)
NUMBER(6)
VARCHAR2(20)
NUMBER(4)
VARCHAR2(4)
VARCHAR2(7)
Name
Null?
USERNAME
PASSWORD
VARCHAR2(7)
NUMBER(6)
10. USER INTERFACE AND DOMAIN OBJECT LAYER
MAIN FORM:

Page No: 13
CODING :
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub exit_Click()
End
End Sub
Private Sub Form_Load()
db.Open "course", "scott", "tiger"

rs.Open "select *from ooad2", db, 1, 2
End Sub
Private Sub registrar_Click()
Form6.Show
End Sub
Private Sub staff_Click()
Form7.Show
End Sub
Private Sub student_Click()
Form2.Show
End Sub
STUDENT : LOGIN FORM

Dim s As String
Dim n As Integer
Private Sub first_click()
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub
Private Sub next_Click()
rs.MoveNext
If rs.EOF = True Then
rs.MoveFirst
End If
Text1.Text = rs(0)
Text2.Text = rs(1)
End Sub
End Sub
Private Sub signin_Click()

rs.AddNew
Text1.Text = rs(0)
Text2.Text = rs(1)
rs.Update
If s = Text1.Text Then
Form4.Show
End If
End Sub
Private Sub signup_Click()
Form3.Show
End Sub
Page No: 15

LOGIN:
CODING:
Private Sub add_Click()
rs.AddNew
rs(0) = Text1.Text

rs(1) = Text2.Text
rs.Update
MsgBox "added..."
End Sub
End Sub
Private Sub login_Click()
Form2.Show
End Sub
Page No: 16
STUDENT DETAILS :

CODING:
Private Sub clear_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

Text6.Text = ""
Text7.Text = ""
End Sub
Combo1.AddItem "CSE"
Combo1.AddItem "IT"
Page No: 17
Combo1.AddItem "ECE"
End Sub
Private Sub mainform_Click()
Form1.Show
End Sub
rs.MoveNext
End If
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)

Text5.Text = rs(4)
Text6.Text = rs(5)
Text7.Text = rs(6)
End Sub
Private Sub previous_Click()
rs.MovePrevious
If rs.BOF = True Then
MsgBox "u r in the first record"
Exit Sub
Else
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
Text5.Text = rs(4)
Text6.Text = rs(5)
Text7.Text = rs(6)
End If
End Sub
Private Sub register_Click()
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text

rs(2) = Text3.Text
rs(3) = Text4.Text
If female.Value = True Then
rs(4) = female.Caption
Else
rs(4) = male.Caption
End If
rs(5) = Combo1.Text
rs(6) = Text7.Text
rs.Update
MsgBox "registered"
End Sub
Page No: 18
STAFF DETAILS

CODING:
Private Sub clear_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

rs.Open "select *from staff1", db, 1, 2
Combo1.AddItem ("cse")
Combo1.AddItem ("ece")
Combo1.AddItem ("it")
End Sub
Private Sub mainform_Click()
form1.Show
End Sub
Page No: 19
rs.MoveNext
End If
rs.MoveFirst
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
End Sub

Private Sub previous_Click()
rs.MoveFirst
If rs.BOF = True Then
MsgBox "u r in the first record"
Exit Sub
Else
Text1.Text = rs(0)
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
End If
End Sub
Private Sub submit_Click()
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs(2) = Text3.Text
rs(3) = Text4.Text
If female.Value = True Then
rs(4) = female.Caption
Else
rs(4) = male.Caption
End If

rs(5) = Combo1.Text
rs.Update
MsgBox "submited"
End Sub
Page No: 20
REGISTRAR:

CODING:
Private Sub closeregistration_Click()
End
End Sub
End Sub
Private Sub staffdetails_Click()
Form5.Show

End Sub
Private Sub studentdetails_Click()
Form4.Show
End Sub
RESULT:
Thus the system through which students and staff can register the course has
Page No: 21
been created and successfully executed.
Ex:No. STOCK MAINTENANCE SYSTEM
Date
AIM:
To develop a project for maintaining stocks in an Enterprise.

1. PROBLEM STATEMENT:
Stock Maintenance gives an idea about how products are maintained in a particular concern. The
products that are to be purchased and the products that are to be sold are maintained here.
And also gives additional details about the current stock available in the store. It is a computerized
way of managing stock in an enterprise and it is also useful in all the supermarkets and shops.
This project is done in an authorized way by creating Password and UserId. The Stock
Maintenance in this project is understood by going through the modules that is being involved. The
whole marketing process and the economic status has being improved if stock is maintained
properly.
2.0 SOFTWARE REQUIREMENT SPECIFICATION
2.1 Introduction:
There is a stock maintenance system, in which the customer purchases the item from the dealer.
2.2 Purpose:
The purpose of this stock management system that a person purchases a stock, the database will
be updated automatically and can be viewed.
2.3 Scope:
The System provides an interface between the customer and the shopkeeper who is
responsible for maintaining the records.
Proper selling of the stocks could be done and then the billing will be done as per the purchase
after when the database is done.
2.4 Definitions, Acronyms and Abbreviations:
Admin:
One who maintains the entire stock and is responsible for delivery and intake of the
stocks.
System:
Once a stock is sold, the database gets automatically updated also if unwanted products
are found; it is removed from the database.

2.5 References:
http://in.wikipedia.org
http://center/regstockmaintenance.in
2.6 Technologies to be used:
Microsoft Visual Basic 6.0,Oracle
2.7 Overview
2.8 Overall Description:
2.8.1 Product Perspective
Stock maintenance system provides an interface between the admin and the system.
2.8.2 Software Interface:
Front-end is CLIENT. The admin and user interface is built. The Backend is
Page No: 22
ORACLE Database.
2.8.3 Hardware Interface:
2.8.4 System Functions:
The customer will check for availability of the stock. The System views the required details. If
available the customer purchases it.
Else, new records will be added to the database about unavailability of the stock.
2.9 User Characteristics:
Admin:
Looks after the entire stock in the company.
System:
Stores all the record about the sales of the stock and about the purchase.

2.10 Constraints:
At a time either the admin can deliver a stock or purchase a stock.
2.11 Assumption and Dependencies:
The admin of the system must have knowledge of the stock maintenance.
2.12 Specific Requirements:
2.12.1 Use case Reports
Admin:
 Login
 Logout
 View the record
 Select the required stock
System:
 Update the record
 Add the new item
 Delete unwanted item
2.13 Software System Attributes:
Reliability:
Availability: All the stock must be available

1. USE CASE DIAGRAM
2. ACTIVITY DIAGRAM:
a. VIEW STOCK:

Page No: 25
3. CLASS DIAGRAM:
3.1 VIEW STOCK:

3.2 DELIVERY
Page No: 26
3.3 INTAKE

4. INTERACTION DIAGRAM
4.1 SEQUENCE DIAGRAM:
4.1.1 VIEW STOCK:

Page No: 28
4.2 COLLABORATION DIAGRAM:
4.2.1 VIEW STOCK:

Page No: 30
6. LOGICAL ARCHITECTURE:

Page No: 31

Page No: 32
9. TECHNICAL SERVICE LAYER
Name Type
Product Varchar2(10)
Brand Varchar2(10)

Quantity Number(10)
Example:
Product Brand Quantity
comp dell 30
cpu in 20
10. USER INTERFACE AND DOMAIN OBJECT LAYER:
HOME

Page No: 33
CODING:
Private Sub Command1_Click()

Form2.Show
End Sub
Private Sub command2_click()
Form3.Show
End Sub
Form4.Show
End Sub
End
End Sub
Me.WindowState = 2
End Sub
STOCK:

Page No: 34
CODING:
Form1.Show
End Sub

End
End Sub
Text1.Text = ""
Combo1.Text = ""
End Sub
db.Open "stock1", "scott", "tiger"
rs.Open "select * from hem1", db, 1, 2
Combo1.Clear
Text1.Text = ""
Option1.Value = False
End Sub
Private Sub Option1_Click()
Combo1.Clear
Combo1.AddItem ("lg")
Combo1.AddItem ("dell")
End Sub
Combo1.Clear

Combo1.AddItem ("in")
Combo1.AddItem ("hem")
End Sub
Combo1.Clear
End Sub
private Sub command2_click()
If Option1.Value = True Then
If Combo1.Text = "lg" Then
Text1.Text = Val(rs(2))
Else
End If
End If
If Combo1.Text = "in" Then
Else
Page No: 35

End If
End If
Else
End If
End If
End Sub
DELIVERY:

CODING:
Form1.Show
End Sub
If Combo1.Text = "lg" Then

Page No: 36
Text2.Text = Val(rs(2)) - Val(Text1.Text)
rs(2) = Text2.Text
Else
rs(2) = Text2.Text
End If
rs(2) = Text2.Text
Else
rs(2) = Text2.Text
End If
rs(2) = Text2.Text
Else
rs(2) = Text2.Text
End If

End If
End If
End If
rs.Update
MsgBox "Item delivered", vbInformation
End Sub
End
End Sub
Text1.Text = ""
Combo1.Text = ""
End Sub
rs.Open "select * from hem1", db, 1, adLockOptimistic
Combo1.Clear
Text1.Text = ""
End Sub

Combo1.Clear
End Sub
Combo1.Clear
Page No: 37
End Sub
Combo1.Clear
End Sub
INTAKE:

CODING:
Form1.Show
End Sub
rs.AddNew

rs(0) = Option1.Caption
rs(1) = Combo1.Text
Page No: 38
Else
rs(1) = Combo1.Text
Else
rs(1) = Combo1.Text
End If
End If
End If
rs(2) = Text1.Text
rs.Update
MsgBox "item is added", vbInformation
End Sub
End
End Sub
Text1.Text = ""

Combo1.Text = ""
End Sub
rs.Open "select * from hem1", db, 1, 2
Combo1.Clear
Text1.Text = ""
End Sub
Combo1.Clear
End Sub
Combo1.Clear
End Sub
Combo1.Clear

End Sub
Result:
Thus the Stock maintenance system has done successfully.
Page No: 39
Ex.No.: ONLINE EXAM REGISTRATION SYSTEM
Date :
AIM :
To create a system through which student can register the exam through online.
PROBLEM STATEMENT:
Exam registration system is an online exam registration.The student should provide his/her
name,type of exam,DOB and other necessary details.Based on the type of examination the exam

fee is collected.The fee can be paid via credit/debit card only.The report generator will generate
their exam number with their details.The student will take
Printout.
SOFTWARE REQUIREMENT SPECIFICATION
2.1 INTRODUCTION :
Exam registration is an online exam registration for certain exam.It is an interface between the
student and exam authority.
2.2 PURPOSE
If the exam registration is done in person .then student has to wait in queue to submit the form
and pay money.By using online exam registration system student can register from home itself.
2.3 SCOPE
The system provides on online interface to the student where they can fill the form and submit it.
And pay the fee based on type of exam.Cashier will collect the fee.Reporter will generate an
exam number to the student and student should
Take the printout.
2.4 DEFINITIONS,ACRONYMS AND ABBREVIATION
STUDENT: select the type of exam and enter their details.based on the type of exam he/she will
pay the fees.
CASHIER: Collect the fee from the student.
REPORTER: Generate the exam number to the student.
2.5 REFERENCES :
http://annauniv.edu/registration.in
2.6 TOOLS TO BE USED
Microsoft visual basic ,Oracle
2.7 OVERVIEW
SRS includes two sections overall description, specification

2.8.1 PRODUCT PERSPECTIVE :
The Exam registration system act as an interface between student and exam
authority. This system tries to make the interface as simple as follow.
2.8.2 SOFTWARE INTERFACE :
FRONT END : client
BACK END :vb oracle
2.8.3 HARDWARE INTERFACE:
The server and client are directly connected.
2.8.4 SYSTEM FUNCTIONS :
Page No: 40
 student select the type of exam .
 student register for his/her exam.
 Pay the fee via credit/debit card.
 Cashier collect the fee.
 Reporter will generate the exam number and date for student.
2.8.5 USER CHARACTERISTICS :
STUDENT:
Select the type of exam and enter their details and pay the fee
CASHIER:
Collect the fee from the student.
REPORTER:
Generate report to the student.
2.8.6 CONSTRAINTS :
The student should pay the fee via credit/debit card only.

2.9 SPECIFICATION REQUIREMENT
STUDENT:
Select the type of exam.
 Enter their details.
 Pay the fee.
CASHIER:
 Collect the fee.
REPORTER:
 Generate the report
2.10 SOFTWARE SYSTEM ATTRIBUTES :
RELIABILITY:
AVAILABILITY:
Type of exam should be available.

Page No: 41
UML DIAGRAMS
1. USE CASE DIAGRAM:

Page No: 43
3. CLASS DIAGRAM:

4.1 COLLABORATION DIAGR
Page No: 44

Page No: 45
5. STATE CHART DIAGRAM:

Page No: 46

Page No: 47
9. TECHNICAL SERVICE LAYER :
1. SQL> desc gate1;
Name Null? Type
----------------------------------------- -------- -------------

NAME VARCHAR2(10)
DOB NUMBER(15)
CITY VARCHAR2(5)
PINCODE NUMBER(7)
EMAILID VARCHAR2(16)
2. SQL> desc tnpsc;
Name Null? Type
----------------------------------------- -------- ---------------
NAME VARCHAR2(6)
AGE NUMBER(7)
CASTE VARCHAR2(8)
QUALIFICATION VARCHAR2(9)
ADDRESS VARCHAR2(8)
MAILID VARCHAR2(10)
3. SQL> desc bank;
Name Null? Type
----------------------------------------- -------- ---------------

BANK VARCHAR2(9)
CARD NUMBER(6)
4. SQL> desc repo;
Name Null? Type
----------------------------------------- -------- ---------------
NAME VARCHAR2(12)
ID NUMBER(7)
EXAM VARCHAR2(7)
Page No: 48
10. USER INTERFACE AND DOMAIN OBJECT LAYER:
FORM 1:

CODING:
Form2.Show
End Sub
End
End Sub

CODING:
Private Sub CAT_Click()
Form3.Show
End Sub
db.Open "exam", "scott", "tiger"
rs.Open "select *from gate1", db, 1, 2
End Sub
Private Sub GATE_Click()

Form3.Show
End Sub
Private Sub TNPSC_Click()
Form5.Show
End Sub
Page No: 50
FORM 3:

CODING:
Private Sub BACK_Click()
Form1.Show
End Sub
Private Sub CLEAR_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "

Text5.Text = " "
End Sub
rs.Open "select *from gate1", db, 1, 2
End Sub
Private Sub PAYFEE_Click()
Form4.Show
End Sub
Private Sub REGISTER_Click()
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs(2) = Text3.Text
Page No: 51
rs(3) = Text4.Text
rs(4) = Text5.Text
rs.Update
MsgBox "registered"
Form6.Show
End Sub
FORM 4:

CODING:
Form1.Show
End Sub
rs.Open "select *from bank", db, 1, 2
Combo1.AddItem ("HDFC")
Combo1.AddItem ("ICICI")

Combo1.AddItem ("SBI")
Combo1.AddItem ("IOB")
End Sub
Private Sub PAY_Click()
rs.AddNew
rs(0) = Combo1.Text
rs(1) = Text1.Text
rs.Update
Page No: 52
MsgBox "FEES PAID"
End Sub
FORM 5:

CODING:
Form1.Show
End Sub
Private Sub CLEAR_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "

End Sub
rs.Open "select *from tnpsc", db, 1, 2
Combo1.AddItem ("OC")
Combo1.AddItem ("BC")
Combo1.AddItem ("MBC")
Combo1.AddItem ("SC/ST")
'Combo1.AddItem ("ST")
End Sub
Private Sub PAYFEE_Click()
Form4.Show
Page No: 53
End Sub
Private Sub REGISTER_Click()
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs(2) = Combo1.Text
rs(3) = Text3.Text
rs(4) = Text4.Text
rs(5) = Text5.Text
rs.Update

MsgBox "registered"
Form6.Show
End Sub
FORM 6:
CODING:
rs.Open "select *from repo", db, 1, 2

End Sub
Private Sub GENERATEREPORT_Click()
DataReport1.Show
End Sub
Result:
Page No: 54
Thus the online Exam Registration has done successfully.
Ex No: BOOK BANK
Date:
AIM:
To develop a project for a Book Bank system and identify the usecase and draw UML diagrams.
PROBLEM STATEMENT:
The Book Bank is a place where there is a huge collection of books which are available for
students on the semester basis. The Book Bank system must have options for new membership.
It should contain options for renewing the membership.It contains options for an amount of fees
to be refunded. The member can access the Book Bank using the given reference number. A
particular book can be searched by its Book name or version or if the sssauthor name is known.
SOFTWARE REQUIREMENT SPECIFICATION:
2.1 INTRODUCTION:

Book Bank is an interface between the user and the manager responsible for issue of books
2.2 PURPOSE:
If a person who is already a member wants a book he can login with his member ID and request
for the particular books,tshen he can come and get books.
2.3 SCOPE:
 The system provides online interface to the number where he can select the necessary
books.
 The member register with Book Bank and receives the membership ID
 With the ID he/she can know about what books are to be taken.
2.4 DEFINITIONS,ACRONYMS & ABBREVIATIONS:
MANAGER:
one who supervises the member request and the queries.
MEMBER:
Refers to the student who has joined the Book Bank.
HTTP: Hypertext Transfer Protocol
2.5 REFERENCE:
http://en.wikipedia.org
http://annabookbank/registration.in
2.6 TOOLS TO BE USED:
Visual Basic 6.0 and Oracle
2.7. OVERVIEW:
SRS include two sections Overall descriptions and Specification
2.8 OVERALL DESCRIPTION:
Book Bank system acts an interface between user and manager. The interface is made easier but
at the same time does not risk the data of the member to be revealed to other.

Front end client:the member and manger interface are built using VB and Oracle
Back end: Oracle
2.8.3 HARDWARE REQUIREMENT:
A computer with basic feature can be used to operate.
2.8.4 SYSTEM FUNCTION:
Page No: 55
 Members gets registered with the Book Bank.
 Specify the books the member want.
 Can pay via debit/credit card.
 Can check if the book is available or not.
2.8.5 USER CHARACTERISTICS:
MEMBER:
They are the people who wants to take the book from the Book Bank.
MANAGER:
He is the person who examines the member request and reply to the member. He can approve the
member to take the books.
2.8.6 CONSTRAINTS:
Member requires computer to submit his/her request to the books.
2.9 SPECIFICATION REQUIREMENTS:
MEMBER:
 Login
 Logout
 Register with Book Bank
 Know what book is available
 Provide feedback
 Appoint date to get books
 Request for extra books

MANAGER:
 Login
 Logout
 Specify data to collect books
 Monitor queries of members
 Specify data to uncollected books
2.10 SUPPLEMENTARY REQUIREMENTS:
24*7 Availability Instant reply from manager via mail and sms.
2.11 SOFTWARE SYSTEM ATTRIBUTES:
Reliability: System is highly reliable and must work without any defect.
Availability: The Book Bank must be available at any time.

Page No: 56
UML DIAGRAMS
1. USECASE DIAGRAM:

2.1 New Member:
2.2 Book Issue:

Page No: 59

Page No: 60
4.2 COLLABORATION DIAGRAM:
Page No: 61

Page No: 62

Page No: 63
9. TECHNICAL SERVICE LAYER:
SQL> select * from bb;

NAME COLLEGE DEPT PHONENO ID
---------- ---------------- ---------- --------------- ----------
Parthi NPSB cse 933338377 100
Hyder NPSB cse 933338378 101
Gajpat NPSB cse 933338379 102
Felix NPSB cse 933338347 103
Dines NPSB cse 933338343 104
Anand NPSB cse 933338332 105
Karthi NPSB cse 933338372 106
7 rows selected.
SQL> select * from ba;
BOOKNAME PUBLICATION EDITION
------------------ -------------------- -------------
OOAD Technical 3
PCD Technical 4

FORM DESIGN:
Page No: 64
CODING:
Form1:
Existing Member:
Dim s As Integer
Form2.Show
Form1.Hide

End Sub
s = InputBox("Enter the member id")
rs.MoveFirst
Do
If rs(4) = Val(s) Then
Form4.Show
Exit Sub
Else
rs.MoveNext
End If
Loop
While Not rs.EOF
MsgBox "Account not found"
Wend
End Sub
End
End Sub
db.Open "hyd", "scott", "tiger"
rs.Open "select * from bb", db, 1, 2
End Sub

New Member:
Dim a As Integer
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text
rs(2) = Text3.Text
rs(3) = Text5.Text
rs(4) = Val(a)
rs.Update
Form6.Text1.Text = Val(a)
Page No: 66
a = a + 1
Form6.Show
Form2.Hide
End Sub

a = 100
db.Open "hyd", "scott", "tiger"
rs.Open "select * from bb", db, 1, 2
End Sub
Form 3:
Book Issue:
Dim db1 As New ADODB.Connection
rs.AddNew
rs(0) = Text1.Text
rs(1) = Text2.Text

rs(2) = Text3.Text
rs.Update
MsgBox "BOOK is ISSUED"
End Sub
Form1.Show
End Sub
db1.Open "dbase", "scott", "tiger"
rs.Open "select * from ba", db1, 1, 2
End Sub
Page No: 67
RESULT:
Thus the project for a Book Bank system is done successfully
EX.NO. ONLINE RAILWAY RESERVATION SYSTEM
DATE:
AIM: To develop a project for a Online Railway Reservation system and identify the usecase
and draW UML diagrams.
PROBLEM DFINITION:

To design a system to reserve railway tickets online. To provide user with the ability to book and
cancel railway ticket online and provide the user with the facility to check their PNR status.
Ticket reservation details are stored in database can be retrieved at any time. This provides user
to check the availability of tickets from their home.
2.1 Introduction:
It is the requirement between the traveler and ticket issue on lie.
2.2 Purpose: The traveler can book the tickets for any number of members online and pay the
money.
2.3 Scope:
 The system provides an online interface to the traveler where he can select the necessary
amounts of tickets.
 The traveler can register the number of ticket and get the PNR no.
 With the PNR no he/she can know whether tickets are confirmed.
2.4 Definition acronyms and abbreviation:
Traveler or who books or cancel the tickets.
Register Database: one who update the database
Booking clerk: One who which gives the PNR no and books
Html: Hypertext markup language
HTTP: Hypertext transfer protocol
2.5 Reference:
http://en_wikipedia.org
http://w3schools.in
2.6 Tools to be used:
VB Oracle
2.7 Overview:
SRS include two sections, overall description and specification.

2.7.1 Overall description:
2.7.1.1 Product description:
Online railway reservation act as a interface between traveler and the interface is made easier but
at the same time does not risk the data of the traveler to be revealed to other.
2.7.1.2 Software Interface:
Front end VB Backend oracle is used.
2.7.1.3 Hardware Requirement:
A computer with basics feature can be used to operate.
2..7.1.4 System Function:
 Traveler can register on online
 Specify the designation name.
 Can pay for online using credit or debit card.
 Can check the status of the ticket using the PNR no.
2.7.1.5 User Characteristics:
 Traveler: They are the people who want to book the ticket.
Page No: 68
 Booking Clerk: He is the person who exami
 nes Travelers request and reply to user. He can approve or request the ticket claimed.
2.7.1.6 Constraints:
Traveler requires a computer to submit his/her request for a ticket
2.7.2Specification Requirement:
Traveler:
 Check Availability
 Check Status
 Check Ticket
 Book Tickets
Booking Clerk:

 Issue ticket by providing the ticket number and PNR number
 Specify the number of trains available
2.8 Supplementary Requirement:
24 * 7Availability.
Instant reply from manager: mail message and Sms.
2.9 Software System Attributes:
Reliability: System is highly reliable and must work without any defect.
Availability: The Booking clerk must be available at any time

Page No: 70
2.ACTIVITY DIAGRAMS
2.1 Train Availability

2.2 CANCELLATION
3.CLASS DIAGRAM

Page No: 72
4.INTERACTION DIAGRAM
4.1.0.SEQUENCE DIAGRAM
4. 1.1 Train Availability

Page No: 74
5.COLLABORATION DIAGRAM
5.1Train Availability

7.LOGICAL ARCHITECTURE DIAGRAM

8.COMPONENT DIAGRAM:
9.DEPLOYMENT DIAGRAM:

Page No: 78
1. TECHNICAL SERVICE LAYER
SQL> desc sd;
Name Null?
----------------------------------------- -------- -----------
SRC VARCHAR2(7)
DOJ DATE

NAME VARCHAR2(7)
AGE NUMBER(4)
GEN VARCHAR2(4)
CARD_NUM NUMBER(4)
PNRG NUMBER(8)
DEST VARCHAR2(7)
SEAT NUMBER(3)
HOME.FRM

Page No: 79
CODING:
Private Sub AVAIL_Click()
HOME.Hide
F1.Show
End Sub
Private Sub EXIT_Click()

HOME.Hide
End Sub
Private Sub PNR_Click()
HOME.Hide
PNRS.Show
End Sub
Private Sub CANCEL_Click()
CC.Show
End Sub
F1.FRM

CODING:
F1.Hide
rs.AddNew
Page No: 80
rs(0) = Text1.Text
rs(7) = Text2.Text
rs(1) = Text3.Text
rs.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
F2.Show
End Sub
db.Open "rlwy", "scott", "tiger"
rs.Open "select * from sd", db, 1, adLockOptimistic
End Sub
F2.FRM

CODING:
Dim a As Integer
Dim b As Integer
Dim s1 As Integer
Dim s2 As Integer
F3.Show
End Sub

Private Sub book_Click()
Page No: 81
Text1.Text = Val(Text1.Text) - 1
a = Val(Text1.Text)
Else: Text1.Text = Val(Text1.Text) - 1
b = Val(Text1.Text)
End If
F3.Text2.Text = 160
Else: F3.Text2.Text = 180
End If
F2.Hide
F3.Show
End Sub
HOME.Show
End Sub
Text1.Text = s1
End Sub

Text1.Text = s2
End Sub
s1 = 100
s2 = 150
End Sub

CODING:
Dim pn As Long
Dim seat As Integer
rs.AddNew
seat = 14
pn = 4398451

If Text1.Text < 16 Then
MsgBox "invalid card number"
End If
rs(4) = Combo1.Text
rs(6) = Val(pn)
rs(2) = Text3.Text
rs(3) = Val(Text5.Text)
rs.Update
Text3.Text = ""
Text5.Text = ""
Text1.Text = ""
F4.Text1.Text = rs(6)
Page No: 83
F4.Text4.Text = "s1"
F4.Text5.Text = seat + 1
rs.Update
F4.Show
End Sub
Private Sub F3_Click()
HOME.Show

End Sub
Combo1.Clear
Combo1.AddItem ("M")
Combo1.AddItem ("F")
End Sub
F4.FRM
CODING:

Private Sub F4_Click()
HOME.Show
End Sub
Page No: 84
CC.FRM

CODING:
F2.Text1.Text = Val(Text1.Text)
MsgBox "TICKET CANCELLED"
End Sub
HOME.Show
CC.Hide
End Sub

CODING:
MsgBox " Ticket Confirmed !! "
End Sub
HOME.Show
PNRS.Hide
End Sub

RESULT:
Page No: 86
Thus the project for a Online Railway Reservation system is done successfully
Ex.no: FOREIGN TRADING SYSTEM
Date:
AIM: To create a system through which the user can import and export the items.
PROBLEM STATEMENT:
The user logs in to the system for trading the items. First the user see the country’s details to
import and export items. The user can add the exported items, delete items and search the item
and update the database.
2.1INTRODUCTION:
There is a trading system in which the users import/export the items.
2.1.1 PURPOSE:

The user can either import/export the items.
2.1.2 SCOPE:
The system provides a foreign trading interface to the user where they can import/export the
items.
2.1.3 DEFINITIONS, ACRONYMS AND ABBREVIATIONS:
USER:
One who view the country details and import/export the items.
2.1.4 REFERENCES:
Http://en.wikipedia.org
Http://trading.in
2.1.5 TECHNOLOGIES AND TOOLS TO BE USED:
Microsoft visual basic and oracle.
2.1.6 OVERVIEW:
2.2.OVERALL DESCRIPTION:
Foreign trading system acts as an interface to the user.
Page No: 87
Front end client- Microsoft-VB back end client-oracle.
2.2.3 HARDWARE REQUIREMENTS:
2.2.4 SYSTEM FUNCTIONS:

o The user logins
o The user views the country details
o The user import/export the items.
USER: Views the country details and import/export the items.
2.2.6 CONSTRAINTS:
The user should either import or export the items.
2.2.7 ASSUMPTION AND DEPENDENCIES:
The user should know the information about the trading.
2.3SPECIFICATION REQUIERMENT:
USER:
 Login
 Logout
 View the country details
 Import/export the items
2.3.1 SOFTWARE SYSTEM ARCHITECTURE:
RELIABILITY:
System is high reliable and must work without any defect.
AVAILABILITY
All the import/export details should be available.

Page No: 88
UML DIAGRAMS
1.USECASE DIAGRAM:

Page No: 89

3. CLASS DIAGRAM:
LOGIN SCENARIO

Page No: 91
4.2 ADD ITEM SCENARIO

Page No: 92
4.3 DELETE ITEM SCENARIO:

Page No: 93
4.4 SEARCH ITEM SCENARIO

5.COLLABRATION DIAGRAM:
5.1 LOGIN SCENARIO
5.2 ADDITEM SCENARIO

Page No: 95
5.3 DELETE ITEM SCENARIO
5.4 SEARCH ITEM SCENARIO
Page No: 96

7.LOGICAL ARCHITECTURE:
Page No: 98

9.. DEPLOYMENT DIAGRAM:
Page No: 99

RESULT:
Page No: 101
Thus the foreign trading system has done successfully.
Ex.no: PASSPORT AUTOMATION SYSTEM
Date:
AIM:
To develop a project for a passport automation system and identify the use case diagrams.
1. 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 online registration
form(With details such as name , address, etc). 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. This forms the first and the foremost step in the processing
of the passport application. The application is then processed manually based on the report given
by the system and any forfeiting identified can make the applicant liable to penalty as per the
law. The system forwards the necessary details to the police for its separate verification whose
report is then presented to the administrator. 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 has been met , the original information is added to the
database and the passport is sent to the applicant.

2. SOFTWARE REQUIREMENT SPECIFICATION:
Description:
2.1 INTRODUCTION:
Passport automation system is an interface between the applicant and the authority responsible
for the issue of passport. It aims at proving the efficiency in the issue of passport and reduce the
complexities involved in it to the maximum possible extent.
2.1.1 PURPOSE:
If 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.
2.1.2 SCOPE:
 The system provides an online interface to the user where they can fill in their personal
details and submit the necessary documents.
 Provide a communication platform between the applicant and the administrator.
 User / Applicants will come to know their status of application and the date in which they
must subject themselves for manual document verification.
2.1.3 DEFINITIONS,ACRONYMS AND ABBREVIATIONS:
 ADMINISTRATOR - Refer to the super user who is the central authority who has been
vested with the privilege to manage the entire system. It can be any higher official in the
regional passport office of ministry of external affairs.
 APPLICANTS – One who wishes to obtain the passport.
 PAS – Refers to this passport automation system.

Page No: 102
2.1.4 REFERENCE:
IEEE software requirement specification format.
2.1.5 TOOLS TO BE USED:
VB , ORACLE ,RATIONAL ROSE.
2.1.6 OVERVIEW:
SRS includes two sections overall description and specific requirements – overall
description will describe major roll of the system components and interconnections. Specific
requirements will describe rolls and functions of the actors.
2.2.1 PRODUCT PERSPECTIVE
The PAS act 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 minimize the time duration in which the user receives
the passport .
2. 2.2 SOFTWARE INTERFACE:

 FRONT END CLIENT – The applicant and the administrator online interface is built
using visual basic.
 BACK END – Oracle database
2. 2.3 HARDWARE REQUIREMENT:
A computers with basic features can be used to operate.
2. 2.4 SYSTEM FUNCTION:
 Secure registration of information by the applicants.
 Schedule the applicants an appointment for manual verification of original documents
 Panel for passport application status display by the administrator
 SMS and MAIL updates to the applicants by the administrator
 Administrator can generate reports from the information and is the only authorized
personnel to add the eligible application information to the database.
 APPLICANT – They are the people who desires to obtain the passport and submit the
information to the database.
 ADMINISTRATOR – He has the certain privileges to add the passport status and to
approve the issue of passport. He may contain a group of persons under him to verify the
documents and give suggestions whether or not to approve the dispatch of passport.
 POLICE – He is the person who upon receiving intimation from the PAS,perform a
personal verification of the applicant and see if he has any criminal case against him
before or at present.He has been vetoed with the power to decline an application by
suggesting it to the administrator if he finds any discrepancy with the applicant .He
communicates via this PAS.
Page No: 103


2.2.6 CONSTRAINTS
 The applicant require a computer to submit their information.
 Although the security is given high importance ,there is always a chance of intrusion in
the web world which requires constant monitoring.
 The user has to be careful while submitting the information.Much care is required.
2.2.7 ASSUMPTIONS AND DEPENDENCIES
 The Applicants and Administrator must have basic knowledge of computers and English
Language.
 The applicants may be required to scan the documents and send.

Page No:104
1.USE CASE DIAGRAM
2.ACTIVITY DIAGRAM
2.1 New Registration

Page No: 106
3. CLASS DIAGRAM
1. SEQUENCE DIAGRAM
NEW REGISTRATION

4.3 ADMIN PANEL
Page No: 108
5.COLLABORATION DIAGRAM:
NEW REGISTRATION

ADMIN PANEL
6.STATE CHART DIAGRAM

Page No: 110
7.LOGICALARCHITECTURE:

8.COMPONENT DIAGRAM
9. DEPLOYMENT DIAGRAM :

Page No: 112
9. USER INTERFACE LAYER

RESULT:
Thus, the Passport automation system has done successfully.
Page No: 114
Ex.no:
Date: RECRUIMENT SYSTEM
AIM:
To create a system through which the candidates get recruited based on certain criterias.
1.PROBLEM STATEMENT:
The recruitment system collects the details of the candidates under going recruitment process and
checks whether they satisfy eligibility criteria. The system then matches the best job for the
candidate is being employed for any of the best job suggested by the system after interview.
2.SOFTWARE REQUIREMENT SPECIFICATION:
2.1 INTRODUCTION:
2.1.1 PURPOSE:
The purpose of the project is to simplify the process of recruiting employee in any organization
2.1.2 SCOPE OF THE PROJECT:

To make the process of recruitment.
2.1.3 DOCUMENT CONVERSATION:
To keep the candidate details and performance in the recruitment process.
2.1.4 REFERENCES:
http://en//wikipedia.org.
http://recruitment//wikipedia.in
2.1.5CONSTRAINTS:
Exiting recruitment system are been manually formulated and it is a time consuming task.
2.2 OVERALL DESCRIPTION:
2.2.1 PRODUCT PERSPECTIVES:
 Organizing recruitment training for the fresh candidates and
categorizing them.
 Checking eligibility and matching jobs.
2.2.2 USER INTERFACE:
Visual studio6.0 under windows platform connected with oracle database.
2.2.3 HARDWARE INTERFACE:
LAN connection for usage in an internal network.
2.2.4 SOFWARE INTERFACE:
Provider: MSDA 1 for connecting oracle database.
2.2.5 PRODUCT FEATURES:
 Easily categorizing the candidates based on their qualification.
 Maintain all details about fresh candidates.

2.2.6 USER CLASSES AND CHARACTERISTICS:
Various users are the fresh candidates entering into recruitment process
administrator and human resource manager.
2.2.7 DESIGN AND IMPLEMENTAION OF CONSTRAINTS:
 Each candidate details must to be maintained separately.
 HRM can take control over fresh candidates.
2.2.8 ASSUMPTION AND DEPENDENCIES:
No such assumption and dependencies thus each candidate to processed separately
Page No: 115
1.USECASE DIAGRAM:

Page No: 116
2.ACTIVITY DIAGRAM:

Page No: 118
4.INTERACTION DIAGRAM:

Page No: 119
5.COLLABRATION DIAGRAM:

Page No: 120
6.STATE CHART DIAGRAM:

Page No: 121
7.LOGICAL ARCHITECTURE:

9. DEPLOYMENT DIAGRAM
Page No: 123

10.USER INTERFACE LAYER
Page No: 124

RESULT:
Page No: 126
Thus, the recruitment system is done successfully.
Ex.NO: E-BOOK MANAGEMENT
Date:
AIM
To create a system through which a user can get the book online.
1. PROBLEM DEFINITION
E-book management system is one of the widely used system in day today life. This system is
mostly used in the bookstores. The system has a main page with user login. Create a new user,
browse books page. Every new user has to sign up before using the system. In the signup page
the user has specification his address for delivery of books and also he has to get for any one
membership scheme and it stored in database.
The browser by book page enables user to find books by its category. Customer and any other
purchase orders all to above information are stored in the database. Finally, the payment is made
through credit card by receiving the credit card number form user.
2. SOFTWARE REQUIREMENT SPECIFICATION (SRS)
2.1.0 INRODUCTION
It is the requirement between customer and E-book requirement.
2.1.1 PURPOSE

If a person who is already a member wants to buy a book, he can login with his ID and buy
the books online. A new user has to be signup and then login to buy books.
2.1.2 SCOPE
The system provides an online interface where the user can select the desired book. The user has
to login with the E-book store else he has to signup with to required login id he can browse for
the book.
2.1.3 DEFINITION, ACRONYMS AND ABBREVIATIONS
Customer - also refers to user who register with the book-store.
Employee- member of book store.
Admin- who manages the DB.
HTTP- Hyper Text Transfer Protocol
2.1.4 REFERENCE
http://en.wikipedia.org.
http://annabookstore/register.in.
2.1.5 TOOLS TO BE USED
Microsoft visual basic, oracle.
2.1.6 OVERVIEW
SRS includes two sections overall description and specification.
2.2.0 OVERALL DESCRIPTION

2.2.1 PRODUCT PERSPECTIVE
E-book management system act as an interface between the user and management. The
interface is made easier but at some time, doesn’t risk the data if the member is to be revolved to
other.
2.2.2 SOFTWARE INTERFACE
Page No: 127
The front end user and management interface are built using VB and Oracle.
Back end: Oracle
Front end: VB
2.2.3 HARDWARE REQUIREMENT
A computer with basic feature can be used to operate.
2.2.4 SYTEM FUNCTION
User gets registration with basic state.
 Specify the membership.
 Can pay via debit or credit card.
 Can browse for books and its availability.
2.2.5 USER CHARACTERISTICS
Customer: They are the people who want to buy book from book store.
Employee: Work under the state managing the catalog, customer, request and to purchase order.
2.2.6 CONSTRAINTS
 Member request a computer to submit his/her desired book.

2.3 SPECIFICATION REQUIREMENT
Member: login
Logout
 Register with book store.
 Browse for desired books.
 Provide necessary feedback.
EMPLOYEE
 Manages the item catalog.
 Manages customer.
 Create purchased order.
 Update database.
2.3.1 SUPPLEMENTARY REQUIREMENTS
 24*7 availability.
 Instant reply from employee on availability book.
2.3.2SOFTWARE SYSTEM ATTRIBUTES
Reliability: system is light reliable and must move without default.
Availability: The book store.

Page No: 128
1. USECASE DIAGRAM:

Page No: 129
2.ACTIVITY DIAGRAM:
CUSTOMER:

Page No: 131
4INTERACTION DIAGRAM:
4.1 COLLABARATION DIAGRAM:

Page No: 133

6. LOGICAL ARCHITECTURE DIAGRAM:

Page No: 136
10.USER INTERFACE LAYER

Page No: 139
Thus the E-Book management system has done successfully.
Ex.No.: SOFTWARE PERSONAL MANAGEMENT SYSTEM
Date :
AIM:
To create a system through which the software professional management can be managed.
1. PROBLEM DEFINITION:
Software professional management system is few people who want to better organize. Their
employers information and assigned there resources. It will be useful for them to feel that it can
achieve more and to better manage their task.
Various software professional who can utilize this system are resources managers, contract
managers, directors, project manager, team leader and administration.
2. SOFTWARE REQUIERMENT SPECIFICATION:
1. INTRODUCTION:
2.1.1 PURPOSE:
The purpose of this project is for ease maintenance of software professional in an IT and ITES
organization.
2. SCOPE OF PROJECT:
To make a proper communication between employees and to maintain the security of company
resources.
2. DOCUMENT CONVENTIONS:
To maintain the privilege and hierarchy of the employee in the company.

2.1.4 REFERENCES:
Existing personal management system personal information management system salary
processing system and integrating module systems.
2. OVERALL DESCRIPTION:
1. PRODUCT PERSPECTIVE:
 Organizing employee’s employer’s information and attendance.
 Managing events scheduled and project workflow.
 Tracking employer’s task and completion of project.
 Making decisions for any new project.
1. PRODUCT FEATURES:
 Work assignment and reassignment.
 Attendance maintenance and absence balancing.
 Salary processing according to attendance.
 Managing of teams.
 Feature notices.
3. USER CLASSES AND CHARACTERISTICS:
Various users present are project manager, human resource manager, team leader administrator.
The other sub category of programmer, analyst, tester system.
4. DESIGN AND IMPLEMENTATION CONSTRAINT:
Each user should have separate access ID. The privilege should be based on the user.
Administrator and employee’s information and employer’s information must be maintained
separately.
5. ASSUMPTION AND DEPENDENCIES:
The application must not crash or any unavailability of data during retrieval attendance is
dependent of employee’s login and logout. Salary is dependent on employer’s attendance.

Page No: 140
2. SYSTEM FEATURES:
1. CLIENT SYSTEM FEATURES:
A minimum of real processor, family processor gigabytes of RAM with sufficient disk space.
2. SERVER SYSTEM FEATURES:
A minimum of blode-3 category servers with high performance query processing system.
2. EXTERNAL INTERFACE REQUIREMENT;
1. USER INTERFACE:
Visual studios 6.0 under window platform connected with oracle database.
2. HARDWARE INTERFACE:
LAN connection for usage in an internal network.
3. SOFTWARE INTERFACE:
Provider: MS: D ORA.1 for database connecting to oracle.
2. OTHER NON-FUNCTIONAL REQUIREMENTS:
1. SECURITY REQUIREMENT:
 Maintenance of admin and employers database separately
 Maintaining unique attributes of employee
 Access ID
 ID number.
2. SOFTWARE QUALITY ATTRIBUTES:

Simplified queries tester processing by simplified data manipulation.

Page No: 141
1.USE CASE DIAGRAM

Page No: 142
2.ACTIVITY DIAGRAM

Page No: 144
4.INTERACTION DIAGRAM
4.1 SEQUENCE DIAGRAM

5.COLLABORATION DIAGRAM
Page No: 146

Page No: 147
6. LOGICAL ARCHITECTURE DIAGRAM

Page No: 148
6. COMPONENT DIAGRAM

7. DEPLOYMENT DIAGRAM
Page No: 149
FORM & CODING:

HomeScreen
Dim conn As New ADODB.Connection
Private Sub AdminLogin_Click()
AdLogin.Show
HomeScreen.Hide
End Sub
empWin.Show
End Sub
conn.Open ("Provider=MSDAORA.1;password=tiger;User ID=scott;Persist Security
Info=False")

rs.Open "select * from swemp", conn, adOpenDynamic, adLockOptimistic
End Sub
Private Sub NewUser_Click()
NwUser.Show
HomeScreen.Hide
End Sub
Private Sub SignIn_Click()
Set rs = conn.Execute("select * from swemp where accid = '" & (UserName) & "'")
If rs.EOF Then
MsgBox "You are not a registered user.", vbOKOnly + vbExclamation, " User not resgistered."
ElseIf Password.Text <> rs(1) Then
MsgBox "Password is wrong!.", vbOKOnly + vbExclamation, "Re-enter Password."
Else
empWin.lblName.Caption = rs(2)
Page No: 150
empWin.usNme = UserName.Text
Unload Me
empWin.Show
End If
End Sub
Private Sub UserName_Change()
SignIn.Enabled = True

End Sub
New User
Dim sx As String
Dim dobb As String
Dim marry As String
Private Sub Adds_Change()
Pbr.Value = 10
End Sub
Private Sub Aoi_Change()

Pbr.Value = 65
End Sub
Private Sub Bg_Click()
Pbr.Value = 15
Page No: 151
End Sub
Private Sub Cancel_Click()
Unload Me
HomeScreen.Show
End Sub
Private Sub Check1_Click()
Submit.Enabled = True
End Sub
Private Sub Eas_Click()
UsrNme.Enabled = True
Pbr.Value = 95
End Sub
Private Sub Eca1_Change()
Pbr.Value = 56
End Sub
Private Sub Eca2_Change()
Pbr.Value = 58
End Sub

Private Sub Em_Change()
Pbr.Value = 23
End Sub
Private Sub Exit_Click()
Unload Me
HomeScreen.Show
End Sub
Private Sub Fie_Change()
Pbr.Value = 48
End Sub
conn.Open ("Provider=MSDAORA.1;password=whitman;User ID=system;Persist Security
Info=False")
End Sub
Private Sub Form_Terminate()
Unload Me
HomeScreen.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
Unload Me
HomeScreen.Show
End Sub

Private Sub Getaidps_Click()
If Eas.Text = "" Then
MsgBox "[Employed As] is required to get your Access Id and Password"
ElseIf UsrNme.Text = "" Then
MsgBox "Enter User name to continue."
Else
Page No: 152
Set rs = conn.Execute("select count(distinct AccId) from swemp")
Dim x As String
Dim x1 As Integer
x1 = Str(rs.Fields(0)) + 1
idNo.Text = x1
AccId.Text = UsrNme.Text + "-" + Eas.Text
x = Str(Int(Asc(UsrNme.Text) * Rnd + 1) * Int(Asc(AccId.Text) * Rnd + 1))
Pass.Text = Trim(x)
Check1.Enabled = True
Getaidps.Enabled = False
End If
End Sub
Private Sub Gra_Click()
Pbr.Value = 45
End Sub
Private Sub IsAvl_Click()

Dim nm As String
If UsrNme.Text = "" Then
MsgBox "Enter an User Name to Register"
lblAvl.Caption = "No"
Else
nm = UsrNme.Text + "-" + Eas.Text
Set rs = conn.Execute("select * from swemp where AccId = '" & (nm) & "'")
If rs.EOF Then
lblAvl.Caption = "Yes"
Getaidps.Enabled = True
Else
lblAvl.Caption = "No"
Getaidps.Enabled = False
Check1.Enabled = False
End If
End If
End Sub
Private Sub LL_Change()
Pbr.Value = 35
End Sub
Private Sub Major_Change()
Pbr.Value = 52
End Sub

Private Sub Mob_Change()
Pbr.Value = 30
End Sub
Private Sub Nme_Change()
Pbr.Value = 5
End Sub
Private Sub optNo_Click()
marry = "No"
End Sub
Private Sub optSexF_Click(Index As Integer)
Page No: 153
sx = "Female"
End Sub
Private Sub optSexM_Click(Index As Integer)
sx = "Male"
End Sub
Private Sub optYes_Click()
marry = "Yes"
End Sub
Private Sub Pc_Change()
Pbr.Value = 75
End Sub

Private Sub Pdes_Change()
Pbr.Value = 85
End Sub
Private Sub Pn_Change()
Pbr.Value = 20
End Sub
Private Sub Sal_Change()
Eas.Enabled = True
Pbr.Value = 90
End Sub
Private Sub skills_Change()
Pbr.Value = 70
End Sub
Private Sub Submit_Click()
If Check1.Value = 1 Then
dobb = dy.Text + "-" + mn.Text + "-" + yer.Text
Set rs = conn.Execute("insert into swemp values('" & (AccId) & "','" & (Pass) & "','" & (Nme) &
"','" & (Adds) & "','" & (sx) & "','" & (dobb) & "','" & (marry) & "','" & (Bg) & "','" & (Pn) & "','"
& (Em) & "','" & (Yoe) & "','" & (Mob) & "','" & (LL) & "','" & (Gra) & "','" & (Fie) & "','" &
(Major) & "','" & (Eca1) & "','" & (Eca2) & "','" & (Aoi) & "','" & (skills) & "','" & (Pc) & "','" &
(Pdes) & "','" & (Sal) & "','" & ("0") & "','" & (Eas) & "','" & (idNo) & "')")
MsgBox "Registed Sucessfully."
empWin.lblName.Caption = Nme.Text
empWin.lblDesig.Caption = Eas.Text
empWin.lblidNo.Caption = idNo.Text

empWin.usNme.Text = AccId.Text
empWin.Show
empWin.newusr
Unload Me
Else
MsgBox "Please agree to submit your details and then continue.", vbOKOnly + vbExclamation,
"Submit not accepted"
End If
End Sub
Private Sub Timer1_Timer()
Page No: 154
Pbr.Value = Pbr.Value + 5
If Pbr.Value >= 100 Then Timer1.Enabled = False
End Sub
Private Sub UsrNme_Click()
Pbr.Value = 100
IsAvl.Enabled = True
End Sub
Private Sub Yoe_Click()
Pbr.Value = 26
End Sub
AdLog

Unload Me
HomeScreen.Show
End Sub
Info=False")
End Sub
conn.Close
End Sub
Private Sub Login_Click()
Set rs = conn.Execute("select * from spmsad where userid = '" & (UsName) & "'")

If rs.EOF Then
MsgBox "You are not a Administrator.", vbOKOnly + vbExclamation, " You are not a
Administrator. Login as employee or register your profile."
ElseIf Pass.Text <> rs(1) Then
MsgBox "Password is wrong!.", vbOKOnly + vbExclamation, "Re-enter Password."
Else
Page No: 155
AdWin.lblAdName.Caption = rs(0)
Unload Me
Unload HomeScreen
AdWin.Show
End If
End Sub
AdWin

Dim empNmSel As String
Private Sub assSal_Click()
If assSalAmt.Text = "" Then
MsgBox "Enter a salary amount and then continue", vbExclamation, "Note"
Else
Set rs = conn.Execute("update swemp set salary = ('" & (assSalAmt) & "') where accid = ('" &
(empNmSel) & "')")
lblAss.Visible = False
assSalAmt.Visible = False

assSal.Visible = False
assSalAmt.Text = ""
MsgBox "Salary is assigned"
End If
Page No: 156
End Sub
Private Sub empNameSel_Click()
empNmSel = empNameSel.Text
Set rs = conn.Execute("select name, id, salary from swemp where accid = ('" & (empNmSel) &
"')")
If rs(2) = "0" Then
lblAss.Visible = True
assSalAmt.Visible = True
assSal.Visible = True
vieSalary.Enabled = False
ElseIf rs(2) <> "0" Then
lblAss.Visible = False
assSalAmt.Visible = False
assSal.Visible = False
vieSalary.Enabled = True
End If
lblempName.Caption = rs(0)
lblidNo.Caption = rs(1)

End Sub
Private Sub empPassCng_Click()
If empNmSel = "" Then
MsgBox "Select an employee and then proceed", vbOKOnly, "Note"
Else
PassChange.lblUsr.Caption = lblAdName.Caption
PassChange.UsrName.Enabled = False
PassChange.oldPass.Enabled = False
Set rs = conn.Execute("select * from swemp where accid = ('" & (empNmSel) & "')")
PassChange.UsrName.Text = rs(0)
PassChange.oldPass.PasswordChar = ""
PassChange.oldPass.Text = rs(1)
PassChange.Show
End If
End Sub
Private Sub empProEdit_Click()
If empNameSel = "" Then
MsgBox "Select an employee"
Else
empProf.Show
empProf.adempsel
empProf.lblLogInUser.Caption = lblAdName.Caption
empProf.lblempAccId.Caption = empNmSel

empProf.lblId.Caption = lblidNo.Caption
End If
End Sub
Unload Me
End Sub
Page No: 157
Private Sub Form_Load ()
Info=False")
Set rs = conn.Execute("select * from swemp")
If rs.EOF Then
ElseIf rs.BOF Then
Else
rs.MoveFirst
Do
empNameSel.AddItem (rs(0))
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = conn.Execute("select distinct evename from event")
If rs.EOF Then

ElseIf rs.BOF Then
Else
rs.MoveFirst
Do
oldEvents.AddItem (rs(0))
rs.MoveNext
Loop Until rs.EOF
End If
End Sub
conn.Close
HomeScreen.Show
End Sub
Private Sub oldEvents_Click()
Dim et As String
If oldEvents.Text = "New Event" Then
EveName.Text = ""
eventCon.Text = ""
Else
et = oldEvents.Text
Set rs = conn.Execute("select * from event where evename = ('" & (et) & "')")
EveName.Text = rs(0)
eventCon.Text = rs(1)

End If
End Sub
Private Sub Post_Click()
If EveName.Text = "" Then
MsgBox "Enter a event name"
ElseIf eventCon.Text = "" Then
MsgBox "Enter the content for the event: " + EveName, vbInformation, "Note"
Page No: 158
Else
Set rs = conn.Execute("insert into event values('" & (EveName) & "','" & (eventCon) & "','" &
(lblTime(1).Caption) & "','" & (lblTime(0).Caption) & "')")
MsgBox "Event placed on the board"
oldEvents.AddItem (EveName)
EveName.Text = ""
eventCon.Text = ""
End If
End Sub
Private Sub rmPost_Click()
If oldEvents.Text = "" Then
MsgBox "Select an event to remove"
ElseIf oldEvents.Text = "New Event" Then
MsgBox "Select an event to remove"
Else

Set rs = conn.Execute("delete from event where evename = ('" & (EveName) & "')")
oldEvents.RemoveItem (oldEvents.ListIndex)
EveName.Text = ""
eventCon.Text = ""
MsgBox "Event is removed from the board"
End If
End Sub
lblTime(1).Caption = Format(Now, "dd MMM yyyy")
lblTime(0).Caption = Format(Now, "h:mm ss ampm")
End Sub
Private Sub vieAtt_Click()
attEmp.lblAdName.Caption = lblAdName.Caption
attEmp.empnm.Text = empNmSel
attEmp.lblempName.Caption = empNmSel
attEmp.Show
End Sub
Private Sub vieSalary_Click()
salProcess.empName.Caption = lblempName.Caption
salProcess.lblidnoo.Caption = lblidNo.Caption
salProcess.Show
End Sub

Dim dy As Date
Dim sItime, sOtime, sMonth, sDay, sYr As String
Dim time As String
Function newusr()
Set rs = conn.Execute("select * from swemp where accid=('" & (NwUser.AccId) & "')")
Call logon
End Function
Function logon()
If rs(24) = "HR" Then
lblSelMem.Visible = True

selMem.Visible = True
vieAtt.Visible = True
AssWork.Enabled = False
ElseIf rs(24) = "PM" Then
AssignWork.Visible = True
lblAssWork.Visible = True
ElseIf rs(24) = "TL" Then
AssignWork.Visible = True
lblAssWork.Visible = True
Page No: 160
Else
AssWork.Enabled = False
lblAsgWork.Visible = True
lblAssignedWork.Visible = True
End If
End Function
Function logold()
Set rs = conn.Execute("select distinct wa from workass where accid = ('" &
(HomeScreen.UserName) & "')")

If rs.EOF Then
Else
rs.MoveFirst
Do
lblAssignedWork.Caption = rs(0)
rs.MoveNext
Loop Until rs.EOF
'RmWork.Enabled = False
End If
End Function
Function oldusr()
Set rs = conn.Execute("select * from swemp where accid=('" & (HomeScreen.UserName) & "')")
Call logon
Call logold
End Function
Function logout()
sOtime = Format(Now, "hh:mm")
sDay = Format(Now, "dd")
sMonth = Format(Now, "MMM")
sYr = Format(Now, "yyyy")
Set rs = conn.Execute("insert into empatt values('" & (usNme.Text) & "','" & (lblName.Caption)
& "','" & (sDay) & "','" & (sMonth) & "','" & (sYr) & "','" & (sItime) & "','" & (sOtime) & "')")
End Function
Private Sub AssWork_Click()

If selMem = "" Then
MsgBox "Select an employee to assign work"
ElseIf AssignWork = "" Then
MsgBox "Enter work to assig."
Else
Set rs = conn.Execute("insert into workass values (('" & (selMem) & "'),('" & (AssignWork) &
"'))")
MsgBox "Assigned work for your member", vbOKOnly
End If
End Sub
Private Sub edtProf_Click()
empProf.Show
empProf.empselfedit
empProf.lblLogInUser.Caption = lblName.Caption
Page No: 161
empProf.lblempAccId.Caption = usNme.Text
empProf.lblId.Caption = lblidNo.Caption
End Sub
Private Sub events_Click()
Dim et As String
et = events.Text
Set rs = conn.Execute("select * from event where evename = ('" & (et) & "')")
If rs.EOF Then

ElseIf rs.BOF Then
Else
EveName.Caption = rs(0)
EveBody.Caption = rs(1)
EveDate.Caption = rs(2)
eveTime.Caption = rs(3)
End If
End Sub
Info=False")
sItime = Format(Now, "hh:mm")
Set rs = conn.Execute("select distinct evename from event")
If rs.EOF Then
ElseIf rs.BOF Then
Else
rs.MoveFirst
Do
events.AddItem (rs(0))
rs.MoveNext
Loop Until rs.EOF
End If
Set rs = conn.Execute("select * from swemp")

If rs.EOF Then
ElseIf rs.BOF Then
Else
rs.MoveFirst
Do
selMem.AddItem (rs(0))
rs.MoveNext
Loop Until rs.EOF
End If
End Sub
conn.Close
HomeScreen.Show
End Sub
Page No: 162
Private Sub Lout_Click()
Call logout
Unload Me
HomeScreen.Show
End Sub
Private Sub PassChg_Click()
PassChange.lblUsr.Caption = lblName.Caption

PassChange.UsrName.Enabled = False
PassChange.UsrName.Text = usNme.Text
PassChange.Show
End Sub
lblTime(0).Caption = Format(Now, "dd MMM yyyy")
lblTime(1).Caption = Format(Now, "h:mm ss ampm")
End Sub
Private Sub vieAtt_Click()
attEmp.lblAdName.Caption = lblName.Caption
attEmp.empnm.Text = selMem.Text
attEmp.lblempName.Caption = selMem.Text
attEmp.Show
End Sub
Page No: 163

EmpProf
Dim sx As String
Dim marry As String
Function adempsel()
Set rs = conn.Execute("select * from swemp where accid = ('" & (AdWin.empNameSel) & "')")
Call userfill

End Function
Function empselfedit()
Set rs = conn.Execute("select * from swemp where accid = ('" & (empWin.usNme) & "')")
Call userfill
End Function
Function userfill()
rs.MoveFirst
Nme.Text = rs(2)
Adds.Text = rs(3)
If rs(4) = "Male" Then
optSexM(0).Value = True
sx = "Male"
Else
optSexF(1).Value = True
sx = "Female"
End If
Dob.Text = rs(5)
If rs(6) = "Yes" Then
optYes.Value = True
marry = "Yes"
Else
optNo.Value = True
marry = "No"

End If
Bg.Text = rs(7)
Pn.Text = rs(8)
Em.Text = rs(9)
Yoe.Text = rs(10)
Mob.Text = rs(11)
LL.Text = rs(12)
Gra.Text = rs(13)
Fie.Text = rs(14)
Major.Text = rs(15)
Eca1.Text = rs(16)
Eca2.Text = rs(17)
Aoi.Text = rs(18)
skills.Text = rs(19)
Page No: 164
Pc.Text = rs(20)
Pdes.Text = rs(21)
Sal.Text = rs(22)
If rs(23) = "0" Then
lblCsal.Caption = "Not yet assigned"
Else
lblCsal.Caption = rs(23)
End If

lblCdes.Caption = rs(24)
End Function
Function SaveProf()
Set rs = conn.Execute("update swemp set name = ('" & (Nme) & "'),address = ('" & (Adds) &
"'),sex = ('" & (sx) & "'),dob = ('" & (Dob) & "'),married = ('" & (marry) & "'),bg =('" & (Bg) &
"'),pno = ('" & (Pn) & "'),em =('" & (Em) & "'),yoe=('" & (Yoe) & "'),mob = ('" & (Mob) &
"'),ll=('" & (LL) & "'),gra=('" & (Gra) & "'),field=('" & (Fie) & "'),major=('" & (Major) &
"'),eca1=('" & (Eca1) & "'),eca2=('" & (Eca2) & "'),aoi=('" & (Aoi) & "'),skills=('" & (skills) &
"'),pc=('" & (Pc) & "'),des=('" & (Pdes) & "'),sal=('" & (Sal) & "')where accid = ('" &
(lblempAccId) & "')")
MsgBox "Profile is saved"
Unload Me
End Function
Unload Me
End Sub
Unload Me
End Sub
Info=False")
End Sub
conn.Close
End Sub

Private Sub optNo_Click()
marry = "No"
End Sub
Private Sub optSexF_Click(Index As Integer)
sx = "Female"
End Sub
Private Sub optSexM_Click(Index As Integer)
sx = "Male"
End Sub
Private Sub optYes_Click()
marry = "Yes"
End Sub
Private Sub Sav_Click()
Call SaveProf
End Sub
Private Sub Save_Click()
Call SaveProf
Page No: 165
End Sub
AttEmp

Private Sub Combo1_Click()
Set rs = conn.Execute("select count(distinct Day) from empatt where Month = ('" & (Combo1) &
"') and userid =('" & (empnm) & "')")
Dim x As String
x = rs.Fields(0)
lblworked.Caption = Trim(x)
End Sub
Unload Me
End Sub
Info=False")

rs.Open "select * from empatt", conn, adOpenDynamic, adLockOptimistic
Set rs = conn.Execute("select distinct month from empatt")
rs.MoveFirst
Do
Combo1.AddItem (rs(0))
rs.MoveNext
Loop Until rs.EOF
End Sub
Page No: 166
conn.Close
Unload Me
End Sub
PassChange

Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
Set rs = conn.Execute("select pass from swemp where accid = ('" & (UsrName) & "')")
If oldPass.Text <> rs(0) Then
MsgBox "Enter a current correct password."
ElseIf newPass.Text = "" Then
MsgBox "Enter a new password to change password."
Else
Set rs = conn.Execute("update swemp set pass = ('" & (newPass) & "') where accid = ('" &
(UsrName) & "')")
MsgBox "New password has been changed", vbOKOnly + vbInformation, "Note"
Unload Me

End If
End Sub
Info=False")
rs.Open ("select * from swemp"), conn, adOpenDynamic, adLockOptimistic
End Sub
conn.Close
End Sub
Page No: 167
SalProcess

Private Sub Da_Change()
lblDA.Caption = Val(lblPF) + Val(lblTax)
lblGA.Caption = rs(23) + Val(Da.Text) + Val(Ta.Text) + Val(lblHRA)
lblNetSal.Caption = Val(lblGA) - Val(lblDA)
End Sub
Unload Me
End Sub

Info=False")
Set rs = conn.Execute("select * from swemp where accid = ('" & (AdWin.empNameSel) & "')")
If rs.EOF Then
ElseIf rs.BOF Then
Else
lblBp.Caption = rs(23)
lblPF.Caption = rs(23) * 0.03
lblTax.Caption = rs(23) * 0.05
lblHRA.Caption = rs(23) * 0.07
Page No: 168
End If
End Sub
conn.Close
End Sub
Private Sub Ta_Change()

End Sub
RESULT :

Page No: 169
Thus the Software Personnel management system has done successfully.

Mca pro1 online

More Related Content

Similar to Mca pro1 online (20)

More from rameshvvv (8)

Recently uploaded (20)

Mca pro1 online