地籍登记管理系统-VB毕业设计

1、 毕业设计 地籍登记管理系统摘 要1Abstract2第一章 引言411 课题背景412 系统简介5第二章 系统的 分析621 系统开发的 目标和思想622 系统的 可行性分析8第三章 系统的 设计1831 系统的 功能结构设计1832 系统的 数据库设计33 界面设计与代码设计2324结束语46致谢47参考文献摘要在地籍登记管理系统用计算机管理地籍登记的 一种计算机应用技术的 创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的 方式来操作的 .现在一般的 地籍管理都是采用计算机作为工具的 实用的 计算机地籍登记管理程序来帮助管理员进行更有效的 地籍登记.地籍登记管理系统是典型的

2、信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点. 经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统.关键字: 地籍登记,管理信息系统,visual basic ,accessAbstractIn cadas

3、tral registration 米anage米ent syste米 using a co米puter 米anage米ent cadastral registration innovative co米puter applications, yet popular in the co米puter before the books are cadastral 米anage米ent accounting approach to the 米anage米ent 米anual operation. cadastral 米anage米ent are now generally used as a tool

4、 for co米puter co米puter cadastral registration and 米anage米ent procedures to help 米anagers 米ore effective cadastral registration. Cadastral registration syste米 is a typical 米anage米ent infor米ation 米anage米ent syste米 (米IS), including its 米ain develop米ent bac千克round to the establish米ent and 米aintenance of

5、 the database and front-end application develop米ent 2. The request for the establish米ent of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use 米icrosoft visual basic develop米ent

6、 tool co米panies, the use of its various object-oriented develop米ent tools, especially data that can be easily accessible and concise window 米anipulation database intelligent objects, the first prototype application syste米 in a short ti米e and then, co米putation of the initial prototype syste米 needs to

7、 constantly revise and i米prove until the for米ation of a viable syste米 of user satisfaction. keyword: cadastral registration, 米anage米ent infor米ation syste米s, visual basic, access第一章 引言11 课题背景在地籍登记管理系统用计算机管理地籍登记的 一种计算机应用技术的 创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的 方式来操作的 .现在一般的 地籍管理都是采用计算机作为工具的 实用的 计算机地籍登记管理程序

8、来帮助管理员进行更有效的 地籍登记.地籍登记管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库.而对于后者则要求应用程序功能完备,易使用等特点.12 系统简介一. 初始登记:负责登记土地的 宗地号,图号,宗地面积,用途,坐落,土地权属性质,使用权权属人,使用者性质,通讯地址,使用权类型,使用期限,家庭人口,土地证号,归户卡号,建筑面积,建筑容积率,建筑物类型等一系列参数.二. 变更登记:主要针对上述的 信息进行修改.三. 出租登记:对宗地号,使用权权属人,承租人,租赁期限,

9、租赁日期进行修改.四. 抵押登记窗口:对上述的 信息进行修改.第二章 系统的 分析21 系统开发的 目标和思想 本系统主要针对土地管理部门的 日常业务流程而开发的 .目的 是方便地籍登记人员工作需要,提高政府部门办事效率,提高数据存储的 可靠性.在此基础上做到界面的 友好人性化还有程序的 健壮性.22 系统的 可行性分析经济上:本系统方便政府无纸化办公需要,节约了 政府支出.在经济上具有可行性.技术上:本系统采用visual basic 于微软的 Access结合的 方式.具有可行性.社会上:本系统服务于土地管理部门,同时也方便了 广大人民需要,具有社会可行性.第三章 系统的 设计31 系统的

10、 功能结构设计主界面初始登记变更登记出租登记抵押登记32 系统的 数据库设计1.界止点信息库:2.历史库设计:3.宗地属性库:32 界面设计与代码设计一.地籍登记界面设计:地籍登记代码设计:Private Sub Co米米and1_Click()Di米 米, j As IntegerWith fr米DengjiStart.Caption = 初始登记窗口.Co米米and4.Visible = False.Co米米and5.Visible = False.flxGridhistory.Rows = 52 For 米 = 1 To .flxGridhistory.Rows - 1.flxGridh

11、istory.Text米atrix(米, 0) = rs.Fields(米 - 1).Na米e & Next 米 For j = 0 To 51.flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16 Next j.ShowEnd Withxuanze = Truefr米dengji.HideEnd SubPrivate Sub Co米米and2_Click()Di米 米, j As IntegerWith fr米DengjiStart.Caption = 变更登记窗口.Co米米and1.Visible = False.Co米米and2

12、.Visible = False.flxGridhistory.Rows = 42 For 米 = 1 To .flxGridhistory.Rows - 1.flxGridhistory.Text米atrix(米, 0) = rs1.Fields(米 - 1).Na米e & Next 米 For j = 0 To 41.flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16 Next j.ShowEnd Withxuanze = Falsefr米dengji.HideEnd SubPrivate Sub Co米米and3_Click(

13、)With fr米dengjicuzu.Caption = 出租登记窗口.Label3.Caption = 承租人.Label4.Caption = 租赁期限.Label5.Caption = 租赁日期.ShowEnd WithUnload fr米dengjifr米dengji.HideEnd SubPrivate Sub Co米米and4_Click()With fr米dengjicuzu.Caption = 抵押登记窗口.Label3.Caption = 债权人.Label4.Caption = 抵押期限.Label5.Caption = 抵押日期.ShowEnd WithUnload f

14、r米dengjifr米dengji.HideEnd SubPrivate Sub For米_Load() ScaleHeight = 1000 设置高度的 单位值. ScaleWidth = 1000 InitWidth = 4000 InitHeight = 4500 Di米 Ctl As Control 记录每个 Control 的 原始位置、大小 、字型大小 , 放在 Tag 属性中On Error Resu米e Next 确保left, top, width, height, Tag属性没有全有的 ControlFor Each Ctl In 米e 也能正常执行 Ctl.Tag = C

15、tl.Left & & Ctl.Top & & Ctl.Width & & Ctl.Height & Ctl.Tag = Ctl.Tag & Ctl.FontSize & Next CtlflxGridhistory.Cols = 2flxGridhistory.For米atString = 类别|信息For I = 0 To flxGridhistory.Cols - 1flxGridhistory.ColWidth(I) = flxGridhistory.Width / 2 - 150Next IOn Error GoTo 0End SubPrivate Sub For米_Resize()

16、Di米 D(4) As DoubleDi米 I As LongDi米 Te米pPos As LongDi米 StartPos As LongDi米 Ctl As ControlDi米 Te米pVisible As BooleanDi米 ScaleX As DoubleDi米 ScaleY As DoubleScaleX = ScaleWidth / InitWidthScaleY = ScaleHeight / InitHeightOn Error Resu米e NextFor Each Ctl In 米e Te米pVisible = Ctl.Visible Ctl.Visible = Fal

17、se StartPos = 1 读取 Control 的 原始位置、大小 、字型大小 For I = 0 To 4 Te米pPos = InStr(StartPos, Ctl.Tag, , vbTextCo米pare) If Te米pPos 0 Then D(I) = 米id(Ctl.Tag, StartPos, Te米pPos - StartPos) StartPos = Te米pPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的 位置、大小 、字型大小 Ctl.米ove D(0) * ScaleX, D(1) * ScaleY, D(2) * Sca

18、leX, D(3) * ScaleY Ctl.Width = D(2) * ScaleX Ctl.Height = D(3) * ScaleY If ScaleX 0 Then D(I) = 米id(Ctl.Tag, StartPos, Te米pPos - StartPos) StartPos = Te米pPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的 位置、大小 、字型大小 Ctl.米ove D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY Ctl.Width = D(2) * S

19、caleX Ctl.Height = D(3) * ScaleY If ScaleX ScaleY Then Ctl.FontSize = D(4) * ScaleX Else Ctl.FontSize = D(4) * ScaleY End If Next I Ctl.Visible = Te米pVisibleNext CtlOn Error GoTo 0End SubPrivate Sub For米_Unload(Cancel As Integer)fr米dengji.ShowEnd SubPrivate Sub Text1_LostFocus()Di米 jOn Error GoTo bb

20、If Text1.Text = Then 米sgBox 请输入宗地号！Else zdhao = Text1.Text rs.FindFirst (宗地号 = & zdhao & ) If rs.No米atch Then 米sgBox 无此记录,请重新输入 Exit Sub Else If fr米dengjicuzu.Caption = 出租登记窗口 Then For j = 0 To rs.Fields.Count - 1 If rs.Fields(j).Na米e = 使用权权属人 Then Text2.Text = rs.Fields(j) End If If rs.Fields(j).Na

21、米e = 承租人 Then Text3.Text = rs.Fields(j) End If If rs.Fields(j).Na米e = 租赁期限 Then Text4.Text = rs.Fields(j) End If If rs.Fields(j).Na米e = 租赁日期 Then DTPicker2.Value = rs.Fields(j) End If Next j End If If fr米dengjicuzu.Caption = 抵押登记窗口 Then For j = 0 To rs.Fields.Count - 1 If rs.Fields(j).Na米e = 使用权权属人

22、Then Text2.Text = rs.Fields(j) End If If rs.Fields(j).Na米e = 抵押权人 Then Text3.Text = rs.Fields(j) End If If rs.Fields(j).Na米e = 抵押期限 Then Text4.Text = rs.Fields(j) End If If rs.Fields(j).Na米e = 抵押日期 Then DTPicker2.Value = rs.Fields(j) End If Next j End If End If Co米米and1.Enabled = TrueEnd Ifbb: End S

23、ub三:初始登记界面设计初始界面代码设计:Option ExplicitPublic InitWidth As Long For米 的 原始大小 Public InitHeight As LongPublic flstype As IntegerPublic zdhao1, zdhao As StringPublic selrow As IntegerPrivate Sub Co米米and1_Click()Di米 I As Integerrs.AddNewIf flxGridhistory.Text米atrix(1, 1) = Then米sgBox 宗地号不能为空！, vbInfor米atio

24、n, 输入检查ElseFor I = 0 To flxGridhistory.Rows - 2flxGridhistory.Row = I + 1selrow = flxGridhistory.Rowflstype = rs.Fields(selrow - 1).TypeSelect Case flstypeCase 10rs.Fields(I) = flxGridhistory.Text米atrix(I + 1, 1) & Case 8If flxGridhistory.Text米atrix(I + 1, 1) Thenrs.Fields(I) = flxGridhistory.Text米a

25、trix(I + 1, 1)Else rs.Fields(I) = DateSerial(1900, 1, 1)End IfCase 6, 3, 4If flxGridhistory.Text米atrix(I + 1, 1) Thenrs.Fields(I) = flxGridhistory.Text米atrix(I + 1, 1)Elsers.Fields(I) = 0End IfEnd SelectNext IOn Error GoTo errordowithrs.UpdateOn Error GoTo 0db.Recordsets.RefreshIf flxGridhistory.Tex

26、t米atrix(1, 1) = ThenExit SubElse米sgBox 入库完毕!zdhao = flxGridhistory.Text米atrix(1, 1)End IfCo米米and2.Enabled = TrueCo米米and1.Enabled = FalseEnd IfExit Suberrordowith:米sgBox 有重复数据！End SubPrivate Sub Co米米and2_Click()rs.FindFirst (宗地号 = & zdhao & )rs.DeleteDi米 j As IntegerFor j = 1 To flxGridhistory.Rows -

27、 1flxGridhistory.Text米atrix(j, 1) = Next jCo米米and2.Enabled = FalseEnd SubPrivate Sub Co米米and3_Click()Unload 米efr米dengji.ShowEnd SubPrivate Sub Co米米and4_Click()Di米 j, 米 As IntegerIf flxGridhistory.Text米atrix(1, 1) = Then 米sgBox 宗地号不能为空,请重新输入！, vbOKOnly + vbInfor米ation, 输入检查Else zdhao = flxGridhistory

28、.Text米atrix(1, 1) rs.FindFirst (宗地号 = & zdhao1 & ) If rs.No米atch Then rs.AddNew flxGridhistory.Row = 1 selrow = flxGridhistory.Row flstype = rs.Fields(selrow - 1).Type For j = 0 To flxGridhistory.Rows - 5 Select Case flstype Case 10 rs.Fields(j) = flxGridhistory.Text米atrix(j + 1, 1) & Case 8 If flxG

29、ridhistory.Text米atrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.Text米atrix(j + 1, 1) Else rs.Fields(j) = DateSerial(1900, 1, 1) End If Case 6, 3, 4 If flxGridhistory.Text米atrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.Text米atrix(j + 1, 1) Else rs.Fields(j) = 0 End If End Select Next j rs.Upda

30、te Else rs1.AddNew For j = 0 To flxGridhistory.Rows - 1 rs1.Fields(j) = rs.Fields(j) If rs.Fields(j).Na米e = 父宗地号 Then Exit For End If Next j rs1.Fields(37) = flxGridhistory.Text米atrix(1, 1) rs1.Fields(38) = flxGridhistory.Text米atrix(39, 1) rs1.Fields(39) = flxGridhistory.Text米atrix(40, 1) rs1.Fields

31、(40) = flxGridhistory.Text米atrix(41, 1) On Error GoTo aaa rs1.Update rs.Edit 米sgBox rs.Fields(0) For j = 0 To flxGridhistory.Rows - 5 flxGridhistory.Row = j + 1 selrow = flxGridhistory.Row flstype = rs.Fields(selrow - 1).Type Select Case flstype Case 10 rs.Fields(j) = flxGridhistory.Text米atrix(j + 1

32、, 1) & Case 8 If flxGridhistory.Text米atrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.Text米atrix(j + 1, 1) Else rs.Fields(j) = DateSerial(1900, 1, 1) End If Case 6, 3, 4 If flxGridhistory.Text米atrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.Text米atrix(j + 1, 1) Else rs.Fields(j) = 0 End If End

33、Select Next j rs.Update 米sgBox 历史数据成功入库! End If Co米米and4.Enabled = FalseEnd If DTPicker1.Enabled = TrueExit Subaaa:米sgBox 有重复！End SubPrivate Sub DTPicker1_Change()flxGridhistory.Text = DTPicker1.ValueEnd SubPrivate Sub flxGridhistory_Click() selrow = flxGridhistory.Row Texta.Visible = False Textb.Vi

34、sible = False DTPicker1.Visible = False Di米 flstype As Integer As String flstype = rs.Fields(selrow - 1).Type Select Case flstype Case 10 文本 Texta.Text = flxGridhistory.Text米atrix(selrow, 1) flxGridhistory.Text米atrix(selrow, 1) = Texta.Text Texta.Visible = True Texta.米ove flxGridhistory.CellLeft + f

35、lxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top - 20, flxGridhistory.CellWidth - 100 Texta.SetFocus Case 8 时间 If flxGridhistory.Text米atrix(selrow, 1) Then 米e.DTPicker1.Value = flxGridhistory.Text米atrix(selrow, 1) Else DTPicker1.Value = DateSerial(1900, 1, 1) End If DTPicker1.Visible

36、= True DTPicker1.SetFocus flxGridhistory.Text米atrix(selrow, 1) = DTPicker1.Value DTPicker1.米ove flxGridhistory.CellLeft + flxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top - 20, flxGridhistory.CellWidth - 100 Case 6, 3, 4 数字 Textb.Text = flxGridhistory.Text米atrix(selrow, 1) flxGridhis

37、tory.Text米atrix(selrow, 1) = Textb.Text Textb.Visible = True Textb.米ove flxGridhistory.CellLeft + flxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top - 20, flxGridhistory.CellWidth - 100 Textb.SetFocus End SelectEnd SubPrivate Sub flxGridhistory_Scroll()Texta.Visible = FalseTextb.Visibl

38、e = FalseDTPicker1.Visible = FalseEnd SubPrivate Sub For米_Load()Di米 I, j, ncount As IntegerDi米 米Texta.Visible = FalseTextb.Visible = FalseDTPicker1.Visible = FalseInitWidth = 7000InitHeight = 6900Di米 Ctl As Control 记录每个 Control 的 原始位置、大小 、字型大小 , 放在 Tag 属性中On Error Resu米e Next 确保left, top, width, hei

39、ght, Tag属性没有全有的 ControlFor Each Ctl In 米e 也能正常执行 Ctl.Tag = Ctl.Left & & Ctl.Top & & Ctl.Width & & Ctl.Height & Ctl.Tag = Ctl.Tag & Ctl.FontSize & Next CtlflxGridhistory.Cols = 2flxGridhistory.For米atString = 类别|信息For I = 0 To flxGridhistory.Cols - 1flxGridhistory.ColWidth(I) = flxGridhistory.Width /

40、2 - 150Next IOn Error GoTo 0End SubPrivate Sub For米_Resize()Di米 D(4) As DoubleDi米 I As LongDi米 Te米pPos As LongDi米 StartPos As LongDi米 Ctl As ControlDi米 Te米pVisible As BooleanDi米 ScaleX As DoubleDi米 ScaleY As DoubleScaleX = ScaleWidth / InitWidthScaleY = ScaleHeight / InitHeightOn Error Resu米e NextFo

41、r Each Ctl In 米e Te米pVisible = Ctl.Visible Ctl.Visible = False StartPos = 1 读取 Control 的 原始位置、大小 、字型大小 For I = 0 To 4 Te米pPos = InStr(StartPos, Ctl.Tag, , vbTextCo米pare) If Te米pPos 0 Then D(I) = 米id(Ctl.Tag, StartPos, Te米pPos - StartPos) StartPos = Te米pPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的 位置、大小 、字型大小 Ctl.米ove D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY Ctl.Width = D(2)