📄 frmreport.frm
字号:
VERSION 5.00
Object = "{809F5ECB-E545-4F7D-A8A8-CBFF5617AADC}#1.0#0"; "xCombox.ocx"
Object = "{7DE2015C-ABB4-4432-9634-EA5170D02672}#1.0#0"; "sTextBox.ocx"
Object = "{E11E7285-4386-40E5-A4D4-F55704D4D491}#1.0#0"; "sSuperGrid.ocx"
Object = "{060B05EA-F4F5-4255-9BFC-9295B6A89D11}#3.0#0"; "Sinour050715.ocx"
Object = "{811B8E4F-88E3-4162-88A6-CC4C86342FB1}#1.0#0"; "sDTPicker.ocx"
Object = "{2DCFDEBF-F3C7-4735-B263-99E2ADF554F0}#1.0#0"; "ACRptEngineX.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmReport
Caption = "考勤报表"
ClientHeight = 7530
ClientLeft = 60
ClientTop = 345
ClientWidth = 11955
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7530
ScaleWidth = 11955
WindowState = 2 'Maximized
Begin ACRptEngineX.ACRptEngine ACRptEngine1
Height = 780
Left = 2160
TabIndex = 10
Top = 4410
Visible = 0 'False
Width = 780
Object.Visible = -1 'True
DoubleBuffered = 0 'False
Enabled = -1 'True
End
Begin MSComDlg.CommonDialog ComDlg
Left = 6255
Top = 45
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin SSUPERGRIDLib.SSuperGrid Grid
Height = 4920
Left = 675
TabIndex = 0
Top = 2250
Width = 8190
_Version = 65536
_ExtentX = 14446
_ExtentY = 8678
_StockProps = 132
End
Begin VB.Frame Frame
Height = 750
Left = 45
TabIndex = 1
Top = 225
Width = 11865
Begin Sinour_Controls.sButton cmdQuery
Height = 420
Left = 8235
TabIndex = 11
Top = 180
Width = 1155
_ExtentX = 2037
_ExtentY = 741
BTYPE = 7
TX = "查询 "
ENAB = -1 'True
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
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 14215660
BCOLO = 14215660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":0000
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin Sinour_Controls.sButton cmdExpor
Height = 420
Left = 9405
TabIndex = 13
Top = 180
Width = 1155
_ExtentX = 2037
_ExtentY = 741
BTYPE = 7
TX = "导出 "
ENAB = -1 'True
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
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 14215660
BCOLO = 14215660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":001C
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin STEXTBOXLib.STextBox txtAbsent
Height = 255
Left = 9630
TabIndex = 7
Top = 270
Width = 360
_Version = 65536
_ExtentX = 635
_ExtentY = 450
_StockProps = 68
End
Begin STEXTBOXLib.STextBox txtLate
Height = 255
Left = 8235
TabIndex = 6
Top = 270
Width = 360
_Version = 65536
_ExtentX = 635
_ExtentY = 450
_StockProps = 68
End
Begin SDTPICKERLib.SDTPicker BeginDate
Height = 300
Left = 3240
TabIndex = 2
Top = 240
Width = 1320
_Version = 65536
_ExtentX = 2328
_ExtentY = 300
_StockProps = 68
End
Begin SDTPICKERLib.SDTPicker EndDate
Height = 300
Left = 5475
TabIndex = 3
Top = 240
Width = 1320
_Version = 65536
_ExtentX = 2328
_ExtentY = 300
_StockProps = 68
End
Begin Sinour_Controls.sButton cmdPrint
Height = 420
Left = 10620
TabIndex = 12
Top = 180
Width = 1155
_ExtentX = 2037
_ExtentY = 741
BTYPE = 7
TX = "打印(&P) "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = 0 'False
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmReport.frx":0038
PICN = "frmReport.frx":0054
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 1
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin XCOMBOXLib.XCombox cmbEmployee
Height = 300
Left = 990
TabIndex = 14
Top = 240
Width = 1320
_Version = 65536
_ExtentX = 2328
_ExtentY = 300
_StockProps = 68
End
Begin VB.Label lblEmployee
AutoSize = -1 'True
Caption = "员工名称:"
Height = 180
Left = 135
TabIndex = 15
Top = 300
Width = 810
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "旷工分界点:"
Height = 195
Left = 8640
TabIndex = 9
Top = 300
Width = 945
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "迟到早退分界点:"
Height = 195
Left = 6840
TabIndex = 8
Top = 300
Width = 1305
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "结束时间:"
Height = 180
Left = 4635
TabIndex = 5
Top = 315
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "开始时间:"
Height = 180
Left = 2385
TabIndex = 4
Top = 315
Width = 810
End
End
End
Attribute VB_Name = "frmReport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public rstGrid As New ADODB.Recordset
Public rstExec As New ADODB.Recordset
Dim MaxTimeCount As Long
Dim bln() As Boolean
Dim dBeginTime As Date
Dim dEndTime As Date
Public Sub PrintBill()
If rstGrid.State <> adStateOpen Then Exit Sub
Dim i As Integer
Dim j As Integer
For i = 1 To UBound(bln)
If bln(i) = True Then j = j + 1
Next
j = j * 2
ACRptEngine1.Init
ACRptEngine1.AddDataSet "ac", rstGrid
If j = 0 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT0.apt"
ElseIf j = 2 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT2.apt"
ElseIf j = 4 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT4.apt"
ElseIf j = 6 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT6.apt"
ElseIf j = 8 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT8.apt"
End If
ACRptEngine1.PrintReport
End Sub
Public Sub PreviewBill()
If rstGrid.State <> adStateOpen Then Exit Sub
Dim i As Integer
Dim j As Integer
For i = 1 To UBound(bln)
If bln(i) = True Then j = j + 1
Next
j = j * 2
ACRptEngine1.Init
ACRptEngine1.AddDataSet "ac", rstGrid
If j = 0 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT0.apt"
ElseIf j = 2 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT2.apt"
ElseIf j = 4 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT4.apt"
ElseIf j = 6 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT6.apt"
ElseIf j = 8 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT8.apt"
End If
ACRptEngine1.Preview
End Sub
Public Sub ShowDesignerBill()
If rstGrid.State <> adStateOpen Then Exit Sub
Dim i As Integer
Dim j As Integer
For i = 1 To UBound(bln)
If bln(i) = True Then j = j + 1
Next
j = j * 2
ACRptEngine1.Init
ACRptEngine1.AddDataSet "ac", rstGrid
If j = 0 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT0.apt"
ElseIf j = 2 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT2.apt"
ElseIf j = 4 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT4.apt"
ElseIf j = 6 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT6.apt"
ElseIf j = 8 Then
ACRptEngine1.SetReportFile App.Path & "\RPT\RPT8.apt"
End If
ACRptEngine1.ShowDesigner
End Sub
Private Sub cmbEmployee_BtnsClick(ByVal nIndex As Integer)
Select Case nIndex
Case 0
rstEmployee.Requery
bufEmployee.DataSource = rstEmployee
cmbEmployee.DataSource = bufEmployee
Case 1
cmbEmployee.SearchID 0
End Select
End Sub
Private Sub cmdPrint_Click()
Set iFrom = Me
Me.PopupMenu MNU.mnuPrint, , cmdPrint.Left - 15, cmdPrint.Top + cmdPrint.Height
End Sub
Private Sub Form_Load()
Me.Icon = MDI.Icon
' Dim intCount As Integer
' If rstExec.State = 1 Then rstExec.Close
' Set rstExec = Nothing
' rstExec.CursorLocation = adUseClient
' rstExec.Open "select max(itemno) as value1 from class_d", con, adOpenStatic, adLockBatchOptimistic
' intCount = rstExec.Fields("value1")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -