|
EndSub PrivateSub Form_Unload(Cancel As Integer) 内容来自论文无忧网 www.paper51.com
DimI As Integer paper51.com For I = Forms.Count- 1 To 1 Step -1 内容来自www.paper51.com Unload Forms(I) http://www.paper51.com Next paper51.com rs.Close 内容来自www.paper51.com
Set rs= Nothing http://www.paper51.com rs1.Close copyright paper51.com Set rs1 = Nothing http://www.paper51.com
db.Close http://www.paper51.com Set db = Nothing 内容来自论文无忧网 www.paper51.com
EndSub copyright paper51.com 二.出租登记界面设计: http://www.paper51.com
paper51.com 出租界面代码设计: paper51.com
PrivateSub Command1_Click() http://www.paper51.com Dimj http://www.paper51.com rs.Edit 内容来自论文无忧网 www.paper51.com
Iffrmdengjicuzu.Caption = "出租登记窗口" Then copyright paper51.com
For j = 0 To rs.Fields.Count - 1 内容来自www.paper51.com If rs.Fields(j).Name= "使用权权属人" Then 内容来自www.paper51.com rs.Fields(j)= Text2.Text http://www.paper51.com End If 内容来自www.paper51.com If rs.Fields(j).Name= "承租人" Then copyright paper51.com
rs.Fields(j)= Text3.Text 内容来自www.paper51.com
End If 内容来自论文无忧网 www.paper51.com If rs.Fields(j).Name= "租赁期限" Then 内容来自论文无忧网 www.paper51.com
rs.Fields(j)= Text4.Text paper51.com
End If 内容来自论文无忧网 www.paper51.com If rs.Fields(j).Name= "租赁日期" Then copyright paper51.com rs.Fields(j)= DTPicker2.Value paper51.com End If paper51.com Next j http://www.paper51.com EndIf http://www.paper51.com Iffrmdengjicuzu.Caption = "抵押登记窗口" Then copyright paper51.com For j = 0 Tors.Fields.Count - 1 内容来自www.paper51.com If rs.Fields(j).Name = "使用权权属人" Then 内容来自论文无忧网 www.paper51.com rs.Fields(j) = Text2.Text copyright paper51.com End If http://www.paper51.com If rs.Fields(j).Name = "抵押权人" Then copyright paper51.com rs.Fields(j) = Text3.Text 内容来自论文无忧网 www.paper51.com End If paper51.com If rs.Fields(j).Name = "抵押期限" Then http://www.paper51.com rs.Fields(j) = Text4.Text 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com If rs.Fields(j).Name = "抵押日期" Then copyright paper51.com rs.Fields(j) = DTPicker2.Value paper51.com End If http://www.paper51.com Next j 内容来自论文无忧网 www.paper51.com EndIf http://www.paper51.com rs.Update http://www.paper51.com MsgBox"已成功入库！" 内容来自论文无忧网 www.paper51.com Unloadfrmdengjicuzu 内容来自www.paper51.com
Loadfrmdengji http://www.paper51.com frmdengji.Show copyright paper51.com
EndSub 内容来自论文无忧网 www.paper51.com PrivateSub Form_Load() 内容来自论文无忧网 www.paper51.com InitWidth= 5472 copyright paper51.com InitHeight= 5010 copyright paper51.com DimCtl As Control 内容来自www.paper51.com
'记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 内容来自www.paper51.com OnError Resume Next '确保left, top, width,height, Tag属性没有全有的Control paper51.com ForEach Ctl In Me '也能正常执行 paper51.com Ctl.Tag= Ctl.Left & " " & Ctl.Top & " " & Ctl.Width& " " & Ctl.Height & "" 内容来自www.paper51.com
Ctl.Tag= Ctl.Tag & Ctl.FontSize& " " copyright paper51.com NextCtl paper51.com OnError GoTo 0 copyright paper51.com
Command1.Enabled= False 内容来自论文无忧网 www.paper51.com EndSub paper51.com PrivateSub Form_Resize() paper51.com
DimD(4) As Double paper51.com DimI As Long paper51.com DimTempPos As Long 内容来自论文无忧网 www.paper51.com DimStartPos As Long paper51.com DimCtl As Control paper51.com DimTempVisible As Boolean 内容来自论文无忧网 www.paper51.com DimScaleX As Double copyright paper51.com
DimScaleY As Double http://www.paper51.com ScaleX= ScaleWidth / InitWidth http://www.paper51.com ScaleY= ScaleHeight / InitHeight paper51.com OnError Resume Next copyright paper51.com
ForEach Ctl In Me 内容来自www.paper51.com TempVisible= Ctl.Visible 内容来自www.paper51.com Ctl.Visible= False paper51.com StartPos= 1 内容来自论文无忧网 www.paper51.com
' 读取 Control 的原始位置、大小、字型大小 http://www.paper51.com For I = 0 To 4 内容来自www.paper51.com
TempPos = InStr(StartPos, Ctl.Tag," ", vbTextCompare) paper51.com If TempPos > 0 Then paper51.com D(I) = Mid(Ctl.Tag, StartPos, TempPos - StartPos) paper51.com StartPos = TempPos +1 内容来自www.paper51.com Else http://www.paper51.com D(I)= 0 内容来自www.paper51.com EndIf copyright paper51.com
paper51.com |