📄 frmquerylog.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmfee
BackColor = &H80000004&
Caption = "月报表查询"
ClientHeight = 6630
ClientLeft = 60
ClientTop = 345
ClientWidth = 9630
LinkTopic = "Form1"
ScaleHeight = 6630
ScaleWidth = 9630
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1095
Left = 120
TabIndex = 11
Top = 120
Width = 7215
Begin VB.ComboBox cmbElement
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1080
TabIndex = 15
Text = "Combo1"
Top = 360
Width = 2085
End
Begin MSComCtl2.DTPicker dtpStart
Height = 360
Left = 4680
TabIndex = 12
Top = 360
Width = 1545
_ExtentX = 2725
_ExtentY = 635
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM"
Format = 30081027
CurrentDate = 36936
MaxDate = 40178
MinDate = 36892
End
Begin VB.Label Label1
Caption = "时间选择:"
Height = 240
Index = 0
Left = 3600
TabIndex = 14
Top = 480
Width = 930
End
Begin VB.Label Label1
Caption = "楼号选择:"
Height = 240
Index = 2
Left = 240
TabIndex = 13
Top = 480
Width = 930
End
End
Begin VB.CommandButton Command1
Caption = "确定"
Height = 315
Index = 0
Left = 360
TabIndex = 8
Top = 5655
Width = 1140
End
Begin VB.CommandButton Command1
Caption = "打印"
Height = 315
Index = 1
Left = 1890
TabIndex = 7
Top = 5655
Width = 1140
End
Begin VB.CommandButton Command1
Caption = "退出"
Height = 315
Index = 2
Left = 4665
TabIndex = 6
Top = 5655
Width = 1140
End
Begin VB.CommandButton Command1
Caption = "打印预览"
Height = 315
Index = 3
Left = 3315
TabIndex = 5
Top = 5655
Visible = 0 'False
Width = 1140
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 1815
Left = 6015
ScaleHeight = 1785
ScaleWidth = 1860
TabIndex = 3
Top = 1830
Width = 1890
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 915
Left = 375
ScaleHeight = 885
ScaleWidth = 1035
TabIndex = 4
Top = 450
Width = 1065
End
End
Begin VB.VScrollBar VScroll1
Height = 1215
Left = 8040
TabIndex = 2
Top = 2355
Width = 240
End
Begin VB.HScrollBar HScroll1
Height = 240
Left = 6165
TabIndex = 1
Top = 3705
Width = 1290
End
Begin VB.ComboBox Cmbclasshide
Height = 300
Left = 3000
TabIndex = 0
Text = "Combo1"
Top = 7200
Width = 1695
End
Begin MSAdodcLib.Adodc adcHandInfo
Height = 330
Left = 5760
Top = 7200
Width = 2175
_ExtentX = 3836
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 6240
Top = 3930
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSFlexGridLib.MSFlexGrid mfgFee
Height = 3765
Left = 240
TabIndex = 9
Top = 1755
Width = 5490
_ExtentX = 9684
_ExtentY = 6641
_Version = 393216
Cols = 9
FixedCols = 0
AllowUserResizing= 1
Appearance = 0
FormatString = "用户号|用户名|用户地址|上次抄表时间|上次表读数|本次抄表时间|本次表读数|电量|电费"
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 10
Top = 1320
Width = 3540
End
End
Attribute VB_Name = "frmfee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim sPrecinct() As String
Dim sUserNumber() As String
Dim P As Object
Dim Print_H As Integer
Dim Print_W As Integer
Private Sub Command1_Click(Index As Integer)
On Error Resume Next
Dim MyFeeset As Recordset
Dim MyFeeSet1 As Recordset
Dim sStart As Single, dStart As Date
Dim sEnd As Single, dEnd As Date
Dim MyChangeSet As Recordset
Dim sPowerValue As Single, sTotalValue As Single, sTotalFee As Single
Dim dChange As Date, i As Integer, u As Integer, j As Integer
Dim CY As Single, CX As Single
Dim CY1 As Single, CX1 As Single
Dim CY2 As Single, CX2 As Single
Dim CY3 As Single, CX3 As Single
Dim MySet2 As Recordset
Dim sTotalValue_D As Single
Dim sTotalFee_D As Single
Dim sTotalValue_Water As Single
Dim sTotalFee_Water As Single
Select Case Index
Case 0 '确定
lblTitle.Caption = RTU(0).RTUName & " " & dtpStart.Year & "年" & dtpStart.Month & "月 水电费明细"
With mfgFee
.Clear
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -