Estate Agent / Property Management System
#1

Title:Estate Agent / Property Management System
l Abstract
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.
One of the most important steps in running a successful real estate business is effectively managing contacts and farming leads. In built scheduler and alarm system will help you to remind your appointment and call back.
Reply
#2
[attachment=3203]


Estate Agent and Property Management System “ eProperty
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:
¢
¢ Client Registration:
¢ Vendor Registration:
¢ Solicitor Master:
¢
¢ Login: User must provide their user name and.
¢ 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.
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:
¢
¢ Confirmation:
¢ Agent Outgoing Phone:.
¢ Incoming Phone/ Enquiry:
¢
¢ Appointment: t.
¢ 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.
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 2


Creating web interface to share property details to the client For conveyance of the client 2
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 Brief Description of User Actions
User 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.
Supervisor
System Administrator
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
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:
Usage summary use case
Software and Hardware Requirement
General Requirement for Server/Client:
Type Software Hardware
Work Station/ Node 1. Windows XP
2. .NET Framework 2.0
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
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 userâ„¢s daily tasks and work flow.
System Requirement and Specification SRS
Data Dictionary
Data dictionary of Property Management System
Code:
Table : appointment
Owner:    dbo
Destination DB name:    eProperty
Number of columns:    14
Number of indexes:    1
Number of foreign keys:    1
Extended attributes:
OnFileGroup    PRIMARY
Clustered PK    Yes
Columns    Data type    Allow NULLs    Value/range
AppointmentNo    Int    Not allowed    
AppointmentType    Varchar(50)    Not allowed    
AppointmentwithName    Varchar(100)    Not allowed    
Address    Varchar(100)    Not allowed    
ClientRefNo    Int    Not allowed    
PropRefNo    Int    Not allowed    
VenderRefNo    Int    Not allowed    
AppointmentStatus    Varchar(5)    Not allowed    
Date    Int    Not allowed    
Time    Int    Not allowed    
View    Int    Not allowed    
Seen    Int    Not allowed    
Like    Varchar(50)    Not allowed    
Note    datetime    Allowed    
Indexes    Type    Columns
PK_appotment)bill_ AppointmentNo    clustered, unique, primary key located on PRIMARY    AppointmentNo
Table : clientmaster
Table : detailsend
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    Activity/Use Case    Response    Destination
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
DFD Level 0 Diagram
DFD Level 1 Diagram (Match Property with Client)
DFD Level 2 Diagram (Client Registration)
DFD Level 3 Diagram (Vendor Delivery)
DFD Level 4 Diagram (Property Registration)
Screen Shot and Coding
Residential Property
Option Explicit
Dim RSPM As New ADODB.Recordset
Dim LastPos As Long
Dim GridRec As Integer
Dim NewInstance As Boolean
Dim str1 As String
Dim TempRsPM As New ADODB.Recordset
Dim 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 = vbRed
Label4.Caption = TempRs1.RecordCount & " Record(s) Found"
Frame2.Visible = False
Frame4.Visible = True
End If

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. ", vbExclamation
Exit Sub
End If
If List2.ListIndex < 0 Then
MsgBox "Please select a condition from Condition List. ", vbExclamation
Exit Sub
End If
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 manager”responsible for planning and ensuring the smooth running of the test process
¢
¢ Tester”carries out the tests according to the test plan, and then reports the results
¢ Product manager”ensures 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://google.com
¢ http://microsoft.com
¢ http://programmer2programmer.net
¢ http://codeproject.com
¢ http://msdn.com.
¢ http://vb123.com
¢ http://vbcode.com
¢ http://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
Reply
#3

Can i get the same project done using VB.net and Oracle 10G..........???
Reply

Important Note..!

If you are not satisfied with above reply ,..Please

ASK HERE

So that we will collect data for you and will made reply to the request....OR try below "QUICK REPLY" box to add a reply to this page
Popular Searches: estate agency management system project, microsensors inc, kraft telerobotics inc, real estate agent courses nsw, property management robert c, seminar report intellectual property rights, seminar report on e property,

[-]
Quick Reply
Message
Type your reply to this message here.

Image Verification
Please enter the text contained within the image into the text box below it. This process is used to prevent automated spam bots.
Image Verification
(case insensitive)

Possibly Related Threads...
Thread Author Replies Views Last Post
  Human Robot Interaction in Multi-Agent Systems pdf computer topic 0 1,202 25-03-2014, 09:43 PM
Last Post: computer topic
  Medical shop Management system seminar class 3 21,559 10-10-2013, 07:15 PM
Last Post: Guest
  EXAMINATION MANAGEMENT SYSTEM seminar class 11 9,365 20-05-2013, 11:15 AM
Last Post: computer topic
  Management Information System computer science crazy 1 2,113 31-12-2012, 04:14 PM
Last Post: seminar details
  HOSPITAL MANAGEMENT SYSTEM smart paper boy 1 4,562 14-03-2012, 10:51 AM
Last Post: seminar paper
Photo Mobile Agent - Paper Presentation Computer Science Clay 6 5,279 05-03-2012, 12:18 PM
Last Post: seminar paper
  Mobile agent seminar projects crazy 1 1,517 05-03-2012, 12:18 PM
Last Post: seminar paper
  INFORMATION RETRIEVAL AND KNOWLEDGE MANAGEMENT SYSTEM project report helper 1 1,744 13-02-2012, 02:59 PM
Last Post: seminar paper
  CONTENT MANAGEMENT SYSTEM seminar surveyer 1 1,509 08-02-2012, 01:55 PM
Last Post: seminar paper
  UNIVERSITY MANAGEMENT SYSTEM (UMS) smart paper boy 0 1,403 18-06-2011, 09:48 AM
Last Post: smart paper boy

Forum Jump: