📄 frm_sfcx.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_sfcx
Caption = "查询统计"
ClientHeight = 5505
ClientLeft = 60
ClientTop = 345
ClientWidth = 7095
Icon = "Frm_sfcx.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5505
ScaleWidth = 7095
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 570
Left = 0
TabIndex = 0
Top = 0
Width = 7095
_ExtentX = 12515
_ExtentY = 1005
ButtonWidth = 1138
ButtonHeight = 953
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷 新"
Key = "renovate"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "未交费"
Key = "query"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "详 细"
Key = "xx"
ImageIndex = 9
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "收费率"
Key = "sfl"
ImageIndex = 10
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Caption = "删除"
Key = "del"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退 出"
Key = "exit"
ImageIndex = 7
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 6420
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":059C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":06F6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0850
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":09AA
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0B04
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0C5E
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0DB8
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":0E9A
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Frm_sfcx.frx":1434
Key = ""
EndProperty
EndProperty
End
End
Begin MSComctlLib.ListView ListView1
Height = 4875
Left = 0
TabIndex = 1
Top = 600
Width = 7095
_ExtentX = 12515
_ExtentY = 8599
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ColHdrIcons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 20
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "房号"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "业主"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "综合管理费"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "水表上月读数"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "水表本月读数"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "水费"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "电表上月"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 7
Text = "电表本月读数"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 8
Text = "电费"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 9
Text = "水泵公摊"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 10
Text = "水损公摊"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 11
Text = "其他公摊"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 12
Text = "应交费用"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 13
Text = "实交费用"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 14
Text = "滞纳金"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 15
Text = "抄表员"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 16
Text = "抄表日期"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 17
Text = "收费日期"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(19) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 18
Text = "收款员"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(20) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 19
Text = "id"
Object.Width = 0
EndProperty
End
End
Attribute VB_Name = "Frm_sfcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Resize()
If Me.Height > 1000 Then ListView1.Height = Me.Height - 1000
If Me.Width > 120 Then ListView1.Width = Me.Width - 120
End Sub
Private Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub
' If Val(ListView1.SelectedItem.SubItems(12)) + Val(ListView1.SelectedItem.SubItems(14)) <= Val(ListView1.SelectedItem.SubItems(13)) Then
' MsgBox "已收费！", vbExclamation, "提示"
' Exit Sub
' End If
Frm_sfcx_xx.Show 1
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "renovate"
renovate
Case "query"
Query
Case "exit"
Unload Me
Case "xx"
If ListView1.ListItems.Count = 0 Then Exit Sub
Frm_sfcx_xx.Show 1
Case "sfl"
frm_sfcx_sfl.Show 1
End Select
End Sub
Private Sub Query()
On Error GoTo myerr
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim lt As ListItem
ListView1.ListItems.Clear
Set cn = GetCn
' rst.Open "select b.fh,a.yzid,a.xm,a.sfrq,a.zgf,a.sbsy,a.sbby,a.dbsy,a.dbby,a.cbrq,a.cby,a.sf,a.sb,a.ss,a.qt,a.df,a.yj,a.sj,a.zn,a.sky from jiaofei a inner join fangchan b on a.fcid=b.id where a.sfrq<=#" & DTPicker1.Value & "# and a.sfrq>=#" & DTPicker2.Value & "# order by 1", cn, 0, 1
rst.Open "select c.fh,b.xm,a.zgf,a.sbsy,a.sbby,a.sf,a.dbsy,a.dbby,a.df,a.sb,a.ss,a.qt,a.yj,a.sj,a.zn,a.cby,a.cbrq,a.sfrq,a.sky,a.id from (jiaofei a inner join yezhu b on a.fid=b.fid) inner join fangchan c on b.fid=c.id where a.yj+a.zn>a.sj order by 1", cn, 0, 1
If rst.BOF And rst.EOF Then Exit Sub
Do While Not rst.EOF
Set lt = ListView1.ListItems.Add(, , rst(0), 4, 4)
For i = 1 To rst.Fields.Count - 1
lt.SubItems(i) = Trim(rst(i) & "")
Next i
rst.MoveNext
Loop
rst.Close
cn.Close
Exit Sub
myerr:
Select Case Err
Case -2147217904
If rst.State = 1 Then rst.Close
rst.Open "select count(*) from jiaofei", cn, 0, 1
If rst(0) = 0 Then
Exit Sub
Else
MsgBox Error, vbExclamation, "提示"
End If
Case Else
MsgBox Error, vbExclamation, "提示"
End Select
End Sub
Private Sub renovate()
On Error GoTo myerr
Dim cn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim lt As ListItem
ListView1.ListItems.Clear
Set cn = GetCn
' rst.Open "select b.fh,a.yzid,a.xm,a.sfrq,a.zgf,a.sbsy,a.sbby,a.dbsy,a.dbby,a.cbrq,a.cby,a.sf,a.sb,a.ss,a.qt,a.df,a.yj,a.sj,a.zn,a.sky from jiaofei a inner join fangchan b on a.fcid=b.id where a.sfrq<=#" & DTPicker1.Value & "# and a.sfrq>=#" & DTPicker2.Value & "# order by 1", cn, 0, 1
rst.Open "select c.fh,b.xm,a.zgf,a.sbsy,a.sbby,a.sf,a.dbsy,a.dbby,a.df,a.sb,a.ss,a.qt,a.yj,a.sj,a.zn,a.cby,a.cbrq,a.sfrq,a.sky,a.id from (jiaofei a inner join yezhu b on a.fid=b.fid) inner join fangchan c on b.fid=c.id order by 1", cn, 0, 1
If rst.BOF And rst.EOF Then Exit Sub
Do While Not rst.EOF
Set lt = ListView1.ListItems.Add(, , rst(0), 4, 4)
For i = 1 To rst.Fields.Count - 1
lt.SubItems(i) = Trim(rst(i) & "")
Next i
rst.MoveNext
Loop
rst.Close
cn.Close
Exit Sub
myerr:
Select Case Err
Case -2147217904
If rst.State = 1 Then rst.Close
rst.Open "select count(*) from jiaofei", cn, 0, 1
If rst(0) = 0 Then
Exit Sub
Else
MsgBox Error, vbExclamation, "提示"
End If
Case Else
MsgBox Error, vbExclamation, "提示"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -