我的密码表单里面我想留一个终极用户,下次维护的时候好进系统,如果有人想删除就自动提示不可删除但不知道怎么判断,这是删除的代码
*——确认对话框
YN=MESSAGEBOX("确定删除",4+32,"人事管理系统")
*——如果确认
IF YN=6
    *——逻辑删除
    DELETE
    *——数据源为空
    thisform.grid1.RecordSource=null
    *——物理删除
    PACK
    *——指定数据源
    thisform.grid1.RecordSource="user"
    *——刷新表单
    THISFORM.REFRESH
ENDIF