以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  系统解锁后返回到锁定时工作窗口  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67693)
--  作者：wjliu510
--  发布时间：2015/4/29 11:16:00
--  系统解锁后返回到锁定时工作窗口
请教各位版主：系统设了锁定和解锁功能 解锁成功后如何回到系统锁定时的工作窗口
--  作者：Bin
--  发布时间：2015/4/29 11:16:00
--  
你采用的是什么方式的锁定和解锁. 
--  作者：wjliu510
--  发布时间：2015/4/29 11:23:00
--  
菜单设计 配置栏里设置  代码：

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
   frm.close

End If
Forms("用户系统设置").Show

 

用户系统设置窗口beforeclose代码：

Dim pwd As String = e.Form.Controls("TextBox1").Text
If pwd <> "123456" Then
    msgbox("密码不正确,请输入正确的密码1234**")
    e.cancel = True
    End If
--  作者：Bin
--  发布时间：2015/4/29 11:30:00
--  
用一个全局变量.把 frm.Name存下来

然后再用 froms(全局变量) .SHOW 即可
--  作者：wjliu510
--  发布时间：2015/4/29 11:39:00
--  

我是在afterclose里加了一个代码 forms（"x"）.open()

如何把x指向当前工作窗口
--  作者：Bin
--  发布时间：2015/4/29 11:40:00
--  
菜单设计 配置栏里设置  代码：

Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
   frm.close

End If


用一个全局变量.把 frm.Name存下来

然后再用 froms(全局变量) .SHOW 即可
--  作者：Bin
--  发布时间：2015/4/29 11:40:00
--  
http://www.foxtable.com/help/topics/1841.htm
--  作者：wjliu510
--  发布时间：2015/4/29 11:47:00
--  

全局变量不懂

变量名称  变量类型 初始值怎么选
--  作者：Bin
--  发布时间：2015/4/29 11:48:00
--  
看7楼帮助连接
--  作者：wjliu510
--  发布时间：2015/4/29 11:49:00
--  

看不懂 我不是专业人士