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

员工档案信息录入功能如下图：图 4-4 员工档案信息录入功能界面图通过以上相关技术的引用，员工基本信息录入功能编写很快就可以完成了。

该窗体设计包括 13 个文本框控件、5 个组合框控件、2 个按钮控件。文本框 控件和组合框控件用来输入员工基本信息。

其中的记录个人情况等的文本框对应 的字段是备注型，所以将该文本框的 Multiline 属性设置为 True。开该属性的 设置可以使文本框多行显示，Scrollbars 的值设定为 2，该值的设定可以使组合 框的有上下的滚动下拉条。其它的几个备注型的文本框属性值设定一样。其中组 合框的值不用用户输入，只需用户选择，选择值的设定可以通过设定组合框的 list 属性值来完成，比如设置性别对应的组合框的 list 值为：男，女。按钮控26西北工业大学网络教育学院毕业论文件用来触发它们相应的事件的发生。

其中记载按钮的 click 事件：当单击该按钮时，首先检查文本框输入的是 否为空，接着连接，建立记录集，并利用记录集打开查询，最后对该查询 记录集增加一条记录，语句：adoPrimaryRS.AddNew。并设置增加的记录的相应 字段值为文本框和组合框的输入值，记录集更新记录。语句：

adoPrimaryRS.Update。更新语句是很重要的，如果没有更新语句，最后 中的记录不能得到修改和添加。这样就完成了对员工基本信息表的添加记录。退 出按钮的 click 事件是关闭该窗体，语句是：unload me。

该窗体的源代码具体如下: Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Command1_Click() If Text1.Text = ""

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

Text1.SetFocus Exit Sub End If If Text2.Text = ""

Then MsgBox "姓名不能为空！", vbOKOnly + vbExclamation, "警告"

Text2.SetFocus Exit Sub End If If Combo1.Text = ""

Then MsgBox "性别不能为空！", vbOKOnly + vbExclamation, "警告"

Combo1.SetFocus Exit Sub27西北工业大学网络教育学院毕业论文End If If Combo2.Text = ""

Then MsgBox "部门不能为空！", vbOKOnly + vbExclamation, "警告"

Combo2.SetFocus Exit Sub End If If Text3.Text = ""

Then MsgBox "民族不能为空！", vbOKOnly + vbExclamation, "警告"

Text3.SetFocus Exit Sub End If If Text4.Text = ""

Then MsgBox "出生年月不能为空！", vbOKOnly + vbExclamation, "警告"

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