A project Report on

Estate Agent and Property Management System eProperty

DECLARATION

I hereby declare that the project entitled ____ Estate Agent and Property Management
System (eProperty)____

submitted for the XXXX. degree of XXXXX University is my

original work and the project has not formed the basis for the award of any other degree,
association ship, fellowship or any other similar titles.

Place:
Date :

-----------------------------Signature of the Student

Mr. XXXX XXXXX
Roll No : 5XXXXX
Course : XXXXX
Semester : Xth

ACKNOWLEDGEMENT

I would like to acknowledge our sincere thanks towards our study center, and its
faculties for their valuable guidance and suggestions that have resulted in the successful
completion of the project.

I am grateful to all those who have directly or indirectly helped me in completion of the
project.

Table of Contents
ABSTARCT.............................................................................................................................................................................7
PROPERTY MANAGEMENT SYSTEM BENEFITS........................................................................................................9

Scope and Features.............................................................................................................................10

Master Modules..............................................................................................................................10
Transaction Modules......................................................................................................................11
Search / Query Module..................................................................................................................12
Out of Scope.......................................................................................................................................13
Goal and objective..............................................................................................................................14
Solution Concept................................................................................................................................14
User Profiles.......................................................................................................................................15
PROBLEM STATEMENT...................................................................................................................................................16

Requirements Summary.....................................................................................................................16
Business Requirements..................................................................................................................16
User Requirements.........................................................................................................................16
Operational Requirements..............................................................................................................17
System Requirements.....................................................................................................................17
SYSTEM ARCHITECTURE...............................................................................................................................................18

High Level Solution Architecture......................................................................................................18

Data Flow and Process Flow Chart....................................................................................................19
Usage Summary.................................................................................................................................20
SOFTWARE AND HARDWARE REQUIREMENT........................................................................................................21

General Requirement for Server/Client:........................................................................................21

DEVELOPMENT TOOLS AND TECHNOLOGIES........................................................................................................21
DEVELOPMENT TOOLS AND TECHNOLOGIES........................................................................................................22

VB 6...................................................................................................................................................22
SQL Server.........................................................................................................................................22
DESIGN GOALS AND CONSTRAINTS...........................................................................................................................23

Performance.......................................................................................................................................23
Availability.........................................................................................................................................23
Reliability...........................................................................................................................................23
Scalability...........................................................................................................................................23
Security..............................................................................................................................................23
Interoperability...................................................................................................................................23
Location..............................................................................................................................................23
Setup/Installation................................................................................................................................23
SYSTEM REQUIREMENT AND SPECIFICATION SRS..............................................................................................24
DATA DICTIONARY...........................................................................................................................................................26

Table : appointment............................................................................................................................26
Table : clientmaster............................................................................................................................26
Table : detailsend................................................................................................................................27
Table : incomingphone.......................................................................................................................28

Table : keywords................................................................................................................................28
Table : otgoingphone..........................................................................................................................29
Table : offeracceptanceletter..............................................................................................................29
Table : offerletter................................................................................................................................30
Table : propertymaster........................................................................................................................30
Table : pwd.........................................................................................................................................31
Table : solicitormaster........................................................................................................................32
Table : user.........................................................................................................................................32
Table : vendormaster..........................................................................................................................33
PROPERTY MANAGEMENT SYSTEM DATA SCHEMA ER DIAGRAM...............................................................34
DATA FLOW DIAGRAM AND EVENT TABLE..............................................................................................................35

Event Table.........................................................................................................................................35
DFD Context Diagram.......................................................................................................................35
DFD Level 0 Diagram........................................................................................................................36
DFD Level 1 Diagram (Match Property with Client)........................................................................36
DFD Level 1 Diagram (Match Property with Client)........................................................................37
DFD Level 2 Diagram (Client Registration)......................................................................................37
DFD Level 2 Diagram (Client Registration)......................................................................................38
DFD Level 3 Diagram (Vendor Delivery).........................................................................................39
DFD Level 4 Diagram (Property Registration)..................................................................................40
SCREEN SHOT AND CODING.........................................................................................................................................41

Splash Screen.................................................................................................................................41
Login..............................................................................................................................................42
Main Screen...................................................................................................................................44
Residential Property.......................................................................................................................51
Commercial Property.....................................................................................................................72
Floor Plan.......................................................................................................................................93
Property Images.............................................................................................................................95
Vendor Registration........................................................................................................................99
Client Registration........................................................................................................................119
Property History...........................................................................................................................142
Search Builder..............................................................................................................................154
Match Property.............................................................................................................................164
Offer Letter...................................................................................................................................177
Appointments...............................................................................................................................185
Property Thumbnail.....................................................................................................................193
PROPERTY MANAGEMENT SYSTEM TEST PLAN.................................................................................................197

Introduction......................................................................................................................................197
Test Scope........................................................................................................................................197
Test Strategy.....................................................................................................................................197
Preconditions....................................................................................................................................198
Test Priorities...................................................................................................................................198
Test Techniques................................................................................................................................198
Test Organization.............................................................................................................................199
Roles and Responsibilities...............................................................................................................199
Deliverables......................................................................................................................................199
Test Environment.............................................................................................................................199

Hardware and Software....................................................................................................................199

Testing Automation Software...........................................................................................................200
Application Configuration...............................................................................................................200
Test Management.............................................................................................................................200
Testing Schedules.............................................................................................................................200
Threats to Testing.............................................................................................................................200
CONCLUSION AND FUTURE ENHANCEMENT........................................................................................................201
BIBLIOGRAPHY...............................................................................................................................................................202

Websites...........................................................................................................................................202
Books................................................................................................................................................202

ABSTARCT
eProperty is an Estate Agent and Property Management System is a user friendly contact and
property manager for real estate professionals. Save time and sell more by empowering to easily keep
track of leads, manage listings, and market to new prospects.
.
.

.
.

.
.
.
Estate Agent / Property Management System eProperty is complete end to end solution to cover all
aspects of Estate Agent day to day activity and Property buying selling procedure for small and large
organization.
The basic objective of developing this project is:

Maintain client details line contact details, required property details, client type like residential
and commercial client. Price limit. Preference.

Maintain property details, registration of property for sale includes property address, property
description, price, facilities available. Store property floor plan, property documents. Creation

of thumbnail of property images for brochure.

System has powerful logical access management in place, each user must be identified by
login id and strict password policy is applied to secure the system

Generate property thumbnail and details in html file to send client via email.

Property Management System Benefits

Type of property and features searching for.

Match with properties for sale by number of bedrooms / price criteria.

Filter all views for easy record location

Allow easy entry of Property and Vendor details

Easy to use and impressive GUI.

Auto spells checker facility to check spelling and suggest for changes while entering data by
connecting MS Word spell checker.

Scope and Features

From an end-user perspective, the Property Management System Project consists of three functional
elements: Master Module, Transaction Modules and a Search and Query Module.

Master Modules
Master module is developed to maintain property registration, floor plan and property images,
maintain property document, client registration, vendor registration solicitor details, and user
management.

Property Registration: This module is used to register new property details, their are two
different types of forms for Residential property and commercial property, all property are
registered with . I.

Property Document:

Floor Plan and Property Images:

Vendor Registration:

Solicitor Master:

Main Menu: After successfully login system display main screen with.

User Master: The System Administrator can able to add, modify system users, and also set the
login rights and.

Change Password: User can change his/her own password.

Client Registration:

Login: User must provide their user name and.

Transaction Modules
Transaction module is developed to perform various activities like match property with clients,
maintain history for.. Send email.

Match client with properties: This module is used to match client requirement with register
property, system has flexible options to select clients requirement and it search the database
and show all matched same window.

Match Property with clients:.

Property History:.

Client History:.

Vendor History:.

Offer Letter:

Offer Acceptance Letter:

Agent Outgoing Phone:.

Incoming Phone/ Enquiry:

Diary / Set appointment:

Property Thumbnail: System generate HTML page for properties with property images and
all details like cost, location. This file can be saved and send client via email.

Confirmation:

Appointment: t.

Search / Query Module

Search and Query module is used for the user, supervisor and management of Property Management
System.
The search and query module will include the following features:

Search Module:

Extensive Search: System has unique keyword based search engine, which allow user to
search any thing from entire database, It helps user when he not sure where to search, for
example if user want to search for AJAY, this search will search for all table and all field for
AJAY and produce search results.

Update Keyword: This is used to generate keyword for perform extensive search.

Both of these areas of functionality will be delivered as the first version of the Property Management
System is released. Functionality is described in more detail later in this document.

Out of Scope
The following functions are considered out of scope for Version 1 of the New Paper Agency System.
Versions 2.0 address items not in scope and those deemed not feasible during V1.0.

Function

Comment

Version

Linking and integration of any

legacy system for accounting.

Required by management to
control and maintain the
accounting activity

Creating web interface to share

property details to the client

For conveyance of the client

Goal and objective

This section presents a conceptual overview of the solution, and then provides an introduction to its
requirements.

Solution Concept
The Property Management System consists of:

Master Module:
A master module is developed to maintain property registration, floor plan and property
images, maintain property document, client registration, vendor registration solicitor details,
and user management.

Transaction Module:

Search and Query Module:

.

User Profiles
The following user types are expected for the Property Management System:
User
User
Supervisor
System
Administrator

Brief Description of User Actions

Read-only login rights to the system Can see the user
profile, query the items. Match the property and
clients, view property documents, property images.

Problem Statement
Requirements Summary
The following preliminary lists are based on initial interviews

Business Requirements
The business goal for the application is to increase efficiency of registration process and powerful
search facilities and capable of matching property with clients. And increase the productivity and
Business requirements are discussed in the Scope section, with the following additional detail:

Improve the search facility and all the users of Property Management System should get all the
information in a second.

The application should support the capability to use multi user environment.
Manager should able to generate all type of letters as and when required by the organization.
.
System should store all the transaction like phone call to client, generate offer letter and can be
produced whenever is required

The Management wants to improve their current ability to analyze property, client. In particular, they
want to focus on identifying their best property and client. To enable them to accomplish this goal,
they want to extract meaningful data that easily answers the following questions:

What are the early warning signs of problems?

What are my users' issues as groups?

User Requirements
User requirements are categorized by user type.

User

Able to search and view his or her own read only information.

Supervisor

Able to match client with property and able to generate letters and send email..
View and edit various document and letter.

System Administrator

Create new user, assign role and privileges

Database backup and maintenance.

Operational Requirements
The following requirements provide a high-level view of how the system will run:

A full weekly backup is required to WORM drives.

.
.

Application should run in Client-Server architecture.

System Requirements
These are additional constraints from a system perspective:

The administrator must be able to monitor everything from the IT department.

.

System Architecture
High Level Solution Architecture
System
Windows
Application

.Net
Framework
2.0
CLR

Microsoft VB Run
Time

Database
Engine

Transactional Facade
Propertie
s

Client

Vendor

Search and Query

data

Retrieval Facade
Match
property
with
client

Search and
Retrieval
of
Information

Data Access
SQL OLEDB Driver

OLAP Access

Data Warehouse
Data

High Level Solution Architecture of online Property Management System

Data Flow and Process Flow Chart

Usage Summary
Property Management System Version 1.0 will address the following use cases. Selected use cases
will be expanded into usage scenarios and features that are derived from both use cases and the usage
scenarios, as represented in the following diagram:

Property Management System

Search
property
View Property
Details
User

View Client

Property
Details

Match
Property

Supervisor

Update
Property

Manage
Transaction
Generate
Letters

Vendor Details
Manage Users

Administrator

Usage summary use case

Software and Hardware Requirement

General Requirement for Server/Client:
Type
Work Station/ Node

Software
1. Windows XP
2. .NET Framework 2.0

Hardware
1. P-4
2. RAM -256 MB
3.Hard Disk-40GB

Database Server

1.Win2000 Advance Server

2. SQL Server 2005

1.P-4
2.RAM- 1GB
3.Hard Disk-40GB

Application Server

1.Win 2000 Advance Server

1.P-4
2.RAM- 1GB
3.Hard Disk-40GB

Data Base Server

Workstation 1

Workstation 2

Application Server

Workstation 3

Workstation N

Development Tools and Technologies

VB 6
Visual Basic 6 is built on the Windows Server System to take major advantage of the OS and
which comes with a host of different servers which allows for building, deploying, managing
and maintaining Windows Based solutions. The Windows Server System is designed with
performance as priority and it provides scalability, reliability.
The advantage of VB 6 includes
Rapid Application Development (RAD) Support.
Powerful Windows-based Applications
Simplified Deployment
Powerful, Flexible, Simplified Data Access
Improved Coding
Direct Access to the OS Platform
Object-Oriented Constructs
COM Interoperability

SQL Server
When we choose a backend for an enterprise level application we have so many options, like
Oracle, Sybase, MySql, however we choose Microsoft SQL Server 2000 as our database, and it
has so many features which is ideal for our dot net based application. Includes
Support for Multiple Platforms
Integration with Windows 2000
Integration with Microsoft .NET Enterprise Servers
Scalability
Replication
Centralized Management
Reliability

Design Goals and Constraints

Performance
No more than a 5-percent degradation in average query response is allowed while all concurrent user
are using the system.
Processor utilization should not exceed 80 percent during all concurrent users are using the system.

Availability
Because the system is accessed by more than one concurrent users so their should not be any single
point of failure.

Reliability

Scalability
.

Security
.
Every resource in the system are defined by the role and privileged. System administrator assigned
user role and privileged for their access rights.

Interoperability

Location

Setup/Installation
Setup and installation must not interrupt the system users daily tasks and work flow.

System Requirement and Specification SRS

Data Dictionary
Data dictionary of Property Management System

Table : appointment
Owner:
Destination DB name:
Number of columns:
Number of indexes:
Number of foreign keys:
Extended attributes:
OnFileGroup
Clustered PK
Columns
AppointmentNo
AppointmentType
AppointmentwithName
Address
ClientRefNo
PropRefNo
VenderRefNo
AppointmentStatus
Date
Time
View
Seen
Like
Note

dbo
eProperty
14
1
1
PRIMARY
Yes
Data type
Int
Varchar(50)
Varchar(100)
Varchar(100)
Int
Int
Int
Varchar(5)
Int
Int
Int
Int
Varchar(50)
datetime

Indexes
PK_appotment)bill_ AppointmentNo

Table : clientmaster

Table : detailsend

Allow NULLs
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Not allowed
Allowed
Type
clustered, unique, primary key
located on PRIMARY

Value/range

Columns
AppointmentNo

Table : incomingphone

Table : keywords
Table : otgoingphone

Table : offeracceptanceletter

Table : offerletter

Table : propertymaster

Table : pwd

Table : solicitormaster
Table : user

Table : vendormaster

Property Management System Data Schema ER Diagram

Data Flow Diagram and Event Table

Event Table
Event

Trigger

Source

Vendor
Registration

New Vendor

System User Create

Vendor

Show
Vendor

System User

Match
Property
with Client

Match

System User Manage

Transaction

Show
Transaction

System User

DFD Context Diagram

Activity/Use Response
Case

Destination

DFD Level 0 Diagram

DFD Level 1 Diagram (Match Property with Client)

Property

1.1
1.3

Get Property
Details

Get product
Type

Matching

Property
1.2
Client

Get Client
Details

Client

DFD Level 2 Diagram (Client Registration)

DFD Level 3 Diagram (Vendor Delivery)

DFD Level 4 Diagram (Property Registration)

Vendor Master

2.2
2.1

Property Type

Property
Details

Property Master

Screen Shot and Coding

Residential Property

Option Explicit
Dim
Dim
Dim
Dim
Dim
Dim
Dim

RSPM As New ADODB.Recordset

LastPos As Long
GridRec As Integer
NewInstance As Boolean
str1 As String
TempRsPM As New ADODB.Recordset
Rs2 As New ADODB.Recordset

Private Sub Check1_Click()

Picture1(8).BackColor = vbGreen
End Sub
Private Sub Check2_Click()
Picture1(9).BackColor = vbGreen
End Sub
Private Sub Check3_Click()

Picture1(10).BackColor = vbGreen
End Sub
Private Sub Check4_Click()
Picture1(15).BackColor = vbGreen
End Sub
Private Sub Check5_Click()
Picture1(26).BackColor = vbGreen
End Sub
Private Sub Check6_Click()
Picture1(27).BackColor = vbGreen
End Sub
Private Sub Check7_Click()
Picture1(28).BackColor = vbGreen
End Sub
Private Sub Check8_Click()
Picture1(16).BackColor = vbGreen
End Sub
Private Sub CmdCancel_Click()
On Error GoTo myer1
Frame3.Enabled = False
Frame1.Visible = False
Frame2.Visible = True
RSPM.CancelUpdate
If RSPM.RecordCount > 0 Then
RSPM.MoveFirst
RSPM.Move LastPos
Call ShowRecord
End If
Exit Sub
myer1:
MsgBox "Error Occured : " & Err.Description, vbCritical, "Error"
End Sub
Private Sub CmdClose_Click()
Unload Me
End Sub
Private Sub CmdEdit_Click()
On Error GoTo myer1
StartPos = 0
If Frame4.Visible = True Then
Frame4.Visible = False
Frame3.Visible = True
Command5.Visible = True
Command1.Caption = "View All"
Command1.ToolTipText = "View all Records"
RSPM.MoveFirst
RSPM.Move GridRec - 1
Call ShowRecord
End If
LastPos = RSPM.AbsolutePosition
Frame3.Enabled = True
Frame1.Visible = True
Frame2.Visible = False
If RSPM.RecordCount > 0 Then
End If
Exit Sub
myer1:
MsgBox "Unknown Error Occured : " & Err.Description, vbCritical, "Error"

End Sub
Private Sub CmDelete_Click()
On Error GoTo myer1
If Frame4.Visible = True Then
Frame4.Visible = False
Frame3.Visible = True
Command5.Visible = True
RSPM.MoveFirst
RSPM.Move GridRec - 1
Command1.Caption = "View All"
Command1.ToolTipText = "View all Records"
End If
If MsgBox("Caution !! (Can't be Recall)" & Chr(13) & Chr(13) & "Record will be
permantley Deleted, If you sure click YES, otherwise click NO.", vbCritical + vbYesNo) =
vbYes Then
RSPM.Delete
If RSPM.AbsolutePosition >= RSPM.RecordCount - 1 Then
RSPM.MoveLast
Call ShowRecord
Else
RSPM.MoveNext
Call ShowRecord
End If
End If
Exit Sub
myer1:
MsgBox "Can't Delete following error occured : " & vbCrLf & vbCrLf & Err.Description,
vbCritical, "Error in Delete"
End Sub
Private Sub CmdFind_Click()
'for find
Frame5.Visible = True
Frame2.Visible = False
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
ctrl.Text = ""
End If
If TypeOf ctrl Is ComboBox Then
ctrl.Text = ""
End If
If TypeOf ctrl Is CheckBox Then
ctrl.Value = 0
End If
Next
Frame3.Enabled = True
Dim i As Integer
For i = 0 To Picture1.Count - 1
Picture1(i).BackColor = vbRed
Picture1(i).Visible = True
Next
'Picture1(0).BackColor = vbGreen
Option1.Value = True

End Sub
Private Sub CmdFirst_Click()
If RSPM.RecordCount > 0 Then

RSPM.MoveFirst
LastPos = RSPM.AbsolutePosition
Call ShowRecord
End If
End Sub
Private Sub CmdLast_Click()
If RSPM.RecordCount > 0 Then
RSPM.MoveLast
LastPos = RSPM.AbsolutePosition
Call ShowRecord
End If
End Sub
Private Sub CmdMatch_Click()
PropertyRefNo = Val(Combo1.Text)
PropertyType = "Residential"
MatchForm = True
Load FrmMatchProperty
FrmMatchProperty.Show
End Sub

Search Builder

Option Explicit
Dim RsTemp As New ADODB.Recordset
Private Sub Combo1_Click()
If RsTemp.State = 1 Then RsTemp.Close
Dim StrT1 As String
If Combo1.Text = "Property Registration" Then StrT1 = "propertymaster"
If Combo1.Text = "Client Registration" Then StrT1 = "clientmaster"
If Combo1.Text = "Vendor Registration" Then StrT1 = "Vendermaster"
If StrT1 <> "" Then
RsTemp.Open StrT1, db, adOpenStatic, adLockReadOnly
Else
Exit Sub
End If
Dim i As Integer
List1.Clear
For i = 0 To RsTemp.Fields.Count - 1
List1.AddItem ChangeName(StrT1, RsTemp.Fields(i).Name)
Next
End Sub
Private Sub Command1_Click()
'On Error GoTo myer1:
On Error Resume Next
Dim TempRs1 As New ADODB.Recordset

If TempRs1.State = 1 Then TempRs1.Close

TempRs1.Open Trim(Text2.Text), db, adOpenStatic, adLockReadOnly
'Set TempRs1 = db.OpenRecordset(Trim(Text2.Text))
If TempRs1.RecordCount > 0 Then
TempRs1.MoveLast
End If
If TempRs1.RecordCount > 0 Then
Label4.ForeColor = vbBlue
Label4.Caption = TempRs1.RecordCount & " Record(s) Found"
Dim trec As Integer
Dim TFld As Integer
Dim i As Integer
Dim j As Integer
trec = TempRs1.RecordCount
Mf1.Rows = trec + 1
TFld = TempRs1.Fields.Count
Mf1.Cols = TFld
Mf1.Row = 0
For j = 0 To TFld - 1
Mf1.Col = j
Mf1.Text = TempRs1.Fields(j).Name
Next
For i = 1 To trec
TempRs1.MoveFirst
TempRs1.Move i - 1
Mf1.Row = i
For j = 0 To TFld - 1
Mf1.Col = j
''
If j = 15 Or j = 16 Or j = 17 Or j = 22 Or j = 23 Or j = 24 Or j
= 26 Or j = 28 Then
'
If RsPM(j) = 1 Then
'
Mf1.Text = "Yes"
'
Else
'
Mf1.Text = "No"
'
End If
'
Else
Mf1.Text = TempRs1(j)
'
End If
Next
Next
Frame2.Visible = True
Frame4.Visible = False
Else
Label4.ForeColor
Label4.Caption =
Frame2.Visible =
Frame4.Visible =
End If

= vbRed
TempRs1.RecordCount & " Record(s) Found"
False
True

Exit Sub
myer1:
If Err.Number = 3061 Or Err.Number = 3075 Or Err.Number = 3078 Then
MsgBox "Can't search beacuse of invalid search critaria.", vbCritical, "Error in
Search"
Else
MsgBox Err.Number & Err.Description, vbCritical, "Error in Search"
End If
End Sub
Private Sub Command2_Click()
Label4.Caption = "" 'result
If List1.ListCount = 0 Then

MsgBox "Select a Table Name, Column Name, Condition and type the Search Value",
vbExclamation
Exit Sub
End If
If List1.ListIndex < 0 And List2.ListIndex < 0 And Combo2.Text = "" Then
MsgBox "Please select Column Name, Condition Type from the List Box and Type Search Value
", vbExclamation
Exit Sub
End If
If List1.ListIndex < 0 And List2.ListIndex < 0 Then
MsgBox "Please select Column Name and Condition type from the List Box ", vbExclamation
Exit Sub
End If
If List1.ListIndex < 0 Then
MsgBox "Please Select a Column Name from List.
Exit Sub
End If

", vbExclamation

If List2.ListIndex < 0 Then

MsgBox "Please select a condition from Condition List.
Exit Sub
End If

", vbExclamation

If Combo2.Text = "" Then

MsgBox "Search What ! Please Enter a Search String"
Exit Sub
End If
If Option1.Value = True Then
If Text2.Text = "" Then
Text2.Text = "Select * from " & ChangeRevTName(Combo1.Text) & Condition(List2.Text)
Else
Text2.Text = Text2.Text & " AND " & Condition1(List2.Text)
End If
Else
If Text2.Text = "" Then
Text2.Text = "Select * from " & ChangeRevTName(Combo1.Text) & Condition(List2.Text)
Else
Text2.Text = Text2.Text & " OR " & Condition1(List2.Text)
End If
End If
'
List1.ListIndex = -1
'
List2.ListIndex = -1
End Sub
Private Sub Command3_Click()
Label4.Caption = "" 'result
'Command1.Enabled = False
List1.ListIndex = -1
List2.ListIndex = -1
Combo2.Text = ""
Text2.Text = ""
Frame2.Visible = False
Frame4.Visible = False
End Sub
Private Sub Command4_Click()
If ShowRecordPtr < 0 Or ShowRecordPtr > Mf1.Rows - 1 Then
ShowRecordPtr = 0
End If

If Combo1.Text = "Property Registration" Then

CheckForm = True
Load FrmPropMaster
FrmPropMaster.Show
End If
If Combo1.Text = "Client Registration" Then
CheckForm = True
Load FrmClientMaster
FrmClientMaster.Show
End If
If Combo1.Text = "Vendor Registration" Then
CheckForm = True
Load FrmVenderMaster
FrmVenderMaster.Show
End If
Me.ZOrder 1
End Sub
Private Sub Command5_Click()
Frame2.Visible = False
End Sub
Private Sub Command6_Click()
Unload Me
End Sub
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub Command8_Click()
Frame4.Visible = False
End Sub
Private Sub Form_Load()
Command1.Enabled = False
Combo1.AddItem "Property Registration"
Combo1.AddItem "Client Registration"
Combo1.AddItem "Vendor Registration"
Combo1.Text = "Property Registration"
Frame4.Visible = False
Frame2.Visible = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
Frame1.Left = (Me.Width - Frame1.Width) / 2
Frame2.Left = 50
Frame2.Width = Me.Width - 200
Frame2.Top = Frame1.Top + Frame1.Height + 50
Frame2.Height = Me.Height - Frame1.Height - 500
Mf1.Width = Frame2.Width - 150
Mf1.Height = Frame2.Height - 750
Frame3.Left = (Frame2.Width - Frame3.Width) / 2
Frame4.Left = Frame2.Left
Frame4.Top = Frame2.Top
Frame4.Width = Frame2.Width
Frame4.Height = Frame2.Height
Frame5.Top = (Frame4.Height - Frame5.Height) / 2
Frame5.Left = (Frame4.Width - Frame5.Width) / 2
End Sub
Private Sub List1_Click()
On Error Resume Next

Combo2.Clear
Dim StrF As String
Dim StrT As String
Dim RecCount As Integer
Dim i As Integer
StrF = ChangeRevName(ChangeRevTName(Combo1.Text), List1.Text) 'orginal field NAME
StrT = ChangeRevTName(Combo1.Text) 'original table name
Dim Rstemp2 As New ADODB.Recordset
If Rstemp2.State = 1 Then Rstemp2.Close
Rstemp2.Open "select " & StrF & " from " & StrT & " group by " & StrF, db,
adOpenStatic, adLockReadOnly
0
If Rstemp2.RecordCount > 0 Then
Rstemp2.MoveLast
RecCount = Rstemp2.RecordCount
For i = 0 To RecCount - 1
Rstemp2.MoveFirst
Rstemp2.Move i
Combo2.AddItem Rstemp2(0)
Next
End If
End Sub
Private Sub Mf1_Click()
ShowRecordPtr = Mf1.Row
End Sub
Private Sub Mf1_dblClick()
ShowRecordPtr = Mf1.Row
Command4_Click
End Sub
Private Sub Text2_Change()
If Len(Text2) > 0 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Match Property

Option Explicit
Dim Rs As New ADODB.Recordset
Dim TempRs As New ADODB.Recordset
Private Sub Check1_Click()
If Check1.Value = 1 Then
Picture1(9).BackColor = vbGreen
Else
Picture1(9).BackColor = vbRed
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Picture1(10).BackColor = vbGreen
Else
Picture1(10).BackColor = vbRed
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Picture3(3).BackColor = vbGreen
Else
Picture3(3).BackColor = vbRed

End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Picture3(6).BackColor = vbGreen
Else
Picture3(6).BackColor = vbRed
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
Picture3(8).BackColor = vbGreen
Else
Picture3(8).BackColor = vbRed
End If
End Sub
Private Sub Combo1_Click()
If Rs.State = 1 Then Rs.Close
Rs.Open "select * from clientmaster where clientrefno = " & Val(Combo1.Text), db,
adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then
If UCase(Combo6.Text) = "RESIDENTIAL" Then
Frame3.Visible = True
Frame4.Visible = False
End If
If UCase(Combo6.Text) = "COMMERCIAL" Then
Frame4.Visible = True
Frame3.Visible = False
End If
Frame2.Visible = True
Call Displayrecord
Else
Call ClearText
Frame3.Visible = False
Frame4.Visible = False
Frame2.Visible = False
If Rs.RecordCount > 0 Then
Rs.MoveLast
trec = Rs.RecordCount
For i = 0 To trec - 1
Inc = Inc + 50 \ trec
UpdateStatus FrmCreatingThumbnail.Picture2, (Inc) / 100, 1
Rs.MoveFirst
Rs.Move i
Rs1.AddNew
For j = 0 To Rs.Fields.Count - 1
Rs1(j) = Rs(j)
Next
Rs1.Update
Me.Caption = "Creating Record " & i + 1 & " ..."
Next
Me.Caption = "Creating " & trec & " Record(s) ..."
Else
MsgBox "No " & PropertyType & " Property Record are availabel for Creating
Thumbnail Catalog", vbInformation, "Residential Record Not Found"
Unload Me

Exit Sub
End If
'storing thumbnail image in array &&&&&&&&&
Dim Fs As New FileSystemObject
Dim FolName As String
If Fs.FolderExists(App.Path & "\propertyimage\") = False Then
MsgBox "Can't Found the Thumbnail Property Images.", vbInformation, "Can't
Continue"
Unload Me
Exit Sub
End If
'Inc = 0
For i = 0 To trec - 1
Inc = Inc + 40 \ trec
UpdateStatus FrmCreatingThumbnail.Picture2, (Inc) / 100, 1
Rs1.MoveFirst
Rs1.Move i
FolName = "prop_" & Rs1("proprefno")
If Fs.FolderExists(App.Path & "\propertyimage\" & FolName & "\") = True Then
If Fs.FileExists(App.Path & "\propertyimage\" & FolName & "\Thumb.Bmp") = True
Then
XX(i) = App.Path & "\propertyimage\" & FolName & "\Thumb.Bmp"
Else
XX(i) = App.Path & "\MergeTemplate\NoThumb.Bmp"
End If
Else
XX(i) = App.Path & "\MergeTemplate\NoThumb.Bmp"
End If
Next
'create HTML file
Text1.Text = "<html><head><title> " & PropertyType & " Property Thumbnail
</title></head><body> "
Text1.Text = Text1.Text & " <div align='left'>"
Text1.Text = Text1.Text & " <table border=0 cellpadding=0 cellspacing=0 width=87%> "
Text1.Text = Text1.Text & "<tr>"
Text1.Text = Text1.Text & "<td width='100%' height=14 colspan=3 >"
Text1.Text = Text1.Text & "<p align='right'><font size=5><b> " & RegisterName & " : " &
PropertyType & " Property </b></font></td>"
Text1.Text = Text1.Text & "</tr>"
Dim StrCode As String
'Inc = 0
For i = 0 To trec - 1
Rs1.MoveFirst
Rs1.Move i
Inc = Inc + 10 \ trec
UpdateStatus FrmCreatingThumbnail.Picture2, (Inc) / 100, 1
StrCode = StrCode & "<tr>"
StrCode = StrCode & "<td width='100%' height=14 colspan=3 bgcolor='#0000FF'>"
StrCode = StrCode & "<p align='center'><font color='#FFFFFF'><b>Property Reference
No : " & Rs1("proprefno") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp Registartion Date : " &
Format(Rs1("dor"), "Dddd dd, Mmmm - yyyy") & "</b></font></td>"
StrCode = StrCode & "</tr>"
StrCode = StrCode & " <tr> "
StrCode = StrCode & " <td width=32%><img border=0 src= '" & XX(i) & "' width=165
height=101></td>"
StrCode = StrCode & " <td width=41%>"
StrCode = StrCode & " <ul>"
StrCode = StrCode & " <li>"
StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0'>" &
IIf(Rs1("roomno") > 0, Rs1("roomno") & " Bed Room", "&nbsp") & "</li>"
StrCode = StrCode & " <li>"
StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0>Throw Lane / 2
Receptoion</li> "

StrCode = StrCode & " <li>"

StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0'> " &
IIf(Rs1("floorno") > 0, "Floor - " & Rs1("floorno"), "&nbsp") & "</li>"
StrCode = StrCode & " <li> "
StrCode = StrCode & " <p style=margin-top: 0; margin-bottom: 0'>House</li>"
StrCode = StrCode & " <li>"
StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0'>Lease</li>"
StrCode = StrCode & " </ul>"
StrCode = StrCode & "<p style='margin-top: 0; margin-bottom: 0'><b> Area : " &
Rs1("city") & " </b></p>"
StrCode = StrCode & " </td>"
StrCode = StrCode & " <td width='27%'>"
StrCode = StrCode & " <ul>"
StrCode = StrCode & " <li> "
StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0'>Gas</li>"
StrCode = StrCode & " <li>"
StrCode = StrCode & "<p style='margin-top: 0; margin-bottom: 0'>Electric
Heating</li>"
StrCode = StrCode & " <li>"
StrCode = StrCode & " <p style='margin-top: 0; margin-bottom: 0'>Garage<br>"
StrCode = StrCode & "</li>"
StrCode = StrCode & "</ul>"
StrCode = StrCode & "<p style='margin-top: 0; margin-bottom: 0'><b><font
color='red'> Price : Rs. " & Rs1("price") & "</font></b></td>"
StrCode = StrCode & "</tr>"
StrCode = StrCode & "<tr><td> &nbsp </td></tr>"
Next
Text1.Text = Text1.Text & StrCode
Text1.Text = Text1.Text & " </table> </div></body></html>"
'complete &&&&&&&&&&
'lunch IE to show
Dim OutStream As TextStream
If Fs.FileExists(App.Path & "\propertydocument\Thumbnail.htm") = True Then
Fs.DeleteFile App.Path & "\propertydocument\Thumbnail.htm", True
End If
Set OutStream = Fs.CreateTextFile(App.Path & "\propertydocument\temp.txt", True, False)
OutStream.WriteLine Text1.Text
Set OutStream = Nothing
Dim HtmlFile As File
Set HtmlFile = Fs.GetFile(App.Path & "\propertydocument\temp.txt")
HtmlFile.Name = "Thumbnail.htm"
Me.Caption = "Opening Document ...Wait.."
UpdateStatus FrmCreatingThumbnail.Picture2, 100 / 100, 1
Dim Str As String
Str = App.Path & "\propertydocument\Thumbnail.htm"
Dim ie As New InternetExplorer
ie.Navigate Str
ie.Visible = True
Command2.Enabled = True
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
'On Error Resume Next
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2

End Sub

Property Management System Test Plan

Introduction
This document describes the user acceptance test plan for the Property Management System. The
complete test strategy for the Property Management System is to perform the following kinds of tests,
in sequence:
1. Component testing of each component that makes up the Property Management System
2. Integration testing of the Property Management System, to ensure the correct interworking of
its components
3. Validation testing of the Property Management System, to ensure that it works correctly in a
pseudo-live environment
4. User acceptance testing of the Property Management System, to ensure that its function is
acceptable to its users
Acceptance testing is the last set of tests to be performed before the application goes officially live.

Test Scope
Test Strategy
representative.

Preconditions
The following items are required before testing can take place:

A complete and coherent functional specification of the Property Management System

expressed as use cases and usage scenarios

Sufficient, suitable resources to carry out the testing

Test Priorities
Test Techniques

performance criteria

Test Organization
Roles and Responsibilities
The following roles are defined:

QA lead/test managerresponsible for planning and ensuring the smooth running of the test
process
Testercarries out the tests according to the test plan, and then reports the results
Product managerensures that the tests are carried out successfully from a user perspective

Deliverables
Test Environment
Hardware and Software
Testing Schedules
The user acceptance testing schedules are shown in the project structure document and resulting Gantt
charts.

Threats to Testing
Potential threats to the testing process are as follows:
Insufficient resources available for testing. Testing resources have been seconded from the
development departments, whose time is at a premium. Mitigation: ensure department heads
apply a high priority to the testing of the Property Management System.
Availability of sales personnel for testing. The test team should be overseen by at least one
sales representative. Mitigation: gain prior agreement from the vice president of Sales for two
sales representatives to be assigned to test the application.

Conclusion and future enhancement

Bibliography
Websites

http://www.google.com

http://www.microsoft.com

http://www.programmer2programmer.net

http://www.codeproject.com

http://www.msdn.com.

http://www.vb123.com

http://www.vbcode.com

http://www.sqltuner.com

Books

Mastering Visual Basic 6 (Paperback)

Mastering Visual Basic .NET (Paperback)

Visual Basic Black Book (Paperback)

SQL Bible, 2nd Edition (Paperback)

Database Development in Visual Basic