摘要

     本文以企业管理信息系统建设中的人事管理子系统的开发为背景，论述了管理信息系统的概念、结构及系统开发的基本原理和方法，全文共分为序言、管理信息系统综述、开发方法、开发平台和工具、系统规划和分析、系统实现、系统运行及维护、系统评价、程序调试与故障处理、开发总结等九章。本文首先阐述了Visual Basic 6.0的基本概念；然后详细说明了以数据库技术为技术背景的"人事管理管理系统"的基本功能及实现过程，最后重点介绍了软件的设计与实现详细阐述了系统分析、系统设计的技术及其应用。
【关键词】:管理信息系统、人事管理、系统开发 数据库 查询

目 录

第一章  引言 4
第二章   管理信息系统综述 5
2.1 概述 5
2.2 管理信息系统的发展 5
2.3 目前我国人事管理的现状 6
2.4 人事管理信息系统建设的好处 6
第三章 开发方法 8
3.1系统开发方法概述 8
3.2 结构化生命周期法简介 8
3.3 快速原型法简介 9
3.4 本系统开发方法的选择 10
第四章 开发平台和工具 11
4.1开发平台的选择 11
4.2 开发工具的选择 11
4.2.1 开发语言介绍 11
第五章 系统规划和分析 12
5.1 系统的可行性分析 12
5.2 系统的详细调查 12
5.3 系统逻辑模型的提出 13
第六章 系统设计 13
6.1 系统设计的依据 13
6.2 系统总体结构设计 13
6.3 系统的详细设计 13
第七章 系统的运行与维护 14
7.1 系统的配置 18
7.2 系统的运行 19
7.3 系统的维护 29
第八章 开发总结与对管理信息系统的展望 30
8.1  开发总结 31
8.2  对管理信息系统的展望 32

其确定按钮的源码如下:
Private Sub cmdOK_Click()
    Dim SQL As String
    Dim rs As ADODB.Recordset
    If Trim(UserName.Text) = "" Then                              '判断用户名称是否为空
        MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        UserName.SetFocus
    Else
        SQL = "select * from UserInfo where UserID='" & UserName & "'"
        Set rs = TransactSQL(SQL)
        If rs.EOF = False Then                                    '判断是否已经存在用户
            MsgBox "这个用户已经存在！请重新输入用户名称！", vbOKOnly + vbExclamation, "警告"
            UserName.SetFocus
            UserName.Text = ""
            PassWord.Text = ""
            confirmPWD.Text = ""
            Exit Sub
        Else
            If Trim(PassWord.Text) <> Trim(confirmPWD.Text) Then  '判断两次密码是否相同
                MsgBox "两次输入的密码不一致，请重新输入密码！", vbOKOnly + vbExclamation, "警告"
                PassWord.Text = ""
                confirmPWD.Text = ""
                PassWord.SetFocus
                Exit Sub
            ElseIf Trim(PassWord.Text) = "" Then                  '判断密码是否为空
                MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
                PassWord.Text = ""
                confirmPWD = ""
                PassWord.SetFocus
            Else                                                 '添加用户
                SQL = "insert into UserInfo (UserID,UserPWD) values('" & UserName
                SQL = SQL & "','" & PassWord & "')"
                TransactSQL (SQL)
                MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加结果"
                                                                 '重新设置初始化为空
                UserName.Text = ""
                PassWord.Text = ""
                confirmPWD.Text = ""
                UserName.SetFocus
            End If
        End If
    End If
End Sub

Private Sub Form_Load()
    UserName.Text = ""
    PassWord.Text = ""
    confirmPWD.Text = ""
End Sub

(需要该计算机毕业设计论文的,请联系我们在线客服QQ:599057179或联系我们客服电话:13723761910)