📄 frmczjrep.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{8ED8CCC1-8472-46D0-93E7-F66929B98442}#2.0#0"; "xpcmd.ocx"
Begin VB.Form frmCZJRep
BorderStyle = 1 'Fixed Single
Caption = "财政局报表打印"
ClientHeight = 4890
ClientLeft = 3210
ClientTop = 2355
ClientWidth = 6165
Icon = "frmCZJRep.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4890
ScaleWidth = 6165
StartUpPosition = 2 '屏幕中心
Begin XPCmd.xpcmdbutton xpcmdbutton3
Height = 375
Left = 4320
TabIndex = 18
Top = 3840
Width = 1455
_ExtentX = 2566
_ExtentY = 661
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 XPCmd.xpcmdbutton xpcmdbutton2
Height = 375
Left = 2640
TabIndex = 17
Top = 3840
Width = 1455
_ExtentX = 2566
_ExtentY = 661
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 XPCmd.xpcmdbutton xpcmdbutton1
Height = 375
Left = 960
TabIndex = 16
Top = 3840
Width = 1455
_ExtentX = 2566
_ExtentY = 661
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 VB.PictureBox PicCaption
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 720
Left = 6120
Picture = "frmCZJRep.frx":1042
ScaleHeight = 720
ScaleWidth = 9600
TabIndex = 10
TabStop = 0 'False
Top = 240
Visible = 0 'False
Width = 9600
Begin VB.PictureBox PicBorder
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 150
Left = 0
Picture = "frmCZJRep.frx":17886
ScaleHeight = 150
ScaleWidth = 1050
TabIndex = 11
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1050
End
End
Begin VB.Frame Frame1
Caption = "请按以下操作"
Height = 3495
Left = 120
TabIndex = 0
Top = 120
Width = 5655
Begin VB.ComboBox Combo1
Height = 300
Left = 2520
TabIndex = 15
Top = 1800
Width = 3015
End
Begin VB.OptionButton Option5
Caption = "收费情况统计表"
Height = 180
Left = 2040
TabIndex = 14
Top = 2880
Visible = 0 'False
Width = 1575
End
Begin VB.OptionButton Option4
Caption = "报名情况统计表"
Height = 180
Left = 240
TabIndex = 13
Top = 2880
Visible = 0 'False
Width = 1815
End
Begin VB.OptionButton Option3
Caption = "打所有人员"
Height = 255
Left = 4080
TabIndex = 9
Top = 3120
Visible = 0 'False
Width = 1335
End
Begin VB.OptionButton Option2
Caption = "只打未注册的人员"
Height = 255
Left = 2040
TabIndex = 8
Top = 3120
Visible = 0 'False
Width = 1935
End
Begin VB.OptionButton Option1
Caption = "打注册的人员"
Height = 255
Left = 240
TabIndex = 7
Top = 3120
Visible = 0 'False
Width = 1695
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 300
Left = 2520
TabIndex = 5
Top = 1200
Width = 3015
_ExtentX = 5318
_ExtentY = 529
_Version = 393216
Format = 23658497
CurrentDate = 37782
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 2520
TabIndex = 4
Top = 480
Width = 3015
_ExtentX = 5318
_ExtentY = 529
_Version = 393216
Format = 23658497
CurrentDate = 37782
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报表项目："
Height = 180
Left = 240
TabIndex = 12
Top = 2640
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "操作提示：准备就绪"
Height = 180
Left = 240
TabIndex = 6
Top = 2400
Width = 1620
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第三步：请选择报表项目"
Height = 180
Left = 240
TabIndex = 3
Top = 1920
Width = 1980
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第二步：请选择结束时间"
Height = 180
Left = 240
TabIndex = 2
Top = 1200
Width = 1980
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "第一步：请选择开始时间"
Height = 180
Left = 240
TabIndex = 1
Top = 480
Width = 1980
End
End
End
Attribute VB_Name = "frmCZJRep"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'===========================================================================
'定义此部分所需的的变量和对象
'特别提醒：此处实现财政局报表的打印，但个别项目的收费情况报表尚未实现
'编写时间：2004-3-7 dww pm17:34
Private m_cn As cNeoCaption
Private str1 As String
Private str2 As String
Dim startTime As String
Dim endTime As String
Dim ItemBaseInfo() As String
Dim isItemBaseInfoEmtpy As Boolean
Dim inDepartmentCode As String
Dim sCurItemCode As String
'===========================================================================
'===========================================================================
'处理窗体的初始化和卸载所执行的操作
'编写时间：2004-3-4 dww am11:36
Private Sub Form_Load()
'-------------------------------------------
'生成一个漂亮窗体用
Set m_cn = New cNeoCaption
Skin Me, m_cn
'-------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -