SELECT * from 工序 where 工序大类id=工序大类.id into cursor curExist
IF RECCOUNT()>0 =MESSAGEBOX('该工序大类已经包含工序记录,删除这些工序记录之前,不能删除。',0,'提示') RETURN
ENDIF
BEGIN TRANSACTION
SELECT 工序大类
DELETE
IF TABLEUPDATE(0,.t.)=.f. ROLLBACK =MESSAGEBOX('其他用户正在锁定工序大类表的当前记录,稍候重试。',0,'提示') RETURN
ENDIF
END TRANSACTION
thisform.tmrDelLock.Enabled=.t.
thisform.Refresh