Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 修改密码代码


  共有412人关注过本帖树形打印复制链接

主题：[求助] 修改密码代码
帅哥哟，离线，有人找我吗？
建筑人生
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		[求助] 修改密码代码  发帖心情 Post By：2024/4/18 14:12:00 [显示全部帖子]


'修改密码代码

Dim c md As New S  QLCommand
c  md.C
e.F orm.Controls("UserName").Value = _UserName

Dim pass As String = e.F orm.Controls("PassWord1").Value
If e.F orm.Controls("PassWord1").Value = e.F orm.Controls("PassWord2").Value Then 
    c  md.CommandText = "U PDATE {user} SET [password]= '" & pass & "' WHERE Name='" & e.F orm.Controls("UserName").Value & "'"
    c  md.ExecuteNonQuery() 
    F orms("密码修改").Close  ‘这里有关闭

   F  orms("用户登录").O  pen   ‘这里没有打开登入窗口，直接进入系统，我想让他打开窗口，代码需要怎么改

Else
    M essageBox.Show ("密码输入错误，重新输入") 
    e.F orm.Controls("PassWord1").Value = Nothing
    e.F orm.Controls("PassWord2").Value = Nothing
End If
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 14:26:00 [显示全部帖子]

代码放在密码修改确认按键，密码修改、用户登入都是模式窗口，

 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 14:39:00 [显示全部帖子]

还是直接进入系统，没有打开登入窗口
[此贴子已经被作者于2024/4/18 14:46:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 14:50:00 [显示全部帖子]

我是打开程序---进入用户登入窗口，输入用户名及密码（如果密码是原始密码，如8888），就打开修改密码窗口，修改后想按确认键，回到用户登入窗口，重新登入

 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 15:17:00 [显示全部帖子]

以下是引用有点蓝在2024/4/18 15:05:00的发言：
在用户登入窗口，直接打开修改密码窗口就行啊，打开修改密码窗口的时候不要关闭用户登入窗口，修改密码窗口确定按钮关闭修改密码窗口就行了，默认就会回到用户登入窗口
一样直接进入系统，没有到登录窗口，可能是前面登入系统一定要打开
图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20240418151705.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2024/4/18 15:20:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 15:37:00 [显示全部帖子]


此主题相关图片如下：修改密码.png
按此在新窗口浏览图片
以下是引用cd_tdh在2024/4/18 15:12:00的发言：
代码顺序逻辑问题，你要先打开登录窗口，在关闭修改密码窗口才对，要是你先关闭了修改密码窗口，后面的代码都不执行了，肯定不会打开登录窗口。
...
c  md.ExecuteNonQuery() 
   e.Form.baseform.Opacity = 0 '把修改密码敞口设置为透明
   Forms("用户登录").Show  '打开用户登录
   Forms("密码修改").Close  '在关闭修改密码窗口
Else
...

改了先打开再 关闭，还是一样直接进系统
此主题相关图片如下：登入.png
按此在新窗口浏览图片
[此贴子已经被作者于2024/4/18 15:15:36编辑过]

[此贴子已经被作者于2024/4/18 15:39:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 15:45:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：用户登入.png
图片点击可在新窗口打开查看
以下是引用有点蓝在2024/4/18 15:39:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

删除后还是直接进入系统


[此贴子已经被作者于2024/4/18 15:49:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 15:58:00 [显示全部帖子]

关闭修改密码窗口后进入系统，用户登入窗口灰显，只显示窗口名称，其他没有显示，我用的是外部表
[此贴子已经被作者于2024/4/18 16:06:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 16:16:00 [显示全部帖子]

以下是引用有点蓝在2024/4/18 16:08:00的发言：
肯定还有什么地方有代码关闭了用户登入窗口，都去掉

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:项目财务综合管理系统.zip

[此贴子已经被作者于2024/4/18 16:37:52编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
建筑人生
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：341 积分：3422 威望：0 精华：0 注册：2014/8/20 20:14:00 		  发帖心情 Post By：2024/4/18 16:28:00 [显示全部帖子]

可能没保存，但去掉还是一样

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询