Click()
DimSQLAsString
DimrsAsADODB.Recordset
IfTrim(OldPWD.Text)=""Then'判断是否输入旧密码
MsgBox"请输入旧密码",vbOKOnly+vbExclamation,"警告"
OldPWD.SetFocus
ExitSub
Else
IfTrim(NewPWD.Text)=""Then'判断是否输入新密码
MsgBox"请输入新密码",vbOKOnly+vbExclamation,"警告"
NewPWD.SetFocus
ExitSub
ElseIfTrim(NewPWD.Text)<>Trim(confirmPWD.Text)Then
'判断两次密码是否相同
MsgBox"两次密码不同",vbOKOnly+vbExclamation,"警告"
NewPWD.Text=""
confirmPWD.Text=""
NewPWD.SetFocus
Else
'修改密码
SQL="updateUserInfosetUserPWD='"&NewPWD&"'whereUserID='"
MsgBox"密码已经修改",vbOKOnly+vbExclamation,"修改结果"
UnloadMe
EndIf
EndIf
EndSub
PrivateSubForm_Load()
OldPWD.Text=""
NewPWD.Text=""
confirmPWD.Text=""
EndSub
5、查询员工信息
图4-4
相关代码如下:
OptionExplicit
PrivatequeryAsString'保存SQL语句
PrivatefromdateAsString'起始时间
PrivatetodateAsString'结束时间
PrivateSubcmdCancel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubCombineDate()'获得起始和结束时间
fromdate=Me.FromYear.Text&"-"&Me.FromMonth.Text&"-1"
fromdate=Format(Me.FromYear.Text&"-"&Me.FromMonth.Text&"-1","yyyy-mm-dd")
todate=Me.ToYear.Text&"-"&Me.ToMonth.Text&"-1"
todate=Format(todate,"yyyy-mm-dd")
EndSub
PrivateSubsetSQL()'设置SQL语句
IfIDCheck.Value=vbCheckedThen
query="select*fromStuffInfowhereSID='"&Trim(Me.SID)&"'"
EndIf
IfNameCheck.Value=vbCheckedThen
query="select*fromStuffInfowhereSName='"&Trim(Me.SName)&"'"
EndIf
IfTimeCheck.Value=vbCheckedThen
query="select*fromStuffInfowhereSInTimebetween#"
query=query&fromdate&"#and#"&todate&"#"
EndIf
IfIDCheck.Value=vbCheckedAndNameCheck.Value=vbCheckedThen
query="select*fromStuffInfowhereSID='"&Trim(Me.SID)
query=query&"'andSName='"&Trim(Me.SName)&"'"
EndIf
IfNameCheck.Value=vbCheckedAndTimeCheck.Value=vbCheckedThen
query=query&"#and#"&todate&"#"
EndIf
EndSub
PrivateSubcmdOK_Click()
IfTrim(Me.SID)=""AndTrim(Me.SName)=""AndTimeCheck.Value<>vbCheckedThen
MsgBox"请选择查询的条件!",vbOKOnly+vbExclamation,"警告!"
Else
CallCombineDate
CallsetSQL
frmResult.createList(query)
frmResult.Show
UnloadMe
EndIf
EndSub
PrivateSubForm_Load()
DimiAsInteger
DimSQLAsString
DimrsAsNewADODB.Recordset
SQL="selectdistinctSInTimefromStuffInfo"
Setrs=TransactSQL(SQL)
IfNotrs.EOFThen
rs.MoveFirst
WhileNotrs.EOF
IfNotIsNull(rs.Fields(0))Then'设置年
Me.FromYear.AddItemLeft(rs(0),4)
Me.ToYear.AddItemLeft(rs(0),4)
EndIf
rs.MoveNext
Wend
rs.Close
Me.FromYear.ListIndex=0
Me.ToYear.ListIndex=0
EndIf
Fori=1To12'设置月
Me.FromMonth.AddItemi
Me.ToMonth.AddItemi
Nexti
Me.FromMonth.ListIndex=0
Me.ToMonth.ListIndex=0
EndSub
§4.3员工管理系统测试
在开发员工管理系统的时候,为了使系统能够稳定
运行,对系统进行了测试:
1.查询功能测试:为了保证系统的每一项功能都可能顺利执行,尤其是查询功能的执行,特进行各项查询方式的不同索引,确保各种查询方式均可查询到正确记录。
安全测试:为了保证系统的安全性,对密码进行严格测试,达到了不同权限,不同保密程度的需求。
2.报表打印测试:企业中报表是不可忽视的一部分,对本系统的报表打印的不同格式进行测试,证明本系统提供的打印类型合乎企业不同部门的不同需要。
3.设置上下班时间
图4-6
相关代码如下:
PrivateSubcmdCancel_Click()
UnloadMe
ExitSub
EndSub
PrivateSubcmdOK_Click()
DimSQLAsString
DimrsAsNewADODB.Recordset
SQL="deletefromTimeSetting"
TransactSQL(SQL)
IfIsDate(Me.BeginTime)=FalseOrMe.BeginTime=""Then
MsgBox"请正确地输入时间!",vbOKOnly+vbExclamation,"警告!"
Me.BeginTime.SetFocus
Else
IfIsDate(Me.EndTime)=FalseOrMe.EndTime=""Then
MsgBox"请正确地输入时间!",vbOKOnly+vbExclamation,"警告!"
Me.EndTime.SetFocus
Else
SQL="select*fromTimeSetting"
Setrs=TransactSQL(SQL)
rs.AddNew'设置时间
rs.Fields(0)=Me.BeginTime
rs.Fields(1)=Me.EndTime
rs.Update
rs.Close
MsgBox"时间已经设置!",vbOKOnly+vbExclamation,"设置结果!"
EndIf
EndIf
UnloadMe
EndSub
PrivateSubForm_Load()
DimSQLAsString
DimrsAsNewADODB.Recordset
SQL="select*fromTimeSetting"
Setrs=TransactSQL(SQL)
Ifrs.EOF=TrueThen
Me.BeginTime=""
Me.EndTime=""
Else
Me.BeginTime=rs(0)
Me.EndTime=rs(1)
EndIf
rs.Close
EndSub
§4.4系统的运行与维护
系统的运行:
1初始数据的输入
本系统的输入采用鼠标和键盘相结合的输入方法。
2、怎样进入系统
A、将本系统所在的文件夹拷贝到硬盘,然后执行其中的员工管理系统的程序文件即可,应注意要将全部文件的属性变以存档,消除只读属性。
B、在随后出现的登录界面上输入正确的用户名和密码即可
3、怎样使用本系统:
点击鼠标左键即可进行相应功能的选择。
系统的维护:
本系统是个较复杂的人-机系统,由于系统外部环境与内部因素的变化,不断影响系统的运行,同时需要系统不断地适应这些变化,不断地完善系统,以提高系统运行的效率与服务水平,这就需要自始至终进行系统的维护工作。
系统的维护主要包括四个方面:
(1)程序的维护:指的是修改部分或全部程序,这种维护往往是在条件发生变化或原系统的效率低的情况下进行的。
(2)数据文件的维护:指的是按照用户的要求对数据文件进行不定期的修改。
(3)代码的维护:随着系统的发展和变化,可能会出现旧代码不能适应新要求的问题,因此,有必要变更代码,予以维护。
(4)硬件的维护:指的是对系统所使用的设备进行维护。
本系统的日常维护由人事部门专人来负责,如果出现一些不能解决的问题,则由开发者来负责。
§4.5系统的转换方案:
本次开发的员工管理系统采用了并行转换方式,以保证平衡可靠的过度。即一方面使用本系统来进行工作,另一方面又继续沿用老的方式-手工方式,这种状况持续了半个月的时间,在这期间发现了一些程序中存在的漏洞和错误,用户也提出一些修改意见,经过程序的进一步完善后,正式投入了使用,中止了以前老的手工的操作方式。
第五章结束语
在做毕业设计以前,我对员工管理系统开发的理解还只是停留在理论知识的水平,没有实际经验,而通过这次毕业设计,在完成了员工管理系统的开发设计后,对管理系统与计算机系统的结合才有了真正的了解。
首先,在这次毕业设计中,初始的分析就是一个困难,主要是因为对员工管理系统的了解太少,以及对企业的需求所知甚少,但是通过阅读了许多有关管理学科的资料,再加上实际考查,才能够完成系统的分析和设计。
其次,软件开发工具的选择也是一大困难,由于对软件开发工具的不熟悉,
上一篇:
VB合同管理系统(论文只有数据结构表)(论文和程序)
下一篇:
Function GetIp(IP) 获得ip asp