以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  已知:用户“经理”并非“密码记录表”中,上次最后一次上锁的用户“小颜”,  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=134853)

--  作者:fengwenliuyan
--  发布时间:2019/5/10 15:08:00
--  已知:用户“经理”并非“密码记录表”中,上次最后一次上锁的用户“小颜”,

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:05010004.zip


之前,上传的时候,用户“经理”的密码忘了改了,这回改好了,密码都是“888”

项目属性的MainTableChanging事件代码为:
If e.NewTableName = "询价表2018后" Then
    Dim fdr = DataTables("密码记录表").find("用户名 =\'" & User.Name & "\'", "加密日期 desc")
    Dim pwd As String = GetConfigValue(user.name & "密码", "")
    If pwd <> fdr("密码") Then
        MainTable = Tables("仓管表")
        forms("解密窗口").show
    End If
End If

已知:用户“经理”并非“密码记录表”中,上次最后一次上锁的用户“小颜”,
求:
现以用户“经理”,进入项目后,首次点击“询价表2018后”的表时,需要输入密码“000”,
接下来,直至项目关闭,都无需再次输入密码,直接进入并打开表“询价表2018后”,
中途,需要临时锁住表“询价表2018后”,则需要点击上方的“快速访问栏”中的“密码锁”,
[此贴子已经被作者于2019/5/10 15:54:26编辑过]

--  作者:fengwenliuyan
--  发布时间:2019/5/10 15:51:00
--  
求帮助
--  作者:有点甜
--  发布时间:2019/5/10 15:53:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:仓管区.foxdb

 


 


--  作者:fengwenliuyan
--  发布时间:2019/5/10 16:39:00
--  
谢谢老师