以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]密码打开系统菜单问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115308)
--  作者：老鼠
--  发布时间：2018/3/5 1:47:00
--  [求助]密码打开系统菜单问题?
如题,项目启动后打开自己的菜单,其中有一按钮[系统菜单],点击时出现密码确认窗口;只有在输入正确密码后才能打开系统菜单.否则无法打开系统菜单.求代码???
--  作者：有点甜
--  发布时间：2018/3/5 8:49:00
--  

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd = "123" Then
        Syscmd.Project.OpenSystemMenu()
    Else
        msgbox("密码不正确")
    End If
End If
--  作者：lzw001
--  发布时间：2018/3/5 9:17:00
--  
这个是要在项目属性中吗
--  作者：有点甜
--  发布时间：2018/3/5 9:39:00
--  
以下是引用lzw001在2018/3/5 9:17:00的发言：
这个是要在项目属性中吗

 

写在你菜单【打开系统菜单】那里去。