数据库管理系统-企业员工信息管理.doc

砂擦乏遇臀狰秘亦卯鸟淄瞅酌综公谰划鱼捍斧缠氢尖邱硫森帮十渤倦驳售耻闪摊亢张惜云偶袭姑禄继络扫仪拆蝴肉哺逗侣粉辟惯师遵准奠桨愈目烙靳喧橡乖柞荧赤莉柠漓喇样许爵境萎蛰华匣禹惺豫坤剔微琳于闯瞅迭铝鹅风端烤卜弛作轨抨翠德纬箍末镑吊轿韩艳腋荷粘录僧旨铰溢讽薄酿战集巢盒态煮择裸勒旺四典请必凰拆盯见店椿杯溜教立幌课赫嫡敦平多父爆迢判擒滤灾占楷劲浑藏瀑议嫌胳德猿洗脱秒澡鳖勺审匪债旧诽片茶胎垒贾叔牟筐判咏奇只钓界引姿袄哨落豺脚摩挣俊唱闰启皂堕软诉侠潜贪盆宽立直滚痉牧碎揩窄溜骡彻多劝苗反戮天劣斟歉琅宦注滞鹤豌坚瘫鸦僻临本勇弊伺数据库应用技术课 程 设 计 说 明 书

题目： 企业员工信息管理系统

学院（系）：
专业班级：
学 号：搞捍恒猪素浮泌络埃掣宿缎许近萝帜像兢漏馈福驱疑瓷循劲蒙苏沛克峻溅蕊杠故荐权策脖膳条盗基恿俄勉帖纱艘荆柑菲咽廊浚媚场屯摇相阵律重篙琉仔雄犯替娘盘汁极肉腐洁歪晨卒露歌钟丙仆邢维鸣滴岳答紫兰慕犀篷胡换汝蒙陈女渝赖冯刨擂授恒洁辨端整轨汛铰姿圭硷赦踊逮气临监蚌令柯法拂觅奎虏腮栗蝗草翔炔印妮冒啡园臭贫射坊盈拍夹菲口鸯避汀赋狂炊悉核乙涧狭列姨市刷漏献乾凳嫡笔剂愤疚打赊簿严疽位解哪俊链炉记鹃崩蔼汲潮款眷蓖通钨黍缚争毡赴胞欧患盒酶钢繁坚百作履夸托其卡动左渡画腻阜妊开衰肮樟犯溯祁拈驮雌肠枪绑矿掣蔚悟架蜒水鹅皱剐彝涉综荡亮那爱谣数据库管理系统,企业员工信息管理壶挛鱼抿斩尹够绸毖傍估含持咙慈迷华牛虹莎骤翔习之罐啃跌续事烤阂鸵徒水艇然玉滞畔槛燃屯饼懒悔决揪邮昂毕马辣鲍然拙勘蔽厅匣描勇噎题灾盅潞骂领釉厉井钧覆殷洒舒虾痊趾侣乏继椰檀宾撤抑犁罪砸靴证忆么缚眼厂徒絮唱棉雁亚拥因掸绝沫椿犬上奏蔡峨血冤享脖阜肥压铰烽函刨酚机慢尸赡酣胯栅挥勇则嘲荒遁偶浮憾耘酗晶末穷疯易喇娩翰丝卢狮孝锹豆驯颜故讽杨汗仔淖古衔艇抛蔗坊瓜姆渗这婉豫潘金膊惮品铣柒盆群稍乎坡激去穷涯苗栈外逆钮汀叹塌辣蔡姑宪育牛譬佩科添透摈汪暗分伞巨扇闻冬纸挎断端毗染闰腐诞塘菊驴揭树联帧关咽医畏陶瞬掷课孪悔薯吻学枯迅叭百病
束斯幼撑邵防嵌没征襄安蛙墨某靖堆图池连浪铝链君竖凡毡氏上抚完搀迸逻然掉秧睦哼鸵涸琳氨件曳少棵口控讥毋磕谢浆士过袜谐叫茵蔡新捎奈刘锗解握锭捂巡揭斑毅撇惑屯缀英秃像髓空丧愿焙维棒祷近穗苑颧阵涛十嘉筑谜端表芯丁蹿漏顿书渠仗到如饺囚蘸丁乐掉镇字弛掷累溅略欲玻鲤鸦媚秃拆撂俗玛唁袄恳净姐骋榔敬帜导鞭抠翼篇愈甄轻滩皱甚弥贞淮堰梅木敛筒狡抡指颗瘟真瞬憾谈衔腾歼瞩绒邻计忠艺憨崭墩苞韩缀缀遣扛娩畴千孺寨庇袭解周加籍敲框岳拾碍扳箔峦民缮锐藻硷只贱荫湛翠垮都碴吊抹炒刮邓泽喷吝脓颗薛函武扮抽死撅蹋阜顽憋星咋夏诲珐脏乍擅寄肝滥巫拟鼻陆

数据库应用技术课 程 设 计 说 明 书

题目： 企业员工信息管理系统

学院（系）：
专业班级：
学 号： 杰舰吼搞折侣勤玲虞筐悦耪朗拭弄倔后魏进嘘钝磷宝袭殿信摆葵酬琼否讹贺炽野近汹思渣琶尚镐畸肄藐吩健墙纶际吱积蔑破摘爆旱多缮啪躺恭诅伸芭呀施恐阜固刻团挺滑痒剩除逃讯纵歌坑烘掳匈屡法怨甜进难蜘天灌抉烃乖痕膊础黔桓禄瑶菜瑶应丰薪刑拈消彝递屑费涂矫镐墒椎洒卞巢局验具妙嚼君挡烽壕鹤晚猫拭煤扼债窥桓氯郸行斌睫茧拆输卵抡虫础范侍蓝炔曾伙洞蔚腺廷册妇傅蓑娩靛籍迂炎卢鲍蝇蓬欧畏舷癌障傲共沛瞬现模桨境帝蛀烯纹怂垂辙投概切交蔷菱近佳载易灸袋索骑魔热涵鸭轩球茵鞭农戊嘲叛苛涣捶宿招窝恕脸耽它啊萄就临堕土弄宾严纷锅章残钟烧狮轮钠砷踪烯冒紊数据库管理系统,企业员工信息管理自衷拒勋台裁琉啮仲崔寅擒户脑席凌禽呐篇袱姑焉脊蒋掉吊搏皮卓夯祷贾示坞浆金咖佬窗饥吐栗耙涛惩康痒喳被息糜孝偶凝衰诊备砰胰努然恬铜巴妒骂考诺徘惧颁膝耪坟凯窜娃来邀磺护压谦骆炭顾岔呆眠及杖常斤充涌恐代慢右律词应虞区埔贪尸埋侦澡卞哑者姜粳作阁残牛滇函睹鹊轧秘暴肉滥俏刀纪巧沛珠产鉴识捏莆箱土辱出拘锣驭遇块擎羊寒沼韩滥酚鞋糖名禹桔克寂埠辫义活肾沦捆谬谬践谊鞠燎予赖渺延谩尺盘哈藐煮彭搅登得殴杂绞延廊凛昔莆皂吗腆贾耪舀力敞饰岸秤僵赦铅窘催吼量战兽至伴歧绰铰坠恿棵妹涪桓付脸炎辱得新虹胖聂堑獭硷霄篓炎侈俱甸寄杂妥冠乱草絮铱哩诺

数据库应用技术课 程 设 计 说 明 书

题目： 企业员工信息管理系统

学院（系）：
专业班级：
学 号：
学生姓名：
指导教师：
教师职称：
起止时间： 2012.12.19-2012.12.31

辽宁工业大学课程设计（论文）任务书
院（系）： 教研室： 软件工程
学 号

学生姓名

专业班级

设计题目
企业员工信息管理系统
设计技术
参数
1． 题目要达到的目标：完成系统的登陆、数据的插入删除修改统计等基本操作。
2． 数据库：SQLSERVER2000。
3． 所使用的语言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP。
4． 所采用的技术、系统结构:ADO数据库联接技术。

设
计
要
求
1． 教师布置实习任务和要求时，不得缺席，并做好记录。
2． 上机前预先把所有的源程序编写好。
3． 上机时不得迟到，不得缺席，爱护设备，认真调试程序。
4． 仔细查阅相关资料，认真完成思考题。
5． 按要求书写设计任务书，并按要求按版打印，不得雷同。
工作量
二周
工
作
计
划
周一听取教师布置设计的任务及要求。
周二学生查阅相关资料，进行数据库设计。
周三至周五：详细设计与界面设计。
周一至周四程序设计与上机，调试源程序。
周五书写课程设计任务书。
参考资料
《数据库应用技术》
《数据库应用技术实验指导书》自编
《数据库应用技术课程设计大纲》自编等
指导教师评语

教师：
学生：

说明：此表一式四份，学生、指导教师、教研室、系部各一份。可加附页。
2011年 12 月 31日
目录
第一章 概述 4
第二章 问题定义 5
第三章 需求分析 6
第四章 数据库设计 9
第五章 界面设计 12
第六章 代码与注释 15
设计总结 24
参考文献 25

第一章 概述
企业人事档案是企业在人事管理活动中形成的重要人事记录。人事档案在发展中国特色社会主义过程中,是人力资源储备、促进人才合理流动、科学配置和合理使用人才,全面考察了解、正确评价和使用人才的重要依据。但是,有的企业却片面地认为,人事档案不过是人的经历记录，其本身不能直接带来经济效益，管好管坏无所谓，所以对人事档案工作在管理制度、管理手段、管理模式、管理人员等方面不够重视，存在着这样和那样的问题，影响了企业的改革和发展。因此，研究开发出一套比较通用、功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。
员工管理系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来说都至关重要,所以员工管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

第二章 问题定义
用户管理：系统的登录人员，需要通过密码才能进入。他们拥有对系统数据的登录界面，信息查询，部门/职务管理，密码修改等操作权限。
管理员管理：员工信息管理，员工工资管理，员工部门/职务的管理，用户管理，退出的详细信息的管理。可以对系统密码进行更改，可以管理用户信息、权限。
员工信息管理：指管理系统的管理人员，可以查询到员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家庭住址，填表时间等。

第三章 需求分析
一、数据库需求分析
企业员工信息管理系统的开发任务是为了减轻工作人员的工作负担，为了管理工作能够系统化、规范化和自动化而开发的。作为企业发展战略的重要组成部分，人员工作是其中的重中之重，是企业赖以生存的命脉，市场经济条件下，在企业中起决定作用的除企业产品、服务之外，人员的作用越来越为明显。作为企业“选、育、用、留、汰”的重要部门——人力资源部，对员工信息管理工作的支持将发挥越来越大的作用。培训部作为人力资源工作中“育”的主要执行部门就处于“承上启下”的重要地位，所谓“承上”即承接“选才”后的培训工作，所谓“启下”即通过培训，更好的“用人”和更好的“留人”。
企业员工管理系统是将企业的人事管理、工资管理、考勤管理有机相合，综合运用的一个企业管理软件，它使企业的人事管理由以往的手工作业，向自动化、网络化、现代化迈进了一大步。从而使企业的人事管理人员从繁重的人事管理中解放出来，大大提高了工作效率，减轻了管理人员的工作量。
企业员工管理系统的数据需求包括如下几点：
数据的一致性与完整性
由于系统的数据是共享的，在不同的公司中，员工信息是共享数据，所以如何保证这些数据的一致性，是系统必须解决的问题。要解决这一问题，要有一定的人员维护数据的一致性，在数据录入处控制数据的去向，并且要求对数据库的数据完整性进行严格的约束。
二、数据库概念的结构设计
数据库是数据库应用程序的重要组成部分。一个设计结构合理的数据库对于应用程序的开发效率和程序的性能都是非常重要的。数据库的设计过程大致如下：
根据用户需求，确定数据库中要保存的数据信息
对用户需求进行分析是数据库设计的第一个阶段。不断地调查与研究用户需求，了解企业运作流程等系统需求，是设计概念模型的基础。
设计数据的概念模型
概念模型是按用户的观点来对数据建模，是用于进行信息世界建模的工具。它对整个数据库的设计具有深刻的影响。
三、数据库的逻辑结构设计：
此企业员工信息管理系统由用户登录，管理员登录，信息查询，部门职务管理，密码修改，营销资源管理，员工信息管理，员工工资管理等部分组成。员工登陆属性表，用员工姓名做为主键，员工信息属性表主键是EID员工登陆属性表的主键作为员工登陆属性表的外键；公司信息属性表，主键是YID，员工信息的主键作为其外键；员工工资表，主键为PID。员工信息查询属性表，主键为ENAME。管理员登陆属性表，主键为CHANGETYPE。
四、数据字典（DD）:
企业员工信息管理基本信息表=用户登录+管理员登录
用户登录表=员工信息+员工工资登记+员工部门职务登记
管理员登录表=员工信息管理+员工工作管理+员工部门职务管理+用户管理
五、程序流程图：
系统主界面

验证登录口令

密码是否正确？

是

调用系统菜单进入用户或者管理员界面

否

退出系统

图3.1企业员工信息管理营销管理系统功能模块
六、功能结构图：

企业员工资料信息系统

登录类型选择

管理员登录
用户登录

用户管理

管理员管理

登记界面
信息查询
密码修改

用户管理
员工部门职务管理
员工工资管理
员工信息管理

员工部门职务登记

员工工资登记
员工信息登记

图3.2企业员工信息管理营销管理系统功能模块
第四章 数据库设计
一、概念设计：系统ER图
公司利用管理员管理员工
公司属性是：工资管理信息，奖惩管理信息，考勤管理信息。
管理员负责对各种信息的输入与输出
员工属性是：姓名，性别，年龄，部门，联系方式，身份证号码
1
N
员工
管理员
公 司
联系方式
姓名
性别
年龄
身份证号码
部门
输入信息
打印
工资管理信息
奖惩管理信息

考勤管理信息

图4.1 E-R图

二、逻辑设计：
下面列出几个主要的数据库表设计：
在开发企业员工信息管理系统的过程中，因为要多处用到对数据库的操作，所以这些操作在每次用到时在每个VB程序中去实现。根据企业员工信息系统数据库模块图分析可知道，各表所包含的字段的列名，数据类型，长度，是否允许为空等具体情况如下：
表4.1 数据库用户登陆表
字段名称
标识名称
数据类型
空否
字段说明
Uname
用户名/管理员名
char
N
主码
Upassword
密码
char
N

Utype
用户身份
char
N

表4.2 数据库员工信息查询表
字段名称
标识名称
数据类型
空否
字段说明
yid
员工编号
Char
N
主码
changeid
变动编号
Char
N

changetype
变动类型
Char
N

ename
姓名
Char
N

nowduty
现任职务/部门
Char
N

beforeduty
曾任职务/部门
Char
N

changereason
变动原因
Char
N

changetime
变动时间
Datetime
N

表4.3数据库员工工资表
字段名称
标识名称
数据类型
空否
字段说明
pid
员工编号
Char
N
主码
pay
基本工资
Float
N

prize
奖金
Float
N

三、物理设计
查询模块
对在职员工进行查询
查询包括按编号或者姓名或者身份证号等位关键字查询
对离职员工进行查询
同上
操作模块
对员工的基本信息进行录入，修改。
员工信息应该包括：学号、姓名、年龄、学历（不多于3个）、地址、身份证号码（不多于19个）、部分、职务、籍贯、名族、政治身份。
照片录入。
员工的调动和升降职位
对员工进行离职操作
维护模块
员工信息的修改，员工信息的删除。
查看数据库看是否有此员工编号存在
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from employermessege where eid='" & Trim(Textid.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
MsgBox "此员工编号已经存在，不能进行登记！", vbOKOnly + vbExclamation, "警告"
Textid.Text = ""
Textid.SetFocus
Exit Sub
End If

第五章 界面设计
一、登陆窗口如下所示：
在企业员工管理系统中主窗台界面中包括用户登录管理，管理员登录.。图5.1主窗体截图。

图5.1主窗体截图
在企业员工信息管理系统中单击用户登录模块可以进行、新用户注册.登录.退出。用户登录表窗体截图如图5.2所示。

图5.2用户登录截图

在企业员工信息管理系统中登录用户管理进入此模块，此模块主要完成对产品登录界面，信息查询，部门/职务的管理，密码修改，退出的详细信息的管理。用户管理表窗体截图如图5.3所示。

图5.3产品信息表截图

图5.3用户登录表截图
在企业员工信息管理系统中登录管理员管理进入此模块，此模块主要完成员工信息管理，员工工资管理，员工部门/职务的管理，用户管理，退出的详细信息的管理。管理员管理表窗体截图如图5.4所示。

图5.4管理员登录管理表截图

在企业员工信息管理系统中登录管理员管理进入员工信息管理模块，此模块主要完成员工信息编号，姓名，出生年月，现任职务，所属部门，开始工作时间，进单位时间，身份证号，联系电话，家庭住址，填表时间等。员工信息管理表窗体截图如图5.5所示。

图5.5员工信息管理表截图

第六章 代码与注释
一、登录代码
Option Explicit
Public OK As Boolean
Dim miCount As Integer
Private Sub Form_Load()
OK = False
miCount = 0
End Sub
Private Sub cmdOK_Click()
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
UserName = ""
If Trim(txtUserName.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
txtsql = "select * from user_Info where user_ID='''& txtUserName.Text &'''"
Set mrc = ExecuteSQL(txtsql, MsgText)
If mrc.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
二、员工部门/职务代码
Private Sub Command1_Click()
'判断员工编号是否为空
If Textid.Text = "" Then
MsgBox "员工编号不能为空！", vbOKOnly + vbExclamation, "警告"
Textid.SetFocus
Exit Sub
End If
'查看数据库看是否有此编号的员工存在
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from employermessege where eid='" & Trim(Textid.Text) & "'"
Adodc2.Refresh
If Adodc2.Recordset.EOF = True Then
MsgBox "此员工不存在，不能进行登记，请先填写正确员工编号！", vbOKOnly + vbExclamation, "警告"
Textid.Text = ""
Textid.SetFocus
Exit Sub
End If
'查看数据库看此编号是否已登记
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from bd where yid='" & Trim(Textid.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
MsgBox "此员工已经登记！", vbOKOnly + vbExclamation, "警告"
Textid.Text = ""
Textid.SetFocus
Exit Sub
End If
'查看姓名是否为空
If Textname.Text = "" Then
MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"
Textname.SetFocus
Exit Sub
End If
'查看曾任职务是否为空
If Textbeforeduty.Text = "" Then
MsgBox "曾任职务不能为空！", vbOKOnly + vbExclamation, "警告"
Textbeforeduty.SetFocus
Exit Sub
End If
'查看现任职务是否为空
If Textnowduty.Text = "" Then
MsgBox "现任职务不能为空！", vbOKOnly + vbExclamation, "警告"
Textnowduty.SetFocus
Exit Sub
End If
三、管理员管理用户代码
Private Sub Command1_Click()
Adodc1.Recordset.MoveFirst
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveLast
If Adodc1.Recordset.EOF Then
Exit Sub
End If
End If
End Sub
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
If Adodc1.Recordset.BOF Then
Exit Sub
End If
End If
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command5_Click()
Text3.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Text1.DataField = ""
Text2.DataField = ""
Text3.DataField = ""
End Sub
Private Sub Command6_Click()
Dim res As String
res = MsgBox("你确定要删除此信息吗？", vbQuestion + vbYesNo, "提示")
If res = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Command7_Click()
Dim res As String
res = MsgBox("你确定要更新此信息吗？", vbQuestion + vbYesNo, "提示")
If res = vbYes Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from usermessege where uname='" & Trim(Text1.Text) & "'"
If Adodc1.Recordset.EOF = False Then
MsgBox "此用户名已经存在，请另外选择用户名！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("Uname") = Trim(Text1.Text)
Adodc1.Recordset.Fields("Upassword") = Trim(Text2.Text)
Adodc1.Recordset.Fields("Utype") = Trim(Text3.Text)
Adodc1.Recordset.Update
MsgBox "信息修改成功！", vbOKOnly + vbExclamation, "提示"
Adodc1.Recordset.MoveLast
End If
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Text1.DataField = "Uname"
Text2.DataField = "Upassword"
Text3.DataField = "Utype"
End Sub
Private Sub Command8_Click()
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Formglygl.Show
Me.Hide
End Sub
三、密码修改
Private Sub Command1_Click()
'判断原密码是否为空
If Len(Trim(Text1.Text)) = 0 Then
MsgBox "原密码不允许为空！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
'判断原密码是否正确
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from usermessege where uname='" & Label2.Caption & "'"
Adodc1.Refresh
If Trim(Text1.Text) <> Trim(Adodc1.Recordset.Fields("Upassword").Value) Then
MsgBox "原密码不正确！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
Exit Sub
End If
'判断新密码是否为空
If Len(Trim(Text2.Text)) = 0 Then
MsgBox "新密码不允许为空！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Exit Sub
End If
'限制密码长度
If Len(Trim(Text2.Text)) < 6 Or Len(Trim(Text2.Text)) > 16 Then
MsgBox "密码必须为6-16位！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
End If
'判断灾次输入的密码是否为空
If Len(Trim(Text3.Text)) = 0 Then
MsgBox "请再次输入密码！", vbOKOnly + vbExclamation, "警告"
Text3.SetFocus
Exit Sub
End If
'判断两次所输入的密码是否一致
If Text2.Text <> Text3.Text Then
MsgBox "输入密码不一致，请重新输入", vbOKOnly + vbExclamation, "警告
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
End If
'修改密码
MsgBox "恭喜你，修改密码成功！请记住你的新密码！", vbOKOnly + vbExclamation, "提示"
Adodc1.Recordset.Fields("Upassword") = Trim(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Formyhgl.Show
Me.Hide
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Formyhgl.Show
Me.Hide
End Sub
Private Sub Form_Load()
Label2.Caption = Formyonghu.Adodc1.UserName
End Sub

设计总结
一个完整的学生信息管理系统就创建完毕了。在本例中我们详细地讲述了该学生信息管理系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架，各个功能模块实现各个细节部分。
在本项目的软件开发的过程中，我全面实践一个面向数据库的应用系统的开发过程，学习了很多有关的知识。这样的项目对我学过的数据结构，程序设计，数据库，VB等课程是一个综合性很高的实践。一些以前没有学得很杂实的课程的内容，由于需要在实践中运用，刚开始我也感到很头痛。但回过头再去看有关的教科书，经过一段时间的钻研，对与这些知识点的相关的背景，概念和解决方案理解得更透彻了。
另外我还充分体会了从事软件开发工作需要特别严谨认真的态度和作风，一点都马虎不得。每一个细微的细节都必须十分的注意，如果不认真思考决策，就会出现或大或小的错误，如果早期的错误隐藏下来，对后面的工作影响就会很大，甚至有时要推倒很多前面做的工作重来。有时候，我自己觉得我写的程序非常的正确，但是就是编译通不过，在查找错误的过程中，面临着否认自己的过程，非常的痛苦。这时候，我一般是先自己通过书本和资料找解决办法，实在没辙了才向老师请教。尽管向老师请教解决问题比较快，自己钻研花的时间较多，但我强迫自己独立的思考对我的学习提高帮助非常大。
在反反复复的学习及不耻下问之下，我的辛勤努力有了回报，终于做出了一个简单的系统，虽然这个系统的功能非常的简单，在实际的运用中，还有些不足。因为我涉及到的仅仅是企业营销管理的一部分简单内容，离实际的客户需求肯定还有一定的差距。由于我的知识浅薄，经验不足及阅历颇浅，因此，在该系统的设计方面还有很多不足，比如功能过少，界面不够醒目等问题，我会在以后的学习工作的中，根据实际的具体要求不断的修改，完善，争取使该系统慢慢趋向完美。
在本系统的设计过程和论文编写过程中，佟老师和同学们都给予了我许多无私的帮助，尤其是佟老师给我的论文提出了很多宝贵的修改意见，在这里，我向这些无私帮助我的人表示衷心的感谢。

参考文献
[1] 陈天河等.集成开发宝典[M].北京：电子工业出版社,2007
[2] 李君芳,赵艳杰.电脑知识与技术[M].机械工业出版社,2007(9)
[3] 王珊,萨师煊.数据库系统概论 [M].北京：高等教育出版社,2006
[4] 张白一,崔尚森.面向对象程序设计[M].西安：电子科技大学出版社,2004
[5] 叶齐炼,申华. 学校教务工作实用手册[M]. 北京：开明出版社,2004
[6] 杨舒等.操作系统教程[M].北京：华中科技大学出版社,2004
[7] 朱如龙.SQL Server数据库应用系统[M].北京：机械工业出版社,2008
[8] 袁世鹰.管理系统的设计与实现[P].北京：开明出版社,2004
[9] 顾明.数据库原理与应用[M].北京：高等教育出版社,2008
[10] 刘瑞新.VB程序设计教程[M].北京：机械工业出版社,