在窗体上放置多个文本框和下拉式列表框，用来输入员工个人基本信息 。从窗体上可以看到在这一个窗体内可以对信息进行添加、编辑、删除、移动，一个窗体解决了四种不同的操作，当选择修改和删除员工信息操作时出现的也是这个界面。其中“移动”的作用是按照编号的顺序，可以在此窗体中逐个查看员工信息。

在这个界面上还可以添加工作经验，查看信息列表，这是通过一个控件SSTAB（属性页控件）实现的，将各种文本录入控件放在属性页控件的各个页面上，组成“基本信息”、“工作经验”、“信息列表”。

用户输入完毕后，单击“cmdSave ” 按钮将触发Click 事件，代码如下：

Private Sub CmdSave_Click()

Dim StrSQL As String

StrSQL = "select 员工编号 from 员工档案 where 员工编号='" & Trim(TxtCode.Text) & "'"

If Trim(TxtForID.Text) <> Empty Then

    Call UpRsValue          '//调用更新记录集的过程

On Error GoTo ErrSave

'    If RsCheckCode.State = adStateClosed Then

'        RsCheckCode.Open StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText

'    End If

'    If RsCheckCode.RecordCount > 0 Then

'        MsgBox "员工编号已存在", vbInformation + vbOKOnly, "验证错误"

'        RsCheckCode.Close

'        SSTRecord.Tab = 0

'        TxtCode.Text = ""

'        TxtCode.SetFocus

'    Else

        RsRecord.Update         '//更新记录

        Call CmdMove_Click

        MsgBox "数据已保存", , "保存成功"

        SSTRecord.Tab = 0

        Call CmdState2

        Call TxtState1

'    End If