5系统功能实现
5.1系统用户登录功能的实现
系统登录页面使用了用户信息表（PSLogins），并引用这个表的ID,LoginID,Password字段对用户身份进行鉴别。
用户通过表单提供登录信息，系统根据用户提供的信息对用户进行查询鉴别， 如果用户提供的信息与系统数据库用户信息不匹配，则记录用户登录次数，并提示用户 “你还有几次机会,请重试”；如果用户登录次数大于Application对象的NumAttempts的值指定的次数，则停止该用户的登录；如果身份合法，则将用户导向系统主页，如图5-1所示。页面上有3个主要链接，分别指向办公系统的3个主要功能模块，即员工信息管理模块，财务信息管理模块和员工信息交流模块。
在系统主页面里，设计了一个导航条，详细列出了用户在系统里的位置，当前用户名称，其它相应页面的链接以及系统提供给用户的提示信息或者反馈信息。
图5.1系统主页面
5.2员工信息管理模块的实现
员工信息管理模块在整个系统中占有重要地位，本文实现的主要是查询、添加、删除和修改，也是本论文的一个突出点，所以要详细介绍。
功能描述：员工可以通过选择不同的单选按纽，进行相应的员工信息查询或管理功能。
功能实现：用户先进入员工信息管理页面，再根据用户提交表单时一并提交的表单元素Sendto参数进行相应的员工信息查询或管理。以全体员工信息查询为例，其它查询功能的实现类同。如果Sendto的值为“AllEmployeeInformation”，表示用户希望查询所有员工的信息。然后从用户数据库PSLogins表里查询所有记录，根据表单元素AllOrder的值进行排序，并将结果储存到临时记录集RSEnquiryResult里，同时设置相应的字符串变量TheMessage作为系统反馈提示信息,查询结果如图5-2所示。关键代码如下：
if Request.Form("SendTo") = "AllEmployeeInformation" then
Set RSEnquiryResult = conn.Execute_
("select * from PSLogins order by " & Request.Form("AllOrder"))
TheMessage = "全体员工信息按" & Request.Form("AllOrder") & "排序如下"
