基于VB企业人事管理系统的设计

第七章 系统的运行与维护

    管理信息系统在完成系统实施、投入正常运行之后，就进入了系统运行与维护阶段。

7.1 系统的配置

    1、硬件配置要求：

        CPU：PII200以上。      

    内存：32MB以上。

        硬盘：2.1GB以上（可用空间最好在160MB以上）。

        打印机：推荐EPSON  LQ-1600KII

   2、软件配置要求：

        WINDOWS95/98/2000中文版操作系统。

7.2 系统的运行

    本系统运行：首先启动Windows2000/XP，将本系统拷贝到硬盘相应地目录下，运行“企业人事管理.EXE”即可。  

    本系统的主要菜单功能简介如下：

    （1）系统管理：添加用户,修改密码,退出系统等。

   （2）员工基本信息管理：添加员工信息,修改员工信息,查询员工信息,删除员工信息。

   （3）员工考勤信息管理：包括数据备份、数据恢复、密码更改、系统时钟等。

    (4)  员工调动信息管理：添加调动信息,修改调动信息.查询调动信息,删除调动信息.

下面简要介绍一下各种功能源码实现：

 

l        系统主要功能

其确定按钮的源码如下:

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

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167