编程论坛 » VFP论坛 » 关于添加删除用户

zhaocqdx 发表于 2008-1-19 00:06

关于添加删除用户

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

hu9jj 发表于 2008-1-19 21:48

用一个特殊的标记表示不能被删除的用户，比如说编号为0的就不能被删除，大于0的才可以被删除。

查看完整版本: 关于添加删除用户