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

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

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

3、gement system using a computer management cadastral registration innovative computer applications, yet popular in the computer before the books are cadastral management accounting approach to the management manual operation. cadastral management are now generally used as a tool for computer computer

4、 cadastral registration and management procedures to help managers more effective cadastral registration. Cadastral registration system is a typical management information management system (MIS), including its main development background to the establishment and maintenance of the database and fron

5、t-end application development 2. The request for the establishment 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 Microsoft visual basic development tool companies, the u

6、se of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, computation of the initial prototype system needs to constantly revise and

7、 improve until the formation of a viable system of user satisfaction. keyword: cadastral registration, management information systems, visual basic, access第一章 引言11 课题背景在地籍登记管理系统用计算机管理地籍登记的一种计算机应用技术的创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的方式来操作的.现在一般的地籍管理都是采用计算机作为工具的实用的计算机地籍登记管理程序来帮助管理员进行更有效的地籍登记。地籍登记管理系统是典型的

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

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

10、计:3.宗地属性库:32 界面设计与代码设计一.地籍登记界面设计:地籍登记代码设计:Private Sub Command1_Click()Dim m, j As IntegerWith 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 & Nex

11、t m For j = 0 To 51.flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16 Next j.ShowEnd Withxuanze = Truefrmdengji.HideEnd SubPrivate Sub Command2_Click()Dim m, j As IntegerWith frmDengjiStart.Caption = 变更登记窗口.Command1.Visible = False.Command2.Visible = False.flxGridhistory.Rows = 42 For m = 1 T

12、o .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.ShowEnd Withxuanze = Falsefrmdengji.HideEnd SubPrivate Sub Command3_Click()With frmdengjicuzu.Caption = 出租登记窗口.Label3.Caption =

13、 承租人.Label4.Caption = 租赁期限.Label5.Caption = 租赁日期.ShowEnd WithUnload frmdengjifrmdengji.HideEnd SubPrivate Sub Command4_Click()With frmdengjicuzu.Caption = 抵押登记窗口.Label3.Caption = 债权人.Label4.Caption = 抵押期限.Label5.Caption = 抵押日期.ShowEnd WithUnload frmdengjifrmdengji.HideEnd SubPrivate Sub Form_Load()

14、ScaleHeight = 1000 设置高度的单位值。 ScaleWidth = 1000 InitWidth = 4000 InitHeight = 4500 Dim Ctl As Control 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中On Error Resume Next 确保left, top, width, height, Tag属性没有全有的ControlFor Each Ctl In Me 也能正常执行 Ctl.Tag = Ctl.Left & & Ctl.Top & & Ctl.Width & & Ctl.Height & Ctl.Tag

15、 = Ctl.Tag & Ctl.FontSize & Next CtlflxGridhistory.Cols = 2flxGridhistory.FormatString = 类别|信息For I = 0 To flxGridhistory.Cols - 1flxGridhistory.ColWidth(I) = flxGridhistory.Width / 2 - 150Next IOn Error GoTo 0End SubPrivate Sub Form_Resize()Dim D(4) As DoubleDim I As LongDim TempPos As LongDim Star

16、tPos As LongDim Ctl As ControlDim TempVisible As BooleanDim ScaleX As DoubleDim ScaleY As DoubleScaleX = ScaleWidth / InitWidthScaleY = ScaleHeight / InitHeightOn Error Resume NextFor Each Ctl In Me TempVisible = Ctl.Visible Ctl.Visible = False StartPos = 1 读取 Control 的原始位置、大小、字型大小 For I = 0 To 4 Te

17、mpPos = InStr(StartPos, Ctl.Tag, , vbTextCompare) If TempPos 0 Then D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY Ctl.Width = D(2) * ScaleX Ctl.Height = D(3)

18、 * ScaleY If ScaleX 0 Then D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY Ctl.Width = D(2) * ScaleX Ctl.Height = D(3) * ScaleY If ScaleX ScaleY Then Ctl.FontS

19、ize = D(4) * ScaleX Else Ctl.FontSize = D(4) * ScaleY End If Next I Ctl.Visible = TempVisibleNext CtlOn Error GoTo 0End SubPrivate Sub Form_Unload(Cancel As Integer)frmdengji.ShowEnd SubPrivate Sub Text1_LostFocus()Dim jOn Error GoTo bbIf Text1.Text = Then MsgBox 请输入宗地号！Else zdhao = Text1.Text rs.Fi

20、ndFirst (宗地号 = & zdhao & ) If rs.NoMatch Then MsgBox 无此记录，请重新输入 Exit Sub Else If frmdengjicuzu.Caption = 出租登记窗口 Then For j = 0 To rs.Fields.Count - 1 If rs.Fields(j).Name = 使用权权属人 Then Text2.Text = rs.Fields(j) End If If rs.Fields(j).Name = 承租人 Then Text3.Text = rs.Fields(j) End If If rs.Fields(j).N

21、ame = 租赁期限 Then Text4.Text = rs.Fields(j) End If If rs.Fields(j).Name = 租赁日期 Then DTPicker2.Value = rs.Fields(j) End If Next j End If If frmdengjicuzu.Caption = 抵押登记窗口 Then For j = 0 To rs.Fields.Count - 1 If rs.Fields(j).Name = 使用权权属人 Then Text2.Text = rs.Fields(j) End If If rs.Fields(j).Name = 抵押权

22、人 Then Text3.Text = rs.Fields(j) End If If rs.Fields(j).Name = 抵押期限 Then Text4.Text = rs.Fields(j) End If If rs.Fields(j).Name = 抵押日期 Then DTPicker2.Value = rs.Fields(j) End If Next j End If End If Command1.Enabled = TrueEnd Ifbb: End Sub三:初始登记界面设计初始界面代码设计:Option ExplicitPublic InitWidth As Long For

23、m 的原始大小Public InitHeight As LongPublic flstype As IntegerPublic zdhao1, zdhao As StringPublic selrow As IntegerPrivate Sub Command1_Click()Dim I As Integerrs.AddNewIf flxGridhistory.TextMatrix(1, 1) = ThenMsgBox 宗地号不能为空！, vbInformation, 输入检查ElseFor I = 0 To flxGridhistory.Rows - 2flxGridhistory.Row

24、= I + 1selrow = flxGridhistory.Rowflstype = rs.Fields(selrow - 1).TypeSelect Case flstypeCase 10rs.Fields(I) = flxGridhistory.TextMatrix(I + 1, 1) & Case 8If flxGridhistory.TextMatrix(I + 1, 1) Thenrs.Fields(I) = flxGridhistory.TextMatrix(I + 1, 1)Else rs.Fields(I) = DateSerial(1900, 1, 1)End IfCase

25、 6, 3, 4If flxGridhistory.TextMatrix(I + 1, 1) Thenrs.Fields(I) = flxGridhistory.TextMatrix(I + 1, 1)Elsers.Fields(I) = 0End IfEnd SelectNext IOn Error GoTo errordowithrs.UpdateOn Error GoTo 0db.Recordsets.RefreshIf flxGridhistory.TextMatrix(1, 1) = ThenExit SubElseMsgBox 入库完毕!zdhao = flxGridhistory

26、.TextMatrix(1, 1)End IfCommand2.Enabled = TrueCommand1.Enabled = FalseEnd IfExit Suberrordowith:MsgBox 有重复数据！End SubPrivate Sub Command2_Click()rs.FindFirst (宗地号 = & zdhao & )rs.DeleteDim j As IntegerFor j = 1 To flxGridhistory.Rows - 1flxGridhistory.TextMatrix(j, 1) = Next jCommand2.Enabled = False

27、End SubPrivate Sub Command3_Click()Unload Mefrmdengji.ShowEnd SubPrivate Sub Command4_Click()Dim j, m As IntegerIf flxGridhistory.TextMatrix(1, 1) = Then MsgBox 宗地号不能为空，请重新输入！, vbOKOnly + vbInformation, 输入检查Else zdhao = flxGridhistory.TextMatrix(1, 1) rs.FindFirst (宗地号 = & zdhao1 & ) If rs.NoMatch T

28、hen 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.TextMatrix(j + 1, 1) & Case 8 If flxGridhistory.TextMatrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory

29、.TextMatrix(j + 1, 1) Else rs.Fields(j) = DateSerial(1900, 1, 1) End If Case 6, 3, 4 If flxGridhistory.TextMatrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.TextMatrix(j + 1, 1) Else rs.Fields(j) = 0 End If End Select Next j rs.Update Else rs1.AddNew For j = 0 To flxGridhistory.Rows - 1 rs1.Fields

30、(j) = rs.Fields(j) If rs.Fields(j).Name = 父宗地号 Then Exit For End If Next j rs1.Fields(37) = flxGridhistory.TextMatrix(1, 1) rs1.Fields(38) = flxGridhistory.TextMatrix(39, 1) rs1.Fields(39) = flxGridhistory.TextMatrix(40, 1) rs1.Fields(40) = flxGridhistory.TextMatrix(41, 1) On Error GoTo aaa rs1.Upda

31、te rs.Edit MsgBox 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.TextMatrix(j + 1, 1) & Case 8 If flxGridhistory.TextMatrix(j + 1, 1) Then rs.Field

32、s(j) = flxGridhistory.TextMatrix(j + 1, 1) Else rs.Fields(j) = DateSerial(1900, 1, 1) End If Case 6, 3, 4 If flxGridhistory.TextMatrix(j + 1, 1) Then rs.Fields(j) = flxGridhistory.TextMatrix(j + 1, 1) Else rs.Fields(j) = 0 End If End Select Next j rs.Update MsgBox 历史数据成功入库! End If Command4.Enabled =

33、 FalseEnd If DTPicker1.Enabled = TrueExit Subaaa:MsgBox 有重复！End SubPrivate Sub DTPicker1_Change()flxGridhistory.Text = DTPicker1.ValueEnd SubPrivate Sub flxGridhistory_Click() selrow = flxGridhistory.Row Texta.Visible = False Textb.Visible = False DTPicker1.Visible = False Dim flstype As Integer As

34、String flstype = rs.Fields(selrow - 1).Type Select Case flstype Case 10 文本 Texta.Text = flxGridhistory.TextMatrix(selrow, 1) flxGridhistory.TextMatrix(selrow, 1) = Texta.Text Texta.Visible = True Texta.Move flxGridhistory.CellLeft + flxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top -

35、20, flxGridhistory.CellWidth - 100 Texta.SetFocus Case 8 时间 If flxGridhistory.TextMatrix(selrow, 1) Then Me.DTPicker1.Value = flxGridhistory.TextMatrix(selrow, 1) Else DTPicker1.Value = DateSerial(1900, 1, 1) End If DTPicker1.Visible = True DTPicker1.SetFocus flxGridhistory.TextMatrix(selrow, 1) = D

36、TPicker1.Value DTPicker1.Move flxGridhistory.CellLeft + flxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top - 20, flxGridhistory.CellWidth - 100 Case 6, 3, 4 数字 Textb.Text = flxGridhistory.TextMatrix(selrow, 1) flxGridhistory.TextMatrix(selrow, 1) = Textb.Text Textb.Visible = True Textb

37、.Move flxGridhistory.CellLeft + flxGridhistory.Left, flxGridhistory.CellTop + flxGridhistory.Top - 20, flxGridhistory.CellWidth - 100 Textb.SetFocus End SelectEnd SubPrivate Sub flxGridhistory_Scroll()Texta.Visible = FalseTextb.Visible = FalseDTPicker1.Visible = FalseEnd SubPrivate Sub Form_Load()Di

38、m I, j, ncount As IntegerDim mTexta.Visible = FalseTextb.Visible = FalseDTPicker1.Visible = FalseInitWidth = 7000InitHeight = 6900Dim Ctl As Control 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中On Error Resume Next 确保left, top, width, height, Tag属性没有全有的ControlFor Each Ctl In Me 也能正常执行 Ctl.Tag = Ctl.Left &

39、& Ctl.Top & & Ctl.Width & & Ctl.Height & Ctl.Tag = Ctl.Tag & Ctl.FontSize & Next CtlflxGridhistory.Cols = 2flxGridhistory.FormatString = 类别|信息For I = 0 To flxGridhistory.Cols - 1flxGridhistory.ColWidth(I) = flxGridhistory.Width / 2 - 150Next IOn Error GoTo 0End SubPrivate Sub Form_Resize()Dim D(4) A

40、s DoubleDim I As LongDim TempPos As LongDim StartPos As LongDim Ctl As ControlDim TempVisible As BooleanDim ScaleX As DoubleDim ScaleY As DoubleScaleX = ScaleWidth / InitWidthScaleY = ScaleHeight / InitHeightOn Error Resume NextFor Each Ctl In Me TempVisible = Ctl.Visible Ctl.Visible = False StartPo

41、s = 1 读取 Control 的原始位置、大小、字型大小 For I = 0 To 4 TempPos = InStr(StartPos, Ctl.Tag, , vbTextCompare) If TempPos 0 Then D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) StartPos = TempPos + 1 Else D(I) = 0 End If 根据比例设定 Control 的位置、大小、字型大小 Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY Ctl.Width = D(2) * ScaleX Ctl.Height = D(3) * ScaleY If ScaleX ScaleY Then