📄 费用收取.frm
字号:
Height = 255
Left = 5760
TabIndex = 37
Top = 3120
Width = 255
End
Begin VB.Label Label20
BorderStyle = 1 'Fixed Single
Caption = " 维修金:"
Height = 255
Left = 120
TabIndex = 36
Top = 1320
Width = 855
End
Begin VB.Label Label21
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 35
Top = 240
Width = 255
End
Begin VB.Label Label22
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 34
Top = 600
Width = 255
End
Begin VB.Label Label23
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 33
Top = 960
Width = 255
End
Begin VB.Label Label24
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 32
Top = 1320
Width = 255
End
Begin VB.Label Label25
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 31
Top = 1680
Width = 255
End
Begin VB.Label Label26
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 30
Top = 2040
Width = 255
End
Begin VB.Label Label27
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 29
Top = 2400
Width = 255
End
Begin VB.Label Label28
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 28
Top = 2760
Width = 255
End
Begin VB.Label Label29
BackColor = &H00C0FFC0&
Caption = "元"
Height = 255
Left = 6960
TabIndex = 27
Top = 3120
Width = 255
End
End
Begin VB.Frame Frame2
BackColor = &H00C0FFC0&
Caption = "用户信息"
Height = 1215
Left = 0
TabIndex = 0
Top = 0
Width = 7335
Begin CSCommand.Command Cmdexit
Height = 735
Left = 6120
TabIndex = 7
Top = 360
Width = 1095
_ExtentX = 1931
_ExtentY = 1296
Icon = "费用收取.frx":0000
Caption = "退出"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Cmdprint
Height = 735
Left = 5040
TabIndex = 6
Top = 360
Width = 1095
_ExtentX = 1931
_ExtentY = 1296
Icon = "费用收取.frx":5D62
Caption = "打印"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin CSCommand.Command Cmdquery
Height = 735
Left = 3960
TabIndex = 5
Top = 360
Width = 1095
_ExtentX = 1931
_ExtentY = 1296
Icon = "费用收取.frx":8514
Caption = "查询"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackStyle = 0
End
Begin VB.ComboBox Cmbroom
Height = 300
Left = 1320
TabIndex = 4
Top = 840
Width = 1335
End
Begin VB.ComboBox Cmbflor
Height = 300
Left = 1320
TabIndex = 3
Top = 360
Width = 1335
End
Begin VB.Label Label11
BorderStyle = 1 'Fixed Single
Caption = " 所属大楼:"
Height = 255
Left = 120
TabIndex = 2
Top = 360
Width = 1095
End
Begin VB.Label Label10
BorderStyle = 1 'Fixed Single
Caption = " 房 号:"
Height = 255
Left = 120
TabIndex = 1
Top = 840
Width = 1095
End
End
End
Attribute VB_Name = "费用查询"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim objcn As Connection
Dim objcount As Recordset
Dim objhome As Recordset
Dim objflor As Recordset
Private Sub Cmdexit_Click()
物业管理系统.Show
Unload Me
End Sub
Private Sub Cmdprint_Click()
If Cmbflor.Text = "" Or Cmbroom.Text = "" Then
MsgBox "请查看选择信息" & vbCrLf & " 正确性!", vbInformation, "温馨提示"
Cmbflor.SetFocus
Else
收费通知单.Show
End If
End Sub
Private Sub Cmdquery_Click()
If Cmbflor.Text = "" Then
MsgBox "请输入要查询大楼名称!", vbInformation, "温馨提示"
Cmbflor.SetFocus
Exit Sub
End If
If Cmbroom.Text = "" Then
MsgBox "请输入要查询房号!", vbInformation, "温馨提示"
Cmbroom.SetFocus
Exit Sub
End If
With objcount
If .RecordCount > 0 Then
.MoveFirst
.Find "大楼名称='" & Trim(Cmbflor.Text) & "'"
.Find "房号='" & Trim(Cmbroom.Text) & "'"
If .EOF Then
MsgBox "没有你所查询的用户" & vbCrLf & "该用户可能没有上缴费用!", vbCritical, "温馨提示"
Cmbflor.Text = ""
Cmbroom.Text = ""
Cmbroom.SetFocus
Else
If Trim(.Fields("房号")) = Trim(Cmbroom.Text) Then
Text1.Text = .Fields("管理费")
Text2.Text = .Fields("排污费")
Text3.Text = .Fields("租金")
Text4.Text = .Fields("维修金")
Text5.Text = .Fields("停车费")
Text6.Text = .Fields("其它1")
Text7.Text = .Fields("其它2")
Text8.Text = .Fields("水费")
Text9.Text = .Fields("电费")
Text10.Text = .Fields("总费用结算")
End If
End If
End If
End With
End Sub
Private Sub Form_Load()
'数据库联接
Set objcn = New Connection
With objcn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=sa;Data Source=(local);Initial Catalog=物业管理系统"
.Open
End With
'获取费用结算表
Set objcount = New Recordset
With objcount
Set .ActiveConnection = objcn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from 费用结算"
End With
'获取大楼数据
Set objflor = New Recordset
With objflor
Set .ActiveConnection = objcn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from 大楼信息"
End With
With objflor
If .RecordCount > 0 Then
.MoveFirst
While Not .EOF
Cmbflor.AddItem .Fields("大楼名称")
.MoveNext
Wend
End If
End With
End Sub
Private Sub Cmbflor_Click()
'获取楼房区信息
Set objhome = New Recordset
With objhome
Set .ActiveConnection = objcn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open "select * from " & Trim(Cmbflor.Text)
'Set .ActiveConnection = Nothing '断开数据库联接
End With
With objhome
If .RecordCount > 0 Then
.MoveFirst
While Not .EOF
Cmbroom.AddItem .Fields("房号")
.MoveNext
Wend
End If
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -