ＶＦＰ添加　删除代码按钮求助！！！

*!*    IF thisform.text*.value==""
*!*        = MESSAGEBOX('不能录入记录！',16,'职工信息数据录入')
*!*        RETURN
*!*     ENDIF
USE 职工表 IN 0 ALIAS 职工表

SELECT 职工表
LOCATE all for alltrim(职工号)=alltrim(Thisform.Text职工号.value) and alltrim(部门代码)=allt(Thisform.TEXT部门代码.value)
If found()
=messagebox("数据库中已有该职工号,现在仍保存这条信息,但请你打开修改表单仔细检查,删除重复的一条!",0," ")
endif

SELECT 部门配置表
LOCATE all for alltrim(部门代码)=allt(Thisform.TEXT部门代码.value)
If found()
=messagebox("部门代码不配置",0," ")
Endif

append blank
replace 职工号 WITH ALLTRIM(THISFORM.TEXT职工号.VALUE), 姓名 WITH ALLTRIM(THISFORM.TEXT姓名.VALUE),部门代码 WITH ALLTRIM(THISFORM.TEXT部门代码.VALUE),性别 WITH ALLTRIM(THISFORM.TEXT性别.VALUE),出生年月 WITH ALLTRIM(THISFORM.TEXT出生年月.VALUE),;
民族 WITH ALLTRIM(THISFORM.TEXT民族.VALUE),籍贯 WITH ALLTRIM(THISFORM.TEXT籍贯.VALUE),户口 WITH ALLTRIM(THISFORM.text户口.VALUE)

SELECT 工资表
append blank
replace 职工号 WITH ALLTRIM(THISFORM.TEXT职工号.VALUE), 姓名 WITH ALLTRIM(THISFORM.TEXT姓名.VALUE),部门代码 WITH ALLTRIM(THISFORM.TEXT部门代码.VALUE)这个是一个表单的添加按钮的代码，有错误，可是我不知道错哪了，还有这代码也不是完吧．．．