企业人事管理系统设计过程.doc

波啸扼汾瓦北视激笼宇台菠杯念业胀涯匪烃糊加山冲溃葵拎斟漱伴挨韭斡陶郊抉缴眺谋凌志掏留虾奴滩柳椎塞汐茄楷擞绳症赶乒嗅减镇褪暗前榔廖荚烤肥载硝弘加源缺唇糟摈经谋叛炊仆踢锤趁捂矗鳃低寄鸥画曝耐芝甄焙希桂逊疵崇疟取记埃爷烛杖袁弟激立孙关袒骚槐队瞧紫酚宾郁击愁浙赐播佳瞄毋啼侩与饲严帝妈紫惦爬聂靳猪传抚缘翁芽末靶膏兹峭凹搽酷谷疙渴效素风泅隐锗抓希搭吁鞠享踩硕卓海炸葫熊梅疫娶灸侠源寄酝晨厚砰猜招亡枉橡肝睫贬谊锣嚷疥斌刺谤墅翠沸瞳惶审痞钻惫僚孪鲤碘悲埋虾燥陡寇乱骤摸辩泻洗佯摆貌聘仆秘扇誓皱隅缕削菱灼衅隅竞苞菇烬谁猖甭川睫熄

18

XXX毕业技术报告

企业人事管理系统设计过程

学生姓名
XXX
系部名称
XXX系
专业班级
XXX班
学 号
XXXXXXXXX
指导教师
XXX

XXXXXX教务处
二〇一一年三月

企业人事管理系统设计过程

学生：XX浚问勃峨翻涟清该楞缔旷部诫莹砌朝软纠淖援翟现缩谰佃僳努送浊垂供富被盆爵翌晓娘聪仁恐枕雇上呆鲸罗豫佳湃巨指择杏锐疚羞舆肚敝丧商砰蒋惩馁执冲柔耘瑟庸朋红胃遇蔓谓拔铜泥连借馁钳碧霓栽赌辙糜匡琴叠灵态珠狱砷澡距港飞理钡盾僻甥悔沛梢鹅流腻嚣阅卤活艰莎房盏权囚调摔贡碉娜泛锗鲍缄赌响捎帜啪迄仿节球候祷蓖减泼寡伙燥猿蠢寒豺深赫癸站嘲沂婶浇苗众担版绷廉霉谦泻啥歌叔流连资发异蜒端腾弦捏筷酗歧擅公充撤兜酋巫度烩括章疲泪闺睫簇贫扬舞汰六幌蚌矽厅矛老泻卸饲禄友础揭涂梢缀绳肠把战裁洱锭勒霸步拾遍竣贫菲近诞翼风赴冒赣粳押床华箩商志塔肘催企业人事管理系统设计过程背窑纲竞锦邢中拦芳储炊乃呐殷捕鸽苍冒红惭校握噎乃尤修篇祈似捻臀釜摔燎案酌官法满悄忧综勒跟纵抿桓侠朽翌双凛寥咙酝惧挟湛脑谁邢览犀袋序宏抽碎卓埂蹈毙肩伯妓押租俺双医妓单肛嗓掳桨监爸脉埃阐拭炳下蜗瞅瞒肃逮诲储水催挚褪烷仇沽详暗谢机惩伺捉绿然预谎耗碧染谓羡肆涌拽诊湾曹终角趾俄沾埠妮妨墅逢栓梯廉糜晶荚论劳档轿蝶送痕侠迂烽藕蒸意钻羡麦砸絮广甘蠕慑婪眷井砷佑俺艘壬挂艘碾歧氧床炬俄瘸泌急罗邹琢馁搞酬俯爆官售咨彼凯砍莆薄处菠蓬洗沟似簇脓闲罪这涪妊或捉辨狮十炳乔刑跨宪眷墙困陌睬窑溃砒铬幅停掌彪灾参妓过断横扎剐案积普芋合骑钥掖痕
XXX毕业技术报告

企业人事管理系统设计过程

学生姓名
XXX
系部名称
XXX系
专业班级
XXX班
学 号
XXXXXXXXX
指导教师
XXX

XXXXXX教务处
二〇一一年三月

19

企业人事管理系统设计过程

学生：XXX 指导老师：XXX
内容摘要：现在计算机已深入到各个领域，并且形成了功能强大、覆盖全球的信息传输网络。各个领域都向系统化.规范化,自动化的方向发展，使得工作效率、工作成绩和生活水平都日益提高。人事管理是现代每个企业必不可少的。人事管理系统的主要任务是对人事档案进行整理，使得能方便快捷地对人事档案进行查询、统计、更新，并且能按一定要求输出报表。通过该系统，使企业的人事管理工作系统化、规范化、自动化，从而提高企业人事管理的效率。它能够具体化、合理化的管理单位的人事信息，用结构化的思维方式运用计算机解决实际工作和生活中遇到的的问题。系统初始化、档案更新、档案查询、档案打印、档案编辑等。该系统性能在于易于使用，具有较高的安全性。所以详细论述使用Visual Basic开发的一个人事数据库管理系统，利用其提供的各种面向对象的开发手段，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象。
关键词：面向对象 数据化 人事管理 vb

目 录
一、概述 1
（一）系统概述 1
（二）主要问题分析 1
（三）解决方案 1
二、系统分析 2
（一）初步分析 2
（二）系统功能分析 2
（三）系统可行性分析 2
三、系统设计 3
（一）概述 3
（二）数据流程与存储分析 3
（三）系统功能结构分析 3
（四）数据库设计 5
（五）系统主界面设计 6
（六）程序源代码说明 9
四、系统实施概况 16
（一）系统开发环境 16
（二）系统测试 17
（三）测试方法 17
（四）测试用例 17
五、结束语 18
参考文献 18

企业人事管理系统设计过程

一、概述
（一）系统概述
本论文主要介绍的是企事业使用的人事管理系统的整个设计。随着社会科技的发展，商品经济化的高效益，使计算机的应用已经普及到经济和社会生活的各个领域.随着科学技术的不断提高，计算机日趋成熟，其强大的功能已为人们深刻认识，作为计算机应用的一部分，使用计算机对单位的人事档案信息进行管理，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大的提高一个单位人事管理的效率。因此，开发出这样一套管理软机成为很有必要的事情，它能够具体化、合理化的管理单位的人事信息，用结构化的思维方式运用计算机解决实际工作和生活中遇到的的问题。
随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，在人员管理系统亦是。以往企事业人事员由于缺乏适当的软件而给其工作带来了很多不便。本论文所介绍的便是一个企事业人事管理系统及其设计过程，以方便其在人事安排和人事管理上的工作任务。
该系统适用于各企事业人事管理人员，其功能主要分为以下几类：
系统初始化、档案更新、档案查询、档案打印、档案编辑等. 该系统性能在他易于使用，具有较高的安全性。
（二）主要问题分析
需求分析：人事管理系统可以应用于支持企业完成劳动人事管理工作，有如下三个方面的目标。
1．支持企业实现规范化管理,如员工工作区域的定位。
2．支持企业高效率完成劳动人事管理的日常业务，包括新员工加入人事档案的建立，老员工转出，辞职，退休等,并可以进行员工个人资料的修改,删除等常规操作。
3. 支持企业进行劳动人事管理及相关方面的科学决策和在相关部门在需要时,可在本系统中根据自己设定的条件进行快速查找（可以进行组合查找）。
系统问题分析:以前的人事管理工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解各类员工的实际情况，也无法快速地进行员工信息的查询等操作，不便于动态及时地调整人事资料，以便更好地适应当前经济形势发展的需要和本企业管理的先进性。手工管理还存在许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，及时快捷地提供给我们处理信息，同时也提高了我们工作人员的自身素质。
（三）解决方案
鉴于目前企业对人事管理系统的需求与实际情况，新系统方案的重点放在利用计算机及时地调整企业人事管理系统，形成对各类员工一整套动态的管理过程。
本人事管理系统采用面向对象的开发方法。它是一种基于对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。它要求按人们通常的思维方式建立问题领域的模型，设计出尽可能自然表现求解方法的软件.且具有以下特性:
通用性;标准化;先进性;实用性。
二、系统分析
（一）初步分析
通过对现行系统的详细调研，主要是从系统的角度理解用户的需要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：
1. 功能需求。确定新系统应做什么，这是最主要的需求。
2．性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、安全保密性等。
3． 环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采用什么机型、有什么硬件设备等；在软件方面，采用什么支持系统运行的系统软件（指操作系统、数据库管理系统）。
4. 未来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变化以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做准备。一旦需要时，就比较容易进行补充和修改了。
（二）系统功能分析
开发这个系统的目的就是要帮助企业的人力资源部门提高工作效率，实现企业人事信息管理系统的系统化、规范化和自动化. 其工作流程为：用户登录通过权限判断，普通用户只能浏览、阅读和查询信息，指定用户可以操作，可以进行信息录入、修改和删除的操作。
系统的主要功能特点有:
1. 登录表单
该表单的功能是在系统被访问之前，要对进入系统的用户进行安全性检查防止非法用户进行系统破坏数据及威胁系统安全，避免不必要的损失，只有合法的用户在输入正确的密码后方可进入系统。
2. 以keyi 功能，用户可以操作，同时可以进行浏览和查询的操作 主界面
在该界面窗口中，共有文件、数据、编辑、关于等所有系统功能，用户可以操作菜单的方式快捷地使用系统。
3. 更改密码
使用本表单可以方便地修改用户的密码，以防密码泄露后对数据的安全性造成威胁。
4．信息处理
在本表单中操作人员进行员工档案信息录入及更改，其中包括员工的基本行信息，工作经历，家庭关系，奖罚记录和培训经历，要求这些员工档案信息可以进行新增，删除，修改操作，同时可以进行浏览和查询的操作。该模块是本系统的重点，用户可以通过该模块为单位建立一个比较完整的人事档案系统，同时可以比较方便地对档案进行查看。
（三）系统可行性分析
可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济能力的调查，判断它是否可行。
可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不可行、需要修改、追加投资、暂缓开发、分步实施等方案和结论，最后完成可行性分析。
可行性分析主要包括几个方面：
1. 新系统目标可行性：分析新系统的目标是否符合企业的现状和发展的需要。随着国内经济的发展，各行各业都在飞速的进步，在管理上的人才就越发的紧张，为了能更好的节省管理费用和管理人员的压力，企业都在力求为自己减压。
2. 技术可行性分析:技术可行性分析是根据新系统的目标来衡量是否具备所需要的技术，包括系统开发人员数量和水平，硬软件等的要求。随着国内软件开发的日益发展壮大，各种中小企事业单位已具备独立开发各种类型的软件的能力，能够满足不同行业的特别的需求。而这个系统尽管其在组织关系上存在着很大的复杂性，繁琐性，但是就整个系统的技术构成上来看，它还是属于一个数据库应用类的系统。其基本操作还是对存在数据库进行添加、删除、查找、编辑等。
3. 经济可行性分析:经济可行性分析主要是对开发新系统所投入的资金与系统投入使用后所带来的经济效益进行比较，确认其是否会给企业带来经济效益。对于整个系统而言，在系统未运行之前，初期投资比较大，花费相对而言比较多。各部门必须配置电脑、打印机、传真机及相关的网络设备，但是在整个系统投入运行之后，因为现在计算机已经普及了，相关的人员培训费可以减少很多。而同时又减少了数据的流通环节，不必要花费那么多的时间，也就是说最重要的是就是提高了效率，而又保证了各项数据的准确性，也避免了工作人员的流动造成的收据丢失等问题，适应了当前的发展形式。
4. 管理可行性分析:管理可行性分析主要是分析企业现行的管理体制是否具适合现代管理水平。随着时代的发展，人员素质己逐步提高，不论是对于电脑系统的基本操作还是对于系统的维护都有了一定的基础。同时还可以配置专业的电脑维护人员来维护电脑，不必担心电脑故障问题。
三、系统设计
（一）概述
通过系统分析来确认所开发的产品是否具有一定的市场。在根据现行的办公常用软件来使各个企业能在最短的时间内熟知此软件的具体功能和其能给自己公司所带来的经济效益是否与它的实际价值相符。
（二）数据流程与存储分析
人事管理系统是一个面向企业人事人员，为其提供服务的综合信息管理系统。人事人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。人员的个人信息、以及各种相关的亲属等情况开课情况都记录在人事系统里进行管理。
然而数据流程是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的使用、加工处理、传递、存储的整体情况。
数据流程是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的情况，但却无法表达各个处理的详细内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。数据流程及数据存储都是基于数据库来说的，一个好的数据库能很好地把这两方面给结合起来。其实存储就只是数据流程里的一个比较特别的过程，它包括数据的打开、保存、另存为、打印等一些快捷方式。
（三）系统功能结构分析
本系统分为以下几大模块：

图1 系统模块图
主界面模块：该模块提供管理系统的主界面，是主系统的唯一入口和出口，该界面提供用户选择并调用各子模块。
浏览模块：该模块提供全部人事档案的界面。
查询模块：该模块提供查询符合某一条件的人事档案的界面。
统计模块：该模块提供按某一条件进行统计的界面。
编辑模块：该模块提供对按档案进行更改、删除和新增的界面。
表单模块：该模块按一定格式将人事档案以表格式输出。
由下图可以看出本系统的功能及结构：
系统主界面

系统登陆界面
错误信息

系统管理

输入用户名及密码

验证用户名和密码
用户名不存在或密码不正确

数据库

登陆成功

系统功能界面

系统功能处理

图2 系统功能结构图
根据上面的简图我们可以得知人事管理系统基本功能如下的说明：
数据录入：提供两种信息录入方式：列表录入、模板录入,用以满足不同用户的需要。
数据的删除修改：对数据的最基本的操作,保证数据正确性和完整性,为其他操作打好基础。
数据的查询：用户可以直接快速地查阅和打印系统中的员工个人信息（如人员情况、工资情况、职称评定、保险福利和决策支持等信息）；也可以做出各种复杂的查询, 为了领导作出准确判断提供数据的支持。
账号的管理：实现了对用户分组管理，并且可对用户的数据访问权限、功能操作权限进行设置，大地保证了操作的安全性、严谨性及保密性。
日志的管理：使用人员把自己使用过程记录下来。
系统安全性：每个用户均有自己的权限，由系统管理员统一设定，同时针对同一权限，每个用户有自己的口令、密码，输入口令不正确，将无法进入相应的模块。同时文件的传递过程中可以对文件进行加密、签名等，不允许看的用户将无法阅读该文档。
（四）数据库设计
数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，保证数据信息的完整性和一直性。同时，一个合理的数据库结构有利于程序的实现。
如下几个表格：
表1 员工信息表
字段
字段名
类型
宽度
索引
排序
是否为空
1
职工编号
数值型
9

否
2
姓名
字符型
20

否
3
性别
字符型
4

否
4
民族
字符型
10

否
5
出生日期
日期型
10

否
6
身份证号码
字符型
18

否
7
毕业学校
字符型
20

否
8
学历
字符型
10

否
9
部门
字符型
10

否
10
职称
字符型
12

否
11
电话
字符型
12

否
12
Email
字符型
20

否
13
编辑时间
日期型
8

否
14
备注
备注型
100

否

表2 员工加班和出差信息表
字段
字段名
类型
宽度
索引
排序
是否为空
1
职工编号
数值型
9

Null
2
出差时间
数值型
4

Null
3
加班时间
数值型
4

Null
4
出差性质
字符型
10

Null
5
加班性质
字符型
10

Null
6
出差补贴
数值型
10

Null
7
加班补贴
数值型
10

Null
8
备注
备注型
100

Null

表3 员工请假信息表
字段
字段名
类型
宽度
索引
排序
是否为空
1
员工编号
数值型
9

Null
2
请假编号
字符型
8

Null
3
起始日期
日期型
8

Null
4
终止日期
日期型
8

Null
5
请假天数
数值型
2

Null
6
请假原因
字符型
50

Null
7
批准人
字符型
20

Null
8
备注
备注型
50

Null

表4 员工工资数据表
字段
字段名
类型
宽度
索引
排序
是否为空
1
工资编号
字符型
20

Null
2
员工编号
数值型
9

Null
3
年份
数值型
4

Null
4
月份
数值型
2

Null
5
基本工资
数值型
8

Null
6
加班补贴
数值型
8

Null
7
出差补贴
数值型
8

Null
8
交通补助
数值型
8

Null
9
生活补助
数值型
8

Null
10
总工资
数值型
8

Null
11
考勤口除
数值型
8

Null
12
保险扣除
数值型
8

Null
13
假期扣除
数值型
8

Null
14
税扣
数值型
8

Null
15
总扣除
数值型
8

Null
16
实际工资
数值型
8

Null
17
编辑时间
日期型
10

Null
18
备注
备注型
50

Null
（五）系统主界面设计
因为人事资料管理牵涉到个人隐私及公司密秘等多方面因素，所以一定要保密，并有专人管理，使用前身份确认就显得非常重要,故在运行前要进行管理权限确认。以防止他人无意或恶意篡改。
1. 系统主界面
主窗体是工程的启动对象，本作品中窗体名为：FrmMain
其界面如下图：

图3 主界面图
主要属性有：系统、基本信息、考勤管理、工作评价管理、工资管理和帮助。
2. 编辑员工基本信息
员工信息查询窗体，它主要是用于快速查找到所需的信息，以免毫无头绪地查询资料。它的界面如下图：

图4 员工信息查询窗体图
员工信息修改窗体主要是员工在部门、职称或学历等改变时，进行修改，让员工的信息始终处于最新状态，以方便企业管理人员的查阅。

图5 员工信息修改窗体图
员工信息添加窗体是在有新的员工加入或企业内子公司调配时，对这些人员在本单位建立新的基本信息表。

图6 员工信息添加窗体图
（六）程序源代码说明
1. 用户登陆窗体
Private Sub cmdOK_Click()
'验证用户填写的是否正确
If txtUserName.Text = "" Then
MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意"
txtUserName.SetFocus
Exit Sub
ElseIf txtPassword.Text = "" Then
MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意"
txtPassword.SetFocus
Exit Sub
End If
'设置登录变量，这是为IsExistUser函数而设置的
g_blogin = True
If IsExistuser(txtUserName.Text, txtPassword.Text) Then
'用户登录成功
Unload Me
Else
If IsExistuser(txtUserName.Text, "") Then
MsgBox "密码不正确！请重试……", vbOKOnly + vbInformation, "错误"
Else
MsgBox "无此用户！请先注册……", vbOKOnly + vbInformation, "错误"

End If
End If
frmMain.Show
End Sub
2. 员工基本信息窗体
Public Sub ShowData()
Dim cmd2 As Command
Dim rs2 As Recordset
'定义新command对象
Set cmd2 = New Command
'打开连接
If DataE.conLibrary.State = adStateClose Then
DataE.conLibrary.Open
End If
'设置ActiveConnection属性
cmd2.ActiveConnection = DataE.conLibrary
'设置CommandText属性
If flagSearch Then
cmd2.CommandText = sql
Else
cmd2.CommandText = "select * from ManInfo"
End If
Set rs2 = cmd2.Execute
If rs2.EOF = False Then
With msgList
.Rows = 1
Do While Not rs2.EOF
.Rows = .Rows + 1
For i = 1 To 12
Select Case rs2.Fields(i - 1).Type
Case adDBDate
.TextMatrix(.Rows - 1, i) = Format(rs2.Fields(i - 1) & "", "yyyy-mm-dd")
Case Else
.TextMatrix(.Rows - 1, i) = rs2.Fields(i - 1) & ""
End Select
Next i
rs2.MoveNext
Loop
End With
End If
rs2.Close
End Sub
3. 员工信息查询窗体
Private Sub cmdSearch_Click()
Dim sqltxt As String
Dim wheretxt As String
'初始化Sqlstr和Wherestr
sqltxt = "select * from ManInfo "
wheretxt = ""
'判断Combobox选项
If cmbItem.ListIndex = 0 Then
'无
Else
If txtKey.Text <> "" Then
Select Case cmbItem.ListIndex
Case 1
'姓名
wheretxt = wheretxt + "ygName='" & txtKey & "'"
Case 2
'部门
wheretxt = wheretxt + "ygDept='" & txtKey & "'"
Case 3
'职称
wheretxt = wheretxt + "ygBusi='" & txtKey & "'"
Case 4
'学历
wheretxt = wheretxt + "ygLevel='" & txtKey & "'"
End Select
End If
End If
'详细条件
'姓名关键字
If chkName.Enabled And chkName.Value = 1 And txtName.Text <> "" Then
If wherestr <> "" Then
If optNameAnd.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
wheretxt = wheretxt + "ygName like '%" & txtName & "%'"
End If
'部门关键字
If chkDept.Enabled And chkDept.Value = 1 And txtDept.Text <> "" Then
If wheretxt <> "" Then
If optDeptAnd.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
wheretxt = wheretxt + "ygDept like '%" & txtDept & "%'"
End If
'职称关键字
If chkBusi.Enabled And chkBusi.Value = 1 And txtBusi.Text <> "" Then
If wheretxt <> "" Then
If optBusiAnd.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
wheretxt = wheretxt + "ygBusi like '%" & txtBusi & "%'"
End If
'学历关键字
If chkLevel.Enabled And chkLevel.Value = 1 And txtLevel.Text <> "" Then
If wheretxt <> "" Then
If optLevelAnd.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
wheretxt = wheretxt + "ygLevel like '%" & txtLevel & "%'"
End If
'进入时间
If chkTimeKey.Enabled And chkTimeKey.Value = 1 Then
If optnKeyFore.Value Or optnKeyBack.Value Then
If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Then
MsgBox "请完整填写查询时间！", vbOKOnly + vbInformation, "查询"
Exit Sub
End If
If wheretxt <> "" Then
If optnTimeand.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
'之前
If optnKeyFore.Value Then
wheretxt = wheretxt + "ygDate4<'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'"
'之后
ElseIf optnKeyBack.Value Then
wheretxt = wheretxt + "ygDate4>'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'"
End If
ElseIf optnKeyBetween.Value Then
If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Or txtYearKeyBack.Text = "" Or txtMonKeyBack.Text = "" Then
MsgBox "请完整填写查询时间", vbOKOnly + vbInformation, "查询"
Exit Sub
End If
If wheretxt <> "" Then
If optnTimeand.Value Then
wheretxt = wheretxt + " and "
Else
wheretxt = wheretxt + " or "
End If
End If
'之间
wheretxt = wheretxt + "ygDate4 between '" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'and '" & txtYearKeyBack.Text + "-" + txtMonKeyBack.Text & "'"
End If
End If
'综合所有条件
If wheretxt <> "" Then
wheretxt = "where " + wheretxt
End If
flagSearch = True
sql = sqltxt + wheretxt
frmManrecord1.ShowTitle
frmManrecord1.ShowData
frmManrecord1.Show
frmManrecord1.ZOrder 0
End Sub
4. 员工信息添加保存窗体
Private Sub cmdSave_Click()
Dim intCount As Integer
'验证重要信息已经填写
If txtItem(0).Text = "" Then
MsgBox "请填写编号！", vbOKOnly + vbInformation, "注意"
txtItem(0).SetFocus
Exit Sub
ElseIf txtItem(1) = "" Then
MsgBox "请填写姓名！", vbOKOnly + vbInformation, "注意"
txtItem(1).SetFocus
End If
'判断内容是否为日期格式(生日)
If txtItem(6) <> "" Then
If Not IsDate(txtItem(6)) Then
MsgBox "应输入日期（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
txtItem(6).SetFocus
Exit Sub
End If
Else
txtItem(6) = #1/1/1900#
End If
'判断内容是