📄 费用数据录入.frm
字号:
End
Begin VB.Label Label28
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 55
Top = 5040
Width = 255
End
Begin VB.Label Label27
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 54
Top = 4680
Width = 255
End
Begin VB.Label Label26
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 53
Top = 4200
Width = 255
End
Begin VB.Label Label25
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 52
Top = 3720
Width = 255
End
Begin VB.Label Label24
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 51
Top = 3240
Width = 255
End
Begin VB.Label Label23
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 50
Top = 2760
Width = 255
End
Begin VB.Label Label22
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 49
Top = 2280
Width = 255
End
Begin VB.Label Label21
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 48
Top = 1800
Width = 255
End
Begin VB.Label Label9
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 47
Top = 1320
Width = 255
End
Begin VB.Line Line10
X1 = 0
X2 = 7320
Y1 = 5400
Y2 = 5400
End
Begin VB.Line Line9
X1 = 0
X2 = 7320
Y1 = 4560
Y2 = 4560
End
Begin VB.Line Line8
X1 = 3600
X2 = 7320
Y1 = 4080
Y2 = 4080
End
Begin VB.Line Line7
X1 = 3600
X2 = 7320
Y1 = 3600
Y2 = 3600
End
Begin VB.Line Line6
X1 = 3600
X2 = 7320
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line5
X1 = 3600
X2 = 7320
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line4
X1 = 3600
X2 = 7320
Y1 = 1680
Y2 = 1680
End
Begin VB.Line Line3
X1 = 3600
X2 = 7320
Y1 = 1200
Y2 = 1200
End
Begin VB.Label Label11
BorderStyle = 1 'Fixed Single
Caption = " 大楼名称:"
Height = 255
Left = 3960
TabIndex = 36
Top = 360
Width = 975
End
Begin VB.Label Label10
BorderStyle = 1 'Fixed Single
Caption = " 房 号:"
Height = 255
Left = 3960
TabIndex = 35
Top = 840
Width = 975
End
Begin VB.Label Label6
BorderStyle = 1 'Fixed Single
Caption = " 其它 2:"
Height = 255
Left = 3960
TabIndex = 34
Top = 4200
Width = 975
End
Begin VB.Label Label5
BorderStyle = 1 'Fixed Single
Caption = " 其它 1:"
Height = 255
Left = 3960
TabIndex = 33
Top = 3720
Width = 975
End
Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
Caption = " 停车费:"
Height = 255
Left = 3960
TabIndex = 32
Top = 3240
Width = 975
End
Begin VB.Label Label3
BorderStyle = 1 'Fixed Single
Caption = " 租 金:"
Height = 255
Left = 3960
TabIndex = 31
Top = 2280
Width = 975
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = " 排污费:"
Height = 255
Left = 3960
TabIndex = 30
Top = 1800
Width = 975
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = " 管理费:"
Height = 255
Left = 3960
TabIndex = 29
Top = 1320
Width = 975
End
Begin VB.Label Label8
BorderStyle = 1 'Fixed Single
Caption = " 电 费:"
Height = 255
Left = 120
TabIndex = 28
Top = 5040
Width = 975
End
Begin VB.Label Label7
BorderStyle = 1 'Fixed Single
Caption = " 水 费:"
Height = 255
Left = 120
TabIndex = 27
Top = 4680
Width = 975
End
Begin VB.Line Line1
X1 = 3600
X2 = 7320
Y1 = 2640
Y2 = 2640
End
Begin VB.Label Label12
BackColor = &H00C0FFC0&
Caption = "x"
Height = 255
Left = 2280
TabIndex = 26
Top = 4680
Width = 255
End
Begin VB.Label Label13
BackColor = &H00C0FFC0&
Caption = "+"
Height = 255
Left = 3120
TabIndex = 25
Top = 4680
Width = 135
End
Begin VB.Label Label14
BackColor = &H00C0FFC0&
Caption = "x"
Height = 255
Left = 4440
TabIndex = 24
Top = 4680
Width = 135
End
Begin VB.Label Label15
BackColor = &H00C0FFC0&
Caption = "="
Height = 255
Left = 5760
TabIndex = 23
Top = 4680
Width = 255
End
Begin VB.Label Label16
BackColor = &H00C0FFC0&
Caption = "x"
Height = 255
Left = 2280
TabIndex = 22
Top = 5040
Width = 255
End
Begin VB.Label Label17
BackColor = &H00C0FFC0&
Caption = "+"
Height = 255
Left = 3120
TabIndex = 21
Top = 5040
Width = 135
End
Begin VB.Label Label18
BackColor = &H00C0FFC0&
Caption = "x"
Height = 255
Left = 4440
TabIndex = 20
Top = 5040
Width = 135
End
Begin VB.Label Label19
BackColor = &H00C0FFC0&
Caption = "="
Height = 255
Left = 5760
TabIndex = 19
Top = 5040
Width = 255
End
Begin VB.Label Label20
BorderStyle = 1 'Fixed Single
Caption = " 维修金:"
Height = 255
Left = 3960
TabIndex = 18
Top = 2760
Width = 975
End
End
End
Attribute VB_Name = "费用数据录入"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isadding As Boolean
Dim objcn As Connection
Dim objflor As Recordset '大楼信息
Dim objhome As Recordset '楼房信息
Dim objrep As Recordset '维修信息
Dim objcount As Recordset '费用结算
Dim objwater As Recordset '水费信息
Dim objlight As Recordset '电费信息
Private Sub Form_Load()
Cmbflor.Enabled = False
Cmbroom.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -