VB+SQL Server IC卡考勤管理系统 第4页
IC卡考勤管理系统
段全部列出，由用户选择任意一个设置条件，进行查询，用户也可以填入多个条件，条件之间是与的关系，如员工查询界面如图8所示。
若图片无法显示请联系QQ3249114,本论文免费,转发请注明源于www.751com.cn图8 员工查询界面
(3) 数据输出
数据输出分为屏幕输出和打印输出，输出格式完全按照用户的要求报告或报表格式进行设置，所以符合用户的应用习惯。屏幕输出界面如图8所示：
图9 流水打卡查询输出界面
第一章 系统实现
4.1 系统界面
本系统采用用户都熟悉的软件界面，应用菜单界面完成。整个界面颜色鲜明，应用了多个图形按钮，使得整个系统界面友好、美观大方，用户操作方便，容易上手。具体的界面如图10所示。
若图片无法显示请联系QQ3249114,本论文免费,转发请注明源于www.751com.cn
图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] 下一页