(完损等级)评定表、估价分析与计算、估价对象概况栏。
B.系统将根据信息计算出的结果,在估价分析与计算和估价结果栏里自动显示估价的时间电、估价结果和相关的信息。
C.系统根据用户输入的以上信息自动计算房地产价值和成新等级,系统根据以下的计算方法估价计算。
*下面简要地介绍以下房地产的估价计算方法:
房地产价置=重置价*成新系数*(1+其他调节系数合计%/100)*(1+房屋价格调节系数%/100)*面积
成新系数=成新/10
成新=(结构部分系数合计*C+装修部分系数合计*S+设备部分系数合计*B)/10
其中:C+S+B=1(C、S、B是权重)
系统根据用户输入的信息自动合计结构部分系数、装修部分系数和设备部分系数。系统根据以下信息自动合计:
结构部分系数合计=地基基础系数+承重构件系数+非承重墙系数+屋面系数+楼地面系数
装修部分系数合计=门窗系数+外装饰系数+内装饰系数+顶棚系数+细木装修系数
设备部分系数合计=水木系数+电气照明系数+采暖系数
其他调节系数合计=环境系数+装饰设备系数+楼层系数+营业房系数
注:公式中的重置价、房屋价格调节系数、其他调节系数、面积以及权重是用户
输入的部分,应在TextBox中实现。系统根据TextBox中的信息自动计算成
新、成新系数、房地产价置。
在窗口frmXxbg中
*部分代码:
在估价人员每输入TextBox项时就会激发TextChanged事件,如:
PrivateSubtxtXs16_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlestxtXs16.TextChanged,txtSw1.TextChanged,txtDqzm1.TextChanged,txtCn1.TextChanged
Calc_Xj(16)
upDated=True
EndSub
*"估价分析与计算"和"估价结果"文本框与其他文本框不同,自动生成其内容。"估价分析与计算"文本框中的内容根据重置价、成新系数、计算方法的不同其内容自动变换。"估价结果"文本框中的内容根据所选择时间点和所计算出的价格,显示不同的文本内容。
*部分代码如下
自动生成"估价分析与计算"和"估价结果"的TextBox内容的源代码
PrivateSubchgFXJSandGJJG()
DimsStr,sStr1,s1,s2AsString,iAsShort
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"
IfVal(txtCbftjxsV1.Text)<>0Then
sStr=sStr&","&Trim(txtCbftjxs1.Text)&"调节系数"&IIf(Val(txtCbftjxsV1.Text)>0,"+","")&Trim(txtCbftjxsV1.Text)&"%"
sStr1=sStr1&IIf(Val(txtCbftjxsV1.Text)>0,"+","")&Trim(txtCbftjxsV1.Text)&"%"
EndIf
..........................................
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&"。"
5.2系统维护功能模块
此功能主要是实现系统数据和数据库的维护。
>功能简介
该功能主要完成数据的一般性维护,数据的恢复与备份、数据的定期删除,还提供了本系统的部分维护功能,如:完成密码的更新,系统数据维护,归档评估报告,刷新系统数据等操作。:
>窗口:frmChgPassword,frmWeihu,frmGd
5.2.1更改系统登录密码模块
功能:更改某个用户密码,以便更好地维护用户。
1.窗口:frmChgPassword
2.实现:
在frmChgPassword中
*部分代码如下:
两次输入的密码不想等,将执行以下代码:
在cmdOK_Click事件中
IftxtPassword.Text.Trim<>txtRePassword.Text.TrimThen
MsgBox("两次输入的密码不相等,请重新输入!",MsgBoxStyle.OKOnly+MsgBoxStyle.Critical,"错误")
txtRePassword.Clea