动态列表排序问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态列表排序问题

共有7463人关注过本帖树形打印复制链接主题：动态列表排序问题

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2022/4/14 14:25:00 [显示全部帖子]

一看就是用的论坛里面我的那个改的，其实用账号密码就好了，没必要加上部门、姓名，账号必须唯一，才能通过账号的找对应行的密码，账号不唯一，就需要在通过部门或姓名去找，注册的时候或添加用户的时候，就必须判断账号不能重复，比如用手机号或是身份证号码来做账号

If mm.value= dr("密码") Then
    If dr("用户状态") = "停用" Then
        MessageBox.Show ("您的账号还未启用或已停用,请与管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return
    End If
    Forms("主窗口").Open()
    MainTable = Tables("主界面") '打开主界面表
    e.Form.close
End If

[此贴子已经被作者于2022/4/14 14:35:23编辑过]

cd_tdh

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2022/4/14 14:50:00 [显示全部帖子]

If bm.value= dr("部门") And xm.value= dr("姓名") And zh.value= dr("账号") Then
    If mm.value= dr("密码") Then
        If dr("用户状态") = "停用" Then '如果前面部门或姓名只加载了启用状态的,此处不用判断
            MessageBox.Show ("您的账号还未启用或已停用,请与管理员联系!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            Return
        End If
        Forms("主窗口").Open()
        MainTable = Tables("主界面") '打开主界面表
        e.Form.close
    Else
        MessageBox.Show ("密码错误,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        Return
    End If
Else
    MessageBox.Show ("部门,姓名,账号不一致!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If

[此贴子已经被作者于2022/4/14 14:53:34编辑过]

下一主题 >> << 上一主题

主题：动态列表排序问题