【VB开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-frmbuilding.frm的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmbuilding
Caption = "楼房管理"
ClientHeight = 6975
ClientLeft = 4980
ClientTop = 4005
ClientWidth = 7200
LinkTopic = "Form1"
ScaleHeight = 6975
ScaleWidth = 7200
Begin VB.Frame Frame4
Height = 855
Left = 240
TabIndex = 19
Top = 5640
Width = 6735
Begin VB.CommandButton CmdSave
Caption = "保存"
Enabled = 0 'False
Height = 480
Left = 3288
Style = 1 'Graphical
TabIndex = 25
Top = 240
Width = 915
End
Begin VB.CommandButton CmdAdd
Caption = "添加"
Height = 480
Left = 120
Style = 1 'Graphical
TabIndex = 24
Top = 240
Width = 915
End
Begin VB.CommandButton CmdDelete
Caption = "删除"
Height = 480
Left = 2232
Style = 1 'Graphical
TabIndex = 23
Top = 240
Width = 915
End
Begin VB.CommandButton CmdCancel
Caption = "取消"
Height = 480
Left = 4344
Style = 1 'Graphical
TabIndex = 22
Top = 240
Width = 915
End
Begin VB.CommandButton CmdExit
Caption = "退出"
Height = 480
Left = 5400
Style = 1 'Graphical
TabIndex = 21
Top = 240
Width = 915
End
Begin VB.CommandButton CmdModify
Caption = "修改"
Height = 480
Left = 1176
Style = 1 'Graphical
TabIndex = 20
Top = 240
Width = 915
End
End
Begin VB.Frame Frame2
Caption = "编辑楼房信息"
Height = 3255
Left = 240
TabIndex = 2
Top = 2280
Width = 6735
Begin VB.TextBox txtInvest
Appearance = 0 'Flat
Height = 375
Left = 4440
TabIndex = 10
Top = 720
Width = 1575
End
Begin VB.TextBox txtBuildingId
Appearance = 0 'Flat
Height = 375
Left = 1200
MaxLength = 4
TabIndex = 9
Top = 240
Width = 1575
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
Height = 375
Left = 4440
TabIndex = 8
Top = 240
Width = 1575
End
Begin
VB.TextBox txtArea
Appearance = 0 'Flat
Height = 375
Left = 1200
TabIndex = 7
Top = 720
Width = 1575
End
Begin VB.TextBox txtRooms
Appearance = 0 'Flat
Height = 375
Left = 4440
TabIndex = 6
Top = 1200
Width = 1575
End
Begin VB.TextBox txtFloors
Appearance = 0 'Flat
Height = 375
Left = 1200
TabIndex = 5
Top = 1200
Width = 1575
End
Begin VB.TextBox txtNotes
Appearance = 0 'Flat
Height = 915
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 2160
Width = 4815
End
Begin VB.TextBox txtPosition
Appearance = 0 'Flat
Height = 375
Left = 1200
TabIndex = 3
Top = 1680
Width = 4815
End
Begin VB.Label Label1
Caption = "楼房号(4位):"
Height = 375
Index = 0
Left = 360
TabIndex = 18
Top = 240
Width = 735
End
Begin VB.Label Label1
Caption = "楼名:"
Height = 255
Index = 1
Left = 3520
TabIndex = 17
Top = 360
Width = 975
End
Begin VB.Label Label1
Caption = "所处位置:"
Height = 255
Index = 2
Left = 120
TabIndex = 16
Top = 1800
Width = 975
End
Begin VB.Label Label1
Caption = "占地面积:"
Height = 255
Index = 3
Left = 120
TabIndex = 15
Top = 840
Width = 975
End
Begin VB.Label Label1
Caption = "总投资:"
Height = 255
Index = 4
Left = 3360
TabIndex = 14
Top = 840
Width = 975
End
Begin VB.Label Label1
Caption = "层数:"
Height = 255
Index = 5
Left = 480
TabIndex = 13
Top = 1320
Width = 975
End
Begin VB.Label Label1
Caption = "房间数:"
Height = 255
Index = 6
Left = 3360
TabIndex = 12
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "简介:"
Height = 255
Index = 7
Left = 480
TabIndex = 11
Top = 2280
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "楼房"
Height = 2175
Left = 240
TabIndex = 0
Top = 0
Width = 6855
Begin MSComctlLib.ListView ListView1
Height = 1815
Left = 120
TabIndex = 1
Top = 180
Width = 6495
_ExtentX = 11456
_ExtentY = 3201
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
NumItems = 0
End
Begin MSComctlLib.ImageList ImageList1
Left = 480
Top = 1620
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {