[求助]注册窗口如何实现自定义管理员进行审核 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

设计了【注册窗口】、【登录窗口】、【密码找回】、【用户管理】（参考帮助文件），并在在外部表建立了数据源“User”,表列名有[account][password][name][phone][注册审核（逻辑列）]

1、如何实现发布后的程序定义管理员（这里的管理员是外部表某列的用户，如admin）拥有审核注册的权限

2、如何实现窗口登录后，显示当前登录的用户信息：如[accout]的值；当前系统时间（已解决）

3、如何实现，用户通过[account][phone]两列的值修改对应[account]的密码，相当于密码找回功能

能否提供类似的例子，或者帮助文件或代码

全局代码中需要定义哪些变量？参考帮助，是否需要定义_Useraccount , _Userphone两变量即可？

[此贴子已经被作者于2015/4/28 22:55:13编辑过]

Bin大，根据您的方法，我设置完毕以后，当前用户是空白，如果按照帮助中进行设置，我当前用户显示的就是我在系统用户创建的用户“操作员（默认）”

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

此主题相关图片如下：pic002.jpg

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

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

[此贴子已经被作者于2015/7/15 12:02:26编辑过]

实在登录窗口的afterload事件中，给其赋值吗？

这是登录窗口确认按钮的代码，应该已经赋值了！

以下内容为程序代码:

1 Dim us As String = e.Form.Controls("UserAccount").Value
2 Dim dr As DataRow
3 If us = "" Then
4 Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
5 Return
6 End If
7 dr = _UserTable.SQLFind("[Account] = '" & us & "'") 'SQLFind 语句使用方法,用DataTables引用外部表数据.sqlfind查找对应字段
8 If dr Is Nothing Then
9 Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
10 Return
11 End If
12 If e.Form.Controls("PassWord").Value = dr("Password") Then
13 _UserAccount = us
14 e.Form.Close
15 Else
16 Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
17 End If

Dim us As String = e.Form.Controls("UserAccount").Value
Dim dr As DataRow
If us = "" Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = _UserTable.SQLFind("[Account] = '" & us & "'") 'SQLFind 语句使用方法,用DataTables引用外部表数据.sqlfind查找对应字段
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserAccount = us
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2015/7/15 17:23:48编辑过]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150716155129.jpg

创建Label11控件然后对其赋值

写在窗口的afterload事件中：

代码：e.form.controls("Label11").text= _UserAccount

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

如果代码写为：e.form.controls("Label11").text= User.Name 显示出来的是foxtable自带的用户管理里面的默认用户。即我创建的“操作员”用户

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

Label12、Label13控件设置的时间和日期，代码在TimerTick中，正常

=============================

请教，如何改写代码？

红袍版主，您好！

我将项目进行了发布测试，然后将【Publish】文件夹拷贝到桌面，点击发布后的.exe程序运行后，发现此时的用户名是我的登录名，但如果不拷贝，直接打开.exe ，显示的就是项目里创建的用户“操作员”，这是为何？（代码：e.form.controls("Label11").text= User.Name '显示当前使用人）

另外，我在afterload中写了如下代码：

e.Form.Controls("资料查询页").Visible=True
e.Form.Controls("配件查询框").Visible=False
e.Form.Controls("应用工具框").Visible=False
e.Form.Controls("数据管理框").Visible=False
e.Form.Controls("用户管理框").Visible=False

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20150717095524.jpg

为何打开发布后的项目后，无法看到资料查询页的内容，是空白

但是我在窗口预览时，一切正常

[此贴子已经被作者于2015/7/17 9:58:19编辑过]

好的，谢谢您了！另外我将代码放在TimerTick 效果和和afterload是一样的

我先咨询一下客服，谢谢您的耐心解答了

[此贴子已经被作者于2015/7/17 10:05:05编辑过]

主题：[求助]注册窗口如何实现自定义管理员进行审核