Boolean
2
∨
宗地评估收费标准
pgsf
Boolean
2
∨
查询表:SrchXxbg
字段含义
字段名称
数据类型
长度
允许空
估价师
gjs
nchar
3
∨
房权证号
fqzh
nchar
2
∨
丘(地)号
qdh
nchar
20
∨
幢号
zh
integer
5
∨
房号
fh
integer
11
∨
估价时点
gjsd
smalldatetime
4
∨
估价目的
gjmd
nchar
10
∨
设计用途
sjyt
nchar
6
∨
房屋所有权人
syqr
nchar
14
∨
房屋坐落
fwzl
nchar
6
∨
统计查询表:frmTotal主键:gjs
字段含义
字段名称
数据类型
长度
允许空
估价师
gjs
nchar
3
∨
估价目的
gjmd
nchar
10
∨
设计用途
sjyt
nchar
6
∨
估价时点
gjsd
smalldatetime
4
∨
统计查询结果表
字段含义
字段名称
数据类型
长度
允许空
件数
js
integer
4
∨
建筑面积
jzmj
real
4
∨
估价额
gje
nvarchar
8
∨
收费额
sfe
nvarchar
8
∨
◇编号作为主码,输入信息时它是自动生成的,所以应设置为不可改写的。
◇估价日期,估价目的,估价时点,结构,设计用途以列表的形式显示,由用户在指定范围内选择。编号作为主码,输入信息时它是自动生成的,所以应设置为不可改写的。
第五章详细设计
5.1评估录入模块
>功能简介
*完成估价对象与相关房地产评估信息的录入。
*根据信息自动实现估价结果、估价分析与计算。
*用户登录后评估报告编号自动生成。
1.窗口:frmXxbg
2.实现:在窗口frmXxbg中
A.评估人员将获得的评估信息输入系统,评估信息依次输入到房屋资料、房屋状况、房屋分幢成新程度(完损等级)评定表、估价分析与计算、估价对象概况栏。
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.Clear()
txtPassword.Focus()
txtPassword.SelectionStart=0
txtPassword.SelectionLength=txtPassword.Text.Length
5.2.2系统数据维护模块
*功能:对数据库的数据进行维护
1.窗口:frmWeihu
2.实现:实现新数据的录入、查询现有数据、删除过期数据等功能。
在窗口frmWeihu中
*部分代码如下:
IfjbsjUpdatedOrgjsdaUpdatedOrgjmdUpdatedOrfwjgUpdatedOrgjyjUpdatedOrsjytUpdatedOrgjyzUpdatedOrjzdyUpdatedThen
ans=MsgBox("系统数据已变,是否保存当前数据?",MsgBoxStyle.YesNoCancel+MsgBoxStyle.Exclamation,"小型报告")
SelectCaseans
CaseMsgBoxResult.Yes
savXtsj()
Cancel=False
CaseMsgBoxResult.No
Cancel=False
CaseMsgBoxResult.Cancel
Cancel=True
EndSelect
EndIf
注:系统要维护的数据,基本数据、估价师档案、房地产估价收费标准、估价依据、一般宗地评估收费标准、设计用途、房屋结构、估价目的、估价原则、房地产价值定义。
5.2.3归档报告模块
*功能:归档评估报告模块的主要功能是按不同时间段和不同估价师查找其所有评估报告,然后在找到的结果中再选择所需的评估报告保存到相关目录中。
1.窗口:frmGd
2.实现:按估价人员和估价时间段查询,并选择归档内容保存。
在窗口frmGd中
*部分代码如下:
开始查询按钮cmdStart_Click事件:
DimsrchStrAsString,iAsInteger
Ifbg=TrueThen
srchStr="SELECTTOP100PERCENTXxbg.gjbgBH,Xxbg.Gjrq,Xxbg.Syqr,Xxbg.Fqzh"&_
"FROMXxbgINNERJOINgjsdaONXxbg.gjs=gjsda.gjsIDWHE
上一篇:
vb_net酒店管理系统+论文(论文和程序)
下一篇:
让我掉下眼泪的