📄 form9.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 2400
TabIndex = 13
Top = 240
Width = 210
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 1320
TabIndex = 12
Top = 240
Width = 975
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "本月共收费："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 120
TabIndex = 11
Top = 240
Width = 1185
End
End
Begin VB.CommandButton Command1
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 8400
Picture = "Form9.frx":61F4
Style = 1 'Graphical
TabIndex = 9
Top = 120
Width = 855
End
Begin MSComCtl2.UpDown UpDown2
Height = 270
Left = 1320
TabIndex = 1
Top = 480
Width = 195
_ExtentX = 344
_ExtentY = 476
_Version = 393216
Value = 1
BuddyControl = "Text3"
BuddyDispid = 196622
OrigLeft = 1320
OrigTop = 1440
OrigRight = 1515
OrigBottom = 1815
Max = 12
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.TextBox Text2
ForeColor = &H00000000&
Height = 270
Left = 0
TabIndex = 3
Text = "2000"
Top = 480
Width = 465
End
Begin VB.TextBox Text3
Height = 270
Left = 960
TabIndex = 2
Text = "1"
Top = 480
Width = 420
End
Begin MSComCtl2.UpDown UpDown1
Height = 270
Left = 480
TabIndex = 0
Top = 480
Width = 195
_ExtentX = 344
_ExtentY = 476
_Version = 393216
Value = 2000
BuddyControl = "Text2"
BuddyDispid = 196621
OrigLeft = 540
OrigTop = 360
OrigRight = 735
OrigBottom = 630
Max = 2010
Min = 2000
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 7
Top = 4980
Width = 9390
_ExtentX = 16563
_ExtentY = 609
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label27
Caption = "Label27"
Height = 495
Left = 8040
TabIndex = 36
Top = 2040
Width = 615
End
Begin VB.Label Label26
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 555
TabIndex = 35
Top = 4440
Width = 90
End
Begin VB.Label Label25
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 555
TabIndex = 34
Top = 2640
Width = 90
End
Begin VB.Line Line11
X1 = 3840
X2 = 3840
Y1 = 4680
Y2 = 5040
End
Begin VB.Line Line7
X1 = 3840
X2 = 3840
Y1 = 4320
Y2 = 4680
End
Begin VB.Line Line10
X1 = 3130
X2 = 3130
Y1 = 4680
Y2 = 5040
End
Begin VB.Line Line6
X1 = 3130
X2 = 3130
Y1 = 4320
Y2 = 4680
End
Begin VB.Label Label23
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 2340
TabIndex = 32
Top = 4800
Width = 90
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 2340
TabIndex = 28
Top = 4440
Width = 90
End
Begin VB.Label Label24
AutoSize = -1 'True
Caption = "全月收费合计："
Height = 180
Left = 360
TabIndex = 33
Top = 4800
Width = 1260
End
Begin VB.Label Label22
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3060
TabIndex = 31
Top = 4800
Width = 90
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3780
TabIndex = 30
Top = 4800
Width = 90
End
Begin VB.Line Line9
X1 = 2430
X2 = 2430
Y1 = 4680
Y2 = 5040
End
Begin VB.Line Line8
X1 = 0
X2 = 3840
Y1 = 4680
Y2 = 4680
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "农村户 月份小计："
Height = 180
Left = 0
TabIndex = 29
Top = 4440
Width = 1620
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3060
TabIndex = 27
Top = 4440
Width = 90
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3780
TabIndex = 26
Top = 4440
Width = 90
End
Begin VB.Line Line5
X1 = 2430
X2 = 2430
Y1 = 4320
Y2 = 4680
End
Begin VB.Line Line4
X1 = 2430
X2 = 2430
Y1 = 2520
Y2 = 2880
End
Begin VB.Line Line3
X1 = 3130
X2 = 3130
Y1 = 2520
Y2 = 2880
End
Begin VB.Line Line2
X1 = 3840
X2 = 3840
Y1 = 2520
Y2 = 2880
End
Begin VB.Label Label16
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3780
TabIndex = 25
Top = 2640
Width = 90
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 3060
TabIndex = 24
Top = 2640
Width = 90
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
AutoSize = -1 'True
ForeColor = &H000000FF&
Height = 180
Left = 2340
TabIndex = 23
Top = 2640
Width = 90
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "城市户 月份小计："
Height = 180
Left = 0
TabIndex = 22
Top = 2640
Width = 1620
End
Begin VB.Line Line1
BorderColor = &H80000011&
DrawMode = 4 'Mask Not Pen
X1 = 0
X2 = 9360
Y1 = 960
Y2 = 960
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "交费日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 180
Left = 0
TabIndex = 6
Top = 120
Width = 990
End
Begin VB.Label Label1
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 765
TabIndex = 5
Top = 540
Width = 255
End
Begin VB.Label Label5
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 4
Top = 540
Width = 255
End
End
Attribute VB_Name = "Form9day"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim jfd As String
Dim jfx As String
Dim stjfd As String
Dim cchart() As Variant
Dim actionflag As String '图表各按钮的标志
Dim mousestate As Boolean
Dim jfrq As Date
Dim havechart As Boolean '图表是否已绘出标记
Dim entrydate As Date
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -