免费获取|
论文天下网
  • 论文天下网 |
  • 原创毕业论文 |
  • 论文范文 |
  • 论文下载 |
  • 计算机论文 |
  • 论文降重 |
  • 毕业论文 |
  • 外文翻译 |
  • 免费论文 |
  • 开题报告 |
  • 心得体会 |

当前位置:论文天下网 -> 免费论文 -> 计算机论文

地籍登记管理系统+vb(六)

bsp;  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
            Ctl.FontSize = D(4) * ScaleX
        Else
            Ctl.FontSize = D(4) * ScaleY
        End If
    Next I
    Ctl.Visible = TempVisible
Next Ctl
On Error GoTo 0

For I = 0 To flxGridhistory.Cols - 1
flxGridhistory.ColWidth(I) = flxGridhistory.Width / 2 - 150
Next I

End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
frmdengji.Show
End Sub

 


Private Sub Texta_Change()
flxGridhistory.Text = Texta.Text
End Sub

Private Sub Texta_LostFocus()
Dim j

If selrow = 1 And Caption = "初始登记窗口" Then
Command1.Enabled = True
End If
If selrow = 1 And Caption = "变更登记窗口" Then
Command4.Enabled = True

zdhao = flxGridhistory.TextMatrix(1, 1)

rs.FindFirst ("宗地号 = '" & zdhao & "'")

If rs.NoMatch Then
Exit Sub
Else
zdhao1 = rs.Fields(0)
For j = 0 To flxGridhistory.Rows - 5
  flxGridhistory.TextMatrix(j + 1, 1) = rs.Fields(j) & ""
Next j
End If

End If

End Sub
Private Sub Textb_Change()
flxGridhistory.Text = Textb.Text
End Sub

Private Sub Textb_KeyPress(KeyAscii As Integer)
If KeyAscii <= 45 Or KeyAscii = 47 Or KeyAscii >= 58 Then
KeyAscii = 0
End If
End Sub

首页 上一页 3 4 5 6 下一页 尾页 6/6/6

相关论文
上一篇:车辆管理系统+vb 下一篇:电表管理系统VB
推荐论文 本专业最新论文
Tags:地籍 登记 管理系统 【返回顶部】

相关栏目

自动化相关
计算机论文
工程管理论文
法律论文
医学论文
人力资源
电子专业
电气工程
英语论文
行政管理
电子商务
社科文学
教育论文
物流专业
金融专业
财务管理
会计专业
化学化工材料科学
电子通信
环境科学
经济类
机械模具类
报告,总结,申请书
其他专业论文


关于我们 | 联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 原创毕业论文

 

论文天下网提供论文检测,论文降重,论文范文,论文排版,网站永久域名WWW.GEPUW.NET

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 893628136@qq.com

Copyright@ 2009-2022 GEPUW.NET 论文天下网 版权所有