frmcheckinfo.frm

员工信息管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmCheckInfo 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "员工考勤浏览"
   ClientHeight    =   6825
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9510
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6825
   ScaleWidth      =   9510
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin MSFlexGridLib.MSFlexGrid flxShow 
      Height          =   3495
      Left            =   720
      TabIndex        =   4
      Top             =   1080
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   6165
      _Version        =   393216
      ScrollBars      =   2
   End
   Begin VB.CommandButton cmdReturn 
      Caption         =   "返 回"
      Height          =   375
      Left            =   7200
      TabIndex        =   3
      Top             =   5760
      Width           =   975
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删 除"
      Height          =   375
      Left            =   4440
      TabIndex        =   2
      Top             =   5760
      Width           =   975
   End
   Begin VB.CommandButton cmdModi 
      Caption         =   "修 改"
      Height          =   375
      Left            =   1440
      TabIndex        =   1
      Top             =   5760
      Width           =   975
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   300
      Left            =   720
      TabIndex        =   5
      Top             =   480
      Width           =   150
   End
   Begin VB.Label Label1 
      Caption         =   "请选择上述一条记录操作："
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   4920
      Width           =   4095
   End
End
Attribute VB_Name = "frmCheckInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim rs As New ADODB.Recordset
Dim strSql As String
Dim i As Integer

Private Sub cmdDel_Click()
    Dim intDel As Integer
    intDel = MsgBox("确定要删除此条资料?", 1, "删除")
    If intDel = 1 Then
        tEmp_id = flxShow.TextMatrix(flxShow.Row, 0)
    '    删除工号为选中的考勤资料
        strSql = "Delete from checkin where emp_id =clng ('" & tEmp_id & " ') and check_ym= '" & tCheck_ym & "'"
        dbConn.Execute strSql
        '删除工号为选中的工资资料
        'strSql = "Delete from salary where emp_id =clng ('" & tEmp_id & " ')and check_ym= '" & tCheck_ym & "' "
       ' dbConn.Execute strSql
        refreshGird
    End If
End Sub

Private Sub cmdmodi_Click()
    tEmp_id = flxShow.TextMatrix(flxShow.Row, 0)
    '修改选中的考勤资料
    frmCheckmodi.Show vbModal
End Sub



Private Sub cmdReturn_Click()
    Unload Me
End Sub

Private Sub flxShow_DblClick()
   If cmdmodi.Enabled = True Then cmdmodi_Click
End Sub

Private Sub Form_Activate()
    Dim strA As String
    Dim strB As String
    refreshGird
    strA = Left(tCheck_ym, 4)
    strB = Right(tCheck_ym, 2)
    Label2.Caption = strA & "年" & strB & "月考勤"
End Sub

Private Sub Form_Load()
     Me.Icon = LoadPicture(App.Path & "\Graph07.ico")
'    设置列数
    flxShow.Cols = 10
    '列标题
    flxShow.TextMatrix(0, 0) = "工号"
    flxShow.TextMatrix(0, 1) = ""
    flxShow.TextMatrix(0, 2) = "姓名"
    flxShow.TextMatrix(0, 3) = "应出勤"
    flxShow.TextMatrix(0, 4) = "迟到"
    flxShow.TextMatrix(0, 5) = "早退"
    flxShow.TextMatrix(0, 6) = "请假"
    flxShow.TextMatrix(0, 7) = "旷工"
    flxShow.TextMatrix(0, 8) = "加班"
    flxShow.TextMatrix(0, 9) = "补休"
    
    '设置列宽
    flxShow.ColWidth(0) = 800
    flxShow.ColWidth(1) = 0
    flxShow.ColWidth(2) = 1200
    flxShow.ColWidth(3) = 850
    flxShow.ColWidth(4) = 850
    flxShow.ColWidth(5) = 850
    flxShow.ColWidth(6) = 850
    flxShow.ColWidth(7) = 850
    flxShow.ColWidth(8) = 850
    flxShow.ColWidth(9) = 850
    
    '设置各列的对齐方式
     For i = 0 To 9
        flxShow.ColAlignment(i) = 0
     Next i

     '表头项居中
     flxShow.FillStyle = flexFillRepeat
     flxShow.Col = 0
     flxShow.Row = 0
     flxShow.RowSel = 1
     flxShow.ColSel = flxShow.Cols - 1
     flxShow.CellAlignment = 4
     
    '强制跨越整个行选择
    flxShow.SelectionMode = flexSelectionByRow


End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set rs = Nothing
End Sub

Private Sub refreshGird()
    

    '打开一个数据集
    strSql = "select a.emp_id,b.emp_name,a.w_days,a.l_nums,a.e_nums,a.h_days,a.n_days,a.o_days,a.r_days from checkin a ,employee b where a.check_ym='" & tCheck_ym & "' and a.emp_id = b.emp_id order by b.emp_id"
    rs.Open strSql, dbConn, adOpenForwardOnly, adLockReadOnly
    
    If rs.EOF Then
         MsgBox "目前已没有本月考勤记录！", vbOKOnly + vbExclamation, "警告"
         rs.Close
         cmdmodi.Enabled = False
         cmdDel.Enabled = False
         flxShow.Rows = 1
         Exit Sub
    End If
    

    '填写数据
    flxShow.Rows = 1

    Do While Not rs.EOF
        flxShow.Rows = flxShow.Rows + 1

        flxShow.TextMatrix(flxShow.Rows - 1, 0) = rs.Fields(0).Value
        For i = 2 To rs.Fields.Count
            flxShow.TextMatrix(flxShow.Rows - 1, i) = rs.Fields(i - 1).Value
        Next i

        rs.MoveNext
    Loop
    rs.Close
End Sub