|
3.2.2 代码设计 代码设计是一项重要的基础性的工作，代码设计的好坏，不仅关系到运行效率，更关系到信息系统的推广与使用。代码设计必须统筹规划，参照相关的标准和原则。本系统通过对数据库及彼此之间联系的分析，为了管理员管理维护的方便，本着通用性、简明性、扩展性、识别性的原则，系统自动生成的排班表名代码。 内容来自www.paper51.com
3.2.3 用户界面设计 paper51.com 考勤系统为了满足使用者的需要，具体的数据处理功能，从交互界面的性质上主要分为三类： 内容来自论文无忧网 www.paper51.com (1) 数据编辑 http://www.paper51.com paper51.com 图3-3 请假登记界面 内容来自论文无忧网 www.paper51.com
界面样式与原手工处理时纸质表格样式基本一致，以使管理员在操作习惯和方式上比较熟悉和适应。同时为了减少管理员的输入工作量，减少输入的错误率，本系统使用了许多下拉菜单，日期的输入也由程序本身跳出界面让用户选择，只要查询员工，基本信息系统自动填好。如请假登记的输入界面，如图3-3所示。 内容来自www.paper51.com (2) 数据查询 copyright paper51.com 系统中所有的查询功能均提供任意条件组合查询，即将要查询的数据库文件的所有字段全部列出，由用户选择任意一个设置条件，进行查询，用户也可以填入多个条件，条件之间是与的关系，如员工查询界面如图3-4所示。 http://www.paper51.com
copyright paper51.com 图3-4员工查询界面 http://www.paper51.com
(3) 数据输出 内容来自论文无忧网 www.paper51.com 数据输出分为屏幕输出和打印输出，输出格式完全按照用户的要求报告或报表格式进行设置，符合用户的应用习惯。屏幕输出界面如图3-5所示。 内容来自论文无忧网 www.paper51.com paper51.com 图3-5 流水打卡查询输出界面 http://www.paper51.com
4.系统实现4.1 系统界面 内容来自www.paper51.com 本系统采用用户熟悉的软件界面，整个界面颜色鲜明，应用多个图形按钮，整个系统界面友好、美观大方，用户操作方便，容易上手。具体的界面如图4-1所示。 copyright paper51.com copyright paper51.com 图4-1 考勤系统界面 paper51.com 4.2 数据库访问 copyright paper51.com 数据库技术已渐渐成为电子信息系统的重要核心技术，企业管理离不开数据库技术，因为数据库能够提供数据共享，且冗余度低，从而减少应用程序的研制和维护的费用。数据库访问是本系统的一个关键问题，本系统用DAO 数据控件完成对数据库的访问，具体的访问程序如下： copyright paper51.com Public gDataBase As Database http://www.paper51.com Public Const gSTRPWD = "software" 内容来自论文无忧网 www.paper51.com Dim sPath As String copyright paper51.com Dim Rst As DAO.Recordset http://www.paper51.com sPath ="G:\kaoqin\data\kq.mdb" 内容来自www.paper51.com If Dir(sPath)<> Empty Then 内容来自论文无忧网 www.paper51.com Set gDataBase= Workspaces(0).OpenDatabase(sPath, False, False, ";pwd=" &gSTRPWD) copyright paper51.com
’打开数据库 内容来自www.paper51.com Else http://www.paper51.com
MsgBox "找不到数据库!请您检查一下您的数据库路径!!", , gTitle 内容来自www.paper51.com End paper51.com
End If http://www.paper51.com 4.3 系统登录界面 内容来自www.paper51.com 本系统在登录之前，首先是调用系统的公共模块，获得一些基本数据，比如数据库打开，创建关系，初始化端口，初始化排班等，都是在公用模块中进行的。然后出现登录界面。登录界面的具体实现如下： paper51.com Dim name As String copyright paper51.com Dim password As String 内容来自论文无忧网 www.paper51.com name = Trim(txtUserName.Text) copyright paper51.com password = Trim(txtpassword.Text) http://www.paper51.com Dim Rst As DAO.Recordset paper51.com Set Rst = gDataBase.OpenRecordset("select * from User " _ paper51.com & " where name='" & name & "'and PWD='"& password & "'") 内容来自论文无忧网 www.paper51.com IfRst.RecordCount <= 0 Then 内容来自论文无忧网 www.paper51.com If MsgBox("用户名或密码错误！！请重试！！", vbInformation, gTitle) = vbOK Then copyright paper51.com LoginSucceeded = True 内容来自论文无忧网 www.paper51.com
gLoginGrade = 0 内容来自论文无忧网 www.paper51.com Me.Hide copyright paper51.com
End If copyright paper51.com Else http://www.paper51.com LoginSucceeded = True copyright paper51.com gLoginGrade = 1 内容来自www.paper51.com Me.Hide 内容来自www.paper51.com End If http://www.paper51.com
4.4 员工信息管理 内容来自论文无忧网 www.paper51.com
paper51.com 图4-2 员工管理界面 http://www.paper51.com 员工管理基本的信息是重要的，系统中所有功能是围绕员工展开的，如IC卡的管理、人员考勤查询等。员工管理界面如图4-2所示。 paper51.com
员工管理的核心代码： paper51.com
Public SubcmdEdit_Click(Index As Integer) ‘ 员工管理按钮的编辑 http://www.paper51.com Dim strTmp As String 内容来自www.paper51.com Select Case Index copyright paper51.com CasegCMDAPPEND ‘ 添加按钮编辑 内容来自论文无忧网 www.paper51.com
Dim blnIsToGo As Boolean paper51.com blnIsToGo = True 内容来自论文无忧网 www.paper51.com If Not mblnIsAdd Then 内容来自论文无忧网 www.paper51.com
strTmp = gSTRCANCEL 内容来自论文无忧网 www.paper51.com AddAction http://www.paper51.com
InitxtEmp paper51.com txtEmp(mWorkNo).SetFocus 内容来自www.paper51.com Else copyright paper51.com
If mblnIsNeedSave Then 内容来自www.paper51.com If MsgBox("您确定不保存吗?", vbQuestion + _ 内容来自www.paper51.com vbYesNo + vbDefaultButton2, gTitle) _ paper51.com = vbNo Then 内容来自www.paper51.com blnIsToGo = False http://www.paper51.com End If paper51.com End If http://www.paper51.com If blnIsToGo Then copyright paper51.com strTmp = gSTRAPPEND paper51.com InitxtEmp 内容来自论文无忧网 www.paper51.com ChangeColor False 内容来自论文无忧网 www.paper51.com
mblnIsNeedSave = False 内容来自www.paper51.com RefreshButton cmdEdit, gCMDEDITCANCEL http://www.paper51.com Else copyright paper51.com
strTmp = gSTRCANCEL 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com End If http://www.paper51.com
strTmp = strTmp & "(&A)" 内容来自www.paper51.com cmdEdit(gCMDAPPEND).Caption = strTmp http://www.paper51.com If blnIsToGo Then paper51.com mblnIsAdd = Not mblnIsAdd 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com CasegCMDSAVE ‘保存按钮编辑 http://www.paper51.com If AddToDataBase Then 内容来自论文无忧网 www.paper51.com
AfterSave paper51.com strTmp = gSTRMODIFY & "&M" 内容来自www.paper51.com cmdEdit(gCMDEDIT).Caption = strTmp paper51.com
mnuEditModify.Caption = strTmp 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com CasegCMDEDIT ‘ 修改按钮编辑 paper51.com If Not mblnIsModify Then 内容来自论文无忧网 www.paper51.com strTmp =gSTRRESET 内容来自www.paper51.com ToModify 内容来自www.paper51.com Else 内容来自论文无忧网 www.paper51.com
strTmp = gSTRMODIFY 内容来自www.paper51.com AfterSave 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com strTmp = strTmp & "(&M)" http://www.paper51.com mnuEditModify.Caption = strTmp copyright paper51.com cmdEdit(gCMDEDIT).Caption = strTmp http://www.paper51.com
CasegCMDDELETE ‘删除按钮编辑 paper51.com MsgBox "您如果删除了该员工," & vbCrLf & vbCrLf _ http://www.paper51.com & "则有关该员工所有信息都将删除" & vbCrLf & vbCrLf _ copyright paper51.com & "包括考勤记录、请假记录，出差记录等...", vbCritical, gTitle http://www.paper51.com
http://www.paper51.com ' DeleteForEmployee msfGrid, 1, "您确定要删除此名员工的信息?",_ copyright paper51.com
' gDataBase,"Employee", "WorkNo" copyright paper51.com If DeleteForEmployee Then 内容来自论文无忧网 www.paper51.com
If Not txtEmp(mName).Locked Then InitxtEmp http://www.paper51.com RefreshButton cmdEdit, gCMDEDITNORMAL 内容来自www.paper51.com End If 内容来自www.paper51.com CasegCMDQUERY ‘查询按钮编辑 paper51.com SetmcolWorkno = New Collection 内容来自论文无忧网 www.paper51.com
paper51.com
frmEmpFind.Show vbModal paper51.com paper51.com If mblnIsToCloseColor Then http://www.paper51.com mblnIsToCloseColor = False paper51.com CloseColor msfGrid 内容来自论文无忧网 www.paper51.com
ChgcmdCloseColor http://www.paper51.com End If copyright paper51.com If mcolWorkno.Count > 0 Then ShowQueryMan paper51.com CasegCMDRETURN ‘ 返回按钮编辑 http://www.paper51.com
Unload Me copyright paper51.com End Select 内容来自论文无忧网 www.paper51.com End Sub 内容来自论文无忧网 www.paper51.com
为了编程方便，也为了使代码简洁、易懂，本系统相关的按钮组成控件数组；为了系统界面简练、大方，不杂乱无章，系统按钮设置成双向按钮，比如添加按钮，当点击添加按钮时，按钮的标题（caption）由“添加”变为“取消”。添加员工信息时，添加按钮变成取消按钮，保存按钮被激活，编辑区（文本框部分）呈可编辑状态，修改、删除、查询等按钮处在失活状态；当用户点击员工表的某条记录时，修改、删除、查询按钮被激活，当点击修改按钮时，修改按钮变成还原按钮，同时编辑区被激活，表中记录的信息被显示在编辑区，删除、查询按钮失活。员工管理系模块中，管理员可以对员工持卡情况进行管理，如缺卡、丢失、有卡等。 内容来自论文无忧网 www.paper51.com |