📄 frmrezhuf.frm
字号:
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4950
TabIndex = 55
Top = 3162
Width = 855
End
Begin VB.Label Label10
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修次数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 54
Top = 3622
Width = 855
End
Begin VB.Label Label11
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "居住状况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 53
Top = 1758
Width = 855
End
Begin VB.Label Label13
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "居住面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7110
TabIndex = 52
Top = 1290
Width = 855
End
Begin VB.Label Label15
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "卫 生 间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 51
Top = 2224
Width = 855
End
Begin VB.Label Label21
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修时间1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2400
TabIndex = 50
Top = 3660
Width = 960
End
Begin VB.Label Label22
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "建筑面积"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4950
TabIndex = 49
Top = 1746
Width = 840
End
Begin VB.Label Label24
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "煤 气"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7110
TabIndex = 48
Top = 1752
Width = 855
End
Begin VB.Label Label25
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "房管所地址"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 47
Top = 3156
Width = 1065
End
Begin VB.Label Label26
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "编 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2400
TabIndex = 46
Top = 330
Width = 855
End
Begin VB.Label Label27
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "备 注"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 45
Top = 4590
Width = 855
End
Begin VB.Label Label16
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "职 工 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7110
TabIndex = 44
Top = 330
Width = 855
End
Begin VB.Label Label23
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "房 租"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2400
TabIndex = 43
Top = 2700
Width = 855
End
Begin VB.Label Label42
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "分配形式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7140
TabIndex = 42
Top = 3600
Width = 855
End
Begin VB.Label Label43
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修费用2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 210
TabIndex = 41
Top = 4088
Width = 975
End
Begin VB.Label Label44
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修时间2"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4950
TabIndex = 40
Top = 4110
Width = 960
End
Begin VB.Label Label45
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修费用3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 7110
TabIndex = 39
Top = 4062
Width = 975
End
Begin VB.Label Label46
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "维修时间3"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 2400
TabIndex = 38
Top = 4080
Width = 960
End
Begin VB.Label Label31
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "所 属 区"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4950
TabIndex = 37
Top = 1274
Width = 855
End
Begin VB.Label Label12
Alignment = 2 'Center
AutoSize = -1 'True
Caption = "住 址"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 210
Left = 4950
TabIndex = 36
Top = 802
Width = 855
End
End
Begin ComctlLib.StatusBar StaBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 0
Top = 5760
Width = 9525
_ExtentX = 16801
_ExtentY = 661
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Alignment = 1
AutoSize = 2
Object.Width = 2646
MinWidth = 2646
TextSave = "2001-3-24"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 2
Object.Width = 2646
MinWidth = 2646
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
AutoSize = 1
Object.Width = 10910
MinWidth = 4586
TextSave = ""
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmReZhuF"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'控件绑定
Dim Ctl(0 To 33) As Control
Dim CtlCount As Integer
'全局记录集
Dim rec As Recordset
'状态参数
Dim bEdit As Boolean
Dim bChanged As Boolean '编辑状态下当前记录是否被改变
'检测参数
Dim bDateNull As Boolean '当日期型控件内容为空时继续不中止添加过程也不输入
Dim bNumberNull As Boolean '当数字型控件内容为空时继续不中止添加过程也不输入
Private Sub cboChaoX_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboFangCXZ_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboFenP_Click()
If bEdit Then bChanged = True
End Sub
Private Sub cboFenPXS_Click()
If bEdit Then bChanged = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -