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