工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(13)

其它按钮还有修改按钮，添加按钮，删除按钮，查找按钮。分别实现信息表中的 数据的修改更新，添加信息，删除当前记录 ，实现简单的查找定位。

下面简单介绍查找定位按钮的 click 事件， 其它按钮的事件源代码可以参考 附件和程序。

事件源代码：34西北工业大学网络教育学院毕业论文a = Text14.Text adoPrimaryRS.MoveFirst Do While (adoPrimaryRS.EOF = False) If adoPrimaryRS.Fields("员工编号") <>

a Then adoPrimaryRS.MoveNext Else Text1.Text = adoPrimaryRS.Fields("员工编号") Text2.Text = adoPrimaryRS.Fields("姓名") ?? Exit Sub End If Loop If adoPrimaryRS.EOF Then MsgBox "员工基本信息表中没有该记录！", vbOKOnly + vbExclamation, "

提示！"

End If 通过输入员工编号，源代码功能原理分析：首先利用循环语句 Do While (adoPrimaryRS.EOF = False)?loop 来判断员工记录集是否越下标界限。当未 越界的时候， 一直循环。

接着利用语句 If adoPrimaryRS.Fields("员工编号") <>

a Then adoPrimaryRS.MoveNext Else?显示记录?endif 来判断记录集是否下移，当当前记录集的员工字段 编号不等于输入的员工编号值时，记录集就下移。这样当最后下标越界的时候， 说明没有找到该记录，如果存在 adoPrimaryRS.Fields("员工编号") =a 则文本 框显示记录。4.5 员工业务界面设计该功能与上图功能十分相似，使得管理都觉似曾相识，这样就给初学者减 轻的心里的负担，从而很快地熟练该人事信息管理软件的使用。

本功能采用与人事档案相同对象编程技术，固源码得到了重用，这是软件工 程所提供的源码重用过程，这样不仅可以缩短开发周期及减少开发费用。从更早 的将人事信息管理系统投入到实际的应用中。如下图：35西北工业大学网络教育学院毕业论文图 4-6 早期人事信息管理系统图窗体的设计包括 2 个文本框和 1 个组合框， 其中 1 个文本框对应的字段由于 是备注型， 所以文本 框的属 性值设定 为：

Multiline 属性设 置为 True。

， Scrollbars 的值设定为 2。

按钮的 click 事件和员工基本信息输入的界面按钮类似，不同是该按钮触发的 事件连接的表是员工业务档案表，而上面是员工基本信息表而已。

通过该窗体的操作，系统可以完成对员工的档案信息的录入。录入后档案 的信息的维护，包括信息的修改，删除，等操作，可以通过档案信息维护窗体来 完成。该窗体的设计过程这里不再介绍。

具体代码如下: Dim WithEvents adoPrimaryRS As Recordset Private Sub Command1_Click() If Text1.Text = ""

Then MsgBox "员工编号不能为空！", vbOKOnly + vbExclamation, "警 告"

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-13.html