论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A450人才管理系统论文

第三章、系统总体设计

一、系统功能描述

http://www.snowings.com

人才管理系统的基本功能是对企业、事业单位的组织机构和员工进行管理,本系统的主要功能如下:

http://www.snowings.com

1.     技术人才信息管理 paper51.com

l       添加技术人才信息,包括姓名、职工编号、性别、民族、出生日期等信息、

内容来自论文无忧网 www.snowings.com

l       修改技术人才信息

paper51.com

l       删除技术人才信息 paper51.com

l       查询技术人才信息

内容来自www.snowings.com

2.     管理人才信息管理

http://www.snowings.com

l       添加管理人才信息,包括姓名、职工编号、性别、民族、出生日期等信息 内容来自www.snowings.com

l       修改管理人才信息 内容来自论文无忧网 www.snowings.com

l       删除管理人才信息 内容来自论文无忧网 www.snowings.com

l       查询管理人才信息

内容来自论文无忧网 www.snowings.com

3.     用户管理 copyright paper51.com

l       添加新用户

内容来自论文无忧网 www.snowings.com

l       修改用户密码 copyright paper51.com

4.     系统管理 paper51.com

l       数据信息备份 内容来自www.snowings.com

l       退出系统

copyright paper51.com

二、数据流程分析 内容来自论文无忧网 www.snowings.com

本系统只是一个对人才信息的储存和管理,数据流程简单。此时的数据流程如图所示。 paper51.com

内容来自论文无忧网 www.snowings.com

数据流程图

内容来自论文无忧网 www.snowings.com

三、系统功能模块设计

内容来自论文无忧网 www.snowings.com

从功能描述的内容可以看到,本系统可以实现五个完整的功能。根据这些功能,设计出的系统功能模块如图2-1所示。

内容来自www.snowings.com

每个功能模块都需要针对不同的表完成相同的数据库操作,即添加记录,修改记录,删除记录,及查询和显示记录。

内容来自www.snowings.com

内容来自论文无忧网 www.snowings.com

图2-1系统功能模块设计图 http://www.snowings.com

第四章 系统详细设计 paper51.com

一、           启动程序设计

内容来自www.snowings.com

http://www.snowings.com

程序代码如下: copyright paper51.com

Private Sub Timer1_Timer() copyright paper51.com

If Label1.FontSize < 40 Then

内容来自www.snowings.com

Label1.FontSize = Label1.FontSize* 1.5

copyright paper51.com

Else 内容来自www.snowings.com

frmLogin.Show 1

内容来自www.snowings.com

Unload Me

http://www.snowings.com

End If

paper51.com

End Sub

copyright paper51.com

二、用户登录程序设计

copyright paper51.com

用户登录的作用是判断使用本程序的用户是否是合法用户。在程序进入用户登录程序时要求输入用户名和密码,如果用户密码正确程序继续执行。当密码错误输入的次数超过设定次数时,给出提示信息程序退出,这样就防止了非法用户对本程序的使用。事实上这是一个密码输入、密码保存和密码正确性的判断的问题。

内容来自www.snowings.com

<1>工作界面的设计

内容来自www.snowings.com

1.用户登录的工作界面要放在启动界面上,但是不能破坏启动界面的整体效果,为此设计用户登录的工作界面,如下图4-1所示。 内容来自论文无忧网 www.snowings.com

图 4-1 用户登录窗体 内容来自www.snowings.com

这介界面的背景是启动界面的一部分,调用用户登录后在这个图片的原位置显示登录界面,这样启动界面的完整性得以保证.由于这个用户登录界面上只有一个文本框,因此就不研究控件了。“请输入密码”这几个字是做在图上的

内容来自论文无忧网 www.snowings.com

   密码输入的程序设计

paper51.com

密码输入的一般操作为:(1)输入密码,在输入密码时一般要隐藏密码 的真实字符;(2)核对密码的正确性。

paper51.com

这里应注意,在密码输入法时应用其它字符代替密码字符,一般用“*”号。核对密码的正确性就是用预设密码和当前输入的密码进行比较,以判断密码输入的正确性,这里实际上是一个密码保存的问题。 http://www.snowings.com

密码保存的方便做法是将密码放在程序里,作为程序的组成部分,即在程序中安排一个固定的字符串作为密码,作为密码输入的字符串和这个固定的字符串做比较。如果密码正确程序继续运行,否则退出程序。这种做法最大问题是密码不能更换,一旦密码泄露也就无密可保。

copyright paper51.com

将密码放在一个文件里,每次输入密码时从密码文件中读出密码,然后作密码输入是否正确的判断也是一个办法。使用文件保有存密码最大的好处是密码可以随时更换,如晨将密码加密后再存入文件,那么即使知道文件中数据是密码,也不会知道真的密码组成。这种办法的最大缺陷是,一但密码文件损坏或被删除,程序就不能使用了。

copyright paper51.com

程序代码如下: paper51.com

Option Explicit 内容来自www.snowings.com

Public LoginSucceeded As Boolean copyright paper51.com

Dim connConnection AsADODB.Connection

copyright paper51.com

Dim rsRecordSet As ADODB.Recordset

http://www.snowings.com

'检查正确的密码 内容来自论文无忧网 www.snowings.com

Private Sub cmdOK_Click() http://www.snowings.com

Dim strConnect As String

内容来自论文无忧网 www.snowings.com

Dim strProvider As String

paper51.com

 Dim strDataSource As String

paper51.com

    Dim strDataBaseName AsString paper51.com

    strProvider ="Provider= Microsoft.Jet.OLEDB.3.51;"

http://www.snowings.com

    strDataSource = App.Path copyright paper51.com

    strDataBaseName = "\人才信息.mdb;"

内容来自论文无忧网 www.snowings.com

    strDataSource = "DataSource=" & strDataSource & _

内容来自论文无忧网 www.snowings.com

       strDataBaseName 内容来自www.snowings.com

    strConnect = strProvider& strDataSource 内容来自www.snowings.com

    Set connConnection = NewADODB.Connection copyright paper51.com

   connConnection.CursorLocation = adUseClient 内容来自论文无忧网 www.snowings.com

    connConnection.OpenstrConnect 内容来自www.snowings.com

    Set rsRecordSet = NewADODB.Recordset

内容来自www.snowings.com

    account = txtUserName.Text paper51.com

    pt = txtPassword.Text 内容来自论文无忧网 www.snowings.com

    rsRecordSet.CursorType =adOpenStatic paper51.com

    rsRecordSet.CursorLocation =adUseClient

paper51.com

    rsRecordSet.LockType =adLockPessimistic

paper51.com

    rsRecordSet.Source ="select * from 密码表 where 用户名='" & txtUserName.Text &"'"

http://www.snowings.com

    rsRecordSet.ActiveConnection= connConnection

内容来自www.snowings.com

    rsRecordSet.Open

copyright paper51.com

 If (rsRecordSet.RecordCount = 0) Then 内容来自论文无忧网 www.snowings.com

       MsgBox"无此用户名", , "登录" paper51.com

    Else

copyright paper51.com

     If(rsRecordSet.Fields("密码").Value= Trim(txtPassword.Text)) Then

copyright paper51.com

       Form1.Show

copyright paper51.com

       Me.Hide paper51.com

     Else

内容来自www.snowings.com

       MsgBox "无效的密码,请重试!", , "登录"

paper51.com

       txtPassword = ""

copyright paper51.com

       txtPassword.SetFocus copyright paper51.com

       numlogin = numlogin + 1 http://www.snowings.com

        Ifnumlogin >= 3 Then

内容来自www.snowings.com

           MsgBox "错误输入已达3次,系统退出!", vbOKOnly + vbExclamation, "警告"

copyright paper51.com

           Unload Me 内容来自www.snowings.com

           Exit Sub 内容来自论文无忧网 www.snowings.com

        EndIf

内容来自www.snowings.com

     End If copyright paper51.com

  End If

paper51.com

  connConnection.Close copyright paper51.com

  Set connConnection = Nothing

paper51.com

End Sub

copyright paper51.com

Private Sub cmdCancel_Click() http://www.snowings.com

    '设置全局变量为 false

内容来自论文无忧网 www.snowings.com

    '不提示失败的登录 paper51.com

    LoginSucceeded = False

http://www.snowings.com

    Unload Me

copyright paper51.com

End Sub

内容来自论文无忧网 www.snowings.com

<2> 系统管理界面的设计 http://www.snowings.com

用户管理界面的窗体如图4-2所示。 内容来自论文无忧网 www.snowings.com

copyright paper51.com

图4-2 用户管理窗体

内容来自www.snowings.com

用户管理窗体设计的代码如下: 内容来自www.snowings.com

Option Explicit 内容来自www.snowings.com

Dim strque As String

paper51.com

Dim strcon As String copyright paper51.com

Dim stropen As String

copyright paper51.com

Dim strtext As String paper51.com

Private connConnection AsADODB.Connection

内容来自论文无忧网 www.snowings.com

Private rsRecordSet As ADODB.Recordset

http://www.snowings.com

Private Sub Command3_Click()

内容来自www.snowings.com

    If Text5.Text = ""Then

copyright paper51.com

       MsgBox "新密码为空!", vbOKOnly

内容来自www.snowings.com

        ExitSub

copyright paper51.com

    End If http://www.snowings.com

    stropen = "select *from 密码表" http://www.snowings.com

    strtext = "select *from 密码表 where 用户名 ='" & account & "'"

http://www.snowings.com

    rsRecordSet.Source = strtext http://www.snowings.com

    rsRecordSet.Open

内容来自www.snowings.com

    If rsRecordSet.RecordCount =0 Then

内容来自论文无忧网 www.snowings.com

       MsgBox "无此用户!", vbOKOnly 内容来自论文无忧网 www.snowings.com

        ExitSub

copyright paper51.com

    Else paper51.com

        IfText5.Text <> Text6.Text Then paper51.com

           MsgBox "两次输入密码不同!", vbOKOnly

copyright paper51.com

        Else http://www.snowings.com

           rsRecordSet.Fields(0) = account copyright paper51.com

           rsRecordSet.Fields(1) = Text5.Text copyright paper51.com

           rsRecordSet.Update

paper51.com

           MsgBox "密码修改成功!", vbOKOnly 内容来自论文无忧网 www.snowings.com

           rsRecordSet.Close

内容来自论文无忧网 www.snowings.com

        EndIf 内容来自论文无忧网 www.snowings.com

    End If

paper51.com

End Sub 内容来自论文无忧网 www.snowings.com

------分隔线----------------------------
联系方式