📄 frmprintcertification.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 frmPrintCertification
BorderStyle = 1 'Fixed Single
Caption = "打证信息统计报表"
ClientHeight = 2400
ClientLeft = 3900
ClientTop = 3480
ClientWidth = 4395
Icon = "frmPrintCertification.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2400
ScaleWidth = 4395
StartUpPosition = 2 '屏幕中心
Begin XPCmd.xpcmdbutton xpcmdbutton2
Height = 375
Left = 3000
TabIndex = 8
Top = 1440
Width = 975
_ExtentX = 1720
_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 = 1800
TabIndex = 7
Top = 1440
Width = 975
_ExtentX = 1720
_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 = 4320
Picture = "frmPrintCertification.frx":1042
ScaleHeight = 720
ScaleWidth = 9600
TabIndex = 5
TabStop = 0 'False
Top = 120
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 = "frmPrintCertification.frx":17886
ScaleHeight = 150
ScaleWidth = 1050
TabIndex = 6
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1050
End
End
Begin VB.Frame Frame1
Caption = "请选择"
Height = 1215
Left = 120
TabIndex = 0
Top = 120
Width = 3975
Begin MSComCtl2.DTPicker DTPicker2
Height = 255
Left = 2280
TabIndex = 3
Top = 600
Width = 1455
_ExtentX = 2566
_ExtentY = 450
_Version = 393216
Format = 60358657
CurrentDate = 37818
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 240
TabIndex = 1
Top = 600
Width = 1455
_ExtentX = 2566
_ExtentY = 450
_Version = 393216
Format = 60358657
CurrentDate = 37818
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "结束时间： "
Height = 180
Left = 2280
TabIndex = 4
Top = 360
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "开始时间："
Height = 180
Left = 240
TabIndex = 2
Top = 360
Width = 900
End
End
End
Attribute VB_Name = "frmPrintCertification"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'此处将实现打证统计信息报表的打印和预览
'现在只能实现当天或某一时间区间的打证信息统计报表
'2003-07-16 dww pm13:34
'2003-07-16 dww pm13:58顺利结束此部分程序
'定义漂亮窗体的窗体对象
Private m_cn As cNeoCaption
'定义SQL串
Dim SQL As String
'定义开始时间和结束时间
Dim startTime As String
Dim endTime As String
'定义报表标题
Dim ShowCaption As String
'定义单位代码和单位名称
Dim inDepartmentCode As String
Dim inDepartmentName As String
'处理窗体初始化事件
Private Sub Form_Load()
'此处代码将制作一个漂亮窗体用
'-------------------------------------------
Set m_cn = New cNeoCaption
Skin Me, m_cn
'-------------------------------------------
Frame1.BackColor = RGB(207, 203, 207)
'--------------------------------------------
'从上一层窗体获得
inDepartmentCode = frmShouJian.inDepartmentCode
inDepartmentName = frmShouJian.inDepartmentName
'测试数据
inDepartmentCode = "41010519004"
inDepartmentName = "物价局"
'初始化时间选择控件和开始时间，结束时间
DTPicker1.Value = Date
DTPicker2.Value = Date
startTime = DTPicker1.Value
endTime = DTPicker2.Value
'初始化查询字符串和报表标题
SQL = "where printtime='" & startTime & "'"
ShowCaption = startTime & inDepartmentName & "打证信息统计报表"
End Sub
'处理确定按钮的单击事件
Private Sub xpcmdbutton1_Click()
'定义今天时间在错误提示时要用此变量
Dim totay As String
today = Date
'根据开始时间和结束时间生成SQL串和报表标题
If CDate(startTime) = CDate(endTime) Then
SQL = "where printtime='" & CDate(startTime) & "'"
ShowCaption = startTime & " " & inDepartmentName & "打证信息统计报表"
Else
If CDate(startTime) < CDate(endTime) Then
SQL = "where (printtime>='" & CDate(startTime) & "') " & "and( printtime<='" & CDate(endTime) & "')"
ShowCaption = "从 " & startTime & " 止 " & endTime & " " & inDepartmentName & " 打证信息统计报表"
Else
DTPicker2.Value = CDate(startTime)
SQL = "where printtime='" & CDate(startTime) & "'"
ShowCaption = startTime & inDepartmentName & "打证信息统计报表"
End If
End If
'定义打证信息数组
Dim TransactionCertificationPrintRecordInfo() As String
Dim TransactionCertificationPrintRecordInfoLast() As String
'定义标志变量
Dim isEmpty As Boolean
Dim TransactionCertificationPrintRecordToal As String
'调用函数取得打证信息数据
If Not GetTransactionCertificationPrintRecordInfo(inDepartmentCode, TransactionCertificationPrintRecordInfo, SQL, isEmpty) Then
Exit Sub
End If
'根据标志变量在返回的数据非空的情况下打印
If Not isEmpty Then
'调用函数去掉尾随空格
If Not DLtrim(TransactionCertificationPrintRecordInfo, TransactionCertificationPrintRecordInfoLast) Then
Exit Sub
End If
'调用函数打印打证信息统计报表
'证书个数实际上是这个数组的维数
TransactionCertificationPrintRecordToal = UBound(TransactionCertificationPrintRecordInfoLast, 1)
Call createReportTransactionPrintCertificationRecordInfoDataSourceAndShow(TransactionCertificationPrintRecordInfoLast, ShowCaption, TransactionCertificationPrintRecordToal)
Else
MsgBox today & "今天还没有打证，请确认！", 48, "系统提示"
Unload Me
Exit Sub
End If
End Sub
'处理取消按钮的操作
Private Sub xpcmdbutton2_Click()
Unload Me
End Sub
'处理时间选择控件的变化
Private Sub DTPicker1_Change()
startTime = DTPicker1.Value
End Sub
'处理时间选择控件的变化
Private Sub DTPicker2_Change()
endTime = DTPicker2.Value
End Sub
'处理窗体卸载的事件
Private Sub Form_Unload(Cancel As Integer)
'释放对象
Set m_cn = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -