VB员工信息管理系统

 摘要

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

[版权所有：http://think58.com]

第一章  引言 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

think58好，好think58

[资料来源：http://think58.com]

第三章 开发方法
3.1系统开发方法概述
    建立一个管理信息系统，是一项复杂的软件工程的实施。近30多年来，软件工程发展成为新科学，至今已经成为IT产业的重要支柱。一开始，人们往往使用手工作坊式的软件开发方法，靠个人的力量编写各种小型程序；但是随着计算机硬件技术的飞速发展，计算机软件在各个领域中的作用日益突出，那种多年来被人们沿用的手工作坊式的开发方法，已经在软件产品的质量、成本及开发时间等方面无法满足需求。
    [资料来源：THINK58.com]

3.2 结构化生命周期法简介
    结构化生命周期法是一种传统的管理信息系统开发方法，其基本思想是把整个系统开发过程分成若干个阶段，每个阶段进行若干活动，每项活动应用一系列标准、规范、方法和技术，完成一个或多个任务，形成符合给定规范的产品。
    采用结构化生命周期法开发管理信息系统时，应遵循的主要原则：
    （一）用户参与的原则
    （二）“先逻辑后物理”的原则
    （三）“自顶向下”的原则
    （四）工作成果描述（主要指文档）标准化的原则
    其具体开发步骤可分为以下四步：
    （一）系统规划
    （二）系统开发
          1、系统分析
             .系统初步调查
               .系统可行性研究
             .现行系统的详细调查

[资料来源：www.THINK58.com]

             .新系统逻辑方案的提出
          2、系统设计
             .系统总体结构设计
             .系统总体功能设计
             .系统总体物理结构设计
             .系统详细设计
             .数据库设计
             .代码设计
             .输入输出设计
          3、系统实施
             .程序设计
             .系统测试 copyright think58 [版权所有：http://think58.com]
     （三）系统的运行及维护
     （四）系统评价 think58

[来源：http://www.think58.com]

3.3 快速原型法简介
    快速原型法是80年代发展起来的，旨在缩短开发周期，提高开发效率和用户对系统的满意程度。其基本思想是在系统开发的初期，尽快构造出系统的原型，使用户能及早地运行这个系统原型，通过使用它、熟悉它，受到启发并取得经验，然后对系统的目标和功能提出更精确、具体的要求，研制人员据此逐渐修改和完善原型，使它满足用户的需求，最后完成系统的开发。该方法大大提高了系统开发效率，弥补了结构化生命周期法开发时间长的缺陷。
    通常采用原型法需以下四个阶段：
    （一）明确用户的基本要求
    （二）研制系统的原型
    （三）使用、评价系统原型
    （四）修改和完善原型 本文来自think58

3.4 本系统开发方法的选择
    基于以上开发方法的优劣和本系统的实际情况，本系统总体上采用结构化生命周期法进行系统规则、系统分析和系统设计，但在系统实施阶段采用原型法。
 
第四章 开发平台和工具
4.1开发平台的选择
考虑到本系统的性能要求，和现有的条件，我们选择了WINDOWS2000中文版作为开发、测试和运行的平台。因为WINDOWS操作系统是目前应用最广的操作系统，它以全新的图形界面，简单快捷的操作方式，支持多媒体功能等特点而成为软件发展的流行趋势，选用它作为开发平台，易于功能的扩展和软件升级。

[来源：http://think58.com]

4.2 开发工具的选择
针对目前世界上流行的大量软件和开发工具，经过认真分析其优缺点，结合计量器具管理系统的需要和目前的硬件环境，我们选用微软WINDOWS平台下的Visual B asic 6.0（简写为VB6.0）作为软件开发工具。
4.2.1 开发语言介绍
    现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作做作企业级开发工具的产品有：
Microsoft公司的Visual Basic
Microsoft公司的Visual C
Borland公司的Delphi
Powersoft公司的PowerBulider
Java等等
在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。
作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处： 本文来自think58 [来源：http://www.think58.com]
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。 think58.com [资料来源：http://think58.com]

第七章 系统的运行与维护
    管理信息系统在完成系统实施、投入正常运行之后，就进入了系统运行与维护阶段。
7.1 系统的配置
    1、硬件配置要求：
        CPU：PII200以上。      
    内存：32MB以上。
        硬盘：2.1GB以上（可用空间最好在160MB以上）。
        打印机：推荐EPSON  LQ-1600KII
   2、软件配置要求：
        WINDOWS95/98/2000中文版操作系统。 think58.com

[资料来源：http://www.THINK58.com]

7.2 系统的运行
    本系统运行：首先启动Windows2000/XP，将本系统拷贝到硬盘相应地目录下，运行“企业人事管理.EXE”即可。  
    本系统的主要菜单功能简介如下：
    （1）系统管理：添加用户,修改密码,退出系统等。
   （2）员工基本信息管理：添加员工信息,修改员工信息,查询员工信息,删除员工信息。
   （3）员工考勤信息管理：包括数据备份、数据恢复、密码更改、系统时钟等。
    (4)  员工调动信息管理：添加调动信息,修改调动信息.查询调动信息,删除调动信息.
下面简要介绍一下各种功能源码实现：
 系统主要功能
 
其确定按钮的源码如下:
Private Sub cmdOK_Click()
    Dim SQL As String
    Dim rs As ADODB.Recordset
    If Trim(UserName.Text) = "" Then                              '判断用户名称是否为空 copyright think58

[来源：http://think58.com]

        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 = ""

think58 [来源：http://www.think58.com]

            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 本文来自think58

[来源：http://www.think58.com]

            ElseIf Trim(PassWord.Text) = "" Then                  '判断密码是否为空
                MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
                PassWord.Text = ""
                confirmPWD = ""
                PassWord.SetFocus
            Else                                                 '添加用户

think58好，好think58 [资料来源：www.THINK58.com]

                SQL = "insert into UserInfo (UserID,UserPWD) values('" & UserName
                SQL = SQL & "','" & PassWord & "')"
                TransactSQL (SQL)
                MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加结果"
                                                                 '重新设置初始化为空
                UserName.Text = ""

copyright think58 [资料来源：http://www.THINK58.com]

                PassWord.Text = ""
                confirmPWD.Text = ""
                UserName.SetFocus
            End If
        End If
    End If
End Sub copyright think58 [来源：http://www.think58.com]

Private Sub Form_Load()
    UserName.Text = ""
    PassWord.Text = ""
    confirmPWD.Text = ""
End Sub
修改密码运行如下:
 
确定按钮的源码如下:
Private Sub cmdOK_Click()
    Dim SQL As String
    Dim rs As ADODB.Recordset
    If Trim(OldPWD.Text) = "" Then                            '判断是否输入旧密码
        MsgBox "请输入旧密码！", vbOKOnly + vbExclamation, "警告"
        OldPWD.SetFocus
        Exit Sub
    Else
        If Trim(NewPWD.Text) = "" Then                        '判断是否输入新密码 think58.com

            MsgBox "请输入新密码！", vbOKOnly + vbExclamation, "警告"
            NewPWD.SetFocus
            Exit Sub
        ElseIf Trim(NewPWD.Text) <> Trim(ConfirmPWD.Text) Then '判断两次密码是否相同
            MsgBox "两次密码不同！", vbOKOnly + vbExclamation, "警告"
            NewPWD.Text = ""
            ConfirmPWD.Text = ""
            NewPWD.SetFocus
        Else
                                                               '修改密码

[资料来源：http://think58.com]

            SQL = "update UserInfo set UserPWD = '" & NewPWD & "'where UserID='"
            SQL = SQL & gUserName & "'"
            TransactSQL (SQL)
            MsgBox "密码已经修改！", vbOKOnly + vbExclamation, "修改结果"
            Unload Me
        End If
    End If
End Sub
本文来自think58 [资料来源：www.THINK58.com]