VB006房地产评估系统VB+SQL2000

第五部分 详细设计
下面是详细设计部分。
1.评估报告模块
该模块是完成对评估信息的输入、查询、并以此生成评估报告。此模块主要包括2个窗口，新建评估报告窗口、查询条件窗口。
新建评估报告主要功能是根据用户输入的信息计算出房屋价格。信息输入主要是通过TextBox控件和ComboBox控件完成。首先要输入委托方的基本信息。委托方的名称，估价方名称，房屋坐落位置，房屋所有权人房权证号，丘（地）号，报告有效期这些信息是通过TextBox控件输入。估价日期，估价时点，估价目的，估价方法是通过ComboBox控件输入。然后，输入的是房屋状况信息。幢号，房号，房屋总层数，所在层数，建筑面积（平方米）是通过TextBox控件输入，而结构和设计用途是通过ComboBox控件输入。
下面输入的是用于计算房屋价格的信息。首先要计算成新程度，成新程度由结构部分,装修部分,设备部分组成。结构部分是由地基基础，承重构件，非承重墙，屋面，楼地面组成。装饰部分是由门窗，外装饰，内装饰，顶棚，细木装修组成。设备部分是由水卫，电气照明，采暖，组成。 【www.think58.com计算机毕业论文网】
结构部分的合计是由用户输入的地基基础值，承重构件值，非承重墙值，屋面值，楼地面值计算。其他部分的计算类似。 copyright think58

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

公式如下，
结构部分的合计=（地基基础值+承重构件值+非承重墙值+屋面值，+楼地面值）*权重1
装修部分的合计=（门窗值+外装饰值+内装饰值+顶棚值+细木装修值）*权重2
设备部分的合计=（水卫值+外装饰值+电气照明值+采暖值）*权重3
注：权重值加起来必须等于1。
成新程度就是把结构部分的合计，装修部分的合计，设备部分的合计加起来的值。
下面要计算房屋价格。房屋价格是根据估价分析与计算里的重置价，房屋价格调节系数，其它调节系数（包括环境，装修设备，楼层，营业房）计算。
公式如下，
房屋价格=重置价*成新系数（成新程度/10）*（1+其它调节系数合计）*（1+房屋价格调节系数）*面积
系统计算后在自动在估价分析与计算，估价结果里显示出相应的信息。
查询条件功能是根据用户输入的信息在现有的报告当中查询并显示在窗口上。
此功能是通过调用SQL语句当中的Select命令来实现。首先用open方法跟数据库建立连接，连接完成以后用select命令处理结果。
部分代码：
srchStr = "SELECT TOP 100 PERCENT Xxbg.gjbgBH,Gjsda.Name, Xxbg.Gjsd, Xxbg.Syqr, Xxbg.Fqzh, Xxbg.Qdh, Xxbg.Zh, Xxbg.Fh,Xxbg.Fwzl, Xxbg.Gd " & _ think58 [资料来源：http://THINK58.com]
"FROM Xxbg INNER JOIN gjsda ON Xxbg.gjs = gjsda.gjsID WHERE (" & _
"(Gjsda.Name LIKE '%" & cmoGjs.Text.Trim & "%') AND " & _
"(Xxbg.Gjsd BETWEEN '" & datGjsd1.Value & "' AND '" & datGjsd2.Value & "') AND " & _ "(Xxbg.Syqr LIKE '%" & txtSyqr.Text.Trim & "%') AND " & _
"(Xxbg.Fqzh LIKE '%" & txtFqzh.Text.Trim & "%') AND " & _
"(Xxbg.Qdh Like '%" & txtQdh.Text.Trim & "%') And " & _
"(Xxbg.Zh Like '%" & txtZh.Text.Trim & "%') And " & _
"(Xxbg.Fh Like '%" & txtFh.Text.Trim & "%') AND " & _
"(Xxbg.Gjmd LIKE '%" & cmoGjmd.Text.Trim & "%') AND " & _
"(Xxbg.Sjyt LIKE '%" & cmoSjyt.Text.Trim & "%') AND " & _
"(Xxbg.Fwzl Like '%" & txtFwzl.Text.Trim & "%')) " & _ 本文来自think58 [资料来源：http://think58.com]
"ORDER BY xxbg.gjsd DESC,Xxbg.gjs"
“估价分析与计算”和“估价结果”文本框与其他文本框不同，自动生成其内容。“估价分析与计算”文本框中的内容根据重置价、成新系数、计算方法的不同其内容自动变换。“估价结果”文本框中的内容根据所选择时间点和所计算出的价格，显示不同的文本内容。
部分代码如下
自动生成“估价分析与计算”和“估价结果”的TextBox内容的源代码
Private Sub chgFXJSandGJJG()
Dim sStr, sStr1, s1, s2 As String, i As Short
sStr = "根据估价依据和有关因素，估价对象的房地产重置价确定为" & _
Format(Val(txtCbfCzj.Text), "0.00#") & "元/平方米，成新系数为" & Format(Val(lblCx.Text) / 10, "0.00#")
sStr1 = vbCrLf & Trim(cmoJzdy.Text) & vbCrLf & "=" & Format(Val(txtCbfCzj.Text), "0.00#") & "×" & Format(Val(lblCx.Text) / 10, "0.00") & "×(1"
If Val(txtCbftjxsV1.Text) <> 0 Then copyright think58
sStr = sStr & "，" & Trim(txtCbftjxs1.Text) & "调节系数" & IIf(Val(txtCbftjxsV1.Text) > 0, "+", "") & Trim(txtCbftjxsV1.Text) & "%"
sStr1 = sStr1 & IIf(Val(txtCbftjxsV1.Text) > 0, "+", "") & Trim(txtCbftjxsV1.Text) & "%"
End If
……………………………………
s1 = Format(Val(lblCbfScjz.Text), "#,###,###,###,##0.00")
s2 = rmbDaXie(Val(Trim(lblCbfScjz.Text)))
sStr1 = sStr1 & "×" & Format(Val(txtJzmj.Text), "#,###,###,###,##0.00#") & vbCrLf & "=" & _
s1 & "(元)。" & vbCrLf & "大写人民币" & s2 & "。"
txtFxJs1.Text = sStr & sStr1
txtGjJg.Text = "估价对象在估价时点" & Format(datGjsd.Value, "yyyy年MM月dd日") & "的" & Trim(cmoJzdy.Text) & "评估为" & s1 & "元，" & vbCrLf & "大写人民币" & s2 & "。" 内容来自think58 [资料来源：http://think58.com]
copyright think58 [资料来源：http://THINK58.com]