Next()
Loop
cmoUser.SelectedIndex=0
.MoveFirst()
lblGjsbh.Text=.Fields("gjsid").Value
EndWith
CatcherrAsException
MsgBox("无法取得估价人员档案!",MsgBoxStyle.OKOnly+MsgBoxStyle.Critical,"错误")
End
EndTry
EndSub
PrivateSubcmdOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmdOK.Click
Try
WithtxtPassword
If.Text.Trim=CStr(tbl.Fields("password").Value).TrimThen
SetCurrentUser()
tbl.Close()
Me.Close()
Else
MsgBox("密码错误,再试一次!",vbOKOnly+vbCritical,"错误")
.Focus()
.SelectionStart=0
.SelectionLength=.Text.Length
EndIf
EndWith
CatchexcAsException
MsgBox("无法正常启动本系统!",MsgBoxStyle.OKOnly+MsgBoxStyle.Critical,"错误")
End
EndTry
EndSub
PrivateSubcmdCancel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmdCancel.Click
ResumeNext
tbl.Close()
End
EndSub
PrivateSubcmoUser_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmoUser.SelectedIndexChanged
ResumeNext
tbl.MoveFirst()
tbl.Move(cmoUser.SelectedIndex,0)
lblGjsbh.Text=tbl.Fields("gjsID").Value
txtPassword.Focus()
EndSub
PrivateSubGroupBox1_Enter(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesGroupBox1.Enter
EndSub
EndClass
6.1.2主界面
附录主要代码如下:
PrivateSubxxPgbgOpened()HandlesnewXxbg.pgbgOpened
myChildren="xxbg"
openXxPgbg()
EndSub
PrivateSubxxPgbgClosed()HandlesnewXxbg.pgbgClosed
myChildren=""
closeXxPgbg()
EndSub
PrivateSubmnuPassword_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuPassword.Click
DimnewPasswordAsNewfrmChgPassword()
newPassword.ShowDialog(Me)
EndSub
PrivateSubmnuNewXx_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuNewXx.Click,mnuCnewXx.Click
newXxbg=NewfrmXxbg()
newXxbg.MdiParent=Me
newXxbg.openNewXxbg()
EndSub
PrivateSubmnuNewDx_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuNewDx.Click,mnuCnewDx.Click
newDxbg=NewfrmDxbg()
newDxbg.MdiParent=Me
newDxbg.openNewDxbg()
EndSub
PrivateSubmnuOpenXx_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuOpenXx.Click,copenMnuXx.Click
newSrch=NewfrmSrch()
newSrch.MdiParent=Me
newSrch.openNewSrch(True)
EndSub
PrivateSubmnuOpenDx_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuOpenDx.Click,copenMnuDx.Click
newSrch=NewfrmSrch()
newSrch.MdiParent=Me
newSrch.openNewSrch(False)
EndSub
PrivateSubmnuTotal_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesmnuTotal.Click
DimnewTotalAsNewfrmTotal()
newTotal.ShowDialog()
主界面包含三方面的内容,以下一一介绍:
1.评估报告
打开评估报告,进入评估报告菜单项。
1.1文件包括:新建评估报告
打开评估报告
保存评估报告
另存评估报告
打印评估报告
退出
1.3帮助包括:关于房地产评估系统
2.记录操作
打开记录操作进入记录操作选项页分别由浏览记录、查找二个选项组成。
2.1浏览评估报告:
评估人员库
评估报告库
归档库
2.2统计评估报告
3.系统维护
打开系统维护进入选项页分别由更改系统登录密码、归档评估报告组成。
更改系统登录密码
附录主要代码如下:
PrivateSubcmdCancel_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmdCancel.Click
Me.Close()
EndSub
PrivateSubcmdOK_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlescmdOK.Click
ResumeNext
IftxtPassword.Text.Trim<>txtRePassword.Text.TrimThen
MsgBox("两次输入的密码不相等,请重新输入!",MsgBoxStyle.OKOnly+MsgBoxStyle.Critical,"错误")
txtRePassword.Clear()
txtPassword.Focus()
txtPassword.SelectionStart=0
txtPassword.SelectionLength=txtPassword.Text.Length
Else
DimtblAsNewADODB.Recordset()
tbl.Open("selectpasswordfromgjsdawheregjsid='"¤tUser.ID&"'",serverDB,ADODB.CursorTypeEnum.adOpenForwardOnly,ADODB.LockTypeEnum.adLockOptimistic)
tbl.Fields("password").Value=txtPassword.Text.Trim
tbl.Update()
tbl.Close()
Me.Close()
EndIf
EndSub
PrivateSubfrmChgPassword_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
EndSubEndClass
6.2数据库的实现
小型报告表(xxbg)
中文名称
字段名
类型
长度
允许空
估价评估编号
gjbgbh
nchar
12
∨
估价师
gjs
nchar
3
∨
委托方
wtf
nchar
27
∨
估价方
gjf
nchar
27
∨
估价日期
gjrq
smalldatetime
4
∨
估价时点
gjsd
smalldatetime
4
∨
估价目的
gjmd
nchar
10
∨
估价方法
gjff
nchar
10
∨
房屋所有权人
syqr
nchar
14
∨
房权证号
fqzz
nchar
2
∨
丘(地)号
qdh
nchar
20
∨
报告有效期
yxq
nchar
9
∨
幢号
zh
nchar
5
∨
结构
jg
nchar
5
∨
房号
fh
nchar
11
∨
房屋总屋数
zcs
smallint
2
∨
所在数层
szcs
nchar
6
∨
建筑面积
jzmj
jzmj
4
∨
设计用途
sjyt
nchar
6
∨
地基基础
djjc1
smallint
2
∨
承重构件
czgj1
smallint
2
∨
非承重墙
fczq1
smallint
2
∨
屋面
wm1
smallint
2
∨
楼地面
ldm1
smallint
2
∨
门窗
mc1
smallint
2
∨
外装饰
wzc1
smallint
2
∨
内装饰
nzc1
smallint
2
∨
顶棚
dp1
smallint
2
∨
细木装修
xmzx1
smallint
2
∨
水卫
sw1
smallint
2
∨
电气照明
dgzm1
smallint
2
∨
采暖
cn1
smallint
2
∨
◇编号作为主码,输入信息时它是自动生成的,所以应设置为不可改写的。
◇估价日期,估价目的,估价时点,结构,设计用途以列表的形式显示,由用户在指定范围内选择。
2.估价师情况表
中文名称
字段名
类型
长度
允许空
估价师编号
gisid
nchar
3
姓名
name
nchar
4
资格
zg
nchar
10
∨
职称
zc
nchar
10
∨
密码
password
nchar
7
∨
设计用途表(sjyt)
中文名称
字段名
类型
长度
允许空
设计用途
name
nchar
6
价格表(jg)
中文名称
字段名
类型
长度
允许空
价格
name
nchar
5
估价目的表(gjmd)
中文名称
字段名
类型
长度
允许空
估价目的
name
nchar
10
估价依据表(gjyj)
中文名称
字段名
类型
长度
允许空
估价依据
name
nchar
100
估价原则表(gjyz)
中文名称
字段名
类型
长度
允许空
估价原则
name
nchar
30
建筑物表(jzw)
中文名称
字段名
类型
长度
允许空
编号
Id
bigint
8
估价报告编号
gjbgBH
nchar
12
估价方法
上一篇:
房地产评估系统VB_net SQL2000(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施