📄 frmhousetype.frm
字号:
VERSION 5.00
Begin VB.Form frmHouseType
Caption = "房型资料录入编辑"
ClientHeight = 7650
ClientLeft = 60
ClientTop = 345
ClientWidth = 8640
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7650
ScaleWidth = 8640
Begin VB.TextBox txtModifyName
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1560
TabIndex = 21
Top = 1935
Width = 1692
End
Begin VB.TextBox txtModifyDate
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 6030
TabIndex = 20
Top = 1935
Width = 1692
End
Begin VB.TextBox TxtUseArea
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 6015
TabIndex = 19
Top = 1350
Width = 1692
End
Begin VB.TextBox txtComment
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 1530
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 3300
Width = 6225
End
Begin VB.TextBox txtConstArea
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1530
TabIndex = 12
Top = 1290
Width = 1692
End
Begin VB.TextBox txtHouseType
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 6000
TabIndex = 11
Top = 645
Width = 1692
End
Begin VB.TextBox txthouseno
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1560
TabIndex = 10
Top = 645
Width = 1692
End
Begin VB.Frame Frame2
Caption = "查看房型信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1092
Left = 630
TabIndex = 5
Top = 4785
Width = 6972
Begin VB.CommandButton lastCommand
Caption = "最后一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4920
TabIndex = 9
Top = 360
Width = 1692
End
Begin VB.CommandButton nextCommand
Caption = "下一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 3360
TabIndex = 8
Top = 360
Width = 1452
End
Begin VB.CommandButton previousCommand
Caption = "上一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 1800
TabIndex = 7
Top = 360
Width = 1452
End
Begin VB.CommandButton firstCommand
Caption = "第一条记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 240
TabIndex = 6
Top = 360
Width = 1452
End
End
Begin VB.Frame Frame3
Caption = "修改房型信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1092
Left = 615
TabIndex = 0
Top = 6135
Width = 6972
Begin VB.CommandButton deleteCommand
Caption = "删除记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 4065
TabIndex = 4
Top = 390
Width = 1200
End
Begin VB.CommandButton cancelCommand
Caption = "关闭退出"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5295
TabIndex = 3
Top = 390
Width = 1215
End
Begin VB.CommandButton updateCommand
Caption = "保存记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2910
TabIndex = 2
Top = 390
Width = 1095
End
Begin VB.CommandButton editCommand
Caption = "修改记录"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 270
TabIndex = 1
Top = 390
Width = 1230
End
End
Begin VB.Label Label8
Alignment = 2 'Center
Caption = "最近修改人员："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -