评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

地籍登记管理系统+vb(一)毕业论文(4)

2013-05-10 18:04 ;     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

End Sub

Private Sub Form_Unload(Cancel As Integer)
frmdengji.Show

End Sub

Private Sub Text1_LostFocus()
Dim j
On Error GoTo bb

If Text1.Text = "" Then
   MsgBox "请输入宗地号！"
Else
      zdhao = Text1.Text
      rs.FindFirst ("宗地号 = '" & 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).Name = "租赁期限" Then （科教作文网http://zw.ΝsΕAc.Com编辑整理）
             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 = "抵押权人" Then
             Text3.Text = rs.Fields(j)
      &n