毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB+SQL Server IC卡考勤管理系统 第5页

更新时间:2008-6-24:  来源:毕业论文

IC卡考勤管理系统

11 员工管理界面

以下是员工管理的部分代码:

Public Sub cmdEdit_Click(Index As Integer) ‘ 员工管理按钮的编辑

    Dim strTmp As String

    Select Case Index

        Case gCMDAPPEND  添加按钮编辑

              Dim blnIsToGo As Boolean

            blnIsToGo = True

            If Not mblnIsAdd Then

                strTmp = gSTRCANCEL

                AddAction

               

                    If MsgBox("您确定不保存吗?", vbQuestion + _

                        vbYesNo + vbDefaultButton2, gTitle) _

                        = vbNo Then

                        blnIsToGo = False

                    End If

                End If

                If blnIsToGo Then

                    strTmp = gSTRAPPEND

                    InitxtEmp

                    ChangeColor False

                    mblnIsNeedSave = False

                    RefreshButton cmdEdit, gCMDEDITCANCEL

                Else

                    strTmp = gSTRCANCEL

                End If               

            End If

            strTmp = strTmp & "(&A)"

            cmdEdit(gCMDAPPEND).Caption = strTmp

            If blnIsToGo Then

                mblnIsAdd = Not mblnIsAdd

            End If       

        Case gCMDSAVE    保存按钮编辑

           If AddToDataBase Then

               AfterSave

               strTmp = gSTRMODIFY & "&M"

               cmdEdit(gCMDEDIT).Caption = strTmp

               mnuEditModify.Caption = strTmp

            End If

        Case gCMDEDIT    修改按钮编辑

            f Not mblnIsModify Then

                strTmp = gSTRRESET

                ToModify

            Else

                strTmp = gSTRMODIFY

                AfterSave

            End If

需要完整内容的请联系QQ752018766,本文免费,转发请注明源于www.751com.cn

           

'            DeleteForEmployee msfGrid, 1, "您确定要删除此名员工的信息?", _

'                gDataBase, "Employee", "WorkNo"

            If DeleteForEmployee Then

                If Not txtEmp(mName).Locked Then InitxtEmp

                RefreshButton cmdEdit, gCMDEDITNORMAL

            End If

        Case gCMDQUERY   查询按钮编辑

            frmEmpFind.Show vbModal

             If mblnIsToCloseColor Then

             mblnIsToCloseColor = False

             CloseColor msfGrid

             ChgcmdCloseColor

            End If

            If mcolWorkno.Count > 0 Then ShowQueryMan       

        Case gCMDRETURN  返回按钮编辑

            Unload Me

    End Select

End Sub

为了编程方便,也为了使代码简洁、易懂,本系统把系统中相关的按钮组成控件数组;为了系统界面简练、大方,不杂乱无章,系统把按钮设置成双向按钮,比如添加按钮,当点击添加按钮时,按钮的标题(caption)由“添加”变为“取消”。图10是当添加按钮被点击时的状态。添加员工信息时,添加按钮变成取消按钮,保存按钮被激活,编辑区(文本框部分)呈可编辑状态,修改、删除、查询等按钮处在失活状态;当用户点击员工表的某条记录时,修改、删除、查询按钮被激活,当点击修改按钮时,修改按钮变成还原按钮,同时编辑区被激活,表中记录的信息被显示在编辑区,删除、查询按钮失活。员工管理系模块中,管理员可以对员工持卡情况进行管理,如缺卡、丢失、有卡等等。

4.5 报表功能的实现

报表功能在本系统中可以说是最关键的。考勤系统之所以能够支持管理者的决策,是因为他能够及时地给管理者提供员工的考勤报表,使管理者能够及时准确地分析出公司员工的工作情况和工作态度,并能够及时地对员工做出正确的领导管理,从而促进员工的工作积极性,提高工作效率。本系统主要实现了日常动态考勤报表,打卡流水报表,考勤明细报表,考勤月报表的报表功能。报表功能主要分为两个部分:一、查询,二、打印。

1)日考勤动态报表的查询功能的实现:

     Private Sub FindFlow()

          Dim StartDate As String

          Dim EndDate As String

          Dim intDept As Integer

          Dim strDept As String

          Dim strWorkNo As String

          Dim Sql As String   

     On Error GoTo FindErr

         StartDate = Trim(txtDate(0))

'        EndDate = Trim(txtDate(1))

        getItemData cboDept, intDept

        strDept = Trim(cboDept.Text)

        strWorkNo = Trim(txtEmp)   

        Qry.Parameters(0) = StartDate

        Set Rst = Qry.OpenRecordset(dbOpenSnapshot)

       Else

        Sql = " Select * from QryKqHistory "

        Sql = Sql & " where format(KqDate,'yyyy-mm-dd')='" _

            & StartDate & "'"       

        If optSel(mLATE).Value Then Sql = Sql & " and  format(KqTime,'hh:mm')>'" _

            & gLATETIME & "' "           

需要完整内容的请联系QQ752018766,本文免费,转发请注明源于www.751com.cn

       Dim strIn As String

       Dim intRows As Integer

       Dim intCols As Integer

    If Rst.RecordCount > 0 Then

        Do While Not Rst.EOF

           intRows = intRows + 1

            With Rst

                'If IsKq Then

                    strIn = strIn & !WorkNo & vbTab _

                        & !Name & vbTab & !Sex & vbTab _

                        & !DeptName & vbTab & !TitleName & vbTab _

                        & !KqTime

                'End If

           

 需要完整内容的请联系QQ752018766,本文免费,转发请注明源于www.751com.cn

    End If

    intRows = intRows

    intCols = 6

   

    Dim i As Integer

    With msfGrid

        '.Rows = .FixedRows

        ClipToGrid msfGrid, strIn, intRows + 1, intCols

   

        .MergeCells = flexMergeRestrictRows

        For i = 0 To .Cols - 2

            .MergeCol(i) = True

        Next

    End With

    Exit Sub

FindErr:

     MsgBox "查询未成功!" & vbCrLf & Err.Description, vbExclamation, gTitle

    Err.Clear

    Me.Enabled = True

    Me.MousePointer = 0

End Sub

2)日动态考勤报表的打印功能的实现:

Private Sub PrintFlow(objPrint As Printer)

   Dim CurX As Single

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

VB+SQL Server IC卡考勤管理系统 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。