企业新进职员都要为其建立人事档案，该模块的功能就是添加新职员信息。操作很简单，按需要输入完数据后，单击“确定”按钮即可，同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计，以防用户误操作。如：将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”，使用户只能输入四位数字，输入其它字符无效。同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。单击“确定”后，如果没有输入“职员号”或输入的“职员号”已存在，系统都会弹出提示信息，以便用户改正。
在“确定”按钮的“Click”事件中添加代码如下：
* 检查“职员号”是否为空
if empty(alltrim(thisform.txtID.value))
messagebox("职员号不能为空",48,"错误")
thisform.txtID.setfocus
else
    * 获取各输入值
inID=alltrim(thisform.txtID.value)
inName=alltrim(thisform.txtName.value)
inSex=alltrim(thisform.txtSex.value)
inBirth=alltrim(thisform.txtBirth.value)
inLearn=alltrim(thisform.txtLearn.value)
inPolitics=alltrim(thisform.txtPolitics.value)
inPhone=alltrim(thisform.txtPhone.value)
inAddress=alltrim(thisform.txtAddress.value)
inDepartment=alltrim(thisform.txtDepartment.value)
inFunction=alltrim(thisform.txtFunction.value)
inDate=alltrim(thisform.txtDate.value)
inMemo=alltrim(thisform.edtMemo.value)
* 检查输入的“职员号”是否已存在
set order to 职员号
seek inID
if !found()
insert into 职员信息表 value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo)
    messagebox("添加成功！",48,"信息")
    * 添加完毕后清空各文本框
    thisform.txtID.value=''
    thisform.txtName.value=''
    thisform.txtSex.value=''
    thisform.txtBirth.value=''
    thisform.txtLearn.value=''
    thisform.txtPolitics.value=''
    thisform.txtPhone.value=''
    thisform.txtAddress.value=''
    thisform.txtDepartment.value=''
    thisform.txtFunction.value=''
    thisform.txtDate.value=''
    thisform.edtMemo.value=''
else
    messagebox("此职员号已存在，请另输一个",48,"错误")
    thisform.txtID.value=''
    thisform.txtID.setfocus
endif
endif
在“取消”按钮的“Click”事件中添加代码如下：
* 清空各文本框
thisform.txtID.value=''
thisform.txtName.value=''
thisform.txtSex.value=''
thisform.txtBirth.value=''
thisform.txtLearn.value=''
thisform.txtPolitics.value=''
thisform.txtPhone.value=''
thisform.txtAddress.value=''
thisform.txtDepartment.value=''
thisform.txtFunction.value=''
thisform.txtDate.value=''
thisform.edtMemo.value=''
thisform.txtID.setfocus
在“退出”按钮的“Click”事件中添加代码如下：
thisform.release
do form 主界面

“修改记录”模块
 
职员信息的改变，如：部门的调动、职位的升降、搬家、换了电话，或者发现输入了错误的信息，就可以进入该模块进行修改。你可以单击“导航条”逐条定位查找，如果知道要修改职员的职员号，可在最下面的文本框里直接输入该职员号，单击“查找”，如果找到，系统会定位到该记录，如果没有找到，系统会给出提示信息。该模块也做了与“增加记录”模块相近的限制性设计。
在该表单的数据环境（Data Environment）中添加“职员信息表”，将各文本框的ControlSource属性设置为在“职员信息表”中与之相对应的字段，这样便完成了与“职员信息表”的绑定。