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

地籍登记管理系统+vb(四) ;     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
             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

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

地籍登记管理系统+vb(四)由免费论文网（www.jaoyuw.com）会员上传。