vb457地籍登记管理系统论文access.doc

《vb457地籍登记管理系统论文access.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB457地籍登记管理系统论文Access

摘要

在地籍登记管理系统用计算机管理地籍登记的一种计算机应用技术的创新,在计算机还未普及之前地籍管理都是由土地管理人员手工记帐的方式来操作的.现在一般的地籍管理都是采用计算机作为工具的实用的计算机地籍登记管理程序来帮助管理员进行更有效的地籍登记。地籍登记管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。
   经过分析

2、,我们使用MICROSOFT公司的VISUALBASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

关键字:地籍登记,管理信息系统,visualbasic,access
DimCtlAsControl
'记录每个Control的原始位置、大小、字型大小,放在Tag属性中
OnErrorResumeNext'确保left,top,width,height,Tag属性没有全有的Con

3、trol
ForEachCtlInMe  '也能正常执行
   Ctl.Tag=Ctl.Left&""&Ctl.Top&""&Ctl.Width&""&Ctl.Height&""
   Ctl.Tag=Ctl.Tag&Ctl.FontSize&""
NextCtl
flxGridhistory.Cols=2
flxGridhistory.FormatString="^类别

4、^信息"

5、

ForI=0ToflxGridhistory.Cols-1
flxGridhistory.ColWidth(I)=flxGridhistory.Width/2-150
NextI

OnErrorGoTo0
EndSub

PrivateSubForm_Resize()
DimD(4)AsDouble
DimIAsLong
DimTempPosAsLong
DimStartPosAsLong
DimCtlAsControl
DimTempVisibleAsBoolean
DimScaleX

6、AsDouble
DimScaleYAsDouble

ScaleX=ScaleWidth/InitWidth
ScaleY=ScaleHeight/InitHeight
OnErrorResumeNext
ForEachCtlInMe
   TempVisible=Ctl.Visible
   Ctl.Visible=False
   StartPos=1
   '读取Control的原始位置、大

7、小、字型大小
   ForI=0To4
       TempPos=InStr(StartPos,Ctl.Tag,"",vbTextCompare)
       IfTempPos>0Then
           D(I)=Mid(Ctl.Tag,StartPos

8、,TempPos-StartPos)
           StartPos=TempPos+1
       Else
           D(I)=0