VB501 基于VB企业人事管理系统

近年来，随着科学技术的迅猛发展和管理水平的不断提高，计算机已经被广泛应用于日常管理之中，那么作为一个企业来说，人力资源的管理和利用是企业发展的根本保证，因此开发一套完整的人事管理系统已是大势所趋. 内容来自think58 [资料来源：http://THINK58.com]

管理信息系统（Management Information System，简称MIS）是一个由管理人员和计算机组成的用以进行信息的收集、传输、加工、存储、维护和使用的系统。它是一门综合了管理科学，系统理论，计算机科学的系统性边缘科学。
  管理信息系统的物理组成:
(1) 计算机硬件系统：包括主机、外部存储器、输入输出设备等。
(2) 计算机软件系统：包括系统软件和应用软件两大部分。
(3) 通信系统：包括线路等通信设施和与计算机网络、数据通信有关的软件等。
(4) 工作人员：包括系统分析员、程序设计员、维护人员、管理员、操作人员等。

内容来自think58

  （一）用户参与的原则
    （二）“先逻辑后物理”的原则
    （三）“自顶向下”的原则
    （四）工作成果描述（主要指文档）标准化的原则
    其具体开发步骤可分为以下四步：
    （一）系统规划
    （二）系统开发
          1、系统分析
             .系统初步调查
               .系统可行性研究
             .现行系统的详细调查
             .新系统逻辑方案的提出
          2、系统设计
             .系统总体结构设计
             .系统总体功能设计 think58 [资料来源：THINK58.com]
             .系统总体物理结构设计
             .系统详细设计
             .数据库设计
             .代码设计
             .输入输出设计
          3、系统实施
             .程序设计
             .系统测试
     （三）系统的运行及维护
     （四）系统评价 [资料来源：http://think58.com]

3.3 快速原型法简介
    快速原型法是80年代发展起来的，旨在缩短开发周期，提高开发效率和用户对系统的满意程度。其基本思想是在系统开发的初期，尽快构造出系统的原型，使用户能及早地运行这个系统原型，通过使用它、熟悉它，受到启发并取得经验，然后对系统的目标和功能提出 think58

[资料来源：www.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                              '判断用户名称是否为空 [资料来源：www.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好，好think58 [资料来源：THINK58.com]
            PassWord.Text = ""
            confirmPWD.Text = ""
            Exit Sub
        Else
            If Trim(PassWord.Text) <> Trim(confirmPWD.Text) Then  '判断两次密码是否相同
                MsgBox "两次输入的密码不一致，请重新输入密码！", vbOKOnly + vbExclamation, "警告"
                PassWord.Text = ""

内容来自think58 [资料来源：http://THINK58.com]

参考文献
[1] C.J.Date , 《Database system implementation》,机械工业出版社, 2000
[2] Hector Garcial-Molina , Jeffrey D.Ullman, Jennifer Widom,《An introduction to Database Systems(Seventh Edition), 机械工业出版社,2001
[3] 林陈雷, 郭安源, 葛晓东, 《教育信息化系统开发实例导航》 , 人民邮电出版社,2003
[4] 张立科,《数据库开发技术与工程实践》,人民邮电出版社,2004
[5] 张红军, 王虹 等 《Visual basic 6.0 中文版高级应用与开发指南》, 人民邮电出版社, 2002
[6] 伍俊良 主编 等 《VB课程设计与系统开发案例》清华大学出版社, 2002
[7] 姚巍，《Visual Basic数据库开发及工程实例》，人民邮电出版社
[8] 求是科技，《Visual Basic 6.0 数据库开发技术与工程实践》，人民邮电出版社，2004
[9] 刘瑞新，汪远征，《Visual Basic程序设计教程》，机械工业出版社，2001
[10] 刘萌，周学明，郭安源，《Visual Basic企业办公系统开发实例导航》，人民邮电出版社，2003
[11] 孟小峰，王珊，《数据库系统导论》，机械工业出版社，2000

[资料来源：THINK58.com]

  copyright think58 [资料来源：THINK58.com]