ARULMIGU MEENAKSHI AMMAN COLLEGE OFENGINEERING

VADAMAVANDAL – 604 410.

DEPARTMENT OF COMPUTER SCIENCE AND ENGINEERING

CCS356
OBJECT ORIENTED SOFTWWARE ENGINEERING

Name : ………………………
Register Number: ……………………………

Year & Branch: ……………………………

Semester : ……………………………

Academic Year: ……………………………

ARULMIGU MEENAKSHI AMMAN COLLEGE OF ENGINEERING
VADAMAVANDAL – 604 410.

CERTIFICATE
This is to Certify that the Bonafede record of the practical work done by ………………………………

Register Number .....................................of III Year B.E(COMPUTER SCIENCE ENGINNERING)

submitted for the award of B.E. Degree Practical examinations (VI Semester) in CCS356 –
OBJECT ORIENTED SOFTWARE ENGINEERING during the academic year 2025 – 2026.

Staff in -Charge Head of the Department

Submitted for the practical examination held on -----------------

Internal Examiner External Examiner

 CONTENTS

Page No
S.No. Date Name of the Experiment Signature

PASSPORT AUTOMATION SYSTEM

1.

2. BOOK BANK

3. EXAM REGISTRATION

4. STOCK MAINTAINANCE SYSTEM

ONLINE COURSE RESERVATION

5. SYSTEM

6. E-TICKETING

SOFTWARE PERSONNEL MANAGEMENT

7. SYSTEM

8. CREDIT CARD PROCESSING

9. E-BOOK MANAGEMENT SYSTEM

10. RECRUITMENT SYSTEM

11. FOREIGN TRADING SYSTEM

CONFERENCE MANAGEMENT SYSTEM

12.

13. BPO MANAGEMENT SYSTEM

LIBRARY MANAGEMENT SYSTEM

14.

STUDENT INFORMATION SYSTEM

15.
Ex No : 1 PASSPORT AUTOMATION SYSTEM
Date :

AIM :
To simplify the passport Automation system and using agro UML, visual basic and MS
Access.
PROBLEM ANALYSIS AND PROJECT PLAN
To simplify the process of applying passport, software has been created by designing
through rational rose tool, using visual basic as a front end and Microsoft access as a back end.
Initially the applicant login the passport automation system and submits his details. These
details are stored in the database and verification process done by the passport administrator,
regional administrator and police the passport is issued to the applicant.
DEFINITIONS, ACRONYMS AND THE ABBREVIATIONS
1. Administrator - Refers 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.
2. Applicant - One who wishes to obtain the Passport.
3. PAS - Refers to this Passport Automation System.

TECHNOLOGIES TO BE USED • Microsoft Visual Basic 6.0

TOOLS TO BE USED • Agro UML (for developing UML Patterns)

SOFTWARE INTERFACE
1. Front End Client - The applicant and Administrator online interface is built using
Microsoft Visual Basic 6.0.
2. Back End – MS Access database

HARDWARE INTERFACE
The server is directly connected to the client systems. The client systems have
access to the database in the server.

UML DIAGRAMS
The following UML diagrams describe the process involved in the online
recruitment system

a. Use case diagram

b. Class diagram
c. Sequence diagram
d. Collaboration diagram
e. State chart diagram
f. Activity diagram
g. Component diagram
h. Deployment diagram
i. Package diagram

5
USE CASE DIAGRAM

CLASS DIAGRAM

6
 SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

STATECHART DIAGRAM

7
ACTIVITY DIAGRAM

COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

8
FORMS:
LOGIN FORM:

APPLICANT FORM

9
PASSPORT FORM:

ADMIN FORM:

10
LOGIN FORM:
Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "pass" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form2.Show

ElseIftxtPassword = "admin" Then

'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form4.Show
Else

MsgBox "Invalid Password, try again!", , "Login"

txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub

Private Sub Form_Load()

End Sub

APPLICANT FORM:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Data1.Refresh
End
End Sub
Private Sub Command3_Click()
Data1.UpdateRecord
MsgBox "records are added successfully"
End Sub

Private Sub Command4_Click()

Data1.Recordset.Delete
End Sub

11
 Private Sub go_Click()
Form3.Show
End Sub

Private Sub Command5_Click()

Form3.Show
End Sub

Private Sub Form_Load()

End Sub

APPLICANT FORM:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Data1.Refresh
End
End Sub

Private Sub Command3_Click()

Data1.UpdateRecord
MsgBox "records are added successfully"
End Sub

Private Sub Command4_Click()

Data1.Recordset.Delete
End Sub

Private Sub go_Click()

Form3.Show
End Sub

Private Sub Command5_Click()

Form3.Show
End Sub

Private Sub Form_Load()

End Sub

12
ADMIN FORM:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Refresh
End Sub

Private Sub Command3_Click()

frmLogin.Show
End Sub

CONCLUSION:
Thus the project for Passport Automation System was designed and codes are
generated and then it was executed successfully.

13
 Ex.No : 2
Date : BOOK BANK MANAGEMENT

AIM
To develop a project of Book bank management system using Agro UML Software and
to implement the software in Visual Basic.

PROBLEM ANALYSIS AND PROJECT DESIGN

The book bank management system is an software in which a member can register
themselves and then he can borrow books from the book bank. It mainly concentrates on
providing books for engineering students.

INTRODUCTION
This system would be used by members who are students of any college to check the
availability of the books and borrow the books, and then the databases are updated. The
purpose of this document is to analyze and elaborate on the high-level needs and features of
the book bank management system. It also tells the usability, reliability defined in use case
specification.
1. OVERVIEW
The overview of this project is to design a tool for book bank so that it can be used
by any book banks to lend their books as well as colleges.

2. GLOSSARY
TERMS DESCRIPTION
MEMBER The one who registers himself and
purchase books from the bank.
DATABASE Database is used to store the
details of members and books.
ADMINISTRATOR The one who verifies the
availability of book and issue
them
USER Member
SOFTWARE REQUIREMENT This software specification
SPECIFICATION documents full set of features
and function for online
recruitment system that is
performed in company website.

3. EXTERNAL INTERFACE REQUIREMENTS

SOFTWARE REQUIREMENTS
1. Front end: Agro UML.
2. Back end: visual basic 6.0.

HARDWARE REQUIREMENTS
1. Processor: Pentium 4.
2. RAM : 256 MB
14
 3. Operating system : Microsoft windows XP.
4. Free disk space : 1GB
USE CASE DIAGRAM

CLASS DIAGRAM

15
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

16
 ACTIVITY DIAGRAM

COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

17
 IMPLEMENTATION

FORM 1:

FORM 2:

18
FORM 3:

FORM 4:

19
FORM1:
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
frmLogin.Show
End Sub

Private Sub Command4_Click()

frmLogin.Show
End Sub

FORM2:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Edit
End Sub
Private Sub Command3_Click()

Data1.Recordset.Delete
MsgBox "the records are deleted successfully !!!"
End Sub

Private Sub Command4_Click()

Data1.Recordset.Update
MsgBox "the records are updated successfully"
End Sub

Private Sub Command5_Click()

Form1.Show
End Sub

20
FORM3:

Private Sub Command1_Click()

Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Edit
End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete
End Sub

Private Sub Command4_Click()

Data1.Recordset.Update
End Sub

Private Sub Text2_Change()

End Sub

Private Sub Command6_Click()

Form1.Show
End Sub

CONCLUSION:
Thus the project for Book bank management system was designed and codes are
generated and then it was executed successfully.

21
 EXAM REGISTRATION SYSTEM
Ex.No:
Date:

AIM
To develop a project Exam Registration using Agro UML Software and to
implement the software in Visual Basic.

PROBLEM STATEMENT
The process of students accessing the registration application and applying for the
examination by filling out the form with proper details and then the authorities verify those
details given for truth and correctness are sequenced through steps
a. The students access exam registration application.
b. They fill out the form with correct and eligible details. They complete the
payment process.
c. The authorities verify or check the details.
d. After all verification the exam registration database is finalized.

1. EXTERNAL INTERFACE REQUIREMANTS

SOFTWARE REQUIREMENTS

1. Front end: Agro UML.

2. Back end: visual basic 6.0.

HARDWARE REQUIREMENTS

1. Processor : Pentium 4.
2. RAM : 256MB
3. Operating system : Microsoft windows XP.
4. Free disk space : 1GB

USE CASE DIAGRAM

22
 CLASS DIAGRAM

SEQUENCE DIAGRAM
COLLABRATION DIAGRAM

STATE CHART DIAGRAM

23
 ACTIVITY DIAGRAM

DEPLOYMENT DIAGRAM

FORM

24
CODING

Dim ob1 as student

Private sub cmdregistrationform_click()
Set ob1=new students
ob1.Form_Filling
End sub
Public Sub Form_Filling()
datcollege.Recordset.AddNew
cmdSaveRecord.Enabled = True
cmdMovePrevious.Enabled = False
cmdMoveNext.Enabled = False
cmdNewRecord.Enabled = False
cmdDeleteRecord.Enabled = False
Form1.Show
End Sub
Dim ob2 as students
Private sub cmdregistrationform_click()
Set ob2=new students

ob2.Next
End sub
Private Sub cmdMoveNext_Click()
Form1.Show
End Sub
Private Sub next()
datcollege.Recordset.MoveNext
If datcollege.Recordset.EOF = True Then
datAuthors.Recordset.MoveLast
End If

Form1.Show
End Sub
Dim ob3 as students
Private sub cmdregistrationform_click()
Set ob3=new students
ob3.Previous
End sub
Private Sub previous()
Form1.show
End Sub
Dim ob4 as students
Private sub cmdregistrationform_click()
Set ob4=new students
ob4. Storing_registration
End Sub
Public Sub Storing_registration()
If MsgBox("Are you sure you want to save this record?", _ vbQuestion + vbYesNo +
vbDefaultButton2, _
"Confirm") = vbNo Then
datcollege.Recordset.Update
25
 Exit Sub
End If
cmdSaveRecord.Enabled = False
cmdMovePrevious.Enabled = True
cmdMoveNext.Enabled = True
cmdDeleteRecord.Enabled = True
cmdNewRecord.Enabled = True
Form1.Show
End Sub
Private Sub cmdSaveRecord_Click()
Form1.Show
End Sub

Public Sub Processing()

datcollege.Recordset.MovePrevious
Form1.show
End Sub
Dim ob5 as students
Private sub cmdregistrationform_click()
Set ob5=new students
ob5. Delete
End Sub

Public Sub Delete()

On Error GoTo Delete_Error
If MsgBox("Are you sure you want to delete this record?", _
vbQuestion + vbYesNo + vbDefaultButton2, _

"Confirm") = vbNo Then

Exit Sub
End If
datcollege.Recordset.Delete
cmdMoveNext_Click
Exit Sub
Delete_Error:
MsgBox "This record cannot be deleted. Error code = " _
Err.Number & vbCrLf & Err.Description, _ vbCritical, "Cannot Delete"

End Sub
Private Sub cmdDeleteRecord_Click() form1.show
End Sub

CONCLUSION
Thus the project to develop Exam Registration system using Agro UML Software and
to implements the software in Visual Basic is done successfully.
26
Ex.No.: 4
Date : STOCK MAINTENANCE SYSTEM

AIM
To develop a project stock maintenance system using Agro UML and to implement the
software in Visual Basic.

PROBLEM STATEMENT
The process of stock maintenance system is that the customer login to the particular site
to place the order for the customer product. The stock maintenance system are described
sequentially through steps
a. The customer login to the particular site.
b. They fill the customer details.
c. They place the orders for their product.
d. The vendor login and views the customer details and orders.

SOFTWARE REQUIRMENTS
● Microsoft Visual Basic 6.0
● Agro UML
● Microsoft Access

HARDWARE REQUIRMENTS
● 1GB RAM
● Pentium IV Processor
● 100 GB HARDDISK

USE CASE DIAGRAM

27
 CLASS DIAGRAM

SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

28
 ACTIVITY DIAGRAM

COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

29
IMPLEMENTATION
LOGIN FORM

FORM1:

CODING
Public LoginSucceededAs 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()
'check for correct password
If txtPassword = "cust" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form1.Show
Else
If txtPassword = "admin" Then
'place code to here to pass the
'success to the calling sub
30
 'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form2.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Data1.Recordset.Edit
End Sub
Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub
Private Sub Label1_Click()
Data1.Recordset.Update
End Sub

CONCLUSION:
Thus the project for Stock maintenance System was designed and codes are generated
and then it was executed successfully.

31
 Ex.No: 5
Date : ONLINE COURSE RESERVATION

AIM
To design an object oriented model for online course reservation system.

PROBLEM STATEMENT
a. Whenever the student comes to join the course he/she should be provided with
the list of course available in the college.

b. The system should maintain a list of professor who is teaching the course. At
the end of the course the student must be provided with the certificate for the
completion of the course.
USE CASE DIAGRAM

CLASS DIAGRAM

32
 SEQUENCE DIAGRAM

ACTIVITY DIAGRAM

COLLABRATION DIAGRAM

33
 COMPONENT DIAGRAM

IMPLEMENTATION FORM1

FORM2

34
FORM3

FORM4

FORM5

35
CODING
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a As Boolean a =False
cn.Open "dsn=course"
rs.ActiveConnection = cnWithrs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Students" End
With
rs.MoveFirst
While Notrs.EOF
If (Text1.Text = rs(1) And Text2.Text = rs(2)) Then a = True
Form3.Show
Form1.Hide End If
rs.MoveNext Wend
If (a = False) Then
MsgBox ("Enter Correct UserName and Password") End If
End Sub

Private Sub Command2_Click()

Form2.Show
Unload Me
End Sub

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "dsn=Course"
rs.ActiveConnection =
cn
If (Text3.Text = Text4.Text) Then
With rs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from
Students" End With
With rs
AddNew
Fields(0) = Val(Text1.Text)
Fields(1) = Text2.Text
Fields(2) = Text3.Text
If (Option1 = True) Then
Fields(3) = Option1.Caption
End If
If (Option2 = True) Then
Fields(3) = Option2.Caption

36
End If
Fields(4) = Val(Text5.Text)
Fields(5) = Text6.Text
Fields(6) = Text7.Text
Fields(7) = Text8.Text
Fields(8) = Text9.Text
Update
MsgBox ("Registration Success. Please Login")
Form1.Show
Unload Me
End With
Else
MsgBox ("Password doesn't match") End If
End SubPrivate Sub Command2_Click() Unload
Me
End Sub

Public Sub calCutoff()

Text9.Text = Val(Text6.Text) / 4 + Val(Text7.Text) / 4 + Val(Text8.Text) /2
End Sub

Private Sub Text6_Change()

calCutoff
End Sub

Private Sub Text7_Change()

calCutoff
End Sub

Private Sub Text8_Change()

calCutoff
End Sub

Private Sub Command1_Click()

Form4.Show
Unload Me
End Sub

Private Sub Command2_Click()

Form5.Show
Unload Me
End Sub
Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub

Private Sub Text1_Change()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

37
 cn.Open "dsn=course"
rs.ActiveConnection = cn
With rs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Colleges" End
With
rs.MoveFirst
While Notrs.EOF
If (Val(Text1.Text) = rs(0)) Then
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
Text5.Text = rs(4)
Text6.Text = rs(5) End If
rs.MoveNext Wend
End Sub

Private Sub Command1_Click()

Dim cn As New ADODB.Connection
Dcn.Open "dsn=Course"
rs.ActiveConnection = cn
With rs
CursorType = adOpenStat
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Reservations" End
With
With rs
AddNew
Fields(0) = Form1.Text1.Text
Fields(1) = Text1.Text
Fields(2) = Text2.Text
Update
MsgBox ("Resrvation Success") End
With
End Sub
Private Sub Command2_Click() Unload
Me
End Sub

CONCLUSION
Thus the project Online Course Reservation System was designed and codes are
generated and then it was executed successfully.

38
Ex.No:6 E-TICKETING
Date :

39
AIM
To develop the E-Ticketing System using Agro UML Software and to implement the
software in visual basic.
USECASE DIAGRAM:

CLASS DAIGRAM

40
SEQUENCE DIAGRAM

COLLABRATION DIAGRAM

41
ACTIVITY DIAGRAM

STATE CHART DIAGRAM

42
COMPONENT DIAGRAM

DIAGRAM DEPLOYMENT

43
FORM1

FORM2

FORM3

44
PROGRAM:
FORM1
Option Explicit
Public LoginSucceededAs 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()

'check for correct password
If txtPassword = "user" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form3.Show
Else
If txtPassword = "admin" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form1.Show
Else
MsgBox "Invalid Password, try again!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub

FORM2
Private Sub Command1_Click()
Data1.Recordset.AddNew
MsgBox "records are addded successfully"
End Sub

Private Sub Command2_Click()

Data1.Recordset.Edit
MsgBox "records are edited successfully"
End Sub

Private Sub Command3_Click()

Data1.Recordset.Update
MsgBox "records are updated successfully"

45
 End Sub
Private Sub Command4_Click()
Data1.Recordset.Delete
MsgBox "records are deleted successfully"
End Sub

Private Sub Command5_Click()

Form2.Show
End Sub

Private Sub Command6_Click()

Data1.Recordset.exit
End Sub

FORM3
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Update
End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Update
End Sub

Private Sub Command1_Click()

Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Data1.Recordset.Update
End Sub

CONCLUSION
Thus the project for E-Ticketing System was designed and codes are generated and
then it was executed successfully.

46
Ex.No: 7
Date : SOFTWARE PERSONNAL MANAGEMENT SYSTEM

47
AIM:
To develop a project employee management system using the Agro UML Software
from the UML diagram and to implement the software in Visual Basic.

PROBLEM STATEMENT:
The CEO must enter the name and password to login the form and select the particular
employee to view the details about that employee and maintaining the employee details
personally. This process of employee management system are described sequentially through
following steps,
• The CEO login to the employee management system.
• He/she search for the list of employees.
• Then select the particular employee.
• Then view the details of that employee.
• After displaying the employee details then logout.
USE CASE DIAGRAM:

CLASS DIAGRAM:

48
SEQUENCE DIAGRAM:

COLLABRATION DIAGRAM:

49
COMPONENT DIAGRAM:

DEPLOYMENT DIAGRAM:

IMPLEMENTATION FORM1:

50
FORM2:

FORM3:

51
FORM4:

FORM5:

52
CODING
FORM1:
Private Sub Command1_Click() Dim a As Boolean
a = False
If (Text1.Text = "admin" And Text2.Text = "admin") Then a = True
Form2.Show
Unload Me
End If
If (a = False) Then
MsgBox ("Enter Correct Username and
Password") End If
End Sub

FORM2:
Private Sub Command1_Click()
Form3.Show
Unload Me
End Sub
Private Sub Command2_Click() Form4.Show
Unload Me
End Sub
Private Sub Command3_Click() Form5.Show
Unload Me
End Sub
Private Sub Command4_Click() Unload Me
End Sub

FORM3:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "dsn=Software" rs.ActiveConnection = cn
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from Details" End With
With rs
.AddNew
.Fields(0) = Val(Text1.Text)
.Fields(1) = Text2.Text
If (Option1 = True) Then
.Fields(2) = Option1.Caption
End If
If (Option2 = True) Then
.Fields(2) = Option2.Caption
End If
.Fields(3) = Val(Text3.Text)
.Fields(4) = Text4.Text

53
 .Fields(5) = Text5.Text
.Fields(6) = Text6.Text.
Update End With Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = ""
Text5.Text = "" Text6.Text = "" Option1 = False Option2 = False
End Sub

FORM4:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a As Boolean a = False
cn.Open "dsn=software" rs.ActiveConnection = cn With rs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Details" End With
rs.MoveFirst While Notrs.EOF
If (Val(Text1.Text) = rs(0)) Then Text3.Text = Text3.Text + rs(1) + ", " Text3.Text =
Text3.Text
+ rs(2) + ", " Text3.Text = Text3.Text + Str$(rs(3)) + ", " Text3.Text =
Text3.Text + rs(4) + ", " Text3.Text = Text3.Text + rs(5) + ", " Text3.Text =
Text3.Text + rs(6) + ", "a = True End If rs.MoveNext Wend
If (a = False) Then
MsgBox ("Enter correct Employee ID") End If
Text1.Text = ""
End Sub
Private Sub Command2_Click()
Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset
Dim a As Boolean a = False
cn.Open "dsn=software" rs.ActiveConnection = cn
With rs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Details" End With
rs.MoveFirst
While Notrs.EOF
If (Text2.Text = rs(4)) Then
Text3.Text = Text3.Text + Str$(rs(0)) + ", " Text3.Text = Text3.Text + rs(1) + ", "
Text3.Text = Text3.Text + rs(2) + ", "
Text3.Text = Text3.Text + Str$(rs(3)) + ", " Text3.Text = Text3.Text + rs(5) + ", "
Text3.Text = Text3.Text + rs(6) + ". "
a = True
End If
rs.MoveNext
Wend
If (a = False) Then
MsgBox ("Enter correct Designation") End If
Text2.Text = ""
End Sub

54
 Private Sub Command3_Click() Form2.Show
Unload Me
End Sub

FORM5:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a As Boolean a = False
cn.Open "dsn=software" rs.ActiveConnection = cnWithrs
CursorType = adOpenStatic
CursorLocation = adUseClient
LockType = adLockOptimistic
Open "select * from Details" End With
rs.MoveFirst
While Notrs.EOF
If (Val(Text1.Text) = rs(0)) Then
Text2.Text = rs(1) Text3.Text = rs(2) Text4.Text = rs(3) Text5.Text = rs(4)
Text6.Text = rs(5)
Text7.Text = rs(6) a = True End If rs.MoveNext Wend If (a = False) Then
MsgBox ("Enter correct ID") End If
End Sub

CONCLUSION:
Thus the project for Software Personnel management System was designed and codes
are generated and then it was executed successfully.

55
Ex.No : 8 CREDIT CARD PROCESSING
Date :

AIM
To develop a project credit card system using the Agro UML from the UML diagram and to
implement the software in Visual Basic

PROBLEM ANALYSIS AND PROJECT PLANNING

The Credit Card Processing System which is use to purchasing an item from any shop mall,
and it is used to maintain the limitation of credit card balance and current transaction process could be
update via credit card machine. This project mainly used for large amount of item can be easy to buy
from anywhere and required transaction process should bemaintained them.
USE CASE DIAGRAM

CLASS DIAGRAM

56
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

COMPONENT DIAGRAM

57
DEPLOYMENT DIAGRAM

IMPLEMENTATION

LOGIN FORM:

FORM 1:

58
FORM 2:

PROGRAM:
LOGIN FORM:
Private Sub cmdOK_Click()
'check for correct password
If txtPassword = "user" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form2.Show

Else
If txtPassword = "admin" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form2.Show
End If
End Sub

59
FORM 1:
Private Sub ok_Click()
'check for correct password
If pin = "2089" And cno = "2089" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Form3.Show
Else
If pin = "1234" And cno = "1234" Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
\LoginSucceeded = True
\Me.Hide
Form3.Show
Else
MsgBox "Invalid pinno, try again!", , "Login"
pin.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End Sub

FORM 2:
Private Sub enter_Click()
If tamt<= 1580 Then
MsgBox "transaction succeded"
Else
MsgBox "amount not available"
End If
End Sub

CONCLUSION:
Thus the project for Credit Card Processing System was designed and codes are
generated and then it was executed successfully.

60
 Ex.No: 9
Date: E-BOOK MANAGEMENT SYSTEM

AIM
To develop a project E-Book Management system using Agro UML Software and to
implement the software in Visual Basic.

PROBLEM ANALYSIS AND PROJECT PLANNING

E-Book Management System gives an idea about how books are maintained in the
particular websites. The books that are to be purchased, the books that are to be sold are
maintained here. . Further some additional details of the current books that is available in the
store are also given. E-Book Management System in this project is done in an authorized way.
The password and user id has been set here.
SOFTWARE REQUIREMENTS
1. Front end: Agro UML.
2. Back end: Visual Basic 6.0.
USE CASE DIAGRAM

CLASS DIAGRAM

61
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

62
COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

IMPLEMENTATION

FORM 1:

63
FORM 2:

FORM 3:

64
FORM 4:

FORM 5:

PROGRAM:

FORM 1:
Private Sub Command1_Click()
Dim a As Boolean
a = False
If (Text1.Text = "admin" And Text2.Text = "admin") Then a = True
Form2.Show
Unload Me End
If
If (a = False) Then
MsgBox ("Enter Correct Username and Password")
End If
End Sub

FORM 2:
Private Sub Command1_Click()
65
 Form3.Show
Unload Me
End Sub

Private Sub Command2_Click()

Form4.Show
Unload Me
End Sub

Private Sub Command3_Click()

Form5.Show
Unload Me
End Sub

Private Sub Command4_Click() Unload

Me
End Sub

FORM 3:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection Dim rs
As New ADODB.Recordset Dim a As Boolean
a = False
cn.Open "dsn=E-Book"
rs.ActiveConnection = cn
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from Details" End
With
rs.MoveFirst
While Not rs.EOF
If (Val(Text1.Text) = rs(0)) Then
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
a = True End If
rs.MoveNext Wend
If (a = False) Then
MsgBox ("Enter correct ID") End If
End Sub

Private Sub Command2_Click()

Form2.Show
Unload Me
End Sub

FORM 4:
Private Sub Command1_Click()

66
 Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "dsn=E-Book"
rs.ActiveConnection = cn
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from Details" End
With
With rs
.AddNew
.Fields(0) = Val(Text1.Text)
.Fields(1) = Text2.Text
.Fields(2) = Text3.Text
.Fields(3) = Text4.Text
.Update End With
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command2_Click()

Form2.Show
Unload Me
End Sub
FORM 5:
Private Sub Command1_Click()
Dim cn As New ADODB.Connection Dim rs
As New ADODB.Recordset Dim a As
Boolean
a = False
cn.Open "dsn=E-Book"
rs.ActiveConnection = cn
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from Details" End
With
rs.MoveFirst
While Not rs.EOF
If (Text1.Text = rs(2)) Then
Text3.Text = Text3.Text + Str$(rs(0)) + ", "
Text3.Text = Text3.Text + rs(1) + ", " Text3.Text =
Text3.Text + rs(3) + ". "
a = True End If
rs.MoveNext Wend
If (a = False) Then
MsgBox ("Enter correct Author Name") End If
End Sub
67
 Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim a As Boolean a =
False
cn.Open "dsn=E-Book"
rs.ActiveConnection = cn
With rs
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "select * from Details" End
With
rs.MoveFirst
While Not rs.EOF
If (Text2.Text = rs(3)) Then
Text3.Text = Text3.Text + Str$(rs(0)) + ", "
Text3.Text = Text3.Text + rs(1) + ", "
Text3.Text = Text3.Text + rs(2) + ". "
a = True End If
rs.MoveNext Wend
If (a = False) Then
MsgBox ("Enter correct Publisher Name") End If
End Sub
Private Sub Command3_Click()
Form2.Show
Unload Me
End Sub

CONCLUSION
Thus the project for E-book management System was designed and codes are
generated and then it was executed successfully.

68
 Ex.No :10
Date : RECRUITMENT SYSTEM

AIM
To develop a project on online recruitment system using Agro UML and to implement
the project in Visual Basic.

PROBLEM ANALYSIS AND PROJECT PLANNING

The Online Recruitment System is an online website in which applicant can register
themselves and then attend the exam. Examination will be conducted at some venue. The
details of the examination, venue & Date of the examination will be made available to them
through the website. Based on the outcome of the exam the applicant will be short listed and
the best applicant is selected for the job.USE CASE DIAGRAM

CLASS DIAGRAM

69
SEQUENCE DIAGRAM (APPLICANT)

SEQUENCE DIAGRAM

70
COLLABORATION DIAGRAM (APPLICANT)

COLLABORATION DIAGRAM (HR)

71
STATE ACTIVITY DIAGRAM

HOME FORM:

72
REGISTER FORM:

HR FORM:

73
STATUS FORM:

PROGRAM:
HOME FORM:
Private Sub Command1_Click()
Status.Show
End Sub
Private Sub Command2_Click()
Register.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
End Sub
Private Sub Image2_Click()
Unload Me
End Sub
REGISTER FORM:
Dim c as Integer
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
74
 Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\record.
Mdb;Persist Security Info=False"
R s.Open "record", cn, AdOpenKeyset, adLockPessimistic, AdCmdTable
c=c+1
r s.AddNew
rs("Name") = Text1
r s("Age") = Text2
r s("DOB") = Text3
r s (" P hno") = Text4
rs("Qualification") = Text5
rs("Percentage") = Text6
rs("Id") = c
rs("Status") = "Yet to be processed. Waiting for the response from HR. Stay Tuned
for updates"
Msg Box "Registration Successful...Your Application id is " & c & "", vbInformation,
"Recruitment System"
rs.Update
rs.Close
cn.Close
Unload Me
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"
R s.Open "select * from record", cn, adOpenKeyset, adLockOptimistic
c = rs.RecordCount
End Sub

Private Sub Timer1_Timer()

Label8.Caption = Now
End Sub

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

Private Sub Command2_Click()

75
 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 "delete from record where Id=" & Text1.Text & "", cn,
adOpenKeyset, adLockOptimistic MsgBox "Delete successfully..",
vbInformation, "Recruitment System" Unload Me
Me.Show
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

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,
adLockOptimist
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

CONCLUSION:
Thus the project for Recruitment System was designed and codes are generated and
then it was executed successfully.
76
Ex.No: 11
Date :
FOREIGN TRADING SYSTEM
AIM

77
 To design a project Foreign Trading System using Agro UML Software and to
implement the software in Visual Basic.
USE CASE DIAGRAM

CLASS DIAGRAM

78
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

79
COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

IMPLEMENTATION:

FORM1:

80
FORM2:

FORM3:

FORM4:

81
PROGRAM:

FORM1:
Private Sub Command1_Click()
Form3.Show
End Sub

Private Sub Command2_Click(Index As Integer)

Form2.Show
End Sub

Private Sub Command3_Click()

form4.Show
End Sub

Private Sub Command5_Click()

form5.Show
End Sub
FORM2:
Private Sub Command1_Click()
MsgBox "products purchased"
Form1.Show
End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
Data1.Recordset.Edit
End Sub

Private Sub Command4_Click()

Data1.Recordset.Update
End Sub

Private Sub Command5_Click()

Data1.Recordset.Delete
End Sub

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

FORM3:
Private Sub Command1_Click()
Text1.Text = Text1.Text
82
 If Text2 = "user" Then
LoginSucceeded = True
Form1.Show
Else
If Text2 = "supplier" Then
LoginSucceeded = True
Form1.Show
Else
MsgBox "Invalid password, Try again!"
End If
End If
End Sub
FORM4:
Private Sub Command1_Click()
text1.Text = text1.Text
If text2 = "ship" Then
MsgBox "products are delivered"
Else
If text2 = "flight" Then
MsgBox "products are delivered"
Else
MsgBox "Invalid values, Try again!"
End If
End If
End Sub

CONCLUSION:
Thus the project for foreign trading System was designed and codes are generated and
then it was executed successfully.
83
Ex.No : 12
Date : CONFERENCE MANAGEMENT SYSTEM
AIM
To develop a project on Conference management system using Agro UML Software
and to implement the project in Visual Basic.

USE CASE DIAGRAM:

CLASS DIAGRAM:

84
SEQUENCE DIAGRAM:

COMPONENT DIAGRAM:

85
 COLLABORATION DIAGRAM

STATE CHART DIAGRAM:

DEPLOYMENT DIAGRAM:

86
IMPLEMENTATION:

LOGIN:

LOGIN VALIDATION:

87
ENQUIRY OF CONFERENCE:

DETAILS BY DATE:

88
DETAILS BY DEPARTMENT:

REGISTRATION FORM:

89
REGISTRATION FORMAFTER RESERVATION:

FORM 1:
Dim b as New Class
Private Sub Command1_Click ()
Set b = New Class
login
End Sub

Private Sub
Form Load()
Data1.Visibl
e = False
End Sub

FORM2
ENQUIRY OF CONFERENCE:
Private Sub command1_click ()
Form3.Show
Unload Me
End Sub

Private Sub Command2_click ()

Form4.Show
Unload Me
End Sub

90
FORM3
DETAILS BY DATE:
Private Sub command2_click ()
Form5.Show
Unload Me
End Sub

Private Sub command1_click ()

Form2.Show
Unload Me
End Sub

Form 4Details by department:

Private Sub command1_click ()
Form5.Show
Unload Me
End Sub

Private Sub command2_click ()

Form2.Show
Unload Me
End Sub

FORM5
REGISTRATION FORM:
Private Sub command1_click ()
MsgBox (“your registration is successful”);
Form2.Show
Unload Me
End Sub

Administrator:
Option Explicit
'##ModelId=55A6283A0000
Private admin_id As Variant
'##ModelId=55A62842008C
Private password As Variant
'##ModelId=55A62B570138
Public NewPropertyAs User
'##ModelId=55A62B6003B9
Public NewProperty2 As registration
'##ModelId=55B89B210188
Public NewProperty3 As User
'##ModelId=55B8A0E703D8
Public NewProperty4 As registration
'##ModelId=55B8A1AB00EA
Public NewProperty5 As registration
'##ModelId=55B8A28A0242
Public NewProperty6 As registration
'##ModelId=55A6280051F4

91
Public Sub validate_id()
Do
If Form1.Data1.Recordset.EOF Then Form1.Data1.Recordset.MoveFirst
If (Form1.Text1.Text = Form1.Data1.Recordset.Fields (0)) and
(Form1.Text2.Text = Form1.Data1.Recordset.Fields (1)) Then
MsgBox ("login succeeds")
Form2.Show
Exit Do
Else
Form1.Data1.Recordset.MoveNext
End If
Loop Until Form1.Data1.Recordset.EOF
If Form1.Data1.Recordset.EOF Then
MsgBox ("invalid login")
End If
End Sub

'##ModelId=55A62859005D
Public Sub update_details()
End Sub

'##ModelId=55A6286002DE
Public Sub view_details()
End Sub

'##ModelId=55A6296900FA
Public Sub allocate ()
End Sub

Conference details:
Option Explicit
'##ModelId=55B8A6E8031C
Private facilities As Variant
'##ModelId=55B8A6EE0157
Private date_time As Variant
'##ModelId=55B8A6F60213
Private place As Variant
'##ModelId=560279BC0261
Private mdepartmentObject As New department
'##ModelId=55F92E340148
Public NewProperty As department
'##ModelId=55B8A6FC003E
Public Sub topic_details()
End Sub

'##ModelId=55B8A71D0271
Public Sub facilities2 ()
End Sub

'##ModelId=560279BC0271

92
 Private Sub department_view_details_by_dept() Call
mdepartmentObject.view_details_by_dept
End Sub

Date:
Option Explicit
'##ModelId=55F92DF301E4
Private topic As Variant
'##ModelId=55F92DF6000F
Private place As Variant
'##ModelId=55F92DF803B9
Private registration_fee As Variant
'##ModelId=560279BC037A
Private menquireObject As New enquire
'##ModelId=55F92E1D036B
Public Sub view_details_by_date()
End Sub

'##ModelId=560279BC038A
Private Sub enquire_enqure_by_date()
Call menquireObject.enqure_by_date
End Sub

'##ModelId=560279BC038B
Private Sub enquire_enquire_by_dept()
Call menquireObject.enquire_by_dept
End Sub

Department:
'##ModelId=55F92DCE0232
Private date_time As Variant
'##ModelId=55F92DD603B9
Private place As Variant
'##ModelId=55F92DDA029F
Private registration_fee As Variant
'##ModelId=55F92E020148
Private topic As Variant
'##ModelId=560279BC01B5
Private menquireObject As New enquire
'##ModelId=55F92E0803A9
Public Sub view_details_by_dept()
End Sub

'##ModelId=560279BC01C5
Private Sub enquire_enqure_by_date()
Call menquireObject.enqure_by_date
End Sub

'##ModelId=560279BC01C6
Private Sub enquire_enquire_by_dept()

93
 Call menquireObject.enquire_by_dept
End Sub

Enquire:
Option Explicit
'##ModelId=55B8A66B035B
Private name As Variant
'##ModelId=55B8A66F034B
Private department As Variant
'##ModelId=55B8A677009C
Public Sub enqure_by_date()
End Sub

'##ModelId=55B8A683037A
Public Sub enquire_by_dept()
End Sub

Payment:
Option Explicit
'##ModelId=55B8A5E000CB
Private amount As Variant
'##ModelId=55B8A5E500AB
Private concession As Variant
'##ModelId=55B8A5F5035B
Public Sub paymentinfo()
End Sub

'##ModelId=55B8A624030D
Public Sub receipt()
End Sub

Registerby users:
Option Explicit
'##ModelId=55B8A51E03B9
Private name As Variant
'##ModelId=55B8A5220138
Private mail_id As Variant
'##ModelId=55B8A5A60177
Public NewProperty As registration'##ModelId=55B8A52803C8
Public Sub give_name()
End Sub

'##ModelId=55B8A5480167
Public Sub give_mail_id()
End Sub

94
Registration:
Option Explicit
'##ModelId=55A6288200FA
Private name As Variant
'##ModelId=55A6288B038A
Private mail_id As Variant
'##ModelId=55B89077002E
Private dept As Variant
'##ModelId=55B8909B0177
Private amount As Variant
'##ModelId=560279BA032C

Private mAdministratorObject As New

Administrator
'##ModelId=55B8A1CA0167 Public
NewPropertyAs User
'##ModelId=55B8A1D803D8
Public NewProperty2 As User
'##ModelId=55B8A1E20167
Public NewProperty3 As User
'##ModelId=55B8A1F2003E
Public NewProperty4 As User
'##ModelId=55B8A1FF02EE
Public NewProperty5 As User
'##ModelId=55B8A28A0244
Public NewProperty6 As Administrator
'##ModelId=55B8A5C3007D
Public NewProperty7 As register_by_users
'##ModelId=55B8A6300157
Public NewProperty8 As payment
'##ModelId=55B8A7500261
Public NewProperty9 As conf_details
'##ModelId=55B8A7680290
Public NewProperty10 As User
'##ModelId=55B8A77901E6
Public NewProperty11 As User
'##ModelId=55A628A100BB
Public Sub register_details()
End Sub

'##ModelId=55A628A60399
Public Sub payment_info()
End Sub

'##ModelId=55B890DB002E
Public Sub conference_info()
End Sub

'##ModelId=560279BA034B
Private Sub Administrator_validate_id()

95
 Call mAdministratorObject.validate_id
End Sub

'##ModelId=560279BA035B
Private Sub Administrator_update_details()
Call mAdministratorObject.update_details
End Sub

'##ModelId=560279BA035C
Private Sub Administrator_view_details()
Call mAdministratorObject.view_details
End Sub

'##ModelId=560279BA036B
Private Sub Administrator_allocate()
Call mAdministratorObject.allocate
End Sub

'##ModelId=560279BA036C
Private Property Set Administrator_ (ByVal RHS As registration)
Set mAdministratorObject. = RHS
End Property

'##ModelId=560279BA0399
Private Property Get Administrator_ () As registration Set Administrator_ =
mAdministratorObject.
End Property

Users:
Option Explicit

'##ModelId=55A627D3029F
Private username As Variant
'##ModelId=55A627DD02AF
Private password As Variant
'##ModelId=55A627E503A9
Private department As Variant
'##ModelId=560279BB02FD
Private mAdministratorObject As New
Administrator
'##ModelId=55A62AFB002E Public
NewProperty As registration
'##ModelId=55A62B3000AB
Public NewProperty2 As registration
'##ModelId=55A62B37033C
Public NewProperty3 As Administrator
'##ModelId=55B89B210186
Public NewProperty4 As Administrator
'##ModelId=55B8A6910261
Public NewProperty5 As enquire

96
'##ModelId=55B8A72C03D8
Public NewProperty6 As conf_details
'##ModelId=55B8A7720186
Public NewProperty7 As registration
'##ModelId=55B8A77901E4
Public NewProperty8 As registration
'##ModelId=55A62804001F
Public Sub enquires ()
End Sub

'##ModelId=55A6282B01E4
Public Sub view_details()
End Sub

'##ModelId=55A6295102DE
Public Sub reserve ()
End Sub

'##ModelId=55F937D5031C
Public Sub login ()
Do
If Form1.Data1.Recordset.EOF Then Form1.Data1.Recordset.MoveFirst
If (Form1.Text1.Text = Form1.Data1.Recordset.Fields (0)) And (Form1.Text2.Text =
Form1.Data1.Recordset.Fields (1)) Then
MsgBox ("login suceed")
Form2.Show
Exit Do
Else
Form1.Data1.Recordset.MoveNext
End If
Loop Until Form1.Data1.Recordset.EOF
If Form1.Data1.Recordset.EOF Then
MsgBox ("invalid login")
End If
End Sub

„##ModelId=560279BB030D
Private Sub Administrator_validate_id()
Call mAdministratorObject.validate_id
End Sub

'##ModelId=560279BB031C
Private Sub Administrator_update_details()
Call mAdministratorObject.update_details
End Sub

'##ModelId=560279BB031D
Private Sub Administrator_view_details()
Call mAdministratorObject.view_details
End Sub

97
'##ModelId=560279BB032C
Private Sub Administrator_allocate()
Call mAdministratorObject.allocate
End Sub

'##ModelId=560279BB032D
Private Property Set Administrator_NewProperty(ByVal RHS As User)
Set mAdministratorObject.NewProperty = RHS
End Property

'##ModelId=560279BB034B
Private Property Get Administrator_NewProperty() As User
Set Administrator_NewProperty = mAdministratorObject.NewProperty End Property
'##ModelId=560279BB035C
Private Property Set Administrator_NewProperty2 (ByVal RHS As registration) Set
mAdministratorObject.NewProperty2 = RHS End Property
'##ModelId=560279BB037A
Privae Property Get Administrator_NewProperty2 () As registration
Set Administrator_NewProperty2 = mAdministratorObject.NewProperty2
End Property

'##ModelId=560279BB038B
Private Property Set Administrator_NewProperty3 (ByVal RHS As User)
Set mAdministratorObject.NewProperty3 = RHS
End Property

'##ModelId=560279BB03B9
Private Property Get Administrator_NewProperty3 () As User
Set Administrator_NewProperty3 = mAdministratorObject.NewProperty3
End Property

'##ModelId=560279BB03BB
Private Property Set Administrator_NewProperty4 (ByVal RHS As registration) Set
mAdministratorObject.NewProperty4 = RHS End Property
'##ModelId=560279BC0000
Private Property Get Administrator_NewProperty4 () As registration
Set Administrator_NewProperty4 = mAdministratorObject.NewProperty4
End Property

'##ModelId=560279BC000F
Private Property Set Administrator_NewProperty5 (ByVal RHS As registration) Set
mAdministratorObject.NewProperty5 = RHS
End Property

'##ModelId=560279BC002E
Private Property Get Administrator_NewProperty5 () As registration
Set Administrator_NewProperty5 = mAdministratorObject.NewProperty5
End Property

98
 '##ModelId=560279BC003F
Private Property Set Administrator_NewProperty6 (ByVal RHS As registration) Set
mAdministratorObject.NewProperty6 = RHS End Property
'##ModelId=560279BC006D
Private Property Get Administrator_NewProperty6 () As registration
Set Administrator_NewProperty6 = mAdministratorObject.NewProperty6 End
Property

CONCLUSION:
Thus the project for Conference Management System was designed and codes are
generated and then it was executed successfully.

99
 Ex. No: 13
Date : BPO MANAGEMENT SYSTEM
AIM
To develop a project Business process out sourcing (BPO) management system Using
Agro UML software and to implement the software in Visual Basic.

USE CASE DIAGRAM

CLASS DIAGRAM

100
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

101
ACTIVITY DIAGRAM

STATE CHART DIAGRAM

DEPLOYMENT DIAGRAM

102
COMPONENT DIAGRAM

FORM 1:

FORM 2:

103
FORM 3:

FORM 4:

FORM 5:

104
FORM 6:

FORM 7:

FORM 8:

105
FORM 9:

PROGRAM:
FORM 1:

Private Sub Command1_Click ()

Dim count As Integer
For count = 0 To 2
If Data1.Recordset.EOF = False Then
If Data1.Recordset.Fields (0) = Text1.Text and Data1.Recordset.Fields (1) =
Text2.Text Then
MsgBox ("login successful")
Form2.Show
Exit For
'#unload Me
Else
Msg Box ("invalid login")
Exit For
End If
End If
Next count
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form _Load ()
Data1.Visible = Falls
End Sub

Private Sub Command1_Click ()

Msg Box "call attended"
106
 End Sub
FORM 2:
Private Sub Command2_Click ()
Form10.Show
End Sub

Private Sub Command3_Click ()

Form3.Show
End Sub

Private Sub Command4_Click ()

Form8.Show
End Sub
FORM 3:

Sub Command1_Click ()
Form9.Show
End Sub

Private Sub Command3_Click ()

Form10.Show
End Sub

Private
Private Sub Command4_Click ()
Form4.Show
End Sub

Private Sub Command5_Click ()

Form2.Show
End Sub

FORM 4:
Private Sub Command1_Click()
Form10.Show
End Sub

Private Sub Command2_Click()

Msg Box "check in company solution"
Form6.Show
End Sub

Dim a As customer1
Private Sub Command1_Click ()
Msg Box "call ended"
End Sub

Private Sub Command2_Click ()

Msg Box "feedback is saved in your database"
Form7.Show
107
 End Sub

Private Sub Command3_Click ()

Set a = New customer1
a. give feedback
End Sub
Private Sub Command4_Click ()
Form10.Show
End Sub
Private Sub Command6_Click()
Form4.Show
End Sub
FORM 5:
Private
Sub Command1_Click()
Form5.Show
End Sub

Private Sub Command2_Click()

Form10.Show
End Sub

Private Sub Command3_Click()

Form4.Show
End Sub

FORM 6:
Private Sub Command1_Click()
Form5.Show
End Sub

Private Sub Command2_Click()

Form10.Show
End Sub

FROM 7:

Private Sub Command1_Click()

Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Form3.Show
End Sub

108
FORM 8:
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command2_Click()

Form5.Show
End Sub
FORM 9:
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()

Form3.Show
End Sub

Private Sub Command3_Click()

Form4.Show
End Sub

Private Sub Command4_Click()

Form5.Show
End Sub

CONCLUSION:
Thus the project for BPO managementSystem was designed and codes are generated
and then it was executed successfully.

109
Ex.No.: 14
Date : LIBRARY MANAGEMENT SYSTEM

AIM
To analyse, design and develop code for Library Management System using Agro
UML software.

USE CASE DIAGRAM:

STATE DIAGRAM:

110
CLASS DIAGRAM:

SEQUENCE DIAGRAM:

111
COLLABORATION DIAGRAM

ACTIVITY DIAGRAM:

112
 DEPLOYMENT DIAGRAM:

COMPONENT DIAGRAM:

Login form:

113
Choice form:

Return form:

Searching form:

Searching form:

114
Renewal form:

Registration form:

View books:

115
CODING:

Private Sub Command1_Click()

Do
If Form1.Data1.Recordset.EOF Then Form1.Data1.Recordset.MoveFirst
If (Form1.Text1.Text = Form1.Data1.Recordset.Fields(0)) And
(Form1.Text2.Text = Form1.Data1.Recordset.Fields(1)) Then
Msg Box "login succeed"
Form2.Show
Exit Do
Else
Form1.Data1.Recordset.MoveNext
End If
Loop Until Form1.Data1.Recordset.EOF
If Form1.Data1.Recordset.EOF Then
MsgBox ("invalid login")
End If
End Sub
Private Sub Label1_Click()
Form7.Show
End Sub
Private Sub Command2_Click()
Form7.Show
End Sub
Private Sub Command1_Click()
Form3.Show
End Sub
Private Sub Command2_Click()
Form4.Show
End Sub
Private Sub Command3_Click()
Form5.Show
End Sub
Private Sub Command4_Click()
Form6.Show
End Sub
Private Sub Command1_Click()
If (Text1.Text = "Internet Programming" Or Text1.Text = "ooad" Or Text1.Text
= "computer graphics") Then
MsgBox "Book is successfully returned ........ "
Form2.Show
Else
MsgBox "Renewal time exceeding....... "
End If
End Sub
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Dim b As String
b = Text2.Text
116
 Dim i As Integer
For i = 0 To 5
If ((a = Data1.Recordset.Fields(0)) And (b =
Data1.Recordset.Fields(1)))
Then MsgBox "successfully issued ...... thank u!!!!!"
Exit For
Else
MsgBox "Sorry....ur book not found. .try again!!!!!"
End If
Next i
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub
Private Sub Command1_Click()
If (Text1.Text = "Internet Programming" Or Text1.Text = "ooad" Or Text1.Text =
"computer graphics") Then
MsgBox "Book is successfully renewaled ........ "
Form2.Show
Else
MsgBox "Renewal time exceeding ....... "
End If
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
MsgBox "successfully registered........ "
Form2.Show
End Sub

CONCLUSION
Thus the project for Library Management System was designed and codes are
generated and then it was executed successfully.

117
Ex.No.: 15
Date : STUDENT INFORMATION SYSTEM

AIM
To analyse, design and develop code for Student Information System using Agro
URL software.

USE CASE DIAGRAM

CLASS DIAGRAM

118
SEQUENCE DIAGRAM

COLLABORATION DIAGRAM

119
 ACTIVITY DIAGRAM

COMPONENT DIAGRAM

DEPLOYMENT DIAGRAM

120
IMPLEMENTATION

FORMS

LOGIN PAGE

EXAM SCHEDULE SERIAL TESTMARKS

STUDENT PROFILE

121
CODINGS:
Private Sub Command1_Click()
Dim count As Integer
For count = 0 To 5
If Data1.Recordset.EOF = False Then
If Data1.Recordset.Fields(0) = Text1.Text And Data1.Recordset.Fields(1) =
Text2.Text Then
MsgBox ("login successful")
Form6.Show
Exit For
'#unloadMe
Else
MsgBox ("invalid login")
Exit For
End If
End If
Next count
End Sub
Private Sub Command2_Click()
Dim count As Integer
For count = 0 To 5
If Data2.Recordset.EOF = False Then
If Data2.Recordset.Fields(0) = Text3.Text And Data2.Recordset.Fields(1) =
Text4.Text Then
MsgBox ("login successful")
Form2.Show
Exit For
„#unloadMe
Else
MsgBox ("invalid login")
122
Exit For
End If
End If
Next count
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command1_Click()
Form3.Show
End Sub
Private Sub Command2_Click()
Form5.Show
End Sub
Private Sub Command1_Click()
Form1.Show
End Sub
Private Sub Command2_Click()Dim count As Integer
For count = 0 To 5
If Data1.Recordset.EOF = False Then
If Text6.Text = Data1.Recordset.Fields(0) Then
'MsgBox ("login successful")
Text1.Text = Data1.Recordset.Fields(1)
Text2.Text = Data1.Recordset.Fields(2)
Text3.Text = Data1.Recordset.Fields(3)
Text4.Text = Data1.Recordset.Fields(4)
Text5.Text = Data1.Recordset.Fields(5)
Exit For
#unloadMe
Else
MsgBox ("invalid reg no")
Exit For
End If
End If
Next count
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Private Sub Command1_Click()
Form4.Show
123
 End Sub
Private Sub Command2_Click()
Dim count As Integer
For count = 0 To 4
If Data1.Recordset.EOF = False Then
If Data1.Recordset.Fields(1) = Text2.Text Then
Text1.Text = Data1.Recordset.Fields(0)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Exit For
'#Unload Me
Else
MsgBox ("invalid register number")
End If
End If
Next count
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub
Dim a As DB
Private Sub Command1_Click()
Set a = New DB
a.store
End Sub
Private Sub Command2_Click()
Form1.Show End Sub

CONCLUSION
Thus the project for Student Information System was designed and codes are
generated and then it was executed successfully.

124