frmflow.frm

这是温州现代集团的员工考勤管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmFlow 
' Download:http://www.codefans.net
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考勤流水报表"
   ClientHeight    =   7200
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8880
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmFlow.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7200
   ScaleWidth      =   8880
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Height          =   435
      Index           =   2
      Left            =   7290
      Picture         =   "frmFlow.frx":000C
      Style           =   1  'Graphical
      TabIndex        =   17
      Top             =   1395
      Width           =   1230
   End
   Begin VB.CommandButton Command1 
      Height          =   435
      Index           =   1
      Left            =   7290
      Picture         =   "frmFlow.frx":1E7D
      Style           =   1  'Graphical
      TabIndex        =   16
      Top             =   795
      Width           =   1230
   End
   Begin VB.CommandButton Command1 
      Height          =   435
      Index           =   0
      Left            =   7290
      Picture         =   "frmFlow.frx":3DE8
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   195
      Width           =   1230
   End
   Begin VB.Frame Frame1 
      Height          =   1785
      Left            =   285
      TabIndex        =   6
      Top             =   75
      Width           =   6615
      Begin VB.OptionButton optSel 
         Caption         =   "查询全部打卡人员"
         Height          =   285
         Index           =   1
         Left            =   3990
         TabIndex        =   14
         Top             =   1365
         Value           =   -1  'True
         Width           =   2175
      End
      Begin VB.OptionButton optSel 
         Caption         =   "只查询迟到人员"
         Height          =   285
         Index           =   0
         Left            =   315
         TabIndex        =   13
         Top             =   1365
         Width           =   1815
      End
      Begin VB.CommandButton Command2 
         Caption         =   "…"
         Height          =   330
         Left            =   5910
         TabIndex        =   12
         Top             =   862
         Width           =   330
      End
      Begin VB.TextBox txtEmp 
         Height          =   330
         Left            =   4560
         TabIndex        =   11
         Top             =   862
         Width           =   1350
      End
      Begin VB.CommandButton cmdSel 
         Caption         =   "…"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   0
         Left            =   3030
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   345
         Width           =   330
      End
      Begin VB.TextBox txtDate 
         Height          =   330
         Index           =   0
         Left            =   1725
         Locked          =   -1  'True
         TabIndex        =   0
         Top             =   345
         Width           =   1320
      End
      Begin VB.ComboBox cboDept 
         Height          =   330
         Left            =   4560
         Style           =   2  'Dropdown List
         TabIndex        =   4
         Top             =   345
         Width           =   1665
      End
      Begin VB.CommandButton cmdSel 
         Caption         =   "…"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   1
         Left            =   3030
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   862
         Width           =   330
      End
      Begin VB.TextBox txtDate 
         Height          =   330
         Index           =   1
         Left            =   1725
         Locked          =   -1  'True
         TabIndex        =   2
         Top             =   862
         Width           =   1320
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "员工:"
         Height          =   210
         Index           =   3
         Left            =   3990
         TabIndex        =   10
         Top             =   915
         Width           =   525
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "部门:"
         Height          =   210
         Index           =   2
         Left            =   3990
         TabIndex        =   9
         Top             =   405
         Width           =   525
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "统计起始日期:"
         Height          =   210
         Index           =   0
         Left            =   315
         TabIndex        =   8
         Top             =   405
         Width           =   1365
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "统计截至日期:"
         Height          =   210
         Index           =   1
         Left            =   315
         TabIndex        =   7
         Top             =   922
         Width           =   1365
      End
   End
   Begin MSFlexGridLib.MSFlexGrid msfGrid 
      Height          =   4770
      Left            =   255
      TabIndex        =   5
      Top             =   2115
      Width           =   8340
      _ExtentX        =   14711
      _ExtentY        =   8414
      _Version        =   393216
      FixedCols       =   0
      ScrollBars      =   2
   End
End
Attribute VB_Name = "frmFlow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mFormatString As String


Private Sub cboDept_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeyTab KeyCode
    End If
End Sub

Private Sub cmdSel_Click(Index As Integer)
    frmRiLi.Show vbModal
    If frmRiLi.mRetDate <> Empty Then
        txtDate(Index) = frmRiLi.mRetDate
    End If
End Sub

Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            If Trim(txtDate(0)) > Trim(txtDate(1)) Then
                MsgBox Trim(Label1(0)) & "不能大于" & Trim(Label1(1)), vbInformation, gTitle
                txtDate(0).SetFocus
                Exit Sub
            End If
            Me.MousePointer = vbHourglass
            Me.Enabled = False
            FindFlow
            Me.Enabled = True
            Me.MousePointer = 0
            Command1(1).Enabled = msfGrid.Rows > msfGrid.FixedRows
        Case 1
            If MsgBox("请准备好打印机，按[是]开始打印...", _
                vbYesNo, gTitle) = vbNo Then Exit Sub
            Dim oldPaperSize As Integer