房地产评估系统

--------------摘要-------------- copyright think58 [资料来源：http://www.THINK58.com]

房地产评估系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统特有的房屋基本情况、专业评估人员、估价方法等。
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC.NET开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字：控件、窗体、域、ADO、模块。 本文来自think58

目录
 
前言 think58好，好think58 [来源：http://www.think58.com]

第一章 
为什么要开发一个房地产评估系统？
1．1 用计算机进行房地产评估的意义
1．2 为将来网上房地产评估做好准备
1．3 房地产评估的设计分析
第二章 怎样开发一个房地产评估系统？
2．1 编程环境的选择
2．2 关系型数据库的实现
2．3 二者的结合（DBA）
第三章 Windows下的Visual BASIC.NET 编程环境简介
3．1 模块化
3．2 面向对象的编程
3．3 实现菜单选项
3．4 实现工具栏
3．5 强大的报表
第四章 使用SQL SERVER2000 实现关系型数据库
4．1 数据库的概念
4．2 新建一个数据库
4．3 修改已建的数据库
4．4 实现数据库之间的联系
第五章 系统总体规划
5．1 系统功能
5．2 流程图
第六章 系统具体实现
6．1 用户界面的实现
6．1．1 封面
6．1．2 主界面
6．1．3 帮助系统
6．2 数据库的实现
6．2．1 评估人员数据库
6．2．2 评估方法库
6．2．3 实例库
6．3 与VB.NET的连接
第七章 测试报告
第八章 关键技术分析
第九章 结束语
主要参考文献
附录

copyright think58 [资料来源：THINK58.com]

[资料来源：http://THINK58.com]

第五章
系统总体规划
5.1系统功能
1． 可以进行录入房屋基本情况操作，如房屋面积、房屋位置等，自动核算出房地产价值。
2． 添加一个评估报告；
3． 删除一个评估报告；
4． 修改一个评估报告；
5． 查询房地产信息；采用了模糊查询技术,如此功能主要实现应用系统中常用的一种查询方式，可以对已有的信息进行查询,其主要目的是在一大堆评估报告当中迅速地查找所需的评估报告。
该功能主要根据房地产评估报告的不同条件信息进行查询。查询时可以选择条件中的一个或多个来实现，根据不同的信息将显示不同的结果。查询条件如：按房屋所有权人，房权证号，房屋坐落，估价时点，丘地号，设计用途，幢号，估价目的，房号，估价人名等不同的条件来查询。考虑运行速度，适当使用索引。
6． 归档房地产信息。
 功能：归档评估报告模块的主要功能是按不同时间段和不同估价师查找其所有评估报告，然后在找到的结果中再选择所需的评估报告保存到相关目录中。
5.2流程图
 
 第六章
系统具体实现
6.1用户界面的实现
6．1．1 登录
选择用户姓名，输入密码。附录主要代码如下：
Private Sub InitMe()
        Try

            With tbl
                .Open("select * from gjsda where enable=1", serverDB, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)
                Do While Not .EOF
                    cmoUser.Items.Add(CStr(.Fields("name").Value).Trim)
                    .MoveNext()
                Loop
                cmoUser.SelectedIndex = 0
                .MoveFirst()

think58.com

[来源：http://think58.com]

                lblGjsbh.Text = .Fields("gjsid").Value
            End With
        Catch err As Exception
            MsgBox("无法取得估价人员档案！", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "错误")
            End
        End Try
    End Sub
 Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        Try
            With txtPassword
                If .Text.Trim = CStr(tbl.Fields("password").Value).Trim Then
                    SetCurrentUser() think58.com

[资料来源：THINK58.com]

                    tbl.Close()
                    Me.Close()
                Else
                    MsgBox("密码错误，再试一次！", vbOKOnly + vbCritical, "错误")
                    .Focus()
                    .SelectionStart = 0
                    .SelectionLength = .Text.Length
                End If

本文来自think58

[资料来源：http://THINK58.com]

            End With
        Catch exc As Exception
            MsgBox("无法正常启动本系统！", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "错误")
            End
        End Try
    End Sub
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        On Error Resume Next
        tbl.Close()
        End
    End Sub
Private Sub cmoUser_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmoUser.SelectedIndexChanged
        On Error Resume Next
        tbl.MoveFirst() copyright think58
        tbl.Move(cmoUser.SelectedIndex, 0)
        lblGjsbh.Text = tbl.Fields("gjsID").Value
        txtPassword.Focus()
    End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
End Class
6．1．2 主界面
附录主要代码如下：
Private Sub xxPgbgOpened() Handles newXxbg.pgbgOpened
        myChildren = "xxbg"
        openXxPgbg()
    End Sub
Private Sub xxPgbgClosed() Handles newXxbg.pgbgClosed
        myChildren = ""
        closeXxPgbg()
    End Sub
Private Sub mnuPassword_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPassword.Click
        Dim newPassword As New frmChgPassword() think58好，好think58 [资料来源：http://www.THINK58.com]
        newPassword.ShowDialog(Me)
    End Sub
Private Sub mnuNewXx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNewXx.Click, mnuCnewXx.Click
        newXxbg = New frmXxbg()
        newXxbg.MdiParent = Me
        newXxbg.openNewXxbg()
    End Sub
Private Sub mnuNewDx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNewDx.Click, mnuCnewDx.Click
        newDxbg = New frmDxbg()
        newDxbg.MdiParent = Me
        newDxbg.openNewDxbg()
    End Sub
Private Sub mnuOpenXx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenXx.Click, copenMnuXx.Click
        newSrch = New frmSrch() think58.com [资料来源：http://THINK58.com]
        newSrch.MdiParent = Me
        newSrch.openNewSrch(True)
    End Sub
Private Sub mnuOpenDx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpenDx.Click, copenMnuDx.Click
        newSrch = New frmSrch()
        newSrch.MdiParent = Me
        newSrch.openNewSrch(False)
    End Sub
Private Sub mnuTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuTotal.Click
        Dim newTotal As New frmTotal()
        newTotal.ShowDialog()
主界面包含三方面的内容,以下一一介绍:
1.评估报告
打开评估报告,进入评估报告菜单项。
1.1文件包括：新建评估报告
打开评估报告
保存评估报告
另存评估报告
打印评估报告
退出
1. 3帮助包括：关于房地产评估系统

本文来自think58

2．记录操作
打开记录操作进入记录操作选项页分别由浏览记录、查找二个选项组成。
2．1浏览评估报告：
评估人员库
评估报告库
归档库
2．2统计评估报告 copyright think58 [来源：http://think58.com]

3．系统维护
打开系统维护进入选项页分别由更改系统登录密码、归档评估报告组成。
更改系统登录密码
附录主要代码如下：
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
        Me.Close()
    End Sub
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        On Error Resume Next
If txtPassword.Text.Trim <> txtRePassword.Text.Trim Then
            MsgBox("两次输入的密码不相等，请重新输入！", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "错误")
            txtRePassword.Clear()
            txtPassword.Focus()
            txtPassword.SelectionStart = 0
            txtPassword.SelectionLength = txtPassword.Text.Length

内容来自think58 [资料来源：http://THINK58.com]

        Else
            Dim tbl As New ADODB.Recordset()
            tbl.Open("select password from gjsda where gjsid='" & currentUser.ID & "'", serverDB, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockOptimistic)
            tbl.Fields("password").Value = txtPassword.Text.Trim
            tbl.Update()
            tbl.Close()
            Me.Close()
        End If
    End Sub
Private Sub frmChgPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 End SubEnd Class
主要参考文献
[1] Visual BASIC.NET 从入门到精通

本文来自think58 [资料来源：http://THINK58.com]

作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.
出版社：电子工业出版社
[2] 数据库系统概论   　　　　　　　　　　　　　　
作者：萨师煊、王珊
出版社：高等教育出版社　　　　　　1991年
[3] Visual BASIC.NET 标准教程
作者：熊松明
内容来自think58 [资料来源：www.THINK58.com]