?? 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 + -