企业员工考勤管理系统.doc

摘　要

企业员工考勤管理系统是一个企业单位信息化建设不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，企业员工考勤管理系统应该能够为用户提供充足的信息和快捷的查询手段。
本系统主要包括职工基本信息管理、职工考勤信息管理、职工调动信息管理、系统管理四大模块。系统主要实现对数据的插入、删除、统计、查询、更新等功能。
本系统采用Visual Basic 6.0为开发工具，后台数据库采用Assecc 2003，操作系统为Windows XP。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。详细说明了系统的设计重点、设计思想、难点技术和解决方案。在经过一系列调试与操作后，系统基本达到了预期的效果。

关键词：员工考勤管理,管理信息系统,Visual Basic, Assec

Abstract

The enterprise staff management system management system is an enterprise unit informationization constructs the essential part, its content regarding enterprise's policy-maker and the superintendent all very important, the enterprise staff management system management system should be able to provide the sufficient information and the quick inquiry method for the user.

This enterprise staff checks attendance the management system management system including the staff basic information management, the staff checks attendance the information management, the staff transfers the information management, the system administration four big modules. System main realization to functions and so on data insertion, deletion, statistics, inquiry, renewal.

This system uses Visual Basic 6.0 is the development kit, the backstage database uses Assecc 2003, the operating system is Windows XP. The paper mainly introduced this topic development background, must complete function and development process. Key explanation system design key point, design concept, difficult technology and solution.

Key word：The enterprise staffs manage; the management information system; the electronic data processing; the information retrieval
目录

摘要 I
ABSTRACT II
第1章 引言 1
1.1 本课题的意义与目的 1
1.1.1 企业员工管理的概念 1
1.1.2 企业员工管理的要点 2
1.2 管理系统系统功能特点 2
1.3 开发背景 3
1.4 小结 3
第2章　系统需求分析 4
2.1 功能需求概述 4
2.2 功能需求分析 4
2.3 管理以及技术上的可行性分析 4
2.3.1 经济可行性分析 4
2.3.2 技术可行性分析 5
2.4 系统功能结构 5
2.4.1 考勤管理系统模块 5
2.4.2 系统顶层管理流程 7
2.5系统数据流程图 8
2.6 小结 8
第3章 数据库设计 9
3.1 数据库及数据结构设计 9
3.1.1 Microsoft Access 创建数据库 9
3.1.2 数据库需求分析 9
3.1.3 数据表设计 10
3.2 功能实体的设计 12
3.2.1基本实体的图表示 12
3.2.2实体与实体之间关系图 14
3.3 小结 14
第4章 系统设计与实现 15
4.1 模块化开发环境的简介 15
4.2 模块设计 15
4.2.1 建立公共模块 15
4.2.2 建立系统主窗体 16
4.2.3 程序的具体实现 21
4.3 小结 36
第5章 系统测试与出错处理 37
5.1 系统测试 37
5.2 出错处理 37
5.3 小结 38
第6章 结束语 39
致 谢 40
参考文献 41

第IV页

第1章 引言
当今时代是飞速发展的信息时代，在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。

1.1 本课题的意义与目的
随着计算机的普及和计算机科学技术的飞速发展，人们开始越来越多地利用计算机解决实际问题。企业员工考勤信息管理是企业信息管理的重要部分。面对大量的员工考勤信息，采用人力处理将浪费大量的时间、人力和物力，且数据的准确性低。
企业员工管理系统是一个企业单位信息化建设不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以企业员工管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统的人工方式来管理文件档案，这种管理方式存在着许多缺点，如：效率低、保密性差，另外是随着日积月累，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难和麻烦。建立一个企业员工管理系统，使企业员工管理工作规范化，系统化，程序化，避免企业员工管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询企业员工情况。

1.1.1 企业员工管理的概念
所谓员工管理，是指以从事社会劳动的人和有关的事的相互关系为对象，通过组织、协调、控制、监督等手段，谋求人与事以及共事人之间的相互适应，实现充分发挥人的潜能，把事情做得更好这一目标所进行的管理活动。

1.1.2 企业员工管理的要点
员工管理并不直接管理社会劳动过程，也不是简单地对人或事进行管理，而是对社会劳动过程中人与事之间的相互关系进行管理。员工管理的职能是谋求社会劳动过程中人与事相互适应，做到事得其人，人尽其才。

1.2 管理系统系统功能特点
1．通用性好，信息标准化
系统按照国家干部、人事信息系统标准将人员不同类别的信息分成人员基本信息和子集信息，使信息的存放规范，从而提高了系统的整体效率。人员的基本信息是描述人员情况的最基本的信息，这类信息对于每个人来说是唯一的，如出生日期、姓名、性别等。人员子集信息是描述人员情况的辅助信息，对于每个人来说这类信息也许是一条、多条、也可能没有，如学历、出国记录等信息。系统按照国家人事部的信息系统标准提供41个子集，用户可选择建立，也可选择增加。总之，指标集的数据格式由用户组织，用户可以根据本单位的需要在初期系统重构时，建立自己的指标集。
2．灵活、快速的检索查询
对人员、单位信息可以按多种条件组合查询，并且支持区间查询和模糊查询。用户可根据需要设置查询条件（可以根据一个或多个条件进行单一或复合查询，支持区间、模糊、二次查询），经过对登录用户的权限进行校验，将满足查询条件且在用户可查询范围内的人员信息输出。
3．严格的安全机制。
信息查询时严格按照权限的定义，进行严密的资格审查，保证数据可靠安全。4．系统构造合理、整体效率高
本系统对数据库的支持好，可连接任意的后台数据库（Informix， Sybase，Oracle，SQL Server等）。数据库的接口灵活，可选用嵌入式方式，ODBC方式等。选用不同的方式，查询效率会有所区别。提供多服务器分布式管理解决方案，通过分布式方案，数据可以分布在局域网或则是广域网的多个服务器上，通过上报和下发来进行数据交换，适用于地域广、分布散的机构。

1.3 开发背景
人力资源是企业所有资源中最活跃与最昂贵的资源，如何让更多的员工以积极主动的态度参与公司的运作，最大限度的发挥企业人力资源的效用是每一个管理者关心的问题。"XXX员工管理信息系统"完全按照"以人为本"的设计要求，以综合利用信息资源，调动管理人员积极性、综合智慧和创造性为目的，将员工管理所涉及的各类业务按照其内在的联系组织成一个有机整体。透过信息化方式取代传统人工作业，帮助人事单位化繁为简，快速有效的处理奖惩考核、训练发展、任用迁调等各项人事作业，大幅提升人事单位的工作效率，使其作业控管事半功倍，使企业达到「事得其人，人尽其才」的目标，创造企业竞争力，让管理者轻松的体味人力资源管理的新观念。

1.4 小结
企业员工考勤管理系统将很好地为企业在人事管理方面的工作提供有力的帮助。使得企业在人员管理上变的有条不紊，从而提高了整体的工作效率。

第2章　系统需求分析
2.1 功能需求概述
单位内部的人事的管理，从大的方面分主要集中在单位职工的个人情况、调入调出等。所以该系统主要是实现对数据的录入、插入、删除、统计、更新、等功能。其次，为了信息的保密与安全，系统还要提供一定的安全机制。开发这个系统的目的就是帮助企业部门提高工作效率，实现企业员工管理的系统化、规范化和自动化。

2.2 功能需求分析
本软件主要有以下几方面的功能
1．系统部分：主要完成本系统工程的维护工作（包括：添加用户、修改密码）
2．职工基本信息部分：主要完成职工基本信息的管理（包括：添加、修改、查询、删除职工基本信息）
3．职工考勤信息部分：主要完成职工考勤信息的管理（包括：添加、修改、查询、删除职工考勤信息等）
4．职工调动信息部分：主要完成职工调动信息的管理（包括：添加、修改、查询、删除职工调动信息）

2.3 管理以及技术上的可行性分析
2.3.1 经济可行性分析
经济可行性分析主要是进行开发成本的估算及可能取得效益的评估，确定待开发系统是否值得投资开发。在开发成本的估算方面，由于该系统是小系统，开发成本要求不高。
在可能取得的效益评估方面，企业人事管理系统的开发是为了减少企业人事管理中出现的效率低、保密性差，另外时间长了，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难和麻烦。使用企业人事管理系统进行管理，具有手工管理所无法比拟的优点，例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率，因此，系统开发在经济上是可行的。
2.3.2 技术可行性分析
Visual basic 6.0是良好的前端开发工具，它功能强大：
1.采用可视化编程：VB自动产生界面代码，程序人员只需绘制界面，这样大大的提高了程序设计的效率。
2.面向对象的设计。
3.结构化程序设计语言。
4.事件驱动编程机制：一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。
5.访问数据库：具有很强的数据库管理功能。特别是对数据库的操作比较方便。对于初次接触信息系统的使用者，SQL 2000比其他的数据库更容易了解和掌握。Vb/SQL2000的结合足以给企业带来信息化的优势。

2.4 系统功能结构
企业员工考勤管理系统
2.4.1 考勤管理系统模块

职工基本信息管理
系统管理
职工调动信息管理
职工考勤信息管理

图2-1企业员工考勤管理系统

我们经过对此课题提出的要求进行分析得出所要解决的问题是：开发一个企业员工考勤管理系统，解决由于传统的人事信息管理业务中人工进行员工的信息管理，考勤管理，员工变动管理等带来的耗费人力物力的问题。设计面临的主要问题是如何完成员工的考勤统计和工资计算以及多条件查询和动态报表。如图2-1
1、系统管理
系统启动的时候有一个管理员用户，使用这个用户登录后，可以添加其他用户，而且每一个用户都可以更改自己的密码。
2、职工基本信息
(1)添加职工信息：系统自动生成职工编号。管理员可以添加职工的基本信息，包括姓名、性别、籍贯、年龄、生日、住址、E-mail、学历、专业、进入本单位时间等。
(2)修改职工信息：选择一个职工，可以修改这个职工的基本信息。
(3)查询职工信息：可以根据职工的编号、姓名或者进入单位时间进行查询职工基本信息。并且可以针对查询结果进行修改和删除操作。
(4)删除职工信息：直接从列表中选中需要删除的职工信息，然后进行删除操作，或者首先查询需要删除的职工信息，然后再删除。
3、职工考勤信息
(1)添加考勤信息：主要分为上下班信息和其他考勤信息。上下班信息主要记录每个职工每天上下班的时间，而其他考勤信息包含有请假、加班、出差信息。
(2)修改考勤信息：当考勤信息出现错误需要修改的时候，可以从这里修改相应的记录。
(3)查询考勤信息：根据职工编号或者时间进行查询，得到所有的考勤信息，包括上下班、请假、加班和出差信息，但是不能够对信息进行任何操作。
(4)删除考勤信息：分为删除上下班信息和删除其他考勤信息。
(5)设置上下班时间：设置单位上下班时间。
4、职工调动信息
(1)添加调动信息：添加事业职工的原有部门、原有职务、新部门、新职务等信息。
(2)修改调动信息：修改相应的职工调动信息。
(3)查询调动信息：查询某个职工的调动信息或者某段时间内事业内部的调动情况。
(4)删除调动信息：删除那些不需要的信息。

2.4.2 系统顶层管理流程
如图2-2
密码

密码 新密码
企业员工管理
信息存储记录
反馈信息 打开 记录
处理
身份验证
管理员用户

密码 数据
图2-2软件的顶层数据流图

2.4.3 系统数据管理流程

用户，密码
如图2-3
用户，密码 新用户，新密码
反馈信息
帮助信息
系统管理
身份验证
管理员用户

密码 打开 打开 打开
打开 打开 打开
职工考勤
信息管理
主界面
职工基本信息
职工基本
信息管理
数据 打开 打开
打开 打开
打开 打开
数据
职工调动信息
职工调动信息管理
职工考勤信息
数据

图2-3软件的数据管理流图
2.5系统数据流程图
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就需要数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设打下基础。
详细调查有关事业人事信息的需求，仔细分析后将得到如图3-1所示的这个系统的数据流程图

管理员登录

调动管理
添加基本信息
考勤管理
考勤管理
调动管理

添加基本信息

职工调动信息管理
职工基本信息管理
职工考勤信息管理

图2-4 企业员工考勤管理系统数据流程图

2.6 小结
本章对系统需求进行了全面的分析，分别从功能需求，管理以及技术上的可行性和系统功能模块进行分析，并给出了清晰的工作流程图。

第3章 数据库设计

3.1 数据库及数据结构设计
3.1.1 Microsoft Access 创建数据库
对拟开发系统选用Access2003作为后台数据库。数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率保证数据信息的完整性和一致性。Access2003是一个中、小型数据库管理系统，使用方便、功能强大，与其它数据库有良好的接口。通过Access2003功能强大的工具，用户可以方便的使用和管理数据库，如创建和编辑数据表、设计和使用各种查询工具进行查询操作、设计和使用窗体、制作和打印报表、设计和使用宏、设计和使用Web页等。

3.1.2 数据库需求分析
针对企业员工考勤管理系统的需求，通过对职工工作过程的内容和数据流程分析。为本系统设计如下的数据项和数据结构：
职工基本信息：包括职工编号、职工姓名、性别、出生日期、籍贯、学历、专业、进入单位时间、所在部门、参加工作时间、职称、备注等。
职工调动信息： 包括职工编号、职工姓名、原部门、新部门、调出时间、调入时间、原职务、新职务、备注等。
职工考勤信息：包括职工编号、职工姓名、职工所在部门、出勤时间、旷工时间、请假时间、早退时间、迟到时间、加班时间、出差时间等。
有了上面的数据结构、数据项以及数据流程后，就可以开始下面具体的数据库设计。

3.1.3 数据表设计
启动Access2003，创建一个新的数据库，命名为Person.mdb，保存在要存放这个系统的所有工程文件的文件夹中，使用设计器创建这个系统需要的所有表格。

表3-1 AttendanceInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
ID
自动编号
长整型
标准

AStuffID
文本
20
标准
职工编号
AStuffName
文本
10
标准
职工姓名
ADate
日期/时间

标准
当前日期
AFlag
文本
20
标准
出入标志
AInTime
日期/时间

标准
上班时间
AOutTime
日期/时间

标准
下班时间
ALate
数字
长整型
标准
迟到次数
AEarly
数字
长整型
标准
早退次数

表3-2 OvertimeInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
OID
自动编号
长整型
标准
记录编号
OStuffID
文本
20
标准
职工编号
OSpeciality
数字
长整型
标准
特殊加班天数
OCommon
数字
长整型
标准
正常加班天数
OFromDay
日期/时间

标准
加班日期

表3-3 LeaveInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
LID
自动编号
长整型
标准
记录编号
LStuffID
文本
20
标准
职工编号
LIll
数字
长整型
标准
病假天数
LPrivate
数字
长整型
标准
事假天数
LFromDay
日期/时间

标准
假期开始时间

表3-4 AlterationInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
ID
自动编号
长整型
标准
记录编号
AID
文本
20
标准
职工编号
AName
文本
10
标准
职工姓名
AOldDept
文本
50
标准
原部门
ANewDept
文本
50
标准
新部门
AOldPosition
文本
50
标准
原职务
ANewPosition
文本
50
标准
新职务
AOutTime
日期/时间

标准
调出时间
AInTime
日期/时间

标准
调入时间
ARemark
备注

标准
备注

表3-5 TimeSetting
字段名称
数据类型
字段大小
格式
说明
begintime
日期/时间

标准
上班时间
endtime
日期/时间

标准
下班时间

表3-6 StuffInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
SID
文本
20
标准
职工编号
SName
文本
10
标准
职工姓名
SGender
文本
2
标准
性别
SPlace
文本
20
标准
籍贯
SAge
数字
长整型
标准
年龄
SBirthday
日期/时间

标准
生日
SDegree
文本
10
标准
学历
SAddress
文本
50
标准
住址
SSpecial
文本
20
标准
专业
SCode
文本
10
标准
邮编
STel
文本
20
标准
电话
SEmail
文本
20
标准
E-mail
SWorkTime
日期/时间

标准
参加工作时间
SInTime
日期/时间

标准
进入单位时间
SDept
文本
50
标准
部门
SPayTime
日期/时间

标准
起薪时间
SPosition
文本
50
标准
职务
SRemark
文本
50
标准
备注

表3-7 UserInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
UserID
文本
10
标准
用户名称
UserPWD
文本
20
标准
用户密码

表3-8 ErrandInfo表的逻辑结构
字段名称
数据类型
字段大小
格式
说明
EID
自动编号
长整型
标准
记录编号
EStuffID
文本
20
标准
职工编号
EErranddays
数字
长整型
标准
出差天数
EPurpose
文本
50
标准
出差目的地
EFromday
日期/时间

标准
出差开始时间

3.2 功能实体的设计
3.2.1基本实体的图表示
得到上面的数据项和数据表以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。
本系统根据上面的设计规划出的实体有：职工基本信息实体、职工考勤信息实体、职工调动信息实体。各信息实体图为图3-1至图3-3所示：
职工基本信息实体

进入单位时间
职工姓名

参加工作时间
职工性别

．．．．．

图3-1职工基本信息实体E-R图

职工考勤信息实体

出差时间
职工姓名

职工出勤时间
加班时间

．．．．．

图3-2职工考勤信息实体E-R图

职工调动信息实体

职工姓名

备注

职工调出时间
新职务

．．．．．

图3-3职工调动信息实体E-R图

3.2.2实体与实体之间关系图
如图3-4所示：
调用
职工调动信息
职工考勤信息
职工基本信息
…
职工姓名
职工性别
职工编号
…
职工姓名
调出时间
职工姓名
新职务
员工
进入单位时间
出差时间
调用
输出
…

图3-4职工调动信息实体E-R图

3.3 小结
本章对系统的后台数据库进行了数据需求分析，利用Access2003进行了数据表的建立，从而为下面的设计工作做好数据库准备工作，分析规划出的实体有：职工基本信息实体、职工考勤信息实体、职工调动信息实体。

第4章 系统设计与实现
4.1 模块化开发环境的简介
Visual Basic简介Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。

4.2 模块设计
通过前面的数据库分析设计，已经完成了必要的数据库准备工作，现在开始用Visual Basic软件来编写数据库的应用程序。

4.2.1 建立公共模块
运行Visual Basic后，选择“文件”→“新建工程”菜单，然后从工程模板中选择“标准EXE”项，单击“确定”按钮。Visual Basic就会自动生成一个窗体，这个窗体的属性采用的都是默认设置。在本系统设计中，先删除这个窗体，然后选择“文件”→“保存工程”菜单，在出现的“文件另存为”对话框中输入这个工程项目的名称Stuff_MIS，并且选择要保存这个工程的目录，单击“保存”按钮，保存工程。
为了提高代码的效率方便维护，在Visual Basic中可以用公用模块来存放工程中经常使用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公用的数据操作函数，来执行一系列的SQL语句。在项目资源管理器中为这个工程添加一个模块，保存为Modulel.Bas。
首先添加几个变量的定义：
Public gUserName As String '保存用户名称
Public flag As Integer '添加和修改的标志
Public gSQL As String '保存SQL语句
Public kqsql As String '保存查询考勤结果SQL语句
Public kqsql2 As String '保存查询其他考勤结果SQL语句
Public ArecordID As Integer '保存上下班记录编号
Public LrecordID As Integer '保存请假记录编号
Public OrecordID As Integer '保存加班记录编号
Public ErecordID As Integer '保存出差记录编号
Public iflag As Integer '数据库是否打开标志
添加执行SQL语句的函数（Public Function TransactSQL(ByVal SQL As String) As ADODB.Recordset ）用（Set con = New ADODB.Connectio）创建连接，然后创建记录集（Set rs = New ADODB.Recordset），打开之间的连接（con.Open strConnection），接着返回记录集（Set TransactSQL = rs），执行命令（con.Execute SQL），显示该模块的窗体（fLogin.Show vbModual）。

4.2.2 建立系统主窗体
1． 添加主窗体
在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。
单击工具栏中的添加MDI窗体或者选择“工程”→“添加MDI窗体”菜单，如图4-1所示。选择MDI窗体，单击“打开”按钮，为这个工程添加一个多文档窗体作为主窗体，如图4-2所示。 添加主窗体后，设置主窗体的属性，如图4-3所示。

图4-1添加MDI菜单

图4-2添加MDI体对话框

图4-3主窗体的属性

2． 添加菜单
在添加好的窗体中，单击鼠标右键，从弹出的快捷菜单中选择“菜单编辑器”命令， 在弹出的如图4-4所示的菜单编辑器对话框中添加需要的菜单，并且使用方向键为菜单分级，设计好的主窗体如图4-5所示：

图4-4菜单编辑器

图4-5设计好的主窗体
表4-1 人事管理系统菜单结构
菜单名称
属性
系统
System
…添加用户
Add_User
…修改密码
Change_PWD
…退出
System_ EXIT
职工基本信息
Stuff_Info
…添加职工信息
Add_Stuff
…修改职工信息
Change_Stuff
…查询职工信息
Check_Stuff
…删除职工信息
Del_ Stuff
职工考勤信息
Stuff_Checkin
…添加考勤信息
Add_Checkin
…添加上下班信息
AddAttendance
…添加其他考勤信息
AddOtherKQ
…修改考勤信息
Change_ Checkin
…修改上下班信息
ChangeAttendance
…修改其他考勤信息
ChangeOtherKQ
…查询考勤信息
Check_Checkin
…删除考勤信息
Del_Checkin
…删除上下班信息
DellnOut
…删除其他考勤信息
DelOtherKQ
职工调动信息
Stuff_A1teration
…添加调动信息
Add_Alter
…修改调动信息
Change_A1ter
…查询调动信息
Check_Alter
…删除调动信息
Del_A1ter
…查询考勤信息
Check_Checkin
…帮助
System_Help
…关于
About

4.2.3 程序的具体实现
本系统共有四个子模块组成。它们分别是职工基本信息管理模块、职工考勤信息管理模块、职工调动信息管理模块、系统管理模块。
1． 这里就具体就用户登陆窗体的创建为例。
1) 登陆窗体：

图 4-6 登入窗体

为这个窗体添加3个标签(Label)，用来标识窗体中的信息；2个文本框(TextBox)，用来输入用户名称和用户密码；2个按钮(CommandButton)，用来确定或取消操作。这些控件的属性设置如表4-2所示。

表4-2 登录窗体中控件属性设置
控件
属性
属性值
TextBox
Name
UserName

TextBox
Name
PassWord
PassWordChar
*

CommandButton
Name
cmdOK
Caption
确定

CommandButton
Name
cmdCancel
Caption
取消
Label
Caption
事业人事管理系统
Label
Caption
用户名称
Label
Caption
用户密码
用户没有输入用户名称、用户密码或者输入错误密码系统都会出现相应的提示。如果3次输入错误密码，就会退出这个系统。
单击“取消”按钮，就会调用cmdCancel＿Click()函数，退出系统。
原代码如下：
Private Sub cmdOK_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
If Trim(UserName.Text = "") Then
MsgBox "没有输入用户名称，请重新输入！", vbOKOnly + vbExclamation, "警告"
UserName.SetFocus
Else '查询用户
SQL = "select * from UserInfo where UserID='" & UserName.Text & "'"
Set rs = TransactSQL(SQL)
If iflag = 1 Then
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入！", vbOKOnly + vbExclamation, "警告"
UserName.SetFocus
Else
If Trim(rs.Fields(1)) = Trim(PassWord.Text) Then
rs.Close
Me.Hide
gUserName = Trim(UserName.Text) '保存用户名称
FrmMain.Show