段全部列出，由用户选择任意一个设置条件，进行查询，用户也可以填入多个条件，条件之间是与的关系，如员工查询界面如图8所示。

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.youerw.com图8 员工查询界面

(3) 数据输出

数据输出分为屏幕输出和打印输出，输出格式完全按照用户的要求报告或报表格式进行设置，所以符合用户的应用习惯。屏幕输出界面如图8所示：

图9 流水打卡查询输出界面

第一章                      系统实现

4.1 系统界面

    本系统采用用户都熟悉的软件界面，应用菜单界面完成。整个界面颜色鲜明，应用了多个图形按钮，使得整个系统界面友好、美观大方，用户操作方便，容易上手。具体的界面如图10所示。

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.youerw.com

图10 考勤系统界面

4.2 数据库访问的实现

    数据库技术已渐渐成为电子信息系统的重要核心技术，企业管理离不开数据库技术，因为数据库能够提供数据共享，且它的冗余度低，从而减少应用程序的研制和文护的费用。数据库访问是本系统的一个关键问题，本系统用DAO 数据控件完成对数据库的访问，具体的访问程序如下：

Public gDataBase As Database

Public Const gSTRPWD = "wsh2000"

 Dim sPath As String

 Dim Rst As DAO.Recordset

 sPath = "G:\kaoqin\data\kq2000.mdb"

If Dir(sPath) <> Empty Then

 Set gDataBase = Workspaces(0).OpenDatabase(sPath, False, False, ";pwd=" & gSTRPWD)

 ’打开数据库

  Else

   MsgBox "找不到数据库!请您检查一下您的数据库路径!!", , gTitle

   End

  End If

4.3 系统登录界面的实现

本系统在登录之前，首先是调用系统的公共模块，获得一些基本数据。比如数据库打开，创建关系，初始化端口，初始化排班等等，都是在公用模块中进行的。接着，才会出现登录界面。登录界面的具体实现如下：

Dim name As String

    Dim password As String

    name = Trim(txtUserName.Text)

    password = Trim(txtpassword.Text)

            Dim Rst As DAO.Recordset

            Set Rst = gDataBase.OpenRecordset("select * from User " _

    & " where name='" & name & "'and PWD='" & password & "'")

        If Rst.RecordCount <= 0 Then

          If MsgBox("用户名或密码错误！！请重试！！", vbInformation, gTitle) = vbOK Then

          LoginSucceeded = True

                gLoginGrade = 0

                Me.Hide

          End If

        Else

                LoginSucceeded = True

        gLoginGrade = 1

        Me.Hide

    End If

4.4 员工信息管理的实现

虽然员工管理在考勤系统中并不如人事管理系统中重要，但是在这里基本的信息还是必要的，系统中所有功能是围绕员工展开的，如IC卡的管理，人员考勤查询等等。这里列举部分关于人员管理的程序，以便大家了解系统的实现过程。员工管理界面如图11所示。

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