|
第三章、系统总体设计 一、系统功能描述 内容来自www.paper51.com
人才管理系统的基本功能是对企业、事业单位的组织机构和员工进行管理，本系统的主要功能如下： http://www.paper51.com 1. 技术人才信息管理 http://www.paper51.com l 添加技术人才信息，包括姓名、职工编号、性别、民族、出生日期等信息、 内容来自www.paper51.com l 修改技术人才信息 http://www.paper51.com
l 删除技术人才信息 copyright paper51.com l 查询技术人才信息 paper51.com 2. 管理人才信息管理 copyright paper51.com
l 添加管理人才信息，包括姓名、职工编号、性别、民族、出生日期等信息 copyright paper51.com l 修改管理人才信息 http://www.paper51.com l 删除管理人才信息 copyright paper51.com l 查询管理人才信息 内容来自www.paper51.com 3. 用户管理 paper51.com l 添加新用户 内容来自www.paper51.com l 修改用户密码 内容来自论文无忧网 www.paper51.com 4. 系统管理 内容来自论文无忧网 www.paper51.com l 数据信息备份 内容来自论文无忧网 www.paper51.com l 退出系统 http://www.paper51.com
二、数据流程分析 内容来自论文无忧网 www.paper51.com 本系统只是一个对人才信息的储存和管理，数据流程简单。此时的数据流程如图所示。 http://www.paper51.com
copyright paper51.com
数据流程图 paper51.com
三、系统功能模块设计 http://www.paper51.com 从功能描述的内容可以看到，本系统可以实现五个完整的功能。根据这些功能，设计出的系统功能模块如图2-1所示。 内容来自论文无忧网 www.paper51.com 每个功能模块都需要针对不同的表完成相同的数据库操作，即添加记录,修改记录,删除记录，及查询和显示记录。 http://www.paper51.com
http://www.paper51.com
图2-1系统功能模块设计图 内容来自www.paper51.com 第四章 系统详细设计 paper51.com
一、 启动程序设计 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com 程序代码如下： 内容来自www.paper51.com Private Sub Timer1_Timer() copyright paper51.com
If Label1.FontSize < 40 Then http://www.paper51.com Label1.FontSize = Label1.FontSize* 1.5 内容来自www.paper51.com Else copyright paper51.com frmLogin.Show 1 内容来自www.paper51.com Unload Me 内容来自www.paper51.com End If copyright paper51.com End Sub paper51.com 二、用户登录程序设计 内容来自论文无忧网 www.paper51.com 用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入用户登录程序时要求输入用户名和密码，如果用户密码正确程序继续执行。当密码错误输入的次数超过设定次数时，给出提示信息程序退出，这样就防止了非法用户对本程序的使用。事实上这是一个密码输入、密码保存和密码正确性的判断的问题。 内容来自论文无忧网 www.paper51.com <1>工作界面的设计 内容来自论文无忧网 www.paper51.com １.用户登录的工作界面要放在启动界面上，但是不能破坏启动界面的整体效果，为此设计用户登录的工作界面，如下图4-1所示。 http://www.paper51.com 图 4-1 用户登录窗体 内容来自论文无忧网 www.paper51.com 这介界面的背景是启动界面的一部分,调用用户登录后在这个图片的原位置显示登录界面,这样启动界面的完整性得以保证.由于这个用户登录界面上只有一个文本框,因此就不研究控件了。“请输入密码”这几个字是做在图上的 http://www.paper51.com
密码输入的程序设计 copyright paper51.com 密码输入的一般操作为：（1）输入密码，在输入密码时一般要隐藏密码 的真实字符；（2）核对密码的正确性。 copyright paper51.com 这里应注意，在密码输入法时应用其它字符代替密码字符，一般用“*”号。核对密码的正确性就是用预设密码和当前输入的密码进行比较，以判断密码输入的正确性，这里实际上是一个密码保存的问题。 内容来自论文无忧网 www.paper51.com 密码保存的方便做法是将密码放在程序里，作为程序的组成部分，即在程序中安排一个固定的字符串作为密码，作为密码输入的字符串和这个固定的字符串做比较。如果密码正确程序继续运行，否则退出程序。这种做法最大问题是密码不能更换，一旦密码泄露也就无密可保。 内容来自论文无忧网 www.paper51.com 将密码放在一个文件里，每次输入密码时从密码文件中读出密码，然后作密码输入是否正确的判断也是一个办法。使用文件保有存密码最大的好处是密码可以随时更换，如晨将密码加密后再存入文件，那么即使知道文件中数据是密码，也不会知道真的密码组成。这种办法的最大缺陷是，一但密码文件损坏或被删除，程序就不能使用了。 内容来自论文无忧网 www.paper51.com 程序代码如下： http://www.paper51.com
Option Explicit copyright paper51.com Public LoginSucceeded As Boolean copyright paper51.com Dim connConnection AsADODB.Connection paper51.com
Dim rsRecordSet As ADODB.Recordset 内容来自论文无忧网 www.paper51.com
'检查正确的密码 内容来自www.paper51.com Private Sub cmdOK_Click() 内容来自www.paper51.com
Dim strConnect As String 内容来自www.paper51.com
Dim strProvider As String copyright paper51.com Dim strDataSource As String copyright paper51.com Dim strDataBaseName AsString paper51.com strProvider ="Provider= Microsoft.Jet.OLEDB.3.51;" 内容来自论文无忧网 www.paper51.com strDataSource = App.Path 内容来自www.paper51.com
strDataBaseName = "\人才信息.mdb;" 内容来自www.paper51.com strDataSource = "DataSource=" & strDataSource & _ 内容来自www.paper51.com strDataBaseName paper51.com strConnect = strProvider& strDataSource copyright paper51.com
Set connConnection = NewADODB.Connection paper51.com
connConnection.CursorLocation = adUseClient 内容来自论文无忧网 www.paper51.com connConnection.OpenstrConnect http://www.paper51.com Set rsRecordSet = NewADODB.Recordset copyright paper51.com account = txtUserName.Text http://www.paper51.com
pt = txtPassword.Text paper51.com rsRecordSet.CursorType =adOpenStatic paper51.com
rsRecordSet.CursorLocation =adUseClient http://www.paper51.com rsRecordSet.LockType =adLockPessimistic copyright paper51.com rsRecordSet.Source ="select * from 密码表 where 用户名='" & txtUserName.Text &"'" 内容来自www.paper51.com rsRecordSet.ActiveConnection= connConnection 内容来自论文无忧网 www.paper51.com rsRecordSet.Open 内容来自论文无忧网 www.paper51.com If (rsRecordSet.RecordCount = 0) Then http://www.paper51.com MsgBox"无此用户名", , "登录" paper51.com Else 内容来自www.paper51.com
If(rsRecordSet.Fields("密码").Value= Trim(txtPassword.Text)) Then copyright paper51.com Form1.Show 内容来自www.paper51.com Me.Hide paper51.com Else 内容来自论文无忧网 www.paper51.com MsgBox "无效的密码，请重试!", , "登录" 内容来自论文无忧网 www.paper51.com txtPassword = "" copyright paper51.com
txtPassword.SetFocus copyright paper51.com numlogin = numlogin + 1 内容来自www.paper51.com
Ifnumlogin >= 3 Then 内容来自论文无忧网 www.paper51.com
MsgBox "错误输入已达3次，系统退出！", vbOKOnly + vbExclamation, "警告" copyright paper51.com
Unload Me http://www.paper51.com Exit Sub 内容来自www.paper51.com
EndIf paper51.com End If 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
connConnection.Close copyright paper51.com
Set connConnection = Nothing http://www.paper51.com End Sub paper51.com
Private Sub cmdCancel_Click() 内容来自论文无忧网 www.paper51.com '设置全局变量为 false http://www.paper51.com
'不提示失败的登录 copyright paper51.com LoginSucceeded = False paper51.com
Unload Me copyright paper51.com
End Sub http://www.paper51.com
<2> 系统管理界面的设计 http://www.paper51.com 用户管理界面的窗体如图４-2所示。 paper51.com
copyright paper51.com 图4-2 用户管理窗体 http://www.paper51.com 用户管理窗体设计的代码如下： 内容来自论文无忧网 www.paper51.com
Option Explicit copyright paper51.com Dim strque As String 内容来自论文无忧网 www.paper51.com Dim strcon As String http://www.paper51.com
Dim stropen As String paper51.com Dim strtext As String paper51.com Private connConnection AsADODB.Connection 内容来自论文无忧网 www.paper51.com Private rsRecordSet As ADODB.Recordset 内容来自www.paper51.com Private Sub Command3_Click() paper51.com If Text5.Text = ""Then 内容来自www.paper51.com
MsgBox "新密码为空！", vbOKOnly paper51.com ExitSub 内容来自www.paper51.com End If 内容来自www.paper51.com
stropen = "select *from 密码表" 内容来自www.paper51.com strtext = "select *from 密码表 where 用户名 ='" & account & "'" 内容来自www.paper51.com rsRecordSet.Source = strtext 内容来自论文无忧网 www.paper51.com rsRecordSet.Open 内容来自论文无忧网 www.paper51.com
If rsRecordSet.RecordCount =0 Then 内容来自www.paper51.com MsgBox "无此用户！", vbOKOnly 内容来自www.paper51.com ExitSub http://www.paper51.com
Else 内容来自论文无忧网 www.paper51.com IfText5.Text <> Text6.Text Then http://www.paper51.com
MsgBox "两次输入密码不同！", vbOKOnly http://www.paper51.com Else 内容来自www.paper51.com rsRecordSet.Fields(0) = account paper51.com rsRecordSet.Fields(1) = Text5.Text paper51.com rsRecordSet.Update paper51.com MsgBox "密码修改成功！", vbOKOnly copyright paper51.com rsRecordSet.Close 内容来自论文无忧网 www.paper51.com
EndIf 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
End Sub copyright paper51.com |