|
第二章 系统的分析 paper51.com 2．1 系统开发的目标和思想 copyright paper51.com 本系统主要针对土地管理部门的日常业务流程而开发的.目的是方便地籍登记人员工作需要,提高政府部门办事效率,提高数据存储的可靠性.在此基础上做到界面的友好人性化还有程序的健壮性. copyright paper51.com 2．2 系统的可行性分析 http://www.paper51.com 经济上:本系统方便政府无纸化办公需要,节约了政府支出.在经济上具有可行性. copyright paper51.com 技术上:本系统采用visual basic于微软的Access结合的方式.具有可行性. 内容来自论文无忧网 www.paper51.com 社会上:本系统服务于土地管理部门,同时也方便了广大人民需要,具有社会可行性. http://www.paper51.com 第三章 系统的设计 http://www.paper51.com 3．1 系统的功能结构设计 内容来自论文无忧网 www.paper51.com
paper51.com 3．2 系统的数据库设计 内容来自www.paper51.com 1.界止点信息库: 内容来自www.paper51.com paper51.com 2.历史库设计: copyright paper51.com copyright paper51.com 3.宗地属性库: paper51.com
内容来自论文无忧网 www.paper51.com 3．2 界面设计与代码设计 http://www.paper51.com 一.地籍登记界面设计: 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
地籍登记代码设计: 内容来自论文无忧网 www.paper51.com PrivateSub Command1_Click() paper51.com Dimm, j As Integer http://www.paper51.com WithfrmDengjiStart paper51.com .Caption= "初始登记窗口" 内容来自www.paper51.com
.Command4.Visible= False paper51.com .Command5.Visible= False http://www.paper51.com .flxGridhistory.Rows = 52 内容来自论文无忧网 www.paper51.com For m = 1 To .flxGridhistory.Rows - 1 内容来自www.paper51.com
.flxGridhistory.TextMatrix(m, 0) = rs.Fields(m - 1).Name& "" 内容来自www.paper51.com Next m 内容来自www.paper51.com For j = 0 To 51 copyright paper51.com .flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16 http://www.paper51.com Next j 内容来自论文无忧网 www.paper51.com .Show copyright paper51.com EndWith 内容来自论文无忧网 www.paper51.com xuanze= True 内容来自论文无忧网 www.paper51.com
frmdengji.Hide 内容来自www.paper51.com EndSub 内容来自www.paper51.com PrivateSub Command2_Click() 内容来自www.paper51.com
Dimm, j As Integer 内容来自www.paper51.com
WithfrmDengjiStart http://www.paper51.com .Caption= "变更登记窗口" 内容来自论文无忧网 www.paper51.com
.Command1.Visible= False paper51.com .Command2.Visible= False 内容来自www.paper51.com .flxGridhistory.Rows = 42 paper51.com For m = 1 To .flxGridhistory.Rows - 1 内容来自www.paper51.com .flxGridhistory.TextMatrix(m, 0) = rs1.Fields(m - 1).Name & "" paper51.com Next m http://www.paper51.com For j = 0 To 41 内容来自www.paper51.com .flxGridhistory.RowHeight(j) = .flxGridhistory.Width / 16 http://www.paper51.com Next j copyright paper51.com
.Show copyright paper51.com EndWith http://www.paper51.com
xuanze= False 内容来自www.paper51.com frmdengji.Hide http://www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com
PrivateSub Command3_Click() 内容来自www.paper51.com
Withfrmdengjicuzu paper51.com .Caption= "出租登记窗口" 内容来自论文无忧网 www.paper51.com .Label3.Caption= "承租人" paper51.com
.Label4.Caption= "租赁期限" 内容来自www.paper51.com
.Label5.Caption= "租赁日期" paper51.com .Show 内容来自www.paper51.com EndWith 内容来自www.paper51.com
'Unloadfrmdengji copyright paper51.com frmdengji.Hide 内容来自论文无忧网 www.paper51.com EndSub paper51.com
PrivateSub Command4_Click() 内容来自www.paper51.com Withfrmdengjicuzu 内容来自论文无忧网 www.paper51.com .Caption= "抵押登记窗口" 内容来自www.paper51.com
.Label3.Caption= "债权人" 内容来自www.paper51.com .Label4.Caption= "抵押期限" 内容来自www.paper51.com
.Label5.Caption= "抵押日期" 内容来自www.paper51.com .Show 内容来自www.paper51.com EndWith 内容来自www.paper51.com 'Unloadfrmdengji copyright paper51.com
frmdengji.Hide http://www.paper51.com EndSub 内容来自论文无忧网 www.paper51.com PrivateSub Form_Load() 内容来自论文无忧网 www.paper51.com
copyright paper51.com
' ScaleHeight= 1000 ' 设置高度的单位值。 copyright paper51.com
' ScaleWidth= 1000 http://www.paper51.com InitWidth =4000 内容来自论文无忧网 www.paper51.com InitHeight =4500 内容来自论文无忧网 www.paper51.com
DimCtl As Control 内容来自论文无忧网 www.paper51.com '记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 paper51.com
OnError Resume Next '确保left, top, width,height, Tag属性没有全有的Control 内容来自论文无忧网 www.paper51.com ForEach Ctl In Me '也能正常执行 copyright paper51.com Ctl.Tag= Ctl.Left & " " & Ctl.Top & " " & Ctl.Width& " " & Ctl.Height & "" 内容来自www.paper51.com Ctl.Tag= Ctl.Tag & Ctl.FontSize& " " paper51.com NextCtl http://www.paper51.com flxGridhistory.Cols= 2 copyright paper51.com
flxGridhistory.FormatString= "^类别|^信息" 内容来自论文无忧网 www.paper51.com ForI = 0 To flxGridhistory.Cols- 1 内容来自www.paper51.com flxGridhistory.ColWidth(I) = flxGridhistory.Width / 2 - 150 http://www.paper51.com
NextI 内容来自www.paper51.com OnError GoTo 0 copyright paper51.com
EndSub copyright paper51.com PrivateSub Form_Resize() paper51.com
DimD(4) As Double http://www.paper51.com DimI As Long http://www.paper51.com DimTempPos As Long 内容来自www.paper51.com
DimStartPos As Long 内容来自www.paper51.com
DimCtl As Control copyright paper51.com DimTempVisible As Boolean 内容来自www.paper51.com DimScaleX As Double copyright paper51.com
DimScaleY As Double http://www.paper51.com ScaleX= ScaleWidth / InitWidth paper51.com
ScaleY= ScaleHeight / InitHeight paper51.com OnError Resume Next paper51.com ForEach Ctl In Me http://www.paper51.com TempVisible= Ctl.Visible 内容来自论文无忧网 www.paper51.com Ctl.Visible= False copyright paper51.com StartPos= 1 paper51.com ' 读取 Control 的原始位置、大小、字型大小 内容来自www.paper51.com For I = 0 To 4 http://www.paper51.com TempPos = InStr(StartPos, Ctl.Tag," ", vbTextCompare) copyright paper51.com If TempPos > 0 Then http://www.paper51.com D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) 内容来自论文无忧网 www.paper51.com StartPos = TempPos +1 内容来自论文无忧网 www.paper51.com Else 内容来自www.paper51.com D(I)= 0 http://www.paper51.com EndIf 内容来自论文无忧网 www.paper51.com ' 根据比例设定 Control 的位置、大小、字型大小 内容来自www.paper51.com Ctl.Move D(0) * ScaleX, D(1) * ScaleY, D(2) * ScaleX, D(3) * ScaleY 内容来自论文无忧网 www.paper51.com 'Ctl.Width = D(2) * ScaleX http://www.paper51.com 'Ctl.Height = D(3) * ScaleY 内容来自www.paper51.com If ScaleX < ScaleY Then paper51.com Ctl.FontSize = D(4) *ScaleX 内容来自www.paper51.com Else http://www.paper51.com Ctl.FontSize = D(4) *ScaleY 内容来自www.paper51.com EndIf 内容来自论文无忧网 www.paper51.com Next I 内容来自论文无忧网 www.paper51.com Ctl.Visible= TempVisible 内容来自www.paper51.com NextCtl 内容来自论文无忧网 www.paper51.com
OnError GoTo 0 内容来自www.paper51.com
ForI = 0 To frmDengjiStart.flxGridhistory.Cols- 1 内容来自www.paper51.com frmDengjiStart.flxGridhistory.ColWidth(I) = frmDengjiStart.flxGridhistory.Width / 2 - 150 http://www.paper51.com NextI paper51.com EndSub http://www.paper51.com 内容来自www.paper51.com |