; 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
