📄 frm_fwinfomd.frm
字号:
TabIndex = 5
Top = 960
Width = 1200
End
Begin VB.TextBox Text7
DataField = "使用面积"
DataSource = "Adodc1"
Height = 300
Left = 5430
TabIndex = 4
Top = 1395
Width = 1200
End
Begin VB.TextBox Text8
DataField = "公产面积"
DataSource = "Adodc1"
Height = 300
Left = 5445
TabIndex = 3
Top = 1800
Width = 1200
End
Begin VB.TextBox Text9
DataField = "私产面积"
DataSource = "Adodc1"
Height = 300
Left = 5490
TabIndex = 2
Top = 2235
Width = 1200
End
Begin VB.TextBox Text10
DataField = "备注"
DataSource = "Adodc1"
Height = 630
Left = 1155
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Top = 3090
Width = 5565
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "房间编号："
Height = 180
Left = 240
TabIndex = 28
Top = 525
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "小区名称："
Height = 180
Left = 225
TabIndex = 27
Top = 960
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "大楼名称："
Height = 165
Left = 255
TabIndex = 26
Top = 1380
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "户主姓名："
Height = 180
Left = 270
TabIndex = 25
Top = 1815
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "朝 向："
Height = 180
Left = 315
TabIndex = 24
Top = 2250
Width = 810
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "房屋状态："
Height = 180
Left = 300
TabIndex = 23
Top = 2670
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "备 注："
Height = 180
Left = 300
TabIndex = 22
Top = 3105
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "单 元："
Height = 180
Left = 2370
TabIndex = 21
Top = 585
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "权属类型："
Height = 180
Left = 2400
TabIndex = 20
Top = 975
Width = 900
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "房间结构："
Height = 180
Left = 2400
TabIndex = 19
Top = 1395
Width = 900
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "配备设备："
Height = 180
Left = 2430
TabIndex = 18
Top = 1830
Width = 900
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "房间类别："
Height = 180
Left = 2445
TabIndex = 17
Top = 2265
Width = 900
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "用 途："
Height = 180
Left = 2460
TabIndex = 16
Top = 2670
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "楼 层："
Height = 180
Left = 4560
TabIndex = 15
Top = 555
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "建筑面积："
Height = 180
Left = 4590
TabIndex = 14
Top = 1005
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "使用面积："
Height = 180
Left = 4590
TabIndex = 13
Top = 1425
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "公产面积："
Height = 180
Left = 4605
TabIndex = 12
Top = 1845
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "私产面积："
Height = 180
Left = 4620
TabIndex = 11
Top = 2295
Width = 900
End
End
End
Attribute VB_Name = "frm_fwinfomd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Adodc1.Recordset.UpdateBatch
MsgBox "修改成功"
'Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Unload Me
frm_fwinfo.Show
frm_fwinfo.Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command5_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.MoveLast
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -