Object Oriented software engineering RECORD.pdf

EXNO:1 PASSPORT AUTOMATION SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
USECASE DIAGRAM:

DEPLOYMENT DIAGRAM:
CLASS DIAGRAM:

SEQUENCE DIAGRAM:
STATE CHART DIAGRAM:

PACKAGE DIAGRAM:
ACTIVITY DIAGRAM:

FORM7:
SOURCE CODE:
FORM1:
Private Sub Command1_Click()
Dim app As Applicant
Set app = New Applicant
app.Login
End Sub
Dim pass As PassportAdministrator
Set pass = New PassportAdministrator
pass.Login
End Sub
Dim reg As RegionalAdminstrator
Set reg = New RegionalAdminstrator
reg.Login
End Sub
Dim pol As Police
Set pol = New Police
pol.Login
End Sub

If Form1.Text1.Text = "" And Form1.Text2.Text = "" Then
MsgBox "LOGIN SUCCESSFUL"
Form6.Show
Else
MsgBox "INVALID USERNAME AND PASSWORD"
Unload Me
End If
End Sub
End
End Sub
FORM2:
Dim subdetails As Applicant
Set subdetails = New Applicant
subdetails.SubmitDetails
End Sub
Data1.Recordset.Edit
End Sub
Data1.Recordset.update
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
End Sub
FORM3:
Private Sub a_Click()
Data2.Recordset.AddNew
End Sub
Dim search As PassportAdministrator

Set search = New PassportAdministrator
search.update
End Sub
If Data1.Recordset.BOF Then
MsgBox "NO DATA FOUND"
Else
Data1.Recordset.MovePrevious
End If
End Sub
If Data1.Recordset.EOF Then
Else
Data1.Recordset.MoveNext
End If
End Sub
Form1.Show
Unload Me
End Sub
Data1.Recordset.MoveFirst
End Sub
Data1.Recordset.MoveLast
End Sub
Data1.Recordset.Fields(9) = "successful"
End Sub
Data1.Recordset.Fields(9) = "unsuccessful"
End Sub
Private Sub ve_Click()
Dim verify As PassportAdministrator
Set verify = New PassportAdministrator

verify.update
End Sub
FORM4:
Dim search As RegionalAdminstrator
Set search = New RegionalAdminstrator
search.verify
End Sub
End Sub
End Sub
Form1.Show
Unload Me
End Sub
Dim update As RegionalAdminstrator
Set update = New RegionalAdminstrator
update.update
End Sub
End Sub
End Sub
Else
End If
End Sub

Else
End If
End Sub
FORM5:
Dim search As Police
Set search = New Police
search.verify
End Sub
End Sub
End Sub
Form1.Show
Unload Me
End Sub
End Sub
End Sub
Else
End If
End Sub

Else
End If
End Sub
FORM6:
Dim checkstate As Applicant
Set checkstate = New Applicant
checkstate.CheckStatus
End Sub
Form1.Show
Unload Me
End Sub
UML CODINGS:
APPLICANT:
Option Explicit
'##ModelId=4D7521E80271
Private Name As Variant
'##ModelId=4D7521EE02CE
Private FatherName As Variant
'##ModelId=4D7521F3009C
Private DateOfBirth As Variant
'##ModelId=4D75220B01A5
Private PermanentAddress As Variant
'##ModelId=4D752220033C
Private TemporaryAddress As Variant
'##ModelId=4D75224101E4
Private EmailID As Variant
'##ModelId=4D75224701E4
Private PhoneNumber As Variant
'##ModelId=4D75224E031C
Private PanNo As Variant
'##ModelId=4D7522590242
Private ApplicationNo As Variant
'##ModelId=4D75225D038A
Private UserName As Variant

'##ModelId=4D75226300CB
Private Password As Variant
'##ModelId=4D7523300271
Public NewProperty As Database
'##ModelId=4D7522690109
Public Sub Login()
If Form1.Text1.Text = "" And Form1.Text2.Text = "" Then
Form2.Show
Else
MsgBox "INVALID USERNAME AND PASSWORD"
Unload Me
End If
End Sub
'##ModelId=4D752271032C
Public Sub SubmitDetails()
Dim ap As Integer
Form1.Data1.Recordset.MoveLast
ap = Data1.Recordset.Fields(0)
ap = ap + 1
Form1.Data1.Recordset.Fields(0) = ap
Form1.Data1.Recordset.Fields(1) = Text1.Text
Form1.Data1.Recordset.Fields(9) = "Under Process"
Form1.Data1.Recordset.update
Form1.Show
Unload Me
End Sub
'##ModelId=4D7522760261
Public Sub CheckStatus()
Dim Currentdb As Database

Set Currentdb = OpenDatabase("D:PASSPORTPROJECT1PASSPORT.mdb")
Dim Data As Recordset
Set Data = Currentdb.OpenRecordset("applicant", dbOpenDynaset)
Data.FindFirst "([ApplicationNo])=" & Form6.Text1.Text
If Data.NoMatch Then
MsgBox "No such record"
Else
MsgBox "success"
Form6.Text1.Text = Data.Fields(0)
Form6.Label5 = Data.Fields(1)
Form6.label9 = Data.Fields(10)
End If
Data.Close
End Sub
DATA BASE:
Option Explicit
'##ModelId=4D7522A30222
Private Name As Variant
'##ModelId=4D75233C005D
Public NewProperty As PassportAdministrator
'##ModelId=4D75233E006D
Public NewProperty2 As RegionalAdminstrator
'##ModelId=4D75234202BF
Public NewProperty3 As Police
'##ModelId=4D7522A50186
Public Sub store()
End Sub
PASSPORT ADMINSTRATOR:
Option Explicit
'##ModelId=4D7522A90128
'##ModelId=4D7522F9035B
'##ModelId=4D7522B20232
Public Sub Login()
If Form1.Text1.Text = "passadmin" And Form1.Text2.Text = "12345" Then
Form1.Text1.Text = ""

Form1.Text1.SetFocus
Form3.Show
Else
MsgBox "INVALID USERNAME OR PASSWORD"
End If
End Sub
'##ModelId=4D7522BA004E
Public Sub verify()
Set Currentdb = OpenDatabase("D:PASSPORTPROJECT1passport.mdb")
Set Data = Currentdb.OpenRecordset("PassportAdministrator", dbOpenDynaset)
If Form3.Text1.Text = "" Then
MsgBox "select any data"
Else
Data.FindFirst "([PanNo])=" & Form3.Text1.Text
Else
MsgBox "success"
End If
End If
End Sub
'##ModelId=4D7522BF01D4
Public Sub update()
If Form3.Text2.Text = Form3.Text7.Text And Form3.Text3.Text =
Form3.Text8.Text Then
Form3.Data1.Recordset.Edit
Form3.Data1.Recordset.Fields(9) = "successful"
Form3.Data1.Recordset.update
MsgBox "success"
Else
MsgBox "no "

End If
End Sub
POLICE:
Option Explicit
'##ModelId=4D7522E1001F
'##ModelId=4D75232601D4
'##ModelId=4D7522E30251
Public Sub Login()
If Form1.Text1.Text = "poladmin" And Form1.Text2.Text = "12345" Then
Form5.Show
Else
End If
End Sub
'##ModelId=4D7522E8008C
Public Sub verify()
Set Data = Currentdb.OpenRecordset("Police", dbOpenDynaset)
Else
Else
MsgBox "success"
If Data.Fields(5) = "Notallowed" Then
MsgBox "not allowed"
Else

MsgBox "allowed"
End If
End If
End If
Data.Close
End Sub
'##ModelId=4D7522EA02BF
Public Sub update()
End Sub
REGIONAL ADMINSTRATOR:
Option Explicit
'##ModelId=4D7522C80222
'##ModelId=4D75231A0109
'##ModelId=4D7522CB02CE
Public Sub Login()
If Form1.Text1.Text = "regadmin" And Form1.Text2.Text = "12345" Then
Form4.Show
Else
End If
End Sub
'##ModelId=4D7522CE01A5
Public Sub verify()
Set Data = Currentdb.OpenRecordset("RegionalAdminstrator", dbOpenDynaset)
Else

Else
MsgBox "success"
End If
End If
End Sub
'##ModelId=4D7522D002BF
Public Sub update()
If Form4.Text2.Text = Text6.Text And Form4.Text3.Text = Form4.Text7.Text
And Form4.Text4.Text = Form4.Text8.Text And Form4.Text5.Text =
Form4.Text9.Text Then
MsgBox "Details match"
Else
MsgBox "Details donot match"
End If
End Sub
RESULT:

EX NO:2 BOOK BANK MANAGEMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
ACTIVITY DIAGRAM:
COMPONENT DIAGRAM:

DEPLOYMENT DIAGRAM:
FORMS:
FORM1:

FORM8:
SOURCE CODE:
Administrator. Class
Option Explicit
'##Model Id=4D5A2FC4038A
Private name As Variant
'##Model Id=4D6CB83B006D
Private address As Variant
'##Model Id=4D6CB84902DE
Private phone As Variant
'##Model Id=4D6CB8510000
Private mail id As Variant
'##Model Id=4D5A34780280
Public New Property As year
'##Model Id=4D5A348B0290
Public NewProperty2 As database
Public Sub authentication ()
On Error Go To Error Handler
'## your code goes here...
If Form10.Text1.Text = "admin" And Form10.Text2.Text = "1234" Then

MsgBox "login successfully"
Form9.Show
Else
MsgBox "invalid password"
End If
Exit Sub
ErrorHandler:
Call Raise Error (My Unhandled Error, "authentication Sub")
End Sub
'##Model Id=4D5A31E402BF
Public Sub verification ()
Exit Sub
Error Handler:
Call Raise Error (My Unhandled Error , "verification Sub")
End Sub
'##Model Id=4D6CB8E403B9
Public Sub issue_books()
Exit Sub
Error Handler:
Call Raise Error (My Unhandled Error, "issue_books Sub")
End Sub
Database .class
Option Explicit
'##Model Id=4D5A2FB00128
'##Model Id=4D51082601C5
Public Sub update ()
Exit Sub
Error Handler:
Call Raise Error (My Unhandled Error , "update Sub")
End Sub
Year . Class
Option Explicit
'##Model Id=4D5A317F00DA

Private year_selection As Variant
Public Sub 1styear()
On Error GoTo ErrorHandler
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "styear Sub")
End Sub
'##ModelId=4D5A319F00CB
Public Sub 2nd_year()
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "nd_year Sub")
End Sub
'##ModelId=4D5A31A2032C
Public Sub 3rd_year()
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "rd_year Sub")
End Sub
Issue for first year. class
Option Explicit
'##ModelId=4D5A3381006F
Private member_code As Variant
'##ModelId=4D5A33810070
Private member_name As Variant
'##ModelId=4D5A33810072
Private book_name As Variant
'##ModelId=4D5A347B03B9
Public NewProperty As year
'##ModelId=4D5A3381006E
Public Sub issue_for_first()
Form6.Data1.Recordset.AddNew

Form6.Text5.Text = Form6.Text5.Text + 1
Form6.Text4.Text = Form6.Text4.Text - 1
If (Form6.Text4.Text <= 0) Then
MsgBox "only four books can be selected"
Form8.Show
End If
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "issue_for_first Sub")
End Sub
Issue for second year class
Option Explicit
'##ModelId=4D5A33D902EE
'##ModelId=4D5A33DC03D8
'##ModelId=4D5A33E30167
'##ModelId=4D5A347C03D8
'##ModelId=4D5A33ED00BB
Public Sub issue_for_second()
Form7.Text4.Text = Text4.Text - 1
Form8.Show
End If
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "issue_for_second Sub")
End Sub
Issue for third year class
Option Explicit
'##ModelId=4D5A33F2036B
'##ModelId=4D5A33FA00EA

'##ModelId=4D5A34010399
'##ModelId=4D5A347E0138
'##ModelId=4D5A340F01B5
Public Sub issue_for_third()
Form8.Data1.Recordset.AddNew
Form8.Text4.Text = Form8.Text4.Text - 1
Form8.Show
End If
Exit Sub
ErrorHandler:
Call RaiseError(MyUnhandledError, "issue_for_third Sub")
End Sub
Form 1
Form1.Show
End Sub
Form9.Show
End Sub
Form5.Show
End Sub
Form 2
End Sub
Form2.Show
End Sub
Form 3

Form4.Show
End Sub
Form6.Show
End Sub
Form7.Show
End Sub
Form 4
Dim fi As Issue for first year
Set fi =new Issue for first year
fi.issue_for_first
End Sub
End Sub
Text4.Text = 5
Text5.Text = 0
End Sub
Private Sub List1_Click()
Text3.Text = List1.Text
End Sub
Form 5
Dim se As Issue for second year
Set se =new Issue for second year
se.issue_for_second
End Sub
End Sub
Text4.Text = 5
Text5.Text = 0
End Sub
End Sub

Form 6
Dim th As Issue for third year
Set th =new Issue for third year
th.issue_for_third
End Sub
End Sub
Text4.Text = 5
Text5.Text = 0
End Sub
End Sub
Form 7
private Sub Command1_Click()
Dim au As Administrator
Set au =new Administrator
au. authentication
End Sub
Unload Me
End Sub
RESULT:

EXNO:3a EXAM REGISTRATION SYSTEM
AIM:
PROBLEM STATEMENT

UML DIAGRAM:
USE CASE DIGRAM:
CLASS DIAGRAM:
DEPLOYMENT DIAGRAM:

SEQUENCE DIAGRAM:
COLLABORATION DIAGRAM:

ACTIVITY DIAGRAM:
FORMS:
FORM1:

Source Code:
Students:
Option Explicit
'##ModelId=4D2137EC15D6
'##ModelId=4D3627BF0157
'##ModelId=4D424904184B
Private dob As Variant
'##ModelId=4D413519007D
Private subjects As Variant
Private college As Variant
'##ModelId=4D41381923B5
Public NewProperty As reg website
Dim v1 As reg website
'##ModelId=4D91482B0167
'##ModelId=4C71253D02AF
Public Sub Form Filling()
End Sub
'##ModelId=4598050E03D8
Public Sub Registration()
End Sub
Registration Website:
Option Explicit
'##ModelId=4D4135610399
Private qualification As Variant
'##ModelId=4D413565000F
Private login details As Variant
'##ModelId=4D41356F0203
Private fee details As Variant
'##ModelId=4D4136E200EA
Private exam dates As Variant
Public NewProperty As university database
'##ModelId=4598067E032C
Public NewProperty2 As university database
'##ModelId=4598069501B5
Public NewProperty3 As university database
'##ModelId=459805A10128

Public Sub verification()
End Sub
'##ModelId=459805A10128
Public Sub processing()
End Sub
'##ModelId=4D5A317F00DA
Public Sub registration()
End Sub
University Database:
Option Explicit
'##ModelId=459806A30280
Public NewProperty As students
'##ModelId=4598060A02BF
Public Sub verify_the_details()
End Sub
'##ModelId=45980463F57B5
Public Sub storing registration()
End Sub
Form1:
Dim ob1 as students
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
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
ob3.Previous
End sub
Private Sub previous()
Form1.show
End Sub
Dim ob4 as 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
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
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
RESULT:

Ex. No: 4 STOCK MAINTENANCE SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
USE CASE DIAGRAM:
CLASS DIAGRAM:

SEQUENCE DIAGRAM:
COMPONENT DIAGRAM:

ACTIVITY DIAGRAM:

PACKAGE DIAGRAM:
FORMS:
FORM1:

SOURCE CODE:
CUSTOMER:
Option Explicit
'##ModelId=4D47C9A90242
Private cust_name As Variant
'##ModelId=4D47C9B100EA
'##ModelId=4D47C9B5008C
Private phone_no As Variant
'##ModelId=4D47C93A008C
Public NewProperty As placing_orders
Public NewProperty2 As database3
'##ModelId=4D47C98A01E4
'##ModelId=4D47C98D036B
Public NewProperty4 As placing_orders
'##ModelId=4D47C9C00186
Public Sub submit()
End Sub
FORM1:
SUBMIT BUTTON
Form6.Text1.Text = Form1.sgs.Text
Form6.Text2.Text = Form1.Text2.Text
Form2.Show
End Sub
EXIT BUTTON
Unload Me
End Sub
PLACING ORDERS:
Option Explicit
'##ModelId=4D47C9FE00AB
Private select_goods As Variant
'##ModelId=4D47C93D031C
Public NewProperty As database3
'##ModelId=4D47C9910222

'##ModelId=4D47CA0E0232
Public Sub submit()
End Sub
FORM 2:
SUBMIT COMMAND
Dim p As placing_orders
Set p = New placing_orders
p.submit
End Sub
Public Sub submit()
If (Form2.Combo1.Text = "MONITOR") Then
Form6.Text4.Text = Form2.Combo1.Text
Form3.Show
End If
If (Form2.Combo1.Text = "HARD DISC") Then
Form4.Show
End If
If (Form2.Combo1.Text = "KEYBOARD") Then
Form5.Show
End If
End Sub
DATABASE:
'##ModelId=4D47C9A90242
Private cust_name As Variant
'##ModelId=4D47C9B100EA
'##ModelId=4D47C9B5008C
'##ModelId=4D47C93A008C
Public NewProperty As placing_orders
Public Sub submit()
End Sub
FORM 8:
Form2.Show
End Sub

Text1.Text = Text1.Text - Text3.Text
Adodc1.Recordset.Fields(2) = Text1.Text
Form6.Text5.Text = Form5.Label2
Form6.Show
Adodc1.Recordset.Update
End Sub
Text2.Text = Text2.Text - Text4.Text
Adodc1.Recordset.Fields(3) = Text2.Text
Form6.Text5.Text = Form5.Label3
Form6.Show
End Sub
RESULT:

EXNO :5 ONLINE COURSE RESERVATION SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAM:
USECASE DIAGRAM:
CLASS DIAGRAM:

ACTIVITY DIAGRAM:
COMPONENT DIAGRAM:
DEPLOYMENT DIAGRAM:

SOURCE CODE
FORM1:
Dim log As student1
Set log = New student1
log.study
End Sub
Unload Me
End Sub
FORM2:
Dim course As college
Set course = New college
course.admission
End Sub
End
End Sub
FORM3:
Text1.Text = Text1.Text - 1
End Sub
End Sub
Form6.Show
Unload Me
End Sub
FORM4:
End Sub

End Sub
Form6.Show
Unload Me
End Sub
FORM5:
End Sub
End Sub
Form6.Show
Unload Me
End Sub
FORM6:
End
End Sub
UML CODES:
COLLEGE:
Option Explicit
'##ModelId=4D18FCC202EE
Private collegeno As Variant
'##ModelId=4D18FCFD004E
Private collegename As Variant
'##ModelId=4D18FD0103C8
Private course As Variant
'##ModelId=4D18FD07033C
Public Sub admission()
If (Form2.Combo1.Text = "CSE") Then
Form3.Show
Unload Form2
End If
If (Form2.Combo1.Text = "ECE") Then
Form4.Show
Unload Me

End If
If (Form2.Combo1.Text = "EEE") Then
Form5.Show
Unload form2
End If
End Sub
COURSE:
Option Explicit
'##ModelId=4D18FD5801D4
Private Mechanical As Variant
'##ModelId=4D18FD5D0290
Private EEE As Variant
'##ModelId=4D18FD630138
Private CSE___IT As Variant
'##ModelId=4D18FD69034B
Private ECE As Variant
'##ModelId=4D18FD6C02BF
Private MBA As Variant
'##ModelId=4D18FE3F034B
Public NewProperty As college
CSE_IT
Option Explicit
'##ModelId=4D18FE260203
'##ModelId=4D18FDC101C5
Private os_lab As Variant
'##ModelId=4D18FDCA01E4
Private Internet_lab As Variant
'##ModelId=4D18FDD30222
Private Case_tool_lab As Variant
'##ModelId=4D18FDD9033C
Private Network_lab As Variant
'##ModelId=4D22343E0186
Private mcourseObject As New course
'##ModelId=4D18FDE501E4
Public Sub Terminate()
End Sub
'##ModelId=4D22343E01A5
Private Property Set course_(ByVal RHS As college)
' Set mcourseObject. = RHS
End Property

'##ModelId=4D22343E01E4
Private Property Get course_() As college
'Set course_ = mcourseObject.
End Property
ECE
Option Explicit
'##ModelId=4D18FE2E006D
'##ModelId=4D18FDF4030D
Private Digital_lab As Variant
'##ModelId=4D18FDFB0157
Private microprocessor_lab As Variant
'##ModelId=4D18FE0102DE
Private Electronic_lab As Variant
End Property
'##ModelId=4D22343E00BB
End Property
EEE
Option Explicit
'##ModelId=4D18FE230000
'##ModelId=4D18FD98006D
Private Electronic_lab As Variant
'##ModelId=4D18FDA8001F
Private Electrical_lab As Variant
'##ModelId=4D18FDAE01F4
Private control_system As Variant
'##ModelId=4D22343E02BF
'##ModelId=4D22343E02CE
Set mcourseObject. = RHS
End Property
Set course_ = mcourseObject.
End Property
MBA
Option Explicit

'##ModelId=4D18FE5503A9
'##ModelId=4D18FD7E0148
Private communication As Variant
'##ModelId=4D18FD8500AB
Private marketing As Variant
'##ModelId=4D18FD8A01C5
Private management As Variant
'##ModelId=4D22343E03A9
'##ModelId=4D22343E03C8
Set mcourseObject. = RHS
End Property
'##ModelId=4D22343F000F
Set course_ = mcourseObject.
End Property
MECHANICAL
Option Explicit
'##ModelId=4D18FE4B001F
Implements course
'##ModelId=4D18FD28036B
Private Lathe As Variant
'##ModelId=4D18FD3F0119
Private workshop As Variant
'##ModelId=4D22343F0157
'##ModelId=4D18FD4500AB
Public Sub production()
End Sub
'##ModelId=4D22343F0167
Private Property Set course_NewProperty(ByVal RHS As college)
Set mcourseObject.NewProperty = RHS
End Property
'##ModelId=4D22343F01A5
Private Property Get course_NewProperty() As college
Set course_NewProperty = mcourseObject.NewProperty
End Property
STUDENT:
Option Explicit

'##ModelId=4D223035000F
'##ModelId=4D2230380222
Private rollno As Variant
'##ModelId=4D22303C0242
Private mark As Variant
'##ModelId=4D22304102CE
Public Sub study()
If Form1.Text1.Text = "palani" And Form1.Text2.Text = "123456" Then
MsgBox "login successful"
Form2.Show
Unload Form1
Else
End If
End Sub
RESULT:

EXNO:6 E-TICKETING
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
SEQUENCE DIAGRAM:

ACTIVITY DIAGRAM:
COMPONENT DIAGRAM:
FORMS:
FORM1:

SOURCE CODE:
FORM1:
If txtus.Text = "admin" Then
If txtpass.Text = "admin" Then
MsgBox "login sucess"
Form1.Show
Unload Me
Else
MsgBox "The password you entered is incorrect.Please retype the password.",
vbCritical,
"Wrong Entry"
txtpass.Text = ""
End If
Else
MsgBox "The username and password you entered is incorrect.Please retype the
username and password.", vbCritical, "Wrong Entry"
txtus.Text = ""
txtpass.Text = ""
End If
End Sub
Unload Me
End Sub
FORM3:
Adodc1.Recordset.AddNew
End Sub
Adodc1.Recordset.MoveNext
End Sub
Adodc1.Recordset.MovePrevious
End Sub
Adodc1.Recordset.MoveLast
End Sub
End Sub

Unload Me
End Sub
Adodc1.Recordset.Delete
End Sub
Form3.Show
End Sub
FORM5:
Adodc2.Recordset.AddNew
End Sub
Adodc2.Recordset.MoveNext
End Sub
Adodc2.Recordset.MovePrevious
End Sub
Adodc2.Recordset.MoveLast
End Sub
End Sub
Adodc2.Recordset.Delete
End Sub
Unload Me
End Sub
RESULT:

EX NO:7 EMPLOYEE MANAGEMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
CLASS DIAGRAM:
PACKAGE DIAGRAM:

COMPONENT DIAGRAM:
FORMS:
FORM1:

FORM6:
SOURCE CODE:
Class modules:
CEO:
Option Explicit
'##ModelId=4D413303009C
'##ModelId=4D41330502BF
Private Emp_no As Variant
'##ModelId=4D41330E01F4
Private DOB As Variant
'##ModelId=4D413434035B
Public NewProperty As database
'##ModelId=4D413322005D
Public Sub view()
End Sub
'##ModelId=4D41410F01B5
Public Sub update()
End Sub
'##ModelId=4D41411401C5
Public Sub login()
End Sub

EMPLOYEE:
Option Explicit
'##ModelId=4D41409D0399
'##ModelId=4D4140A400EA
Private DOB As Variant
'##ModelId=4D4140B10290
Private salary As Variant
'##ModelId=4D4140B801C5
Private exp As Variant
'##ModelId=4D4140BC01F4
Private ph_no As Variant
Public NewProperty As database
DATABASE:
Option Explicit
'##ModelId=4D41334C02FD
Private pruducts As Variant
'##ModelId=4D41414000EA
Private projects As Variant
'##ModelId=4D4134380196
Public NewProperty As database_admin
'##ModelId=4D4140F00290
Public NewProperty2 As employee
'##ModelId=4D4133930271
Public Sub store_data()
End Sub
'##ModelId=4D4133A00271
Public Sub update()
End Sub
'##ModelId=4D4133A601A5
Public Sub insert()
End Sub
'##ModelId=4D41414A032C
Public Sub enquiry()
End Sub
'##ModelId=4D4133AC00BB
Public Sub delete()
End Sub
'##ModelId=4D4133AF002E

Public Sub verify()
End Sub
'##ModelId=4D4133B2034B
Public Sub display()
End Sub
FORMS:
Form 1:
If Form1.Text1.Text = "admin" And Form1.Text2.Text = "admin" Then
MsgBox "login successful"
Form1.Hide
Form2.Show
Else
End If
Dim v1 As CEO1
Private Sub command1_Click ()
Set v1 = New CEO1
v1.login
End Sub
Form 2:
If (Form2.Combo1.Text = "rahul") Then
Form2.Hide
Form3.Show
End If
If (Form2.Combo1.Text = "ram") Then
Form2.Hide
Form4.Show
End If
If (Form2.Combo1.Text = "Kelli") Then
Form2.Hide
Form5.Show
End If
If (Form2.Combo1.Text = "Sam") Then
Form2.Hide
Form6.Show
End If
Dim v2 As database
Set v2 = New database
v2.display

End Sub
Form 3:
Form3.Hide
Form2.Show
End Sub
Form 4:
Form4.Hide
Form2.Show
End Sub
Form 5:
Form5.Hide
Form2.Show
End Sub
Form 6:
Form6.Hide
Form2.Show
End sub
RESULT:

EX NO:8 CREDIT CARD PROCESSING SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
COLLOBORATION DIAGRAM:
DEPLOYMENT DIAGRAM:

SOURCE CODE:
CARD READER:
Option Explicit
'##ModelId=4D4136130261
Private machine__number As Variant
'##ModelId=4D413619031C
Private software As Variant
'##ModelId=4D4136680177
Private company_name As Variant
Dim v1 As vendors
'##ModelId=4D4136B6030D
'##ModelId=4D4136CB0222
Public Sub print_receipt()
End Sub
CUSTOMERS:
Option Explicit
'##ModelId=4D4134EC01E4
'##ModelId=4D4134EF0167
Private age As Variant
'##ModelId=4D413504036B
Private signature As Variant
'##ModelId=4D413519007D
Private card_number As Variant
Public NewProperty As vendors
Dim v1 As vendors
'##ModelId=4D4135250167
'##ModelId=4D41353E02AF
Public Sub swap()
End Sub
VENDORS:
Option Explicit
'##ModelId=4D4135610399
'##ModelId=4D413565000F
'##ModelId=4D41356F0203
Private machine_num As Variant

Public NewProperty As card_reader
Dim v2 As card_reader
'##ModelId=4D4135BA03A9
Public Sub make_bill()
Form3.Show
End Sub
'##ModelId=4D4135CA029F
Public Sub delivery_item()
Form3.Show
End Sub
Form1:
Dim r1 As customers
Set r1 = New customers
r1.purchase_item
End Sub
Unload Me
End Sub
Public Sub purchase_item()
Form2.Show
End Sub
Form2:
Dim r2 As vendors
Set r2 = New vendors
r2.delivery_item
End Sub
Form1.Show
End Sub
Form3:
Dim r3 As card_reader
Set r3 = New card_reader
r3.make_transaction
End Sub
Public Sub make_transaction()
Form4.Show
End Sub

EX.NO: 9 E-BOOK MANAGEMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAM:
USE CASE DIAGRAM:
CLASS DIAGRAM:

SEQUENCE DIAGRAM:
COLLOBORATION DIAGRAM:

COMPONENT DIAGRAM:
DEPLOYMENT DIAGRAM:

SOURCE CODE:
CUSTOMER:
FORM1:
Option Explicit
'##ModelId=4D63700C0148
'##ModelId=4D63701003C8
'##ModelId=4D637016007D
Private contact_no As Variant
'##ModelId=4D637027031C
Private account_no As Variant
'##ModelId=4D63714C02BF
Public NewProperty As books
'##ModelId=4D63715201C5
Public NewProperty2 As Database
'##ModelId=4D63706000BB
Public Sub login()
End Sub
If Text1.Text = "pandi" And Text2.Text = "**" Then
MsgBox "login sucessfully"
Form2.Show
Else
End If
End Sub
Unload Me
End Sub
BOOK:
FORM2:
Option Explicit
'##ModelId=4D63709803C8
Private operating_system As Variant
'##ModelId=4D6370AA008C
Private computer_architecture As Variant
'##ModelId=4D6370B30138
Private dbms As Variant
'##ModelId=4D6370B603C8

Private web_technology As Variant
'##ModelId=4D6370C0034B
Private ooad As Variant
'##ModelId=4D6370C50167
'##ModelId=4D6370650213
Public Sub payment()
End Sub
Public Sub select()
End Sub
'##ModelId=4D6370D0000F
Public Sub buy()
End Sub
Form3.Show
End Sub
Form3.Show
End Sub
Form3.Show
End Sub
Form3.Show
End Sub
Private Sub Label2_Click()
End Sub
FORM3:
Form4.Show
End Sub
RESULT:

EXNO: 10 ONLINE RECRUITMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
USE CASE DIAGRAM:
SEQUENCE DIAGRAM:

COMPONENT DIAGRAM:
DEPLOYMENT DIAGRAM:
FORMS:
FORM1:

FORM10:
SOURCE CODE:
APPLICANT:
Option Explicit
'##ModelId=4D5CED1B0324
Private UserName As String
Private Password As String
Private Phoneno As Integer
Private Address As String
Private Name As String
'##ModelId=4D5CED1B032B
Public NewProperty2 As applicant1
Public Sub register()
End Sub

Public Sub login()
End Sub
Public Sub applicant_details()
End Sub
Recruiter:
Option Explicit
Private Name As String
Private Designation As String
Private Phoneno As Integer
Private Marks_in_Aps As Integer
Private Marks_in_tech As Integer
'##ModelId=4D5CED1B033C
'##ModelId=4D5CED1B032B
Public NewProperty2 As applicant1
Public Sub Aps_test()
End Sub
Public Sub Aps1_test()
End Sub
Public Sub Tech_Round()
End Sub
Public Sub Tech1_Round()
End Sub
Database1:
Option Explicit
'##ModelId=4D5CED1B033C
'##ModelId=4D5CED1B030E

Public Sub apps_details()
End Sub
'##ModelId=4D5CED1B030F
Public Sub tech_details()
End Sub
Public Sub selected_applicant_details()
End Sub
FORM1:
Dim obj1 As applicant1
Set obj1 = New applicant1
obj1.login
End Sub
Public Sub login()
If Form1.Text1.Text = "recruit" And Form1.Text2.Text = "recruit" Then
MsgBox "login successfully"
Form2.Show
Else
End If
End Sub
FORM2:
obj2.register
End Sub
Public Sub register()
Form3.Show
End Sub
FORM3:
obj3.applicant_details
End Sub
Public Sub applicant_details()
MsgBox "Enter the name"

ElseIf Form3.Text2.Text = "" Then
MsgBox "Enter the Address"
MsgBox "Enter the Phoneno"
MsgBox "Enter the Educational qualification"
MsgBox "Enter the Percentage"
End If
If Val(Form3.Text5.Text) < 75 Then
MsgBox "you are not up to the qualification.you are not registered"
Else
MsgBox "you are registered successfully"
Form4.Show
End If
End Sub
FORM4:
Dim obj4 As recruiter1
Set obj4 = New recruiter1
obj4.Aps_test
End Sub
Dim obj5 As database1
Set obj5 = New database1
obj5.apps_details
End Sub
Public Sub Aps_test()
Form5.Show
End Sub
Public Sub apps_details ()
Form4.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:Documents and SettingsStudentMy Documentsrecu1.mdb;Persist
Security Info=False"
Form4.Adodc1.RecordSource = "select * from suk"
Set Form4.DataGrid1.DataSource = Form4.Adodc1
End Sub
FORM5:

obj6.Aps1_test
End Sub
obj7.tech _details
End Sub
Public Sub Aps1_test()
Form6.Show
End Sub
Public Sub tech_details()
Form5.Adodc1.RecordSource = "select * from suk_query"
End Sub
FORM6:
obj8.Tech_Round
End Sub
obj7.selected_applicant_details
End Sub
Public Sub selected_applicant_details()
Form6.Adodc1.RecordSource = "select * from tech"
End Sub
FORM7:

obj0.Tech1_Round
End Sub
Public Sub Tech1_Round()
Form7.Adodc1.RecordSource = "select * from tech_query"
End Sub
RESULT:

EXNO:11 FOREIGN TRADING SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAM:
CLASS DIAGRAM:
SEQUENCE DIAGRAM:
COMPONENT DIAGRAM:

DEPLOYMENT DIAGRAM:
FORMS:
FORM1:

SOURCE CODE:
ACCOUNT:
Option Explicit
'##ModelId=4D64958501F4
Private accoutno As Integer
'##ModelId=4D64958E0186
Private balance As Integer
'##ModelId=4D64959B0290
Private due As Integer
'##ModelId=4D6612990290
Public Sub accountno()
MsgBox "your transaction is successfull"
Form6.Show
End Sub
'##ModelId=4D66130F0128
Public Sub accountpay()
MsgBox "your transaction failed. Do your trading again"
Form5.Show
End Sub
ADMINISTRATOR:
'##ModelId=4D6496030128
Public NewProperty As item
'##ModelId=4D6CAE4001F4
Public Sub paybill2()
Form7.Text3.Text = Form7.Text3.Text - Form7.Text5.Text
End Sub
'##ModelId=4D649563003E
Public Sub bill1()
Form4.Text1.Text = Form3.Text4.Text * Form3.Text5.Text
Form4.Show
End Sub
'##ModelId=4D6CA397008C
Public Sub bill2()
Form8.Text1.Text = Form7.Text4.Text * Form7.Text5.Text
Form8.Show
End Sub
'##ModelId=4D64956F0399
Public Sub traceorder()
Source=C:Documents and SettingsStudentDesktopdatumdb.mdb;Persist

Form5.Adodc1.RecordSource = "select itemname from itemtable"
End Sub
'##ModelId=4D6612B70186
Public Sub paybill1()
End Sub
ITEM:
Option Explicit
'##ModelId=4D6495B600CB
Private name As String
'##ModelId=4D6495BC0213
Private id As Integer
'##ModelId=4D6495CA0251
Private rate As Integer
'##ModelId=4D6495D103C8
Private available As Integer
'##ModelId=4D6612C202CE
Public Sub getperfume()
Form4.Show
End Sub
'##ModelId=4D6612D30167
Public Sub getdoll()
Form8.Show
End Sub
TRADER:
'##ModelId=4D64952500BB
Public Sub login()
If Form1.Text1.Text = "ramya" And Form1.Text2.Text = "ramya" Then
MsgBox "logined successfully"
Form5.Show
Else
MsgBox "invalid login"
End If
End Sub
'##ModelId=4D64952901C5

Public Sub sourcing()
If Form5.Combo1.Text = "perfume" Then
Form3.Show
End If
If Form5.Combo1.Text = "dolls" Then
Form7.Show
End If
End Sub
'##ModelId=4D649531005D
Public Sub placeorder()
Form5.Show
End Sub
'##ModelId=4D64953600FA
Public Sub pay()
Form2.Show
End Sub
'##ModelId=4D64953903B9
Public Sub logout()
Form1.Show
End Sub
FORM1:
Dim a1 As trader
Set a1 = New trader
a1.login
End Sub
FORM2:
Dim a7 As account
Set a7 = New account
a7.accountno
End Sub
Dim x As account
Set x = New account
x.accountpay
End Sub
FORM3:
Dim a3 As item

Set a3 = New item
a3.getperfume
Dim x3 As administrator
Set x3 = New administrator
x3.paybill1
End Sub
Dim a4 As trader
Set a4 = New trader
a4.placeorder
End Sub
FORM4:
Dim a5 As trader
Set a5 = New trader
a5.pay
End Sub
Dim a As administrator
Set a = New administrator
a.bill1
End Sub
FORM5:
Dim a2 As trader
Set a2 = New trader
a2.sourcing
End Sub
Dim a0 As administrator
Set a0 = New administrator
a0.traceorder
End Sub
FORM6:
Dim a6 As trader
Set a6 = New trader
a6.logout
End Sub

FORM7:
Dim a3 As item
Set a3 = New item
a3.getdoll
Dim x2 As administrator
Set x2 = New administrator
x2.paybill2
End Sub
Dim a4 As trader
Set a4 = New trader
a4.placeorder
End Sub
FORM8:
Dim a8 As trader
Set a8 = New trader
a8.pay
End Sub
Dim a7 As administrator
Set a7 = New administrator
a7.bill2
End Sub
RESULT:

EXNO: 12 CONFERENCE MANAGEMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
SEQUENCE DIAGRAM:
COMPONENT DIAGRAM:
DEPLOYMENT DIAGRAM:

SOURCE CODE:
CANDIDATE:
Option Explicit
'##ModelId=459804B502EE
'##ModelId=459804B902DE
Private college_name As Variant
'##ModelId=459804BF01C5
Private department As Variant
'##ModelId=459804E40119
Private paper_title As Variant
'##ModelId=45980653030D
Public NewProperty As reviewer1
'##ModelId=45980507034B
Public Sub login()
End Sub
'##ModelId=4598050E03D8
Public Sub submit_the_paper()
End Sub
'##ModelId=4598051302FD
Public Sub revised_and_camera_ready_paper_submission()
End Sub
'##ModelId=4598053F009C
Public Sub registration()
End Sub
DATABASE:
Option Explicit
'##ModelId=459806A30280
Public NewProperty As candidate1
'##ModelId=4598060A02BF
Public Sub verify_the_ID()
End Sub
'##ModelId=4598062A01F4
Public Sub allow_to_the_reviewer()
End Sub
REVIEWER:
Option Explicit
'##ModelId=45980565035B
Private reviewer_name As Variant
'##ModelId=45980568036B

Private reviewer_department As Variant
'##ModelId=459805920251
Private reviewer_ID As Variant
'##ModelId=4598065C008C
'##ModelId=4598067E032C
'##ModelId=4598069501B5
'##ModelId=459805A10128
Public Sub review_the_paper()
End Sub
'##ModelId=459805B0038A
Public Sub sending_paper_confirmation_details()
End Sub
FORM 1:
Dim a As candidate1
Set a = New candidate1
Call a.login
End Sub
Unload Me
End Sub
Public Sub login()
If Form1.Text1.Text = “rss” And Form1.Text2.Text = “rss” Then
MsgBox “login 130uccessfully!!!”
Form2.Show
Else
MsgBox “invalid username or password”
End If
End Sub
FORM2:
Dim a As candidate1
Set a=New candidate1
Call a.subregistration
End Sub
Public Sub subregistration()

If(Combo1.text=”101”)Then
Form3.Show
End If
Form4.Show
End If
Form5.Show
End If
End Sub
FORM 3:
Dim a As candidate1
Set a = New candidate1
Call a.verify_the_ID
End Sub
Public verify_the_ID()
Form2.Show
End Sub
FORM 4:
Dim a As database1
Set a = New database1
Call a.verify_the_ID
End Sub
Form2.Show
End Sub
FORM 5:
Dim a As database1
Set a = New database1
Call a. verify_the_ID
End Sub
Form2.Show
RESULT:

EXNO:13 BUSINESS PROCESS OUTSOURCING
MANAGEMENT SYSTEM
AIM:
PROBLEM STATEMENT:

UML DIAGRAMS:
CLASS DIAGRAM:
DEPLOYMANE DIAGRAM:
FORMS:
FORM1:

FORM8:
SOURCE CODE:
FORM 1:
customer
Option Explicit
'##ModelId=4D62041B005D
Private NAME As Variant
'##ModelId=4D62041F01F4
'##ModelId=4D6204240119
'##ModelId=4D6205B7008C
Public NewProperty As process_agent
'##ModelId=4D62042F0271
Public Sub attends_call()
End Sub
'##ModelId=4D62043B036B
Public Sub asks_query()
End Sub
database
Option Explicit
'##ModelId=4D620452000F
Private NAME As Variant
'##ModelId=4D62059502DE
Public NewProperty As process_agent
'##ModelId=4D620459007D
Public Sub get_details()
End Sub

'##ModelId=4D620569006D
Public Sub update_details()
End Sub
Public NewProperty As customer
'##ModelId=4D6205AE00FA
Public NewProperty2 As database
'##ModelId=4D6203E2000F
Public Sub makes_call()
If Form1.Text1.Text = "bpo" And Form1.Text2.Text = "123" Then
MsgBox "Login successfull"
Else
MsgBox "Invalid password"
End If
Form2.Show
End Sub
'##ModelId=4D6203EA02AF
Public Sub pitches_about_product()
Form2.Show
End Sub
'##ModelId=4D62040401A5
Public Sub make_sales()
If (Form2.Combo1.Text = "Anand") Then
Form3.Show
End If
If (Form2.Combo1.Text = "Brindha") Then
Form4.Show
End If
If (Form2.Combo1.Text = "Rubini") Then
Form5.Show
End If
End Sub
'##ModelId=4D620409030D
Public Sub ends_the_call()
Form2.Show
End Sub
RESULT:

Object Oriented software engineering RECORD.pdf

More Related Content

Similar to Object Oriented software engineering RECORD.pdf (16)

Recently uploaded (20)

Object Oriented software engineering RECORD.pdf