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

Then adoPrimaryRS.Fields("奖惩情况") = "无"

Else adoPrimaryRS.Fields("奖惩情况") = Text12.Text End If If Text13.Text = ""

Then adoPrimaryRS.Fields("个人简历") = "无"

Else adoPrimaryRS.Fields("个人简历") = Text13.Text End If adoPrimaryRS.Update MsgBox "

记 载 成 功 ！ ", vbOKOnly + vbExclamation, "提示"

End If Text1.Text = ""32西北工业大学网络教育学院毕业论文Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

Text13.Text = ""

Combo1.Text = ""

Combo2.Text = ""

Combo3.Text = ""

Combo4.Text = ""

Combo5.Text = ""

End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2 End Sub 通过该窗体的操作，系统可以完成对员工的基本信息的录入。录入后员工的33西北工业大学网络教育学院毕业论文基本信息的维护，包括信息的修改，删除，浏览，简单的查找等操作，可以通过 员工基本信息维护窗体来完成。4.4 员工基本信息维护窗体的设计通过上面的员工基本信息输入窗体可以得知，员工基本信息的输入窗体是 不具备数据的维护功能的， 员工的基本信息的维护功能是通过另外设计的窗体完 成的。图 4-5 员工基本信息界面图该窗体包括的控件有文本框和组合框，按钮等控件，文本框和组合框可以显 示中员工基本信息表的记录，默认的记录定位为第一条记录，用户可以通 过按钮的导航，浏览中其它记录。第一条，上一条，下一条，最后条的按 钮的 click 事件分别是将记录集进行移动，实现文本框，组合框的不同的显示。

导航按钮的事件源代码主要分别是：adoPrimaryRS.MoveFirst（移到第一条） ， adoPrimaryRS.MovePrevious（移到上一条） ，adoPrimaryRS.MoveNext（移到下 一条） ，adoPrimaryRS.MoveLast（移到最末一条） 。

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