在本系统中的登录是在数据库中所设计的登录用户名和密码。如果不是数据库中的用户名和密码则系统会提示“用户名或密码错误”。登录实现的代码如下所示：
Option Explicit
Private Counts As Byte
Private Sub cmdcancel_Click()
'//结束
End
End Sub
Private Sub CmdLogin_Click()
Dim StrSQL As String
UserName = CStr(Trim(TxtUserName.Text)) '//将文本框内的值赋给定义好的全局变量
PassWord = CStr(Trim(TxtPassword.Text))
If UserName <> Empty And PassWord <> Empty Then '//用户名与密码是否为空
StrSQL = "select 用户名称,用户口令,用户权限 from 管理用户 where 用户名称= '" & UserName & "'and 用户口令 ='" & PassWord & "'"
If RsLoginCheck.State = adStateClosed Then
RsLoginCheck.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText '//打开记录集
End If
Group = RsLoginCheck.Fields(2).Value
If RsLoginCheck.Fields(2).Value <> "Administrators" Then
Call CheckLogin
End If
If RsLoginCheck.RecordCount <> 0 Then '//判断记录集记录条数是否为0
RsLoginCheck.Close
Unload Me
Frmmdimain.Show '//显示主窗
FrmDay.Show vbModal
ElseIf Counts < 2 Then
MsgBox "用户名域密码错误", vbExclamation + vbOKOnly, "登录失败"
RsLoginCheck.Close '//关闭记录集
Counts = Counts + 1
Else
MsgBox "密码错误不得超过三次，否则视您为非法用户！", vbCritical, "警告"
End
End If
Else
MsgBox "用户名密码不能为空", vbExclamation + vbOKOnly, "登录失败"
Call Form_Load
End If
End Sub
5.2主窗口设计
在主窗口的界面设计中，可以看到本系统要实现的基本功能模块，主要是用菜单形式表示出来。每个模块的子功能都在其下拉菜单中可以显示出来。每个模块的子功能在其相应的窗口设计中都能看到，在系统运行时各个模块都能很清楚完整地展现在用户面前。如图5.2所示：
图5.2 主窗口
主窗体各部分的功能实现可以参考设计中的代码设计。在此因考虑到问题的复杂性就不做详细的介绍。
5.3员工档案管理窗口
该系统所涉及到的员工档案管理窗口主要是对员工基本信息的添加、修改、删除和查询等的管理。所有模块的设计界面在系统中都可以看到。添加模块主要是针对员工的一个基本信息的添加，如添加员工的姓名、编号、所在部门、性别等。在此处介绍一下员工基本信息的界面，信息的主要界面如下图所示：
图5.3 员工档案管理窗口
（1）编辑、添加或删除员工档案信息
当操作员需要对某个员工档案信息进行编辑时，可以在“员工档案”菜单中找到下拉菜单“添加员工档案”，再按其中的“编辑”按钮。由于修改记录不可能在大量的数据中盲目的寻找，因此数据编辑应该与数据添加按钮结合使用，先用查询功能进行对要编辑记录的搜索，再在数据表格中选中要编辑的员工档案信息，只需在文本框中直接进行数据编辑便可，编辑完后按“保存”按钮进行确定，系统会对修改后的数据进行合法性检测，合法则修改成功。
当操作员进入系统，根据设计要求，需要添加新的员工档案信息时，同样也是在“员工档案”菜单中找到下拉菜单“添加员工档案”，选择“添加”按钮。选定员工编号或输入员工姓名，会自动显示该员工的所在部门，再逐项添加相关信息。最后按“保存”按钮即可。
当操作员需要对某个员工档案信息进行删除时，可以在编辑员工档案信息窗体下部中找到删除按钮。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会提示“确定要删除吗”，只要点击“是”即可删除数据。其操作主要的界面如下图所示：
图5.4员工档案编辑窗口
(2)浏览或查询员工信息
当操作员需要查询某个员工档案信息时，可以在“员工档案”菜单中找到下拉菜单“查询员工档案”，可根据部门名称、出生日期、来到公司工作的时间进行员工信息查询。
相应的员工档案查询界面如下图所示：
图5.5查询员工档案窗口
在该信息成功添加后,对该信息的单独查询(查询条件为姓名,查询条件也可为编号，也可是进公司时间)。如果是想了解在数据库中表的所有员工档案,则直接选择查询按钮。查询单个员工档案,如查询条件为姓名:孙红，结果显示为:
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>