📄 frminput.frm
字号:
VERSION 5.00
Begin VB.Form frmInput
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "排污费缴纳通知单打印"
ClientHeight = 7050
ClientLeft = 2535
ClientTop = 555
ClientWidth = 8190
FillColor = &H00C0E0FF&
FillStyle = 0 'Solid
Icon = "frmInput.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7050
ScaleWidth = 8190
Begin VB.Frame Frame3
BackColor = &H00C0E0FF&
Height = 3345
Left = 315
TabIndex = 27
Top = 1665
Width = 7485
Begin VB.Frame Frame8
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 43
Top = 2700
Width = 6360
Begin VB.CheckBox chkWX
BackColor = &H00C0E0FF&
Caption = "危险废物排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 44
TabStop = 0 'False
Top = 135
Width = 2265
End
Begin VB.TextBox txtWXje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 7
Top = 135
Width = 1365
End
Begin VB.Label Label12
BackColor = &H00C0E0FF&
Caption = "排污费金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3555
TabIndex = 45
Top = 180
Width = 1275
End
End
Begin VB.Frame Frame7
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 40
Top = 2205
Width = 6360
Begin VB.CheckBox chkGT
BackColor = &H00C0E0FF&
Caption = "固体废物排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 41
TabStop = 0 'False
Top = 135
Width = 2535
End
Begin VB.TextBox txtGTje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 6
Top = 135
Width = 1365
End
Begin VB.Label Label11
BackColor = &H00C0E0FF&
Caption = "排污费金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3555
TabIndex = 42
Top = 180
Width = 1275
End
End
Begin VB.Frame Frame6
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 37
Top = 1710
Width = 6360
Begin VB.CheckBox chkZS
BackColor = &H00C0E0FF&
Caption = "噪声超标准排污费排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 38
TabStop = 0 'False
Top = 135
Width = 2985
End
Begin VB.TextBox txtZSje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 5
Top = 135
Width = 1365
End
Begin VB.Label Label10
BackColor = &H00C0E0FF&
Caption = "排污费金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3555
TabIndex = 39
Top = 180
Width = 1275
End
End
Begin VB.Frame Frame5
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 34
Top = 1215
Width = 6360
Begin VB.CheckBox chkFQ
BackColor = &H00C0E0FF&
Caption = "废气排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 35
TabStop = 0 'False
Top = 135
Width = 2445
End
Begin VB.TextBox txtFQje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 4
Top = 135
Width = 1365
End
Begin VB.Label Label9
BackColor = &H00C0E0FF&
Caption = "排污费金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3555
TabIndex = 36
Top = 180
Width = 1275
End
End
Begin VB.Frame Frame4
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 31
Top = 720
Width = 6360
Begin VB.CheckBox chkWSCB
BackColor = &H00C0E0FF&
Caption = "污水超标准排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 32
TabStop = 0 'False
Top = 135
Width = 2220
End
Begin VB.TextBox txtWSCBje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 3
Top = 135
Width = 1365
End
Begin VB.Label Label7
BackColor = &H00C0E0FF&
Caption = "排污费金额："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3555
TabIndex = 33
Top = 180
Width = 1275
End
End
Begin VB.Frame Frame2
BackColor = &H00C0E0FF&
Height = 510
Left = 585
TabIndex = 28
Top = 225
Width = 6360
Begin VB.TextBox txtWSje
Alignment = 1 'Right Justify
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 4905
TabIndex = 2
Top = 135
Width = 1365
End
Begin VB.CheckBox chkWS
BackColor = &H00C0E0FF&
Caption = "污水排污费"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 135
MaskColor = &H00C0E0FF&
TabIndex = 29
TabStop = 0 'False
Top = 135
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -