结束语
本软件的设计目的是在土地登记管理维护方面为企事业单位和管理人员提供方便和帮助。通过这几个月的文档设计，我学到很多以前没有学到的visual basic开发技术，在软件工程学上更是取得了很大的进步。经过大量的测试和试用，作者深信本软件达到了方便和实用的设计目的，并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平，但由于作者水平有限，软件存在bug也是在所难免的 ，您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
摘要
在地籍登记管理系统用计算机管理地籍登记的一种计算机应用技术的创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的方式来操作的.现在一般的地籍管理都是采用计算机作为工具的实用的计算机地籍登记管理程序来帮助管理员进行更有效的地籍登记。地籍登记管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
关键字: 地籍登记,管理信息系统,visual basic ,access
引言
课题背景
在地籍登记管理系统用计算机管理地籍登记的一种计算机应用技术的创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的方式来操作的.现在一般的地籍管理都是采用计算机作为工具的实用的计算机地籍登记管理程序来帮助管理员进行更有效的地籍登记。地籍登记管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
系统简介
初始登记:负责登记土地的宗地号,图号,宗地面积,用途,坐落,土地权属性质,使用权权属人,使用者性质,通讯地址,使用权类型,使用期限,家庭人口,土地证号,归户卡号,建筑面积,建筑容积率,建筑物类型等一系列参数.
变更登记:主要针对上述的信息进行修改.
出租登记:对宗地号,使用权权属人,承租人,租赁期限,租赁日期进行修改.
抵押登记窗口:对上述的信息进行修改.
系统的分析
系统开发的目标和思想
本系统主要针对土地管理部门的日常业务流程而开发的.目的是方便地籍登记人员工作需要,提高政府部门办事效率,提高数据存储的可靠性.在此基础上做到界面的友好人性化还有程序的健壮性.
系统的可行性分析
经济上:本系统方便政府无纸化办公需要,节约了政府支出.在经济上具有可行性.
技术上:本系统采用visual basic 于微软的Access结合的方式.具有可行性.
社会上:本系统服务于土地管理部门,同时也方便了广大人民需要,具有社会可行性.
系统的设计
系统的功能结构设计
3．2 系统的数据库设计
1.界止点信息库:
2.历史库设计:
3.宗地属性库:
界面设计与代码设计
一.地籍登记界面设计:
地籍登记代码设计:
Private Sub Command1_Click()
Dim m, j As Integer
With frmDengjiStart
.Caption = "初始登记窗口"
.Command4.Visible = False
.Command5.Visible = False
.flxGridhistory.Rows = 52
For m = 1 To .flxGridhistory.Rows - 1
.flxGridhistory.TextMatrix(m, 0) = rs.Fields(m - 1).Name & ""
Next m
For j = 0 To 51
.flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16
Next j
.Show
End With
xuanze = True
frmdengji.Hide
End Sub
Private Sub Command2_Click()
Dim m, j As Integer
With frmDengjiStart
.Caption = "变更登记窗口"
.Command1.Visible = False
.Command2.Visible = False
.flxGridhistory.Rows = 42
For m = 1 To .flxGridhistory.Rows - 1
.flxGridhistory.TextMatrix(m, 0) = rs1.Fields(m - 1).Name & ""
Next m
For j = 0 To 41
.flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16
Next j
.Show
End With
xuanze = False
frmdengji.Hide
End Sub
Private Sub Command3_Click()
With frmdengjicuzu
.Caption = "出租登记窗口"
.Label3.Caption = "承租人"
.Label4.Caption = "租赁期限"
.Label5.Caption = "租赁日期"
.Show
End With
'Unload frmdengji
frmdengji.Hide
End Sub
Private Sub Command4_Click()
With frmdengjicuzu
.Caption = "抵押登记窗口"
.Label3.Caption = "债权人"
.Label4.Caption = "抵押期限"
.Label5.Caption = "抵押日期"
.Show
End With
'Unload frmdengji
frmdengji.Hide
End Sub
Private Sub Form_Load()
' ScaleHeight = 1000 ' 设置高度的单位值。
' ScaleWidth = 1000
InitWidth = 4000
InitHeight = 4500
&nbs