|
第五章 系统总体规划 copyright paper51.com 5.1系统功能1． 可以进行录入房屋基本情况操作，如房屋面积、房屋位置等，自动核算出房地产价值。2． 添加一个评估报告；3． 删除一个评估报告；4． 修改一个评估报告；5． 查询房地产信息；采用了模糊查询技术,如此功能主要实现应用系统中常用的一种查询方式，可以对已有的信息进行查询,其主要目的是在一大堆评估报告当中迅速地查找所需的评估报告。 paper51.com 该功能主要根据房地产评估报告的不同条件信息进行查询。查询时可以选择条件中的一个或多个来实现，根据不同的信息将显示不同的结果。查询条件如：按房屋所有权人，房权证号，房屋坐落，估价时点，丘地号，设计用途，幢号，估价目的，房号，估价人名等不同的条件来查询。考虑运行速度，适当使用索引。 http://www.paper51.com 6． 归档房地产信息。 内容来自论文无忧网 www.paper51.com ² 功能：归档评估报告模块的主要功能是按不同时间段和不同估价师查找其所有评估报告，然后在找到的结果中再选择所需的评估报告保存到相关目录中。 内容来自论文无忧网 www.paper51.com
5.2流程图 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
第六章 系统具体实现 paper51.com 6.1用户界面的实现6．1．1 登录 内容来自论文无忧网 www.paper51.com 选择用户姓名，输入密码。附录主要代码如下： http://www.paper51.com Private Sub InitMe() copyright paper51.com Try copyright paper51.com With tbl 内容来自www.paper51.com
.Open("select * from gjsda where enable=1", serverDB,ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly) http://www.paper51.com Do While Not .EOF http://www.paper51.com cmoUser.Items.Add(CStr(.Fields("name").Value).Trim) 内容来自论文无忧网 www.paper51.com .MoveNext() http://www.paper51.com Loop 内容来自论文无忧网 www.paper51.com
cmoUser.SelectedIndex = 0 http://www.paper51.com .MoveFirst() http://www.paper51.com lblGjsbh.Text =.Fields("gjsid").Value paper51.com
End With copyright paper51.com Catch err As Exception 内容来自论文无忧网 www.paper51.com
MsgBox("无法取得估价人员档案！", MsgBoxStyle.OKOnly+ MsgBoxStyle.Critical, "错误") 内容来自www.paper51.com End 内容来自www.paper51.com
EndTry copyright paper51.com
EndSub copyright paper51.com Private SubcmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlescmdOK.Click 内容来自www.paper51.com
Try copyright paper51.com With txtPassword copyright paper51.com
If.Text.Trim = CStr(tbl.Fields("password").Value).Trim Then http://www.paper51.com SetCurrentUser() 内容来自www.paper51.com tbl.Close() copyright paper51.com
Me.Close() 内容来自论文无忧网 www.paper51.com Else 内容来自www.paper51.com
MsgBox("密码错误，再试一次！", vbOKOnly +vbCritical, "错误") copyright paper51.com .Focus() 内容来自论文无忧网 www.paper51.com .SelectionStart = 0 paper51.com .SelectionLength = .Text.Length http://www.paper51.com End If 内容来自www.paper51.com End With 内容来自论文无忧网 www.paper51.com
Catch exc As Exception paper51.com MsgBox("无法正常启动本系统！", MsgBoxStyle.OKOnly+ MsgBoxStyle.Critical, "错误") 内容来自论文无忧网 www.paper51.com End paper51.com EndTry copyright paper51.com EndSub http://www.paper51.com Private Sub cmdCancel_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles cmdCancel.Click http://www.paper51.com OnError Resume Next http://www.paper51.com tbl.Close() copyright paper51.com End http://www.paper51.com EndSub copyright paper51.com Private Sub cmoUser_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlescmoUser.SelectedIndexChanged 内容来自www.paper51.com OnError Resume Next 内容来自论文无忧网 www.paper51.com
tbl.MoveFirst() 内容来自www.paper51.com tbl.Move(cmoUser.SelectedIndex, 0) 内容来自论文无忧网 www.paper51.com lblGjsbh.Text = tbl.Fields("gjsID").Value 内容来自论文无忧网 www.paper51.com txtPassword.Focus() 内容来自论文无忧网 www.paper51.com EndSub paper51.com Private Sub GroupBox1_Enter(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles GroupBox1.Enter 内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com End Class 内容来自论文无忧网 www.paper51.com 6．1．2 主界面 paper51.com 附录主要代码如下： 内容来自论文无忧网 www.paper51.com PrivateSub xxPgbgOpened() Handles newXxbg.pgbgOpened 内容来自www.paper51.com myChildren = "xxbg" 内容来自www.paper51.com
openXxPgbg() 内容来自www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com PrivateSub xxPgbgClosed() Handles newXxbg.pgbgClosed http://www.paper51.com myChildren = "" copyright paper51.com
closeXxPgbg() 内容来自www.paper51.com
End Sub copyright paper51.com PrivateSub mnuPassword_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles mnuPassword.Click copyright paper51.com
DimnewPassword As New frmChgPassword() http://www.paper51.com newPassword.ShowDialog(Me) 内容来自论文无忧网 www.paper51.com
End Sub http://www.paper51.com PrivateSub mnuNewXx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuNewXx.Click, mnuCnewXx.Click http://www.paper51.com newXxbg = New frmXxbg() 内容来自www.paper51.com newXxbg.MdiParent = Me 内容来自www.paper51.com newXxbg.openNewXxbg() http://www.paper51.com
End Sub copyright paper51.com PrivateSub mnuNewDx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuNewDx.Click, mnuCnewDx.Click copyright paper51.com
newDxbg = New frmDxbg() paper51.com newDxbg.MdiParent = Me 内容来自论文无忧网 www.paper51.com newDxbg.openNewDxbg() paper51.com End Sub 内容来自www.paper51.com PrivateSub mnuOpenXx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuOpenXx.Click, copenMnuXx.Click copyright paper51.com newSrch = New frmSrch() copyright paper51.com newSrch.MdiParent = Me copyright paper51.com newSrch.openNewSrch(True) http://www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com PrivateSub mnuOpenDx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuOpenDx.Click, copenMnuDx.Click 内容来自www.paper51.com newSrch = New frmSrch() 内容来自www.paper51.com
newSrch.MdiParent = Me copyright paper51.com newSrch.openNewSrch(False) 内容来自论文无忧网 www.paper51.com End Sub 内容来自www.paper51.com PrivateSub mnuTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles mnuTotal.Click copyright paper51.com DimnewTotal As New frmTotal() 内容来自论文无忧网 www.paper51.com
newTotal.ShowDialog() 内容来自www.paper51.com 主界面包含三方面的内容,以下一一介绍:1.评估报告打开评估报告,进入评估报告菜单项。1.1文件包括：新建评估报告打开评估报告保存评估报告另存评估报告打印评估报告退出1. 3帮助包括：关于房地产评估系统2．记录操作打开记录操作进入记录操作选项页分别由浏览记录、查找二个选项组成。2．1浏览评估报告：评估人员库评估报告库归档库2．2统计评估报告 内容来自论文无忧网 www.paper51.com 3．系统维护打开系统维护进入选项页分别由更改系统登录密码、归档评估报告组成。 http://www.paper51.com
更改系统登录密码 paper51.com 附录主要代码如下： 内容来自www.paper51.com Private SubcmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles cmdCancel.Click copyright paper51.com Me.Close() 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
Private SubcmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlescmdOK.Click paper51.com OnError Resume Next paper51.com If txtPassword.Text.Trim<> txtRePassword.Text.Trim Then paper51.com MsgBox("两次输入的密码不相等，请重新输入！", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "错误") http://www.paper51.com txtRePassword.Clear() copyright paper51.com txtPassword.Focus() copyright paper51.com txtPassword.SelectionStart = 0 copyright paper51.com txtPassword.SelectionLength = txtPassword.Text.Length paper51.com
Else 内容来自www.paper51.com Dim tbl As New ADODB.Recordset() copyright paper51.com
tbl.Open("select password from gjsda where gjsid='" ¤tUser.ID & "'", serverDB,ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockOptimistic) 内容来自论文无忧网 www.paper51.com tbl.Fields("password").Value = txtPassword.Text.Trim 内容来自www.paper51.com
tbl.Update() http://www.paper51.com tbl.Close() 内容来自论文无忧网 www.paper51.com Me.Close() 内容来自www.paper51.com EndIf 内容来自www.paper51.com End Sub copyright paper51.com
Private SubfrmChgPassword_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load 内容来自论文无忧网 www.paper51.com End SubEnd Class copyright paper51.com |