以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户自定义  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170218)

--  作者:admin22327
--  发布时间:2021/7/16 21:31:00
--  用户自定义

十将项目事件AfterOpenProject的代码改为:

 

 

Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If

 

软件自动退出,怎么解决?

[此贴子已经被作者于2021/7/16 21:33:06编辑过]

--  作者:admin22327
--  发布时间:2021/7/16 22:28:00
--  

  上面的问题已经解决

   现在有个新问题:注册用户时,不显示其他用户,登录用户时,不显示其他用户,直接输入用户名和密码登录,代码怎么改呢?

[此贴子已经被作者于2021/7/16 22:28:29编辑过]

--  作者:有点蓝
--  发布时间:2021/7/17 9:25:00
--  
登录窗口用户名输入框不要使用组合框,改为文本框
--  作者:admin22327
--  发布时间:2021/7/17 15:08:00
--  
记住用户名和密码咋么弄呢?
--  作者:tommargq2
--  发布时间:2021/7/17 15:20:00
--  

在确认或登录按钮中编辑事件将用户名和密码写入到某表

然后在用户名文本框的LEAVE事件中添加后台查找相应密码,如果不是nothing就写入密码位置的文本框


--  作者:有点蓝
--  发布时间:2021/7/17 15:27:00
--  
可以把文本框输入的内容保存到设置中:http://www.foxtable.com/webhelp/topics/1544.htm

窗口afterload事件,获取设置,如果有数据就填到文本框中

--  作者:admin22327
--  发布时间:2021/7/20 21:52:00
--  
看不懂你说的东西


--  作者:有点蓝
--  发布时间:2021/7/20 22:13:00
--  
什么地方看不懂!

登录窗口确定按钮
SaveConfigValue("name",e.form.controls("用户名").text)

登录窗口afterload
Dim n As string
n = GetConfigValue("
name","")
e.form.controls("用户名").text = n