公司员工档案管理系统毕业论文(编辑修改稿)

公司员工档案管理系统毕业论文(编辑修改稿)内容摘要：

统流程图 登陆表单（管理员或者普通用户身份登陆） Splash 表单 MDI 主窗口 （系统主窗口） 管理员工档案信息（员工基本信息管理，职业管理，部门管理和业绩 管理 管理系统用户（添加，删除） 对员工信息进行查找（按身份证号 或姓名） 返回查询信息 管理员登陆 重新登陆 13 图 系统流程图 2． 3 系统功能分析 系统开发的目标是实现公司 员工档案 管理的系统化、规范化和自动化，这是在 用户要求的基础上提出来的，功能要求如下： （一）员工信息管理：能对员工 信息进行添加、修改、删除。 （二）职员管理：对职员 进行添加、修改、删除操作。 （三） 部门 设置： （三）业 绩管理： （四）查询员工信息：根据身份证号或姓名对员工 信息进行精确 /模糊查询 （五）用户管理：定义使用本系统的用户名称及密码 第三章 系统具体实现 经过需求分析、功能模块设计之后要进入详细设计阶 段，本阶段将按系统的主要模块进行论述，重在阐述具体的某项功能的实现方法或运用到的相关技术。 3． 1 准备工作 1． 添加引用：单击工程菜单中的引用选项，添加 Microsoft ActiveX Data Objects Library 和 Microsoft Excel Object Library 两个引用。 2． 添加部件：单击工程菜单中的部件选项，添加 Microsoft ADO Data Control (OLEDB)、 Microsoft Common Dialog Control (SP3) 、 Microsoft FlexGrid Control 、 Microsoft Windows Common Controls (SP4)和Microsoft Windows Common Controls2 五项。 3． 2 模块设计 添加两个模块 module1 和 module2，在 module1 中添加如下代码 Option Explicit Global con As New Global rs As New Global classid As String, stuid As String Global LoginUser As String, LoginPower As String LoginUser 记录当前登陆用户的用户名 ,LoginPower 记录当前登陆用户的权限 Dim Userid As String, Userpwd As String, Username As String, Userpower As String Dim sqlstr As String 14 Sub Main() If = True Then MsgBox 注意程序已经运行，不能再次装载。 , vbOKOnly Exit Sub Else Provider=。 Data Source=amp。 +\ End If End Sub 在 module2 中添加代码 (MD5 算法 ) 详细代码见程序中 3． 3 用户界面实现 3． 3． 1 登陆界面 (frmlogin) 因为本系统是按 员工档案 管理的思想设计的，故而登陆部分主要完成密码校验、确定管理员等功能，对于密码本系统采用的是 MD5 算法。 这里附上本程序的登陆界面。 在代码窗口的“通用”部分，定义一个模块级的公共变量 loginno 用来记录当前密码输入错误的次数 Dim loginno As Integer 在 Form 的 Load 事件中，将 txtuser 设置为焦点，初始化 loginno。 Private Sub Form_Load() loginno = 0 End Sub 这里将“确定”和“取消”两个按钮作为一个按钮数组 cmdOkCancel：确定按钮的 index 属性为 0，取消按钮的 index 属性为 1。 利用 SQL 语句，在数据库中查询，如果查到相应的记录，则调用 Case 0 事件，15 用户的登陆获得通过，此时可以退出登陆窗口，并进入 MDI 主窗口，同时将用户类型和用户名分别传递到 MDI 主窗口和 frmmanage 中；如果没有相应的记录，则给出提示错误信息，同时将用户输入错误密码次数增加 1，如果错误超过 3次，则退出整个系统；若次数 还没有超过 3 次，则提示用户重新输入。 根据以上的设计， cmdOkCancel 的 Click 事件的代码如下： Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 „„ Userid = Trim() Userpwd = MD5(Trim()) sqlstr = select * from UserInfo where UserID=39。 amp。 Userid amp。 39。 sqlstr, con, 1, 1 If Not Then If rs(UserPWD) Userpwd Then 39。 密码错误时 MsgBox 您输入的密码不正确。 , vbQuestion = 请输入用户名和密码： loginno = loginno + 1 39。 当错误的密码次数达到 3次时，不能登陆，退出。 If loginno = 3 Then MsgBox 对不起，您不能使用该系统。 请与管理员联系。 , vbInformation Unload Me Exit Sub End If „„ Else LoginUser = Userid 39。 保存当前登陆用户名 LoginPower = (3) 39。 将当前登陆用户的权限保存到 LoginPower 中 16 Unload Me End If Else MsgBox 没有您输入的用户名。 , 32 „„ End If : Set rs = Nothing Case 1 ‘ 退出整个程序 Unload Me End Select End Sub 3． 3． 2 MDI 主窗口 (frmmain) 本系统采取多文档界面 (MultiDocument Interface)。 多文档界面是一种Windows 用户界面标准。 它有一个父窗口，在典型情况下，父窗口用来显示程序菜单以及包含子窗口。 在工程中添加一个 MDI 窗口，取名为“ ”，并为 MDI 窗体进 行菜单和代码的设计。 3． 3． 2． 1 菜单设计 MDI 主窗体是整个系统的容器，为了方便用户的使用，应设计相应的菜单和代码。 3． 3． 2． 2 窗体代码设计 1．在代码窗口的通用部分，声明一个 API 函数用于打开帮助文件和调用 Outlook发送邮件。 Private Declare Function ShellExecuteamp。 Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) 2．判断用户权限 如果登陆的为普通用户类型的用户，则用户不能使用“用户管理”这一功能，而对于管理员类型的用户，则没有此限制。 所以在 MDIForm 的 Load 事件中需要判断用户类型。 17 Private Sub MDIForm_Load() (2).Text = 当前操作员： amp。 LoginUser amp。 amp。 LoginPower amp。 If LoginPower = 普通用户 Then = False (5).Enabled = False End If End Sub 3． Form 的 QueryUnload 事件 当用户要退出 MDI 窗体时，需要在 QueryUnload 事件中询问用户是否真的要退出本系统；如果用户不要退出，则将 Cancel 置为 1，取消整个退出过程。 Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(确定要退出员工 档案管理系统吗。 是 /否 , vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End If End Sub QueryUnload 和 Unload 事件 当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnload 事件先于该 窗体的 Unload 事件发生， Unload 事件在 Terminate 事件之前发生。 当一个应用程序关闭时，可使用 QueryUnload 或 Unload 事件过程将 Cancel属性设置为 True 来阻止关闭过程。 但是， QueryUnload 事件是在任一个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。 在这两个事件中，均可将 Cancel 设置为任何非零的值来防止窗体被删除。 但 Unload 不能阻止其他事件，诸如从 Microsoft Windows 操作环境中退出等；而 QueryUnload 事件则可以阻止从 Windows 中的退出。 有介于此，通常来说都是在 QueryUnload 中询问用户是否要退出当前窗体。 4．“重新登陆”子菜单的代码 当单击了“重新登陆”或者按下了“ F2”键时，将会给出提示，如果用户在提示框中按下了“确定”按钮，则退出整个 MDI 主窗体，并显示登陆窗体。 Private Sub filemenu15_Click() If MsgBox(若重新登陆，所有窗体都将关闭。 是否重新登陆。 , vbYesNo + 18 vbQuestion, 重新登陆 ) = vbYes Then Unload Me End If End Sub 5．“帮助主题”子菜单的代码 调用 Windows API 函数，打开 帮助文件。 Private Sub filemenu21_Click() ShellExecute 0, open, amp。 \, , , 1 End Sub 6．“给我发邮件”子菜单的代码 如果用户单击了“给我发邮件”子菜单，则会调用 API 函数，调用 Outlook。 Private Sub filemenu22_Click() ShellExecute , open, mailto:, , , 1 End Sub 7．当用户单击查询员工 资料菜单项或者按下 F3 键时，将会出现“查找员工”窗体，供用户查找满足特定要求的员工 信息。 Private Sub filemenu45_Click() 39。 查找员工 1 End Sub 3． 3． 3 用户管理窗体（ frmmanage） 向项目中添加窗体，并命名为。 窗体的控件设计如图 所示 图 用户管理界面 如果登陆的用户类型是管理员，用户管理一项是可用的，当单击该子菜单时，19 将会出现用户管理窗口，管理员可以对系统用户进行添加和删除操作。 3． 3． 3． 1 窗体代码设计 1． 定义一个整型变量 DelNO 用来存储当前系统用户的数目，当 DelNO=1 时提示用户不能再删除用户。 在该窗体的通用部分写如下代码： Dim DelNO As Integer 2．窗体加载时，初始化 Listview 用以显示 系统用户列表，代码如下 Private Sub Form_Load() 39。 初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用户名 , / 3) Set。