保存时，检测全称禁止重复和非录入人不能修改

平台没有GetRoleId()这个命令函数，估计王三平老师用的这个命令函数是他自己自定义的。

实现思路：

1、首先要把录入人这个数据写进表中。

    平台取当前用户的代码：GetParameter("Current User Nickname", dbText, Null)

    录入的数据保存代码中写：rst![录入人] = GetParameter("Current User Nickname", dbText, Null)

2、进入编辑的时候对比一下进入的人是否是录入的人，如果不是直接就把保存按钮给禁用了。

    把进入编辑窗体的代码做修改：

    平台自动生成代码：

    DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
                   DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
                   OpenArgs:=Me.sfrList![表ID]

    修改的代码：

    DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
                   DataMode:=IIf(Me.btnEdit.Enabled, iif(Me.sfrList![录入人]=GetParameter("Current User Nickname", dbText, Null),acFormEdit,acFormReadOnly), acFormReadOnly), _
                   OpenArgs:=Me.sfrList![表ID]