|
图5-4 Access数据库 5.2 界面及代码 http://www.paper51.com 运行本系统程序，首先出现登录界面，输入正确的用户名和密码后进入主窗体。主窗体的菜单栏中有系统、员工信息、考勤管理、工作评价、工资管理5个菜单。进入窗体后可以选择自己所要进行的操作，界面如下： 内容来自www.paper51.com
内容来自www.paper51.com
图5-5主界面 内容来自www.paper51.com 这个主窗体的创建使用多文档界面，单击工具栏中的ADD MDI Form 按钮，产生这个窗体。然后再在菜单编辑器内编辑自己所需要的菜单。 内容来自论文无忧网 www.paper51.com 下面是程序中几个主要窗体及其部分代码： 内容来自论文无忧网 www.paper51.com
添加员工信息窗体如下所示： copyright paper51.com
http://www.paper51.com 图5-6员工信息 paper51.com 在窗体上放置多个文本框和下拉式列表框，用来输入员工个人基本信息 。从窗体上可以看到在这一个窗体内可以对信息进行添加、编辑、删除、移动，一个窗体解决了四种不同的操作，当选择修改和删除员工信息操作时出现的也是这个界面。其中“移动”的作用是按照编号的顺序，可以在此窗体中逐个查看员工信息。 内容来自www.paper51.com 在这个界面上还可以添加工作经验，查看信息列表，这是通过一个控件SSTAB（属性页控件）实现的，将各种文本录入控件放在属性页控件的各个页面上，组成“基本信息”、“工作经验”、“信息列表”。 paper51.com 用户输入完毕后，单击“cmdSave ”按钮将触发Click 事件，代码如下： http://www.paper51.com Private Sub CmdSave_Click() copyright paper51.com Dim StrSQL As String http://www.paper51.com StrSQL = "select 员工编号 from 员工档案 where 员工编号='"& Trim(TxtCode.Text) & "'" 内容来自论文无忧网 www.paper51.com
If Trim(TxtForID.Text) <> Empty Then 内容来自论文无忧网 www.paper51.com Call UpRsValue '//调用更新记录集的过程 paper51.com
On Error GoTo ErrSave 内容来自www.paper51.com ' If RsCheckCode.State =adStateClosed Then copyright paper51.com ' RsCheckCode.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic,adCmdText http://www.paper51.com ' End If 内容来自论文无忧网 www.paper51.com ' If RsCheckCode.RecordCount> 0 Then copyright paper51.com ' MsgBox "员工编号已存在", vbInformation + vbOKOnly, "验证错误" 内容来自www.paper51.com ' RsCheckCode.Close copyright paper51.com ' SSTRecord.Tab = 0 内容来自论文无忧网 www.paper51.com ' TxtCode.Text = "" http://www.paper51.com
' TxtCode.SetFocus copyright paper51.com
' Else paper51.com RsRecord.Update '//更新记录 http://www.paper51.com CallCmdMove_Click 内容来自论文无忧网 www.paper51.com MsgBox "数据已保存", , "保存成功" copyright paper51.com SSTRecord.Tab = 0 内容来自论文无忧网 www.paper51.com
CallCmdState2 内容来自论文无忧网 www.paper51.com CallTxtState1 http://www.paper51.com ' End If http://www.paper51.com Else paper51.com MsgBox "原身份不能为空",, "验证失败" http://www.paper51.com SSTRecord.Tab = 1 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com Exit Sub paper51.com ErrSave: 内容来自www.paper51.com Select Case Err.Number copyright paper51.com
Case-2147217887 内容来自www.paper51.com MsgBox "员工编号已存在," & vbCrLf & "或性别、婚姻状况、部门、职称有空选项！", vbInformation + vbOKOnly, "输入错误" 内容来自www.paper51.com
RsRecord.CancelUpdate http://www.paper51.com CaseElse paper51.com MsgBox "错误描述：" & Err.Description & vbCrLf& "错误代码：" & Err.Number, vbCritical +vbOKOnly, "非法操作" http://www.paper51.com Unload Me 内容来自论文无忧网 www.paper51.com End Select 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com 程序首先对是否输入内容进行判断，然后进行格式判断，判断是否有重复记录是很重要的，否则数据库将发生错误，最后根据状态来显示相应的信息，如果添加成功，将提示添加成功。 copyright paper51.com 信息的查询通过查询窗体来实现，考勤信息的查询窗体： 内容来自www.paper51.com
copyright paper51.com |